Листинг и.2 – Код модуля формы документа АктОбИсправимомБраке

Примечание – Источник: собственная разработка

&НаСервере

Функция ЦенаНоменклатуры(Номенклатура)

Возврат Номенклатура.Цена;

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

&НаКлиенте

Функция РасчётСуммы(Количество, Цена)

Возврат Количество * Цена;

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

&НаКлиенте

Процедура СписокБракованныхТоваровНоменклатураПриИзменении(Элемент)

Элем = Элементы.СписокБракованныхТоваров.ТекущиеДанные;

Элем.Цена = ЦенаНоменклатуры(Элем.Номенклатура);

Элем.Сумма = РасчётСуммы(Элем.Количество, Элем.Цена);

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

&НаКлиенте

Процедура СписокБракованныхТоваровКоличествоПриИзменении(Элемент)

Элем = Элементы.СписокБракованныхТоваров.ТекущиеДанные;

Элем.Сумма = РасчётСуммы(Элем.Количество, Элем.Цена);

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

&НаКлиенте

Процедура МатериалыНаИсправлениеНоменклатураПриИзменении(Элемент)

Элем = Элементы.МатериалыНаИсправление.ТекущиеДанные;

Элем.Цена = ЦенаНоменклатуры(Элем.Номенклатура);

Элем.Сумма = РасчётСуммы(Элем.Количество, Элем.Цена);

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

&НаКлиенте

Процедура МатериалыНаИсправлениеКоличествоПриИзменении(Элемент)

Элем = Элементы.МатериалыНаИсправление.ТекущиеДанные;

Элем.Сумма = РасчётСуммы(Элем.Количество, Элем.Цена);

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

&НаКлиенте

Процедура ОплатаЗаИсправлениеПриИзменении(Элемент)

ОтветственныйМОЛ();

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

&НаКлиенте

Процедура ОтветственныйМОЛ()

Если (Объект.МОЛ = Объект.ОтветственныйЗаИсправление) тогда

Объект.ОплатаЗаИсправление = 0;

КонецЕсли;

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

&НаКлиенте

Процедура МОЛПриИзменении(Элемент)

ОтветственныйМОЛ();

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

&НаКлиенте

Процедура ОтветственныйЗаИсправлениеПриИзменении(Элемент)

ОтветственныйМОЛ();

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