Файл: Федеральное государственное автономное образовательное учреждение высшего образования белгородский государственный национальный.pdf

79
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
//отображение картинки при открытии формы справочника
Фото = ПолучитьНавигационнуюСсылку(Объект.Картинка, "Файл");
//устанавливаем автомасштаб для картинки
Элементы.Фото.РазмерКартинки = РазмерКартинки.АвтоРазмер;
КонецПроцедуры
Конец листинга 4
Программный код процедур экранной формы документа «Заказ»
Начало листинга 5
&НаКлиенте
Процедура УслугиКоличествоПриИзменении(Элемент)
СтрокаТабличнойЧасти=ЭтаФорма.Элементы.Услуги.ТекущиеДанные;
РаботаСДокументами.РассчитатьСумму(СтрокаТабличнойЧасти);
КонецПроцедуры
&НаКлиенте
Процедура УслугиЦенаПриИзменении(Элемент)
СтрокаТабличнойЧасти=ЭтаФорма.Элементы.Услуги.ТекущиеДанные;
РаботаСДокументами.РассчитатьСумму(СтрокаТабличнойЧасти);
КонецПроцедуры
&НаКлиенте
Процедура УслугиСуммаПриИзменении(Элемент)
СтрокаТабличнойЧасти=ЭтаФорма.Элементы.Услуги.ТекущиеДанные;
СтрокаТабличнойЧасти.Цена=СтрокаТабличнойЧасти.Сумма/СтрокаТабличнойЧасти.Количество;
КонецПроцедуры
&НаКлиенте
Процедура МатериалыКоличествоПриИзменении(Элемент)
СтрокаТабличнойЧасти=ЭтаФорма.Элементы.Материалы.ТекущиеДанные;
РаботаСДокументами.РассчитатьСумму(СтрокаТабличнойЧасти);
КонецПроцедуры
&НаКлиенте
Процедура МатериалыЦенаПриИзменении(Элемент)
СтрокаТабличнойЧасти=ЭтаФорма.Элементы.Материалы.ТекущиеДанные;
РаботаСДокументами.РассчитатьСумму(СтрокаТабличнойЧасти);
КонецПроцедуры
&НаКлиенте
Процедура МатериалыСуммаПриИзменении(Элемент)
СтрокаТабличнойЧасти=ЭтаФорма.Элементы.Материалы.ТекущиеДанные;
СтрокаТабличнойЧасти.Цена=СтрокаТабличнойЧасти.Сумма/СтрокаТабличнойЧасти.Количество;
КонецПроцедуры
&НаКлиенте
Процедура УслугиПриИзменении(Элемент)
СтрокаТабличнойЧасти=ЭтаФорма.Элементы.Услуги.ТекущиеДанные;
//Установить цену
СтрокаТабличнойЧасти.Цена=РаботаСоСправочниками.РозничнаяЦена(Объект.Дата,
СтрокаТабличнойЧасти.Услуга);
//Пересчитать сумму строки
РаботаСДокументами.РассчитатьСумму(СтрокаТабличнойЧасти);
КонецПроцедуры
&НаКлиенте
Процедура МатериалыПриИзменении(Элемент)
СтрокаТабличнойЧасти=ЭтаФорма.Элементы.Материалы.ТекущиеДанные;
//Установить цену
СтрокаТабличнойЧасти.Цена=РаботаСоСправочниками.РозничнаяЦена(Объект.Дата,
СтрокаТабличнойЧасти.Материал);

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

81

Программный код процедур модуля менеджера документа «Заказ»
Начало листинга 6
Процедура Печать(ТабДок, Ссылка) Экспорт
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
Макет = Документы.Заказы.ПолучитьМакет("Печать");
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
|
Заказы.Дата,
|
Заказы.Клиент,
|
Заказы.Мастер,
|
Заказы.Менеджер,
|
Заказы.Номер,
|
Заказы.Склад,
|
Заказы.СтатусЗаказа,
|
Заказы.СтатусОплатыЗаказа,
|
Заказы.КонтактныйТелефон,
|
Заказы.Доставка,
|
Заказы.АдресДоставки,
|
Заказы.Услуги.(
|
НомерСтроки,
|
Услуга,
|
Единица,
|
Количество,
|
Цена,
|
Сумма
|
),
|
Заказы.Материалы.(
|
НомерСтроки,
|
Материал,
|
Единица,
|
Количество,
|
Цена,
|
Сумма
|
),
|
Заказы.ДекоративныйКамень.(
|
НомерСтроки,
|
ДекоративныйКамень,
|
Единица,
|
Количество,
|
Цена,
|
Сумма
|
)
|ИЗ
|
Документ.Заказы КАК Заказы
|ГДЕ
|
Заказы.Ссылка В (&Ссылка)";
Запрос.Параметры.Вставить("Ссылка", Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
Область = Макет.ПолучитьОбласть ("Организация");
Область.Параметры.Организация = Константы.НаименованиеОрганизации.Получить();
ТабДок.Вывести(Область);
Область = Макет.ПолучитьОбласть ("Адрес");
Область.Параметры.Адрес = Константы.АдресОрганизации.Получить();
ТабДок.Вывести(Область);
Область = Макет.ПолучитьОбласть ("Телефон");
Область.Параметры.Телефон = Константы.Телефон.Получить();
ТабДок.Вывести(Область);

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

83
ТабДок.Вывести(Область);
ВставлятьРазделительСтраниц = Истина;
КонецЦикла;
Область = Макет.ПолучитьОбласть("Подвал");
Область.Параметры.ИтогоПоДокументу=СуммаВсегоУслуги+СуммаВсегоМатериалы+СуммаВсегоПродукция
;
Область.Параметры.ОбщаяСуммаЗаказа = Область.Параметры.ИтогоПоДокументу;
Область.Параметры.ОбщаяСуммаЗаказа = ЧислоПрописью
(Область.Параметры.ОбщаяСуммаЗаказа,,"Рубль,рубля,рублей,м,копейка,копейки,копеек,ж,2");
ТабДок.Вывести(Область);
ВставлятьРазделительСтраниц = Истина;
//}}
Область = Макет.ПолучитьОбласть ("Подписи");
Область.Параметры.ФИОГенДиректора = Константы.ФИОГенДиректора.Получить();
Область.Параметры.ФИОГлБухгалтера = Константы.ФИОГлБухгалтера.Получить();
ТабДок.Вывести(Область)
КонецПроцедуры
Конец листинга 6

84
Приложение Б
Акт о внедрении разработанной информационной системы