Имя: Пароль:
1C
1С v8
УТ 11 изменить значение табличной части документа УстановкаЦенНоменклатуры
0 DDimson
 
25.06.12
02:08
Необходимо поменять программно текущий вид цены, на другой (вручную - пропадают все цены)


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

Код срабатывает, но при открытии документа появляется сообщение:
"Поле объекта не обнаружено (ВидЦеныi344uhk43sd898d)"

Подскажите, люди добрые, где ошибся
1 Злобный Фей
 
25.06.12
02:14
ВидЦены есть не только в ТЧ ВидыЦен..
2 DDimson
 
25.06.12
02:16
Точно. Попробую в ТЧ Товары еще записать
3 DDimson
 
25.06.12
02:19
Спасибо большое, ЗлобныйФей. Очень помог
4 DDimson
 
25.06.12
02:22
Может кому пригодится. Код должен быть таким:

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