132
Приложение Е. Текст программного модуля формы «Списание»
&НаКлиенте
Процедура НоменклатураНоменклатураПриИзменении(Элемент)
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Количество = 1;
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Коэфф = 1;
ОсновнаяЕдиницаОтгрузки =
ОбщийСрв.ПолучитьОсновнуюЕдиницуОтгрузкиНоменклатуры(ЭтотОбъект
.Элементы.Номенклатура.ТекущиеДанные.Номенклатура);
Если Не ОсновнаяЕдиницаОтгрузки.Пустая() Тогда
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.ЕдИзмерения =
ОсновнаяЕдиницаОтгрузки;
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Коэфф =
ОбщийСрв.ПолучитьКоэффициент(ЭтотОбъект.Элементы.Номенклатура.Тек
ущиеДанные.ЕдИзмерения);
КонецЕсли;
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Цена =
ОбщийСрв.РассчитатьЦенуОстатка(ЭтотОбъект.Объект.Дата,
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Номенклатура,
ЭтотОбъект.Объект.Фирма);
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Сумма =
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Цена*
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Количество*
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Коэфф;
КонецПроцедуры
&НаКлиенте
Процедура НоменклатураКоличествоПриИзменении(Элемент)
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Сумма =
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Цена*
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Количество*
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Коэфф;
133
КонецПроцедуры
&НаКлиенте
Процедура НоменклатураЕдИзмеренияПриИзменении(Элемент)
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Коэфф =
ОбщийСрв.ПолучитьКоэффициент(ЭтотОбъект.Элементы.Номенклатура.Тек
ущиеДанные.ЕдИзмерения);
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Сумма =
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Цена*
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Количество*
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Коэфф;
КонецПроцедуры
134
Приложение Ж. Текст программного модуля формы «Услуга»
// изменился контрагент - изменить договор, тип цен, тип скидки,
скидку и пересчитать цены
&НаКлиенте
Процедура КонтрагентПриИзменении(Элемент)
Объект.Сотрудник =
ОбщийСрв.ПолучитьОтветсвенного(Объект.Контрагент);
Объект.Договор =
ОбщийСрв.ПолучитьОсновнойДоговор(Объект.Контрагент, Объект.Дата);
//Если Не Объект.Договор = Неопределено Тогда
ДоговорПриИзменении(Элемент);
//КонецЕсли;
КонецПроцедуры
// изменился договор - изменить тип цен, тип скидки, скидку и
пересчитаь цену
&НаКлиенте
Процедура ДоговорПриИзменении(Элемент)
Если Не Объект.Договор.Пустая() Тогда
Объект.ТипЦен =
ОбщийСрв.ПолучитьТипЦенИзДоговора(Объект.Договор);
Объект.ТипСкидки =
ОбщийСрв.ПолучитьТипСкидкиИзДоговора(Объект.Договор);
Иначе
Объект.ТипЦен =
ОбщийСрв.ПолучитьОсновнойТипЦен();
Объект.ТипСкидки =
ОбщийСрв.ПолучитьОсновнойТипСкидки();
КонецЕсли;
Объект.Скидка =
ОбщийСрв.СкидкаПоТипуСкидок(Объект.Дата,Объект.ТипСкидки,
Объект.Контрагент);
ПересчитатьЦены();
КонецПроцедуры
// изхменился тип цен - персчитать цены (скидка не изменилась)
&НаКлиенте
Процедура ТипЦенПриИзменении(Элемент)
ПересчитатьЦены();
135
КонецПроцедуры
// изменился тип скидки - персчитать скидку и пересчитать цены
&НаКлиенте
Процедура ТипСкидкиПриИзменении(Элемент)
Объект.Скидка =
ОбщийСрв.СкидкаПоТипуСкидок(Объект.Дата, Объект.ТипСкидки,
Объект.Контрагент);
ПересчитатьЦены();
КонецПроцедуры
// изменилась скидка вручную - персчитать цены
&НаКлиенте
Процедура СкидкаПриИзменении(Элемент)
ПересчитатьЦены();
КонецПроцедуры
Процедура ПересчитатьЦены()
Для Каждого ТекНоменклатура Из Объект.Номенклатура Цикл
ОбщийСрв.РассчитатьСуммуСтроки(Объект.Дата,
ТекНоменклатура.Номенклатура,
ТекНоменклатура.Количество,
ТекНоменклатура.Коэфф,
Объект.ТипЦен,
Объект.Скидка,
ТекНоменклатура.Цена,
ТекНоменклатура.ЦенаСкидка,
ТекНоменклатура.Сумма,
ТекНоменклатура.СуммаСкидки);
КонецЦикла;
КонецПроцедуры
&НаКлиенте
Процедура НоменклатураНоменклатураПриИзменении(Элемент)
136
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Количество = 1;
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Коэфф = 1;
ОсновнаяЕдиницаОтгрузки =
ОбщийСрв.ПолучитьОсновнуюЕдиницуОтгрузкиНоменклатуры(ЭтотОбъект
.Элементы.Номенклатура.ТекущиеДанные.Номенклатура);
Если Не ОсновнаяЕдиницаОтгрузки.Пустая() Тогда
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.ЕдИзмерения =
ОсновнаяЕдиницаОтгрузки;
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Коэфф =
ОбщийСрв.ПолучитьКоэффициент(ЭтотОбъект.Элементы.Номенклатура.Тек
ущиеДанные.ЕдИзмерения);
КонецЕсли;
ОбщийСрв.РассчитатьСуммуСтроки(Объект.Дата,
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Номенклатура,
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Количество,
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Коэфф,
Объект.ТипЦен,
Объект.Скидка,
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Цена,
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.ЦенаСкидка,
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Сумма,
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.СуммаСкидки);
КонецПроцедуры
&НаКлиенте
Процедура НоменклатураКоличествоПриИзменении(Элемент)
ОбщийСрв.РассчитатьСуммуСтроки(Объект.Дата,
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Номенклатура,
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Количество,
137
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Коэфф,
Объект.ТипЦен,
Объект.Скидка,
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Цена,
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.ЦенаСкидка,
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Сумма,
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.СуммаСкидки);
КонецПроцедуры
&НаКлиенте
Процедура НоменклатураЕдИзмеренияПриИзменении(Элемент)
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Коэфф =
ОбщийСрв.ПолучитьКоэффициент(ЭтотОбъект.Элементы.Номенклатура.Тек
ущиеДанные.ЕдИзмерения);
ОбщийСрв.РассчитатьСуммуСтроки(Объект.Дата,
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Номенклатура,
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Количество,
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Коэфф,
Объект.ТипЦен,
Объект.Скидка,
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Цена,
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.ЦенаСкидка,
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Сумма,
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.СуммаСкидки);
КонецПроцедуры
138
Приложение З. Текст программного модуля формы «Возврат от
покупателя»
// изменился контрагент - изменить договор, тип цен, тип скидки,
скидку и пересчитать цены
&НаКлиенте
Процедура КонтрагентПриИзменении(Элемент)
Объект.Сотрудник =
ОбщийСрв.ПолучитьОтветсвенного(Объект.Контрагент);
Объект.Договор =
ОбщийСрв.ПолучитьОсновнойДоговор(Объект.Контрагент, Объект.Дата);
//Если Не Объект.Договор = Неопределено Тогда
ДоговорПриИзменении(Элемент);
//КонецЕсли;
КонецПроцедуры
// изменился договор - изменить тип цен, тип скидки, скидку и
пересчитаь цену
&НаКлиенте
Процедура ДоговорПриИзменении(Элемент)
Если Не Объект.Договор.Пустая() Тогда
Объект.ТипЦен =
ОбщийСрв.ПолучитьТипЦенИзДоговора(Объект.Договор);
Иначе
Объект.ТипЦен =
ОбщийСрв.ПолучитьОсновнойТипЦен();
КонецЕсли;
ПересчитатьЦены();
КонецПроцедуры
139
// изменился тип цен - пересчитать цены (скидка не изменилась)
&НаКлиенте
Процедура ТипЦенПриИзменении(Элемент)
ПересчитатьЦены();
КонецПроцедуры
Процедура ПересчитатьЦены()
А = 0; Б = 0;
Для Каждого ТекНоменклатура Из Объект.Номенклатура Цикл
ОбщийСрв.РассчитатьСуммуСтроки(Объект.Дата,
ТекНоменклатура.Номенклатура,
ТекНоменклатура.Количество,
ТекНоменклатура.Коэфф,
Объект.ТипЦен, ,
ТекНоменклатура.Цена, А,
ТекНоменклатура.Сумма, Б);
КонецЦикла;
КонецПроцедуры
&НаКлиенте
Процедура НоменклатураНоменклатураПриИзменении(Элемент)
А = 0; Б = 0;
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Количество = 1;
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Коэфф = 1;
ОсновнаяЕдиницаОтгрузки =
ОбщийСрв.ПолучитьОсновнуюЕдиницуОтгрузкиНоменклатуры(ЭтотОбъект
.Элементы.Номенклатура.ТекущиеДанные.Номенклатура);
Если Не ОсновнаяЕдиницаОтгрузки.Пустая() Тогда
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.ЕдИзмерения =
ОсновнаяЕдиницаОтгрузки;
140
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Коэфф =
ОбщийСрв.ПолучитьКоэффициент(ЭтотОбъект.Элементы.Номенклатура.Тек
ущиеДанные.ЕдИзмерения);
КонецЕсли;
ОбщийСрв.РассчитатьСуммуСтроки(Объект.Дата,
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Номенклатура,
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Количество,
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Коэфф,
Объект.ТипЦен,,
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Цена, А,
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Сумма, Б);
КонецПроцедуры
&НаКлиенте
Процедура НоменклатураКоличествоПриИзменении(Элемент)
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Сумма =
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Цена*
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Количество*
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Коэфф;
КонецПроцедуры
&НаКлиенте
Процедура НоменклатураЕдИзмеренияПриИзменении(Элемент)
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Сумма =
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Цена*
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Количество*
141
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Коэфф;
КонецПроцедуры