97
ПРИЛОЖЕНИЕ
ПРИЛОЖЕНИЕ 1
Модули системы для пользователей: Экранные формы
главных страниц пользователей.
Рисунок П.1 Экранная форма для администратора.
Рисунок П.2 Экранная форма для экспедитора.
98
Рисунок П.3 Экранная форма для Начальника цеха и
Комплектовщика КПК.
Рисунок П.4 Экранная форма для Начальника цеха напитков и
Комплектовщика.
Рисунок П.5 Экранная форма для Начальника цеха питания и
Комплектовщика.
99
Рисунок П.6 Экранная форма для Бригадиров и бортпроводников.
Рисунок П.7 Экранная форма для Начальника смены.
100
Рисунок П.8 Экранная форма для Начальника цеха уборки.
Рисунок П.9 Экранная форма для Диспетчера.
101
Рисунок П.10 Экранная форма для Супервайзера.
102
Проверка
значения
заполнения
строк
Начало
да
Создание на
основание новый
документ
Заполнение
документ
автроизация
Проверка
логина и
пароля
да
нет
Рабочие стол
нет
Экранная
форма
документа
Экранная
форма нового
документа
Проверка
значения
заполнения
строк
нет
да
БД
Рисунок П.11 Блок схема работы пользователя.
103
ПРИЛОЖЕНИЕ 2
Код для определения, текущего пользователей:
Функция ОпределитьТекущегоПользователя()
ТекПользователь =
Справочники.сотрудники.НайтиПоНаименованию(ИмяПользователя(),Истина);
Возврат ТекПользователь;
КонецФункции
Процедура УстановитьПараметрыСеанса() Экспорт
ТекущийПользователь = ОпределитьТекущегоПользователя();
КонецПроцедуры
Функция ПараметрСеансаУстановлен(ИмяПараметра) Экспорт
Возврат ЗначениеЗаполнено(ПараметрыСеанса[ИмяПараметра]);
КонецФункции
Функция РольДоступнаПользователю(ИмяРоли) Экспорт
Возврат РольДоступна(ИмяРоли);
КонецФункции
Ввод на основание:
Создание документа из «Список на уборку и комплектацию»:
1. для «Расписание рейса»
Процедура ОбработкаЗаполнения(ДанныеЗаполнения, СтандартнаяОбработка)
//{{__КОНСТРУКТОР_ВВОД_НА_ОСНОВАНИИ
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную
изменения будут утеряны!!!
Если ТипЗнч(ДанныеЗаполнения) =
Тип("ДокументСсылка.СписокНаУборкуИКомплектацию") Тогда
// Заполнение шапки
ДатаОтлета = ДанныеЗаполнения.списокНаДата;
Для Каждого ТекСтрокаСамолетыНаУборкуИКомплитацию Из
ДанныеЗаполнения.СамолетыНаУборкуИКомплитацию Цикл
104
НоваяСтрока = ТабличнаяЧасть1.Добавить();
НоваяСтрока.ВремяОтправки =
ТекСтрокаСамолетыНаУборкуИКомплитацию.ДатаИВремяВылета;
НоваяСтрока.МестоНазначения =
ТекСтрокаСамолетыНаУборкуИКомплитацию.направлениние;
НоваяСтрока.НомерРейса =
ТекСтрокаСамолетыНаУборкуИКомплитацию.НомерРейса;
НоваяСтрока.НомерБорта =
ТекСтрокаСамолетыНаУборкуИКомплитацию.РегистрационыйНомер;
КонецЦикла;
КонецЕсли;
//}}__КОНСТРУКТОР_ВВОД_НА_ОСНОВАНИИ
КонецПроцедуры
2. для «Приказ на уборку»
Процедура ОбработкаЗаполнения(ДанныеЗаполнения, СтандартнаяОбработка)
//{{__КОНСТРУКТОР_ВВОД_НА_ОСНОВАНИИ
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную
изменения будут утеряны!!!
Если ТипЗнч(ДанныеЗаполнения) =
Тип("ДокументСсылка.СписокНаУборкуИКомплектацию") Тогда
// Заполнение шапки
НаДату = ДанныеЗаполнения.списокНаДата;
Для Каждого ТекСтрокаСамолетыНаУборкуИКомплитацию Из
ДанныеЗаполнения.СамолетыНаУборкуИКомплитацию Цикл
НоваяСтрока = СписокУборок.Добавить();
НоваяСтрока.ОкончаниеРабот =
ТекСтрокаСамолетыНаУборкуИКомплитацию.ВремяГотовностиДовылета;
НоваяСтрока.номерРейса =
ТекСтрокаСамолетыНаУборкуИКомплитацию.НомерРейса;
КонецЦикла;
105
КонецЕсли;
//}}__КОНСТРУКТОР_ВВОД_НА_ОСНОВАНИИ
КонецПроцедуры
3. для «Ведомость по оказанным услугам»
Процедура ОбработкаЗаполнения(ДанныеЗаполнения, СтандартнаяОбработка)
//{{__КОНСТРУКТОР_ВВОД_НА_ОСНОВАНИИ
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную
изменения будут утеряны!!!
Если ТипЗнч(ДанныеЗаполнения) =
Тип("ДокументСсылка.СписокНаУборкуИКомплектацию") Тогда
// Заполнение шапки
Для Каждого ТекСтрокаСамолетыНаУборкуИКомплитацию Из
ДанныеЗаполнения.СамолетыНаУборкуИКомплитацию Цикл
НоваяСтрока = ВыполненныеРаботы.Добавить();
НоваяСтрока.авиакомпания =
ТекСтрокаСамолетыНаУборкуИКомплитацию.Авиокомпания;
НоваяСтрока.НомерРейса =
ТекСтрокаСамолетыНаУборкуИКомплитацию.НомерРейса;
НоваяСтрока.НомерРегистрационый =
ТекСтрокаСамолетыНаУборкуИКомплитацию.РегистрационыйНомер;
НоваяСтрока.типВС =
ТекСтрокаСамолетыНаУборкуИКомплитацию.ТипВС;
КонецЦикла;
КонецЕсли;
//}}__КОНСТРУКТОР_ВВОД_НА_ОСНОВАНИИ
КонецПроцедуры
Печатная форма:
Создание печатных формы:
1. Для «Список на уборку и комплектацию»
Процедура Печать(ТабДок, Ссылка) Экспорт
106
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
Макет =
Документы.СписокНаУборкуИКомплектацию.ПолучитьМакет("Печать");
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| СписокНаУборкуИКомплектацию.Номер,
| СписокНаУборкуИКомплектацию.списокНаДата,
|
СписокНаУборкуИКомплектацию.СамолетыНаУборкуИКомплитацию.(
| НомерСтроки,
| НомерРейса,
| Р,
| Авиокомпания,
| количествоВБизносКлассе,
| количествоВэкономеКлассе,
| КолличествоДетей,
| КолличествоПасажиров,
| ДатаИВремяВылета,
| ВремяГотовностиДовылета,
| направлениние
| )
|ИЗ
| Документ.СписокНаУборкуИКомплектацию КАК
СписокНаУборкуИКомплектацию
|ГДЕ
| СписокНаУборкуИКомплектацию.Ссылка В (&Ссылка)";
Запрос.Параметры.Вставить("Ссылка", Ссылка);
Выборка = Запрос.Выполнить().Выбрать();