"Задача из ТЗ я перебираю все док.(допустим около 5-ти) перебрала реквизиты, а теперь мне надо из 5 док. сделать один. Подскажите как перебрать ТЧ док. и их записать в один док?
Процедура КнопкаВыполнитьНажатие(Кнопка)
НовыйДок = Документы.ВозвратТоваровПоставщику.СоздатьДокумент();
л_пр_док = """";
Для каждого СтрокаТП Из ТабличноеПоле Цикл
Если (л_пр_док <> """") Тогда
Если (СтрокаТП.Документ.Организация = л_пр_док.Организация)
И (СтрокаТП.Документ.Контрагент = л_пр_док.Контрагент)
И (СтрокаТП.Документ.ДоговорКонтрагента = л_пр_док.ДоговорКонтрагента)
И (СтрокаТП.Документ.Склад = л_пр_док.Склад)
Тогда
//Шапка
НовыйДок.Дата = ТекущаяДата();
НовыйДок.УстановитьНовыйНомер();
НовыйДок.Организация = СтрокаТП.Документ.Организация;
НовыйДок.Контрагент = СтрокаТП.Документ.Контрагент;
НовыйДок.Склад = СтрокаТП.Документ.Склад;
НовыйДок.Сделка = """";
ОтражатьВУправленческомУчете = Истина;
ОтражатьВБухгалтерскомУчете = Истина;
ОтражатьВНалоговомУчете = Истина;
АктивацияЗаказа = Ложь;
КонецЕсли;
КонецЕсли;
КонецЦикла;
КонецПроцедуры
"
Процедура КнопкаВыполнитьНажатие(Кнопка)
НовыйДок = Документы.ВозвратТоваровПоставщику.СоздатьДокумент();
л_пр_док = """";
Для каждого СтрокаТП Из ТабличноеПоле Цикл
Если (л_пр_док <> """") Тогда
Если (СтрокаТП.Документ.Организация = л_пр_док.Организация)
И (СтрокаТП.Документ.Контрагент = л_пр_док.Контрагент)
И (СтрокаТП.Документ.ДоговорКонтрагента = л_пр_док.ДоговорКонтрагента)
И (СтрокаТП.Документ.Склад = л_пр_док.Склад)
Тогда
//Шапка
НовыйДок.Дата = ТекущаяДата();
НовыйДок.УстановитьНовыйНомер();
НовыйДок.Организация = СтрокаТП.Документ.Организация;
НовыйДок.Контрагент = СтрокаТП.Документ.Контрагент;
НовыйДок.Склад = СтрокаТП.Документ.Склад;
НовыйДок.Сделка = """";
ОтражатьВУправленческомУчете = Истина;
ОтражатьВБухгалтерскомУчете = Истина;
ОтражатьВНалоговомУчете = Истина;
АктивацияЗаказа = Ложь;
КонецЕсли;
КонецЕсли;
КонецЦикла;
КонецПроцедуры
"