Дипломная работа: Автоматизация учета продажи билетов туристического агентства ООО "Easy Travel"
Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
110
Рисунок А.18 – Отчет «Туры в наличии»
Рисунок А.19 – Отчет «Список договоров» (Вариант «Основной»)
111
Рисунок А.20 – Отчет «Список договоров» (Вариант «Детализация по
турам»)
Рисунок А.21 – Отчет «Список договоров» (Вариант «Детализация по
менеджерам»)
112
Рисунок А.22 – Отчет «Диаграмма прибыли» (Вариант «Диаграмма прибыли
по турам»)
Рисунок А.23 – Отчет «Диаграмма прибыли» (Вариант «Структура продаж
туров по менеджерам»)
113
ПРИЛОЖЕНИЕ Б. ЛИСТИНГИ МОДУЛЕЙ КОНФИГУРАЦИИ
Модуль справочника «Страны»
Процедура ПередЗаписью(Отказ)
Если ЭтоНовый() Тогда
Запрос = Новый Запрос("ВЫБРАТЬ Наименование ИЗ Справочник.Страны ГДЕ
Наименование = &Наименование");
Запрос.УстановитьПараметр("Наименование",Наименование);
Результат = Запрос.Выполнить();
Если НЕ Результат.Пустой() Тогда
Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = "Уже есть!";
Сообщение.Сообщить();
Отказ = Истина;
КонецЕсли;
КонецЕсли;
КонецПроцедуры
Модуль формы элемента справочника «Туры»
&НаКлиенте
Процедура ДетализацияКоличествоДнейПриИзменении(Элемент)
Дней=0;
ТЧДетализация=Объект.Детализация;
Для каждого СтрДетализация из ТЧДетализация Цикл
Дней=Дней+СтрДетализация.КоличествоДней;
КонецЦикла;
Объект.Продолжительность=Дней;
КонецПроцедуры
Модуль формы элемента справочника «Туры к продаже»
&НаКлиенте
Перем Продолжительность, ОриентировочнаяСтоимость, Ссылка;
&НаКлиенте
Процедура НачалоТураПриИзменении(Элемент)
// Вставить содержимое обработчика.
НачалоТура=Объект.НачалоТура;
КонецТура=НачалоТура+Продолжительность*3600*24;
Объект.КонецТура=КонецТура;
КонецПроцедуры
&НаСервере
Процедура ПолучитьДанныеТура(ИмяТура, _Продолжительность,
_ОриентировочнаяСтоимость, _Ссылка)
// Вставить содержимое обработчика.
Тур=Справочники.Туры.НайтиПоНаименованию(ИмяТура).ПолучитьОбъект();
_Продолжительность=Тур.Продолжительность;
_ОриентировочнаяСтоимость=Тур.ОриентировочнаяСтоимость;
_Ссылка=Тур.Ссылка;
КонецПроцедуры
&НаКлиенте
Процедура ПриОткрытии(Отказ)
114
Если(ЗначениеЗаполнено(Объект.Ссылка))Тогда
Элементы.Тур.Вид=ВидПоляФормы.ПолеНадписи;
Элементы.Тур.ЦветФона=Новый Цвет(255,255,0);
Элементы.Тур.Шрифт=Новый Шрифт(,10,Истина,,,,,);
ИмяТура=Объект.Тур;
ПолучитьДанныеТура(ИмяТура, Продолжительность, ОриентировочнаяСтоимость,
Ссылка);
Объект.Стоимость=ОриентировочнаяСтоимость;
Иначе
Элементы.Тур.Вид=ВидПоляФормы.ПолеВвода;
КонецЕсли;
ПриОткрытииНаСервере();
КонецПроцедуры
&НаСервереБезКонтекста
Процедура ПриОткрытииНаСервере()
// Вставить содержимое обработчика.
КонецПроцедуры
&НаКлиенте
Процедура КонецТураПриИзменении(Элемент)
КонецТура=Объект.КонецТура;
НачалоТура=КонецТура-Продолжительность*3600*24;
Объект.НачалоТура=НачалоТура;
КонецПроцедуры
&НаКлиенте
Процедура ТурПриИзменении(Элемент)
ИмяТура=Объект.Тур;
ПолучитьДанныеТура(ИмяТура, Продолжительность, ОриентировочнаяСтоимость,
Ссылка);
Если(ЗначениеЗаполнено(Объект.НачалоТура))Тогда
НачалоТура=Объект.НачалоТура;
КонецТура=НачалоТура+Продолжительность*3600*24;
Объект.КонецТура=КонецТура;
Иначе
Если(ЗначениеЗаполнено(Объект.КонецТура))Тогда
КонецТура=Объект.КонецТура;
НачалоТура=КонецТура-Продолжительность*3600*24;
Объект.НачалоТура=НачалоТура;
КонецЕсли
КонецЕсли;
Объект.Стоимость=ОриентировочнаяСтоимость;
Объект.Владелец=Ссылка;
КонецПроцедуры
&НаКлиенте
Процедура ПослеЗакрытияВопроса(Результат, Параметры)Экспорт
Если (Результат=КодВозвратаДиалога.Да)Тогда
Объект.КоличествоСвободныхМест=Объект.КоличествоМест;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура КоличествоМестОкончаниеВводаТекста(Элемент, Текст, ДанныеВыбора,
Параметры, СтандартнаяОбработка)
// Вставить содержимое обработчика.
Если(ЗначениеЗаполнено(Объект.Ссылка)=Ложь)Тогда
Источник: https://baza.diplomsite.ru/previewfile/691