Хочу из документов ЗаказПоставщика Табличной части товары перенести Номенклатуру и цену в документ Установка цен номенклатуры

[Ruslan09609]

Из документа ЗаказПоставщика ТЧ Товары перенести в Документ УстановкаЦенНоменклатуры ТЧ Товары.
Вот мой код,но он не работает подскажите пожалуйста что я не так сделал.

Код Выделить Развернуть

Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ЗаказПоставщикуТовары.Номенклатура,
| ЗаказПоставщикуТовары.Цена
|ИЗ
| Документ.ЗаказПоставщику.Товары КАК ЗаказПоставщикуТовары
|ГДЕ
| ЗаказПоставщикуТовары.Ссылка.Проведен
|
|СГРУППИРОВАТЬ ПО
| ЗаказПоставщикуТовары.Номенклатура,
| ЗаказПоставщикуТовары.Цена";

РезультатЗапроса = Запрос.Выполнить().Выгрузить();

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

Для каждого ТекСтр из  УстановкаЦенНоменклатурыОбъект.Товары Цикл
ЗаполнитьЗначенияСвойств(УстановкаЦенНоменклатурыОбъект,РезультатЗапроса);
КонецЦикла;

УстановкаЦенНоменклатурыОбъект.Записать(РежимЗаписиДокумента.Запись);


[alexandr_ll]

Из документа ЗаказПоставщика ТЧ Товары перенести в Документ УстановкаЦенНоменклатуры ТЧ Товары.
Вот мой код,но он не работает подскажите пожалуйста что я не так сделал.

Код Выделить Развернуть

Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ЗаказПоставщикуТовары.Номенклатура,
| ЗаказПоставщикуТовары.Цена
|ИЗ
| Документ.ЗаказПоставщику.Товары КАК ЗаказПоставщикуТовары
|ГДЕ
| ЗаказПоставщикуТовары.Ссылка.Проведен
|
|СГРУППИРОВАТЬ ПО
| ЗаказПоставщикуТовары.Номенклатура,
| ЗаказПоставщикуТовары.Цена";

РезультатЗапроса = Запрос.Выполнить().Выгрузить();

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

Для каждого ТекСтр из  УстановкаЦенНоменклатурыОбъект.Товары Цикл
ЗаполнитьЗначенияСвойств(УстановкаЦенНоменклатурыОбъект,РезультатЗапроса);
КонецЦикла;

УстановкаЦенНоменклатурыОбъект.Записать(РежимЗаписиДокумента.Запись);


Такой запрос не будет работать в 1С Предприятие 7.7

[prog1c7.7]

Если 8 то Вместо:
 

Код Выделить Развернуть

Для каждого ТекСтр из  УстановкаЦенНоменклатурыОбъект.Товары Цикл
        ЗаполнитьЗначенияСвойств(УстановкаЦенНоменклатурыОбъект,РезультатЗапроса);
    КонецЦикла;
Надо:
     

Код Выделить Развернуть

Для каждого л1  из РезультатЗапроса   Цикл           
        НовСтрдокумента = УстановкаЦенНоменклатурыОбъект.Товары.Добавить();             
        ЗаполнитьЗначенияСвойств(НовСтрдокумента,л1);
     КонецЦикла;

..кактотак