Заполняем документ произольной ценой. УТ 11.5

В УТ 11.5 нет возможности заполнить строки документа, например, коммерческого предложения, произвольной ценой. Потому что обязательно требуется выбрать непустой вид цены.

Добавляю в форму выбора справочника «Виды цен» кнопку «Выбрать произвольную цену»:

Код в модуле формы:

&НаСервере
Процедура дор_ПриСозданииНаСервереПосле(Отказ, СтандартнаяОбработка)
	ИмяКоманды = "ВыбратьПроизвольнуюЦену";
	КомандаФормы = ЭтаФорма.Команды.Добавить(ИмяКоманды);
	КомандаФормы.Действие = "ВыбратьПроизвольнуюЦену";
	КомандаФормы.Заголовок = "Выбрать произвольную цену";
	//КомандаФормы.Картинка = БиблиотекаКартинок.Отчет;
	КомандаФормы.ИзменяетСохраняемыеДанные = ложь;
	КомандаФормы.Отображение = ОтображениеКнопки.КартинкаИТекст;
	
	НовыйЭлемент = ЭтаФорма.Элементы.Добавить(ИмяКоманды, Тип("КнопкаФормы"), ЭтаФорма.КоманднаяПанель);
	НовыйЭлемент.ИмяКоманды = ИмяКоманды;	

КонецПроцедуры         

&НаКлиенте
Процедура ВыбратьПроизвольнуюЦену(Команда) Экспорт
	Закрыть("ПроизвольнаяЦена");
КонецПроцедуры         

Проверяем отладчиком — здесь в Результат «ПроизвольнаяЦена«.

В процедуре КоммерческиеПредложенияДокументыУТ.КоммерческоеПредложениеКлиентуЗаполнитьЦеныПоВидуЦен вызывается расчет цен, здесь тоже передается строка «ПроизвольнаяЦена«:

Как ни странно, так срабатывает. Только цена сбрасывается в ноль, но главное, что тип цен назначается произвольным:

По идее должно работать во всех документах.

Среда: 11.5.12.53. Объем: 1 час.