на основании заказа клиента создаю программно реализацию но не заполняется ТЧ товары

Для Каждого Стр Из Структура_ЗаказыССайта.Заказы Цикл
        
        Если Стр.СтатусЗаказа = "Выполнен" Тогда 
            
            Если ЗначениеЗаполнено(ЗаказССайта.НомерИМ) Тогда
                РеализацияСс = НайтиРеализациюПоНомеруИМ(Стр.НомерИМ);
                
                Если РеализацияСс = Документы.РеализацияТоваровУслуг.ПустаяСсылка() Тогда 
                    
                    //находим существующий заказ
                    Если ЗначениеЗаполнено(Стр.GUID) Тогда
                        Попытка
                            НайденныйЗаказКлиента = Документы.ЗаказКлиента.ПолучитьСсылку(Новый УникальныйИдентификатор(Стр.GUID));
                        Исключение
                            НайденныйЗаказКлиента = Документы.ЗаказКлиента.ПустаяСсылка();
                        КонецПопытки;
                    Иначе
                        НайденныйЗаказКлиента = Документы.ЗаказКлиента.ПустаяСсылка();
                    КонецЕсли;
                    
                    //попытаемся найти по НомерИМ
                    Если НайденныйЗаказКлиента = Документы.ЗаказКлиента.ПустаяСсылка() Тогда
                        НайденныйЗаказКлиента = НайтиЗаказаПоНомеруИМ(Стр.НомерИМ);
                    КонецЕсли;

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