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