2
Масянька
02.10.15
✎
10:51
|
(0) Код для семерки:
// заполнение таблицы номенклатуры
Для СчетчикЦикла = 1 По Счет.КоличествоСтрок() Цикл
мОбъект.Tables(1).Rows.Add(); // добавляем строку в конец таблицы
Счет.ПолучитьСтрокуПоНомеру(СчетчикЦикла);
мОбъект.Tables(1).Cell(СчетчикЦикла + 2,1).Range.Text = Счет.НомерСтроки;
мОбъект.Tables(1).Cell(СчетчикЦикла + 2,2).Range.Text = СокрЛП(Счет.Номенклатура.ПолнНаименование);
мОбъект.Tables(1).Cell(СчетчикЦикла + 2,3).Range.Text = СокрЛП(Формат(Счет.Количество, "Ч010.2"));
мОбъект.Tables(1).Cell(СчетчикЦикла + 2,4).Range.Text = Строка(Счет.Единица);
мОбъект.Tables(1).Cell(СчетчикЦикла + 2,5).Range.Text = глФрм(Счет.Цена);
мОбъект.Tables(1).Cell(СчетчикЦикла + 2,6).Range.Text = глФрм(Счет.СуммаНДС);
мОбъект.Tables(1).Cell(СчетчикЦикла + 2,7).Range.Text = глФрм(Счет.Сумма);
КонецЦикла;
// итоги
мОбъект.Tables(2).Cell(1,2).Range.Text = СокрЛП(Формат(Счет.Итог("Количество"), "Ч010.2"));
мОбъект.Tables(2).Cell(1,5).Range.Text = глФрм(Счет.Итог("СуммаНДС"));
мОбъект.Tables(2).Cell(1,6).Range.Text = глФрм(Счет.Итог("Сумма"));
// итоговая строка
мСтрокаВсего = глФразаПрописью(Счет.КоличествоСтрок(), "наименован") +
", на сумму " + глСуммаПрописью(Счет.Итог("Сумма"), глРубли) + ".";
мОбъект.Find.Execute("[СтрокаВсего]",0,0,,,,,,,СокрЛП(мСтрокаВсего),2);
КонецЕсли;
|
|