Проблема в обработке по копированию документов.

1. kattymix 09.06.12 15:52 Сейчас в теме
Привет.Подскажите пожалуйста.
В обработке в 1С 7.7 есть таблица значений ТЗДок,которая содержит список документов Требование накладная с реквизитом таблицы Ссылка.
Необходимо в цикле по всей таблице создать копию каждого документа.
Столкнулась с трудностью обхода табличной части каждого документа в 1С 7.7.
То есть происходит ошибка при копировании табличной части...=(
Зависает и все.....=((((

ТЗДок.ВыбратьСтроки();
Пока ТЗДок.ПолучитьСтроку()=1 Цикл

Док = СоздатьОбъект("Документ.ТребованиеНакладная");
Док.Новый();
Док.ДатаДок = ДатаДокумента;

Док.МестоХранения = ТЗДок.Ссылка.МестоХранения;

Для А = 1 По 3 Цикл
Док.НазначитьТип("Субконто"+А,ТЗДок.Ссылка.СчетЗатрат.ВидСубконто(А));
КонецЦикла;


Док.Субконто2 = ТЗДок.Ссылка.Субконто2;
Док.Комментарий = ТЗДок.Ссылка.Комментарий;
Док.СчетЗатрат = ТЗДок.Ссылка.СчетЗатрат;

Док.Субконто1 = ТЗДок.Ссылка.Субконто1;

ТЗДок.Ссылка.ВыбратьСтроки();
Пока (ТЗДок.Ссылка.ПолучитьСтроку()=1) Цикл
Док.НоваяСтрока();
Док.Материал = ТЗДок.Ссылка.Материал;
Док.КоличествоЗатребовано = ТЗДок.Ссылка.КоличествоЗатребовано;
Док.КоличествоОтпущено = ТЗДок.Ссылка.КоличествоОтпущено;
Док.Сумма = ТЗДок.Ссылка.сумма;

КонецЦикла;

Док.Записать();

КонецЦикла;
По теме из базы знаний
Ответы
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
2. Ёпрст 1066 09.06.12 15:59 Сейчас в теме
Т = СоздатьОбъект("ТаблицыЗначений");
ТЗДок.Ссылка.ВыгрузитьТабличнуюЧасть(Т);
Док.ЗагрузитьТабличнуюЧасть(Т);

наслаждайся
Оставьте свое сообщение

Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот