1.
kattymix
09.06.12 15:52
Сейчас в теме
Привет.Подскажите пожалуйста.
В обработке в 1С 7.7 есть таблица значений ТЗДок,которая содержит список документов Требование накладная с реквизитом таблицы Ссылка.
Необходимо в цикле по всей таблице создать копию каждого документа.
Столкнулась с трудностью обхода табличной части каждого документа в 1С 7.7.
То есть происходит ошибка при копировании табличной части...=(
Зависает и все.....=((((
ТЗДок.ВыбратьСтроки();
Пока ТЗДок.ПолучитьСтроку()=1 Цикл
Док = СоздатьОбъект("Документ.ТребованиеНакладная");
Док.Новый();
Док.ДатаДок = ДатаДокумента;
Док.МестоХранения = ТЗДок.Ссылка.МестоХранения;
Для А = 1 По 3 Цикл
Док.НазначитьТип("Субконто"+А,ТЗДок.Ссылка.СчетЗатрат.ВидСубконто(А));
КонецЦикла;
Док.Субконто2 = ТЗДок.Ссылка.Субконто2;
Док.Комментарий = ТЗДок.Ссылка.Комментарий;
Док.СчетЗатрат = ТЗДок.Ссылка.СчетЗатрат;
Док.Субконто1 = ТЗДок.Ссылка.Субконто1;
ТЗДок.Ссылка.ВыбратьСтроки();
Пока (ТЗДок.Ссылка.ПолучитьСтроку()=1) Цикл
Док.НоваяСтрока();
Док.Материал = ТЗДок.Ссылка.Материал;
Док.КоличествоЗатребовано = ТЗДок.Ссылка.КоличествоЗатребовано;
Док.КоличествоОтпущено = ТЗДок.Ссылка.КоличествоОтпущено;
Док.Сумма = ТЗДок.Ссылка.сумма;
КонецЦикла;
Док.Записать();
КонецЦикла;