Диплом: Автоматизация документооборота организации "Государственное бюджетное учреждение здравоохранения "Чукотская окружная больница" филиал - Чаунская районная больница.

Поиск по базе
Скачать
Заказать новую работу
Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
122
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Цена,,
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Сумма);
КонецПроцедуры
&НаКлиенте
Процедура НоменклатураКоличествоПриИзменении(Элемент)
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Сумма =
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Цена*
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Количество;
КонецПроцедуры
&НаКлиенте
Процедура НоменклатураЕдИзмеренияПриИзменении(Элемент)
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Коэфф =
ОбщийСрв.ПолучитьКоэффициент(ЭтотОбъект.Элементы.Номенклатура.Тек
ущиеДанные.ЕдИзмерения);
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Сумма =
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Цена*
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Количество;
КонецПроцедуры
&НаКлиенте
Процедура НоменклатураЦенаПриИзменении(Элемент)
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Сумма =
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Цена*
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Количество;
//ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Коэфф;
КонецПроцедуры
123
Приложение В. Текст программного модуля формы
«Приход от поставщика»
// изменился контрагент - изменить договор, тип цен, тип скидки,
скидку и пересчитать цены
&НаКлиенте
Процедура КонтрагентПриИзменении(Элемент)
Объект.Договор =
ОбщийСрв.ПолучитьОсновнойДоговор(Объект.Контрагент, Объект.Дата);
//Если Не Объект.Договор = Неопределено Тогда
ДоговорПриИзменении(Элемент);
//КонецЕсли;
КонецПроцедуры
// изменился договор - изменить тип цен, тип скидки, скидку и
пересчитаь цену
&НаКлиенте
Процедура ДоговорПриИзменении(Элемент)
Если Не Объект.Договор.Пустая() Тогда
Объект.ТипЦен =
ОбщийСрв.ПолучитьТипЦенИзДоговора(Объект.Договор);
Иначе
Объект.ТипЦен =
ОбщийСрв.ПолучитьКонстанту(Объект.Дата,
ОбщийСрв.ПолучитьГлПользователь(), "ОсновнойТипЦен");
КонецЕсли;
ПересчитатьЦены();
КонецПроцедуры
// изхменился тип цен - персчитать цены (скидка не изменилась)
&НаКлиенте
Процедура ТипЦенПриИзменении(Элемент)
ПересчитатьЦены();
КонецПроцедуры
&НаКлиенте
Процедура ПересчитатьЦены()
А = 0; Б = 0;
Для Каждого ТекНоменклатура Из Объект.Номенклатура Цикл
124
ОбщийСрв.РассчитатьСуммуСтроки(Объект.Дата,
ТекНоменклатура.Номенклатура,
ТекНоменклатура.Количество,
ТекНоменклатура.Коэфф,
Объект.ТипЦен, ,
ТекНоменклатура.Цена, А,
ТекНоменклатура.Сумма,Б);
КонецЦикла;
КонецПроцедуры
&НаКлиенте
Процедура НоменклатураНоменклатураПриИзменении(Элемент)
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Количество = 1;
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Коэфф = 1;
ОсновнаяЕдиницаОтгрузки =
ОбщийСрв.ПолучитьОсновнуюЕдиницуОтгрузкиНоменклатуры(ЭтотОбъект
.Элементы.Номенклатура.ТекущиеДанные.Номенклатура);
Если Не ОсновнаяЕдиницаОтгрузки.Пустая() Тогда
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.ЕдИзмерения =
ОсновнаяЕдиницаОтгрузки;
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Коэфф =
ОбщийСрв.ПолучитьКоэффициент(ЭтотОбъект.Элементы.Номенклатура.Тек
ущиеДанные.ЕдИзмерения);
КонецЕсли;
ОбщийСрв.РассчитатьСуммуСтроки(Объект.Дата,
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Номенклатура,
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Количество,
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Коэфф,
Объект.ТипЦен, ,
125
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Цена,,
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Сумма);
КонецПроцедуры
&НаКлиенте
Процедура НоменклатураКоличествоПриИзменении(Элемент)
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Сумма =
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Цена*
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Количество;
КонецПроцедуры
&НаКлиенте
Процедура НоменклатураЕдИзмеренияПриИзменении(Элемент)
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Коэфф =
ОбщийСрв.ПолучитьКоэффициент(ЭтотОбъект.Элементы.Номенклатура.Тек
ущиеДанные.ЕдИзмерения);
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Сумма =
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Цена*
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Количество;
КонецПроцедуры
&НаКлиенте
Процедура НоменклатураЦенаПриИзменении(Элемент)
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Сумма =
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Цена*
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Количество;
//ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Коэфф;
КонецПроцедуры
126
Приложение Г. Текст программного модуля формы
«Возврат поставщику»
// изменился контрагент - изменить договор, тип цен, тип скидки,
скидку и пересчитать цены
&НаКлиенте
Процедура КонтрагентПриИзменении(Элемент)
Объект.Сотрудник =
ОбщийСрв.ПолучитьОтветсвенного(Объект.Контрагент);
Объект.Договор =
ОбщийСрв.ПолучитьОсновнойДоговор(Объект.Контрагент, Объект.Дата);
//Если Не Объект.Договор = Неопределено Тогда
ДоговорПриИзменении(Элемент);
//КонецЕсли;
КонецПроцедуры
// изменился договор - изменить тип цен, тип скидки, скидку и
пересчитаь цену
&НаКлиенте
Процедура ДоговорПриИзменении(Элемент)
Если Не Объект.Договор.Пустая() Тогда
Объект.ТипЦен =
ОбщийСрв.ПолучитьТипЦенИзДоговора(Объект.Договор);
Иначе
Объект.ТипЦен =
ОбщийСрв.ПолучитьКонстанту(Объект.Дата,
ОбщийСрв.ПолучитьГлПользователь(), "ОсновнойТипЦен");
КонецЕсли;
ПересчитатьЦены();
КонецПроцедуры
// изменился тип цен - пересчитать цены (скидка не изменилась)
&НаКлиенте
Процедура ТипЦенПриИзменении(Элемент)
ПересчитатьЦены();
КонецПроцедуры
&НаКлиенте
Процедура ПересчитатьЦены()
А = 0; Б = 0;
127
Для Каждого ТекНоменклатура Из Объект.Номенклатура Цикл
ОбщийСрв.РассчитатьСуммуСтроки(Объект.Дата,
ТекНоменклатура.Номенклатура,
ТекНоменклатура.Количество,
ТекНоменклатура.Коэфф,
Объект.ТипЦен, ,
ТекНоменклатура.Цена, А,
ТекНоменклатура.Сумма,Б);
КонецЦикла;
КонецПроцедуры
&НаКлиенте
Процедура НоменклатураНоменклатураПриИзменении(Элемент)
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Количество = 1;
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Коэфф = 1;
ОсновнаяЕдиницаОтгрузки =
ОбщийСрв.ПолучитьОсновнуюЕдиницуОтгрузкиНоменклатуры(ЭтотОбъект
.Элементы.Номенклатура.ТекущиеДанные.Номенклатура);
Если Не ОсновнаяЕдиницаОтгрузки.Пустая() Тогда
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.ЕдИзмерения =
ОсновнаяЕдиницаОтгрузки;
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Коэфф =
ОбщийСрв.ПолучитьКоэффициент(ЭтотОбъект.Элементы.Номенклатура.Тек
ущиеДанные.ЕдИзмерения);
КонецЕсли;
А = 0; Б = 0;
ОбщийСрв.РассчитатьСуммуСтроки(Объект.Дата,
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Номенклатура,
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Количество,
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Коэфф,
128
Объект.ТипЦен, ,
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Цена, А,
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Сумма, Б);
КонецПроцедуры
&НаКлиенте
Процедура НоменклатураКоличествоПриИзменении(Элемент)
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Сумма =
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Цена*
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Количество*
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Коэфф;
КонецПроцедуры
&НаКлиенте
Процедура НоменклатураЕдИзмеренияПриИзменении(Элемент)
А = 0; Б = 0;
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Коэфф =
ОбщийСрв.ПолучитьКоэффициент(ЭтотОбъект.Элементы.Номенклатура.Тек
ущиеДанные.ЕдИзмерения);
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Сумма =
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Цена*
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Количество*
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Коэфф;
КонецПроцедуры
&НаКлиенте
Процедура НоменклатураЦенаПриИзменении(Элемент)
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Сумма =
129
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Цена*
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Количество*
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Коэфф;
КонецПроцедуры
130
Приложение Д. Текст программного модуля формы «Перемещение»
// при изменении номенклатуры
&НаКлиенте
Процедура НоменклатураНоменклатураПриИзменении(Элемент)
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Количество = 1;
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Коэфф = 1;
ОсновнаяЕдиницаОтгрузки =
ОбщийСрв.ПолучитьОсновнуюЕдиницуОтгрузкиНоменклатуры(ЭтотОбъект
.Элементы.Номенклатура.ТекущиеДанные.Номенклатура);
Если Не ОсновнаяЕдиницаОтгрузки.Пустая() Тогда
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.ЕдИзмерения =
ОсновнаяЕдиницаОтгрузки;
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Коэфф =
ОбщийСрв.ПолучитьКоэффициент(ЭтотОбъект.Элементы.Номенклатура.Тек
ущиеДанные.ЕдИзмерения);
КонецЕсли;
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Цена =
ОбщийСрв.РассчитатьЦенуОстатка(ЭтотОбъект.Объект.Дата,
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Номенклатура,
ЭтотОбъект.Объект.ФирмаОткуда);
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Сумма =
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Цена*
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Количество*
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Коэфф;
КонецПроцедуры
// при изменении количества
&НаКлиенте
Процедура НоменклатураКоличествоПриИзменении(Элемент)
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Сумма =
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Цена*
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Количество*
131
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Коэфф;
КонецПроцедуры
&НаКлиенте
Процедура НоменклатураЕдИзмеренияПриИзменении(Элемент)
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Коэфф =
ОбщийСрв.ПолучитьКоэффициент(ЭтотОбъект.Элементы.Номенклатура.Тек
ущиеДанные.ЕдИзмерения);
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Сумма =
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Цена*
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Количество*
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Коэфф;
КонецПроцедуры

Смотрите также:

"Автоматизация обработки заявок ООО "Проектно-Строительная Компания"
"Автоматизация процесса аттестации персонала для ООО "Нэт Бай Нэт Холдинг"
"Анализ интернет-активности конкурентов ( на примере конкурентов "Газпром нефть")
"Бухгалтерский учёт и аудит расчётов с подотчётними лицами в организации на примере ООО "ЛОЦ 10""
«Психологическое сопровождение персонала в организации на примере ООО «Крокус»
Cовершенствование деловой оценки персонала в организации (на примере ООО "Даймонд кейтеринг развитие")
IPO - инструмент финансирования деятельности организации. На примере ПАО «Нефтяная компания «Лукойл»
PR как средство продвижения организации (на примере ПАО "Тамбовский завод "Комсомолец им. Н.С. Артемова")
PR-коммуникации в сфере общественного питания (на примере кафе-кондитерской «Cream Cheese»)
SMM как средство повышения эффективности работы учреждений социокультурной сферы (на примере Малого театра)