Сomparison-line Голосов: 1 Адрес блога: http://comparison-line.ru Добавлен: 2010-11-26 13:42:23 блограйдером kottx

CASE pAccount.Contents=[Сальдо старт]

2013-05-07 15:39:17 (читать в оригинале)

CASE pAccount.Contents=[Сальдо старт] SignSaldoStart=1 nRow=nRow+1 && Номер текущей строчки DO WRITE && Вывод строки счета. Находится в FileProc oExcel.Rows(ALLTRIM(STR(nRow,3))+[:]+; ALLTRIM(STR(nRow,3))).Font.Size = 7 oExcel.Rows(ALLTRIM(STR(nRow,3))+[:]+; ALLTRIM(STR(nRow,3))).RowHeight = 13.2 oExcel.Rows(ALLTRIM(STR(nRow,3))+[:]+; ALLTRIM(STR(nRow,3))).HorizontalAlignment = xlCenter oExcel.Range([A]+ALLTRIM(STR(nRow,3))+[:]+; [N]+ALLTRIM(STR(nRow,3))).Select * Левые вертикальные линии With oExcel.Selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic EndWith * Верхние горизонтальные линии With oExcel.Selection.Borders(xlEdgeTop) .LineStyle [...]

---

Начальное сальдо (НДС)

2013-05-07 15:38:54 (читать в оригинале)

[ руб. Начальное сальдо (НДС): ]+; ALLTRIM(STR(SldKray,13,2))+[ руб.] oExcel.Rows(ALLTRIM(STR(nRow,3))+[:]+; ALLTRIM(STR(nRow,3))).Font.Size = 7 oExcel.Rows(ALLTRIM(STR(nRow,3))+[:]+; ALLTRIM(STR(nRow,3))).Interior.ColorIndex = 35 nRow=nRow+1 oExcel.Rows(ALLTRIM(STR(nRow,3))+[:]+; ALLTRIM(STR(nRow,3))).Interior.ColorIndex = 35 StartRow=nRow ENDIF IF SignSaldoStart=0 oExcel.Range([A]+ALLTRIM(STR(StartRow+1,3))+[:N]+; ALLTRIM(STR(nRow,3))).Select oExcel.Selection.Borders(xlDiagonalUp).LineStyle=; xlNone With oExcel.Selection .HorizontalAlignment = xlCenter EndWith With oExcel.Selection.Font .Size = 7 EndWith * Левые вертикальные линии With oExcel.Selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = [...]

---

Добавление строчки после Сальдо nRow=nRow+1

2013-05-07 15:38:31 (читать в оригинале)

* Добавление строчки после Сальдо nRow=nRow+1 oExcel.Range([B]+ALLTRIM(STR(nRow,3))).Select oExcel.ActiveCell.FormulaR1C1=[Итого за месяц] oExcel.Range([C]+ALLTRIM(STR(nRow,3))).Select oExcel.ActiveCell.FormulaR1C1=NachAll * - Фрагмент пропущен oExcel.Range([L]+ALLTRIM(STR(nRow,3))).Select oExcel.ActiveCell.FormulaR1C1=UpPeni oExcel.Rows(ALLTRIM(STR(nRow,3))+[:]+; ALLTRIM(STR(nRow,3))).Font.Size = 7 oExcel.Rows(ALLTRIM(STR(nRow,3))+[:]+; ALLTRIM(STR(nRow,3))).Interior.ColorIndex = 35 oExcel.Rows(ALLTRIM(STR(nRow,3))+[:]+; ALLTRIM(STR(nRow,3))).HorizontalAlignment = xlCenter * Еще одна строчка сводных данных nRow=nRow+1 StartRow=nRow oExcel.Range([A]+ALLTRIM(STR(nRow,3))).Select oExcel.ActiveCell.FormulaR1C1=[На начало месяца]+; [ общее сальдо составляет: ]+; ALLTRIM(STR(SaldoAll,13,2))+[ руб. В т.ч]+; [ Оплата: ]+ALLTRIM(STR(SldRussia,13,2))+; [ [...]

---

Связь между нажатием клавиши F1 и запуском нужной HTML-страницы

2013-05-03 11:23:38 (читать в оригинале)

Связь между нажатием клавиши F1 и запуском нужной HTML-страницы Этап 5. Для назначения псевдонимов тем, необходимых для создания контексно-зависимой справочной системы, откройте окно HtmlHelp API in-formation (рис. 6.6), выбрав четвертую пиктограмму первой вкладки Project продукта HTML Help Workshop. Перейдите на вторую вкладку Alias (Псевдоним). После нажатия Add (Добавить) откроется окно Alias. Укажите в нем Псевдоним, [...]

---

HtmlHelp API Information.

2013-05-03 11:22:35 (читать в оригинале)

HtmlHelp API Information Имя псевдонима HTML-файла лучше всего назначать осмысленно. Лениться не следует. Даже в небольшом файле справки можно запутаться с именами объектов и соответствующими им файлами. Про имена типа A1 или Ааа следует забыть. Два примера имени псевдонима: Form_Building (Форма просмотра списка зданий) Form_Building_Combo1_Street (Список улиц в форме зданий) Этап 6. Разберемся с индексами [...]