Необходимо поменять программно текущий вид цены, на другой (вручную - пропадают все цены)


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

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

Подскажите, люди добрые, где ошибся

ВидЦены есть не только в ТЧ ВидыЦен..

Точно. Попробую в ТЧ Товары еще записать

Спасибо большое, ЗлобныйФей. Очень помог

Может кому пригодится. Код должен быть таким:

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