0
DDimson
25.06.12
✎
02:08
|
Необходимо поменять программно текущий вид цены, на другой (вручную - пропадают все цены)
УстЦен= Документы.УстановкаЦенНоменклатуры.НайтиПоНомеру(УстановкаЦен.Номер,ТекущаяДата()).Ссылка;
УстЦенОбъект = УстЦен.ПолучитьОбъект();
Для Каждого ТекущаяСтрока Из УстЦенОбъект.ВидыЦен Цикл
Сообщить(ТекущаяСтрока.ВидЦены);
ТекущаяСтрока.ВидЦены = ВидЦены.Ссылка;
КонецЦикла;
УстЦенОбъект.Записать();
Код срабатывает, но при открытии документа появляется сообщение:
"Поле объекта не обнаружено (ВидЦеныi344uhk43sd898d)"
Подскажите, люди добрые, где ошибся
|
|
4
DDimson
25.06.12
✎
02:22
|
Может кому пригодится. Код должен быть таким:
УстЦен = Документы.УстановкаЦенНоменклатуры.НайтиПоНомеру(УстановкаЦен.Номер,ТекущаяДата()).Ссылка;
УстЦенОбъект = УстЦен.ПолучитьОбъект();
Для Каждого ТекущаяСтрока Из УстЦенОбъект.ВидыЦен Цикл
Сообщить(ТекущаяСтрока.ВидЦены);
ТекущаяСтрока.ВидЦены = ВидЦены.Ссылка;
КонецЦикла;
Для Каждого ТекущаяСтрока Из УстЦенОбъект.Товары Цикл
Сообщить(ТекущаяСтрока.ВидЦены);
ТекущаяСтрока.ВидЦены = ВидЦены.Ссылка;
КонецЦикла;
УстЦенОбъект.Записать();
|
|