Имя: Пароль:
1C
1С v8
добавление нескольких строк в таблицу
0 JedaiMaster
 
09.08.13
18:43
как добавить не 1 а несколько строк с табличную часть на форме, имею следующий код, но он вставляет только 1 строку

НовСчет =  Документы.СчетНаОплатуПокупателю.СоздатьДокумент();
           НовСчет.Организация=Справочники.Организации.НайтиПоНаименованию("Федерация профсоюзов Забайкалья");                      
           НовСчет.Контрагент = таб1Контрагент;
    //                       НовСчет.ДоговорКонтрагента = т.Контрагент.ОсновнойДоговорКонтрагента;
           НовСчет.Дата = ТекущаяДата();
           ТабСч = НовСчет.Товары.Добавить();
           ТабСч.Номенклатура = Справочники.Номенклатура.НайтиПоНаименованию("Междугородные переговоры");
           ТабСч.Номенклатура = Справочники.Номенклатура.НайтиПоНаименованию("Местные телефонные соединения");
           ТабСч.Цена  = таб1СуммаСУСН;
           ТабСч.Цена  = таб2СуммаСУСН;
           ТабСч.Количество = 1;
           ТабСч.Сумма = таб1СуммаСУСН;
           ТабСч.Сумма = таб2СуммаСУСН;
           НовСчет.СуммаДокумента = таб1СуммаСУСН+таб2СуммаСУСН;
           НовСчет.Записать(РежимЗаписиДокумента.Запись)
1 shuhard
 
09.08.13
18:47
(0)  Пока ххх Цикл  
ТабСч = НовСчет.Товары.Добавить();
КонецЦикла

НовСчет.Записать(РежимЗаписиДокумента.Запись)
Компьютер — устройство, разработанное для ускорения и автоматизации человеческих ошибок.