Доброе время суток! Задача стоит такая: Необходимо чтобы в выбраный документ переносилсь строки табличной части документов из выбранного списка. Подскажите почему не получается получить строки табличной части документа? Вот код: Процедура Выполнить()
   ДокЗап = ДокПост;
   ДокЗап.Выбран();
   Таб = СоздатьОбъект ("ТаблицаЗначений");
   ВыгрузитьТабличнуюЧасть(Таб);
   СчетчикЦикла = 0;
   Для СчетчикЦикла = 1 По таб.количествострок() Цикл
        Сообщить(Таб.ПолучитьЗначение(СчетчикЦикла,2));
        ДокПер = Таб.ПолучитьЗначение(СчетчикЦикла,2);
        ДокПер.ВыбратьСтроки();
        Пока ДокПер.ПолучитьСтроку()=1 Цикл
             ДокЗап.НоваяСтрока();//пишет что документ не выбран!!!!!
             ДокЗап.НОменклатура = ДокПер.Номенклатура;
           
        КонецЦикла;
   КонецЦикла;

   
КонецПроцедуры

что такое
ДокПер и ДокЗап ?

с ДокЗап разобрался
что такое ДостПост
?

"ДокЗап.Выбран()"  +100

1) Где найтидокумент который ДокЗап
2) нафига цикл, если названия колонок совпадают можешь просто использовать загрузитьтабличнуючасть

на форме есть поле выбора(ДокПост) это документ в который будут переносится табличные части

(5) док пер что из ит ?

(5) НайтиДокумент

ДокПер = Таб.ПолучитьЗначение(СчетчикЦикла,2); здесь я получаю документ из которого необходимо перенести таб часть

(8)Там пусто

на 8ке давно бы уже все сделал, а тут въехать не могу....

(9)нет, там получаю документ из таб части

ДокЗап = ДокПост;
ДокЗап.Выбран();

Поэтому
ДокЗап.НоваяСтрока();//пишет что документ не выбран!!!!!

первые 2 строки - бред программы.
Создай Объект для докЗап по виду документа и всё.

ДокЗап = СоздатьОбъект("Документ");
ДокЗап.НайтиДокумент(ДокПост);

   Таб = СоздатьОбъект ("ТаблицаЗначений");
   ВыгрузитьТабличнуюЧасть(Таб);

ДокЗап.ЗагрузитьТабличнуюЧасть(Таб);
ДокЗап.Записать();

(10) на 8ке ты тоже не сделал бы

(13)Зачем его искать то? когда он в докПост лежит уже как ТС утверждает

(15) чтоб записать

аа..ПоняллОбъект нада

хотя сейчас выяснится, что автору нужно будет дополнить ТЧ ДокПост тек доком =)

(14) если я в 7ке плохо шарю, это не значит что и в 8ке тоже....
(15) так оно есть

(19) в 8ке никто циклами ТЧ не заполняет
запрос и точка

(20) в том то и дело, что в 8ке проще

(21) где ты в (13) видишь перебор ?

(19)У тебя в поле ввода ссылка. Чтобы записать что-то в нее надо получить объект.

ДокЗап = СоздатьОбъект("Документ");
ДокЗап.НайтиДокумент(ДокПост);

Это эквивалент .ПолучитьОбъект()  в 8.х

вот что получилось:
   ДокЗап = СоздатьОбъект("Документ");
   ДокЗап.НайтиДокумент(ДокПост);

   Таб = СоздатьОбъект ("ТаблицаЗначений");
   ВыгрузитьТабличнуюЧасть(Таб);
   
   СчетчикЦикла = 0;
   Для СчетчикЦикла = 1 По таб.количествострок() Цикл
        Сообщить(Таб.ПолучитьЗначение(СчетчикЦикла,2));
        ДокПер = СоздатьОбъект("Документ");
        ДокПер.НайтиДокумент(Таб.ПолучитьЗначение(СчетчикЦикла,2));
        ТабЧасть = СоздатьОбъект ("ТаблицаЗначений");    
        ДокПер.ВыгрузитьТабличнуюЧасть(ТабЧасть);
       
        ДокЗап.ЗагрузитьТабличнуюЧасть(ТабЧасть);
        ДокЗап.Записать();

   КонецЦикла;
но сейчас просто заменяет таб часть в док, а как сделать чтобы она дополнилась?

что в ТЧ ?

заменяет существующие строки, а не добовляет новые

Процедура Сформировать()
 Перем СлужТЗ;
  ТЗ=Создатьобъект("ТаблицаЗначений");
  ВыбратьСтроки();
  Пока ПолучитьСтроку() =1 Цикл
     КолСтрок = ТЗ.КоличествоСтрок();
     Если КолСтрок=0 Тогда
         ИдентификаторДокументаИзТабличнойЧасти.ВыгрузитьТабличнуюЧасть(ТЗ);
     Иначе
         ИдентификаторДокументаИзТабличнойЧасти.ВыгрузитьТабличнуюЧасть(СлужТЗ);
         ТЗ.КоличествоСтрок(КолСтрок+СлужТЗ.КоличествоСтрок());
         ТЗ.Заполнить(СлужТЗ,КолСтрок+1);
     КонецЕсли;
  КонецЦикла;
  ДокЗап = СоздатьОбъект("Документ");
  ДокЗап.НайтиДокумент(ДокПост);
  ДокЗап.ЗагрузитьТабличнуюЧасть(ТЗ);
  ДокЗап.Записать();

КонецПроцедуры

(27) спасибо за пример, я уже сделал немного подругому:
Процедура Выполнить()
   ДокЗап = СоздатьОбъект("Документ");
   ДокЗап.НайтиДокумент(ДокПост);

   Таб = СоздатьОбъект ("ТаблицаЗначений");
   ВыгрузитьТабличнуюЧасть(Таб);
   
   СчетчикЦикла = 0;
   Для СчетчикЦикла = 1 По таб.количествострок() Цикл
        Сообщить(Таб.ПолучитьЗначение(СчетчикЦикла,2));
        ДокПер = СоздатьОбъект("Документ");
        ДокПер.НайтиДокумент(Таб.ПолучитьЗначение(СчетчикЦикла,2));

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

Спасибо всем за пмощь!!!

(28) не надо записывать документ в цикле, не надо искать документ в цикле из табличной части, не надо выгружать табличную часть в тз и делать обход ТЗ..

в общем, твой код смело в топку

(29) вместе с автором....