Как добавить позицию характеристики номенклатуры в рмк

&НаКлиенте
Процедура Подбор(Команда)
    //ПараметрыФормы = Новый Структура;
    //ПараметрыФормы.Вставить("", );
    Оповещение = Новый ОписаниеОповещения("ПодборЗаверщение", ЭтотОбъект);
    ОткрытьФорму("Обработка.РабочееМестоКассира.Форма.ФормаПодбора",, ЭтотОбъект,,,, Оповещение, РежимОткрытияОкнаФормы.БлокироватьОкноВладельца);
КонецПроцедуры


&НаСервереБезКонтекста
Функция ЗаполнитьСвойстваНоменклатуры(Номенклатура, ВидЦен)
    
    СвойстваНоменклатуры = Новый Структура();
    СвойстваНоменклатуры.Вставить("Номенклатура", Номенклатура);
    СвойстваНоменклатуры.Вставить("НоменклатураНаименование", "");
    СвойстваНоменклатуры.Вставить("Весовой", Ложь);
    СвойстваНоменклатуры.Вставить("Цена", 0);
    СвойстваНоменклатуры.Вставить("ЕдиницаИзмерения", Неопределено);
    СвойстваНоменклатуры.Вставить("СтавкаНДС", Неопределено);
    СвойстваНоменклатуры.Вставить("СтавкаНСП", Неопределено);
    СвойстваНоменклатуры.Вставить("ТипМаркировки", Неопределено);
    СвойстваНоменклатуры.Вставить("ПризнакПредметаРасчета", Неопределено); 
    СвойстваНоменклатуры.Вставить("ИспользоватьХарактеристики", Неопределено);
    
    Запрос = Новый Запрос;
    Запрос.Текст = 
        "ВЫБРАТЬ ПЕРВЫЕ 1
        |    СправочникНоменклатура.Ссылка КАК Номенклатура,
        |    СправочникНоменклатура.Наименование КАК НоменклатураНаименование,
        |    СправочникНоменклатура.ПризнакПредметаРасчета КАК ПризнакПредметаРасчета,
        |    СправочникНоменклатура.ЕдиницаИзмерения КАК ЕдиницаИзмерения,
        |    СправочникНоменклатура.Весовой КАК Весовой,
        |    СправочникНоменклатура.СтавкаНДС КАК СтавкаНДС,
        |    СправочникНоменклатура.СтавкаНСП КАК СтавкаНСП,
        |    ЦеныНоменклатурыСрезПоследних.Цена КАК Цена,
        |    СправочникНоменклатура.ИспользоватьХарактеристики КАК ИспользоватьХарактеристики
        |ИЗ
        |    Справочник.Номенклатура КАК СправочникНоменклатура
        |        ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ЦеныНоменклатуры.СрезПоследних(
        |                ,
        |                Номенклатура = &Номенклатура
        |                    И ВидЦен = &ВидЦен) КАК ЦеныНоменклатурыСрезПоследних
        |        ПО СправочникНоменклатура.Ссылка = ЦеныНоменклатурыСрезПоследних.Номенклатура
        |            И СправочникНоменклатура.ЕдиницаИзмерения = ЦеныНоменклатурыСрезПоследних.ЕдиницаИзмерения
        |ГДЕ
        |    СправочникНоменклатура.Ссылка = &Номенклатура";
    Запрос.УстановитьПараметр("ВидЦен", ВидЦен);
    Запрос.УстановитьПараметр("Номенклатура", Номенклатура);
    
    РезультатЗапроса = Запрос.Выполнить();
    
    ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
    Если ВыборкаДетальныеЗаписи.Следующий() Тогда 
        ЗаполнитьЗначенияСвойств(СвойстваНоменклатуры, ВыборкаДетальныеЗаписи); 
    КонецЕсли;

    Возврат СвойстваНоменклатуры;

КонецФункции


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

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

&НаКлиенте
Процедура СписокВыбор(Элемент, ВыбраннаяСтрока, Поле, СтандартнаяОбработка)
    ПарамтрыПодбора = Новый Структура; 
    ПарамтрыПодбора.Вставить("Номенклатура", ВыбраннаяСтрока);   
    Закрыть(ПарамтрыПодбора);
КонецПроцедуры