Форма документа "Расходная накладная"

&НаКлиенте
Процедура НоменклатураНоменклатураПриИзменении(Элемент)
    Стр = Элементы.Номенклатура.ТекущиеДанные;
    Стр.Цена = ДанныеСправочникаНоменклатуры(Строка(Стр.Номенклатура), "Цена");
    Стр.ЕдИзм = ДанныеСправочникаНоменклатуры(Строка(Стр.Номенклатура), "ЕдИзм");
    Стр.Количество = 1;
    Стр.Сумма = Стр.Количество * Стр.Цена;
КонецПроцедуры

&НаКлиенте
Процедура НоменклатураКоличествоПриИзменении(Элемент)
    Стр = Элементы.Номенклатура.ТекущиеДанные;
    Если Стр.Количество > 0 Тогда
        Стр.Сумма = Стр.Цена * Стр.Количество;
    Иначе
          ДефолтныеЗначенияПолейПриОшибке();
    КонецЕсли;
КонецПроцедуры

&НаКлиенте
Процедура НоменклатураЦенаПриИзменении(Элемент)
    Стр = Элементы.Номенклатура.ТекущиеДанные;
    Если Стр.Цена > 0 Тогда
        Стр.Сумма = Стр.Количество * Стр.Цена;
    Иначе
          ДефолтныеЗначенияПолейПриОшибке();
    КонецЕсли;
КонецПроцедуры

&НаКлиенте
Процедура НоменклатураСуммаПриИзменении(Элемент)
    Стр = Элементы.Номенклатура.ТекущиеДанные;
    Если Стр.Сумма > 0 Тогда
        Стр.Цена = Стр.Сумма / Стр.Количество;
    Иначе
         ДефолтныеЗначенияПолейПриОшибке();
    КонецЕсли;
КонецПроцедуры

//данная процедура устанавливает дефолтные значения полей для одной единицы товара
&НаКлиенте
Процедура ДефолтныеЗначенияПолейПриОшибке()
    Стр = Элементы.Номенклатура.ТекущиеДанные;
    Сообщить("Недопустимое значение поля");
    Стр.Количество = 1;
    Стр.Цена = ДанныеСправочникаНоменклатуры(Строка(Стр.Номенклатура), "Цена");
    Стр.Сумма = Стр.Цена * Стр.Количество;
КонецПроцедуры

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