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