Делаю в после загрузки

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

Документ не могу открыть. смотрел в отладчике. вроде верно все заполнено. что не так ?

четырнадцать

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

(2) смотрю в отладчике. при создание нового. все есть. чего ему там не так ?

пфф, анекдот знаешь?

В самолете:
Пилот: приборы
Штурман: четырнадцать
Пилот: что четырнадцать?
Штурман: а что приборы?

аналогию проведи

>Документ не могу открыть.
не получается два раза нажать ПКМ в списке? или что?