Создание автоматизиpованной инфоpмационно-спpавочной системы расписания движения поездов и продажи билетов (стр. 2 из 4)
Форма списка
Печатная форма:
2.3 Документы
1) Билет:
Форма документа:
Печатная форма:
Модуль документа:
Процедура Место Цена При Изменении (Элемент)
Строка Табличной Части = Элементы Формы. Место. Текущие Данные; Рассчитать Сумму (Строка Табличной Части );
Конец Процедуры
Процедура Место НДС При Изменении (Элемент)
Строка Табличной Части = Элементы Формы. Место. Текущие Данные; Рассчитать Сумму (Строка Табличной Части );
Конец Процедуры
Процедура Перед Записью (Отказ, Режим Записи, Режим Проведения)
Сумма Документа = Место. Итог ("Сумма");
Конец Процедуры
Процедура Печать(Элемент)
//{{_КОНСТРУКТОР_ПЕЧАТИ_ЭЛЕМЕНТ(Печать)
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
Таб Док = Новый Табличный Документ;
Макет = Документы. Билет. Получить Макет("Печать");
// Заголово Область = Макет. Получить Область("Заголовок");
Таб Док. Вывести (Область);
// Шапка
Область = Макет. Получить Область("Шапка");
Область. Параметры. Номер = Номер;
Область. Параметры. Дата = Дата;
Область. Параметры. Номер Билета = Номер Билета;
Область. Параметры. ФИО = ФИО;
Область. Параметры. Документ = Документ;
Область. Параметры. Поезд = Поезд;
Область. Параметры. Станция Отправления = Станция Отправления;
Область. Параметры. Станция Прибытия = Станция Прибытия;
Область. Параметры. Дата Отправления = Дата Отправления;
Область. Параметры. Дата Прибытия = Дата Прибытия;
Таб Док. Вывести(Область);
// Вагон
Область = Макет. Получить Область ("Вагон Шапка");
Таб Док. Вывести (Область);
Для Каждого Тек Строка Вагон Из Вагон Цикл
Область = Макет. Получить Область ("Вагон");
Область. Параметры. ТипВагона = ТекСтрока Вагон. Тип Вагона;
Область. Параметры. Номер Вагона = ТекСтрока Вагон. Номер Вагона;
ТабДок. Вывести (Область);
Конец Цикла;
// Место
Область = Макет. Получить Область ("Место Шапка");
ТабДок. Вывести(Область);
Для Каждого ТекСтрока Место Из Место Цикл
Область = Макет. Получить Область ("Место");
Область. Параметры. Номер Места = ТекСтрока Место. Номер Места ;
Область. Параметры. Цена = ТекСтрока Место. Цена;
Область. Параметры. НДС = ТекСтрока Место. НДС;
Область. Параметры. Сумма = ТекСтрока Место. Сумма;
ТабДок. Вывести(Область);
Конец Цикла;
// Подвал
Область = Макет. Получить Область("Подвал");
Область. Параметры. Сумма Документа = Сумма Документа ;
ПараметрыПредметаИсчисления="рубль,рубля,рублей,м,копейка,копейки,копеек,ж,2";
Форматная Строка="Л=ru_RU";
Область. Параметры. Сумма Прописью = Число Прописью (Сумма Документа, Форматная Строка, Параметры Предмета Исчисления );
ТабДок. Вывести(Область);
ТабДок. Отображать Сетку = Ложь;
ТабДок. Защита = Истина;
ТабДок. Только Просмотр = Ложь;
ТабДок. Отображать Заголовки = Ложь;
ТабДок. Показать();
//}}_КОНСТРУКТОР_ПЕЧАТИ_ЭЛЕМЕНТ
Конец Процедуры
2) Бронирование билетов
Форма документа:
Печатная форма:
Модуль документа:
Процедура Печать(Элемент)
//{{_КОНСТРУКТОР_ПЕЧАТИ_ЭЛЕМЕНТ(Печать)
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
ТабДок = Новый Табличный Документ;
Макет = Документы. Бронирование Билетов. Получить Макет("Печать");
// Заголовок
Область = Макет. Получить Область ("Заголовок");
ТабДок. Вывести (Область);
// Шапка
Область = Макет. Получить Область ("Шапка");
Область. Параметры. Номер = Номер;
Область. Параметры. Дата = Дата;
Область. Параметры. ФИО = ФИО;
Область. Параметры. Документ = Документ;
Область. Параметры. Станция Отправления = Станция Отправления;
Область. Параметры. Дата Отправления = Дата Отправления;
Область. Параметры. Станция Прибытия = Станция Прибытия;
Область. Параметры. Дата Прибытия = Дата Прибытия;
Область. Параметры. Цена = Цена;
ПараметрыПредметаИсчисления="рубль,рубля,рублей,м,копейка,копейки,копеек,ж,2";
Форматная Строка ="Л=ru_RU";
Область. Параметры. Сумма Прописью = Число Прописью (Цена, Форматная Строка, Параметры Предмета Исчисления );
ТабДок. Вывести (Область);
ТабДок. Отображать Сетку = Ложь;
ТабДок. Защита = Истина;
ТабДок. Только Просмотр = Истина;
ТабДок. Отображать Заголовки = Ложь;
ТабДок. Показать();
//}}_КОНСТРУКТОР_ПЕЧАТИ_ЭЛЕМЕНТ
Конец Процедуры
3) Возврат билетов
Форма документа:
Печатная форма:
Модуль документа:
Процедура Печать1(Элемент)
//{{_КОНСТРУКТОР_ПЕЧАТИ_ЭЛЕМЕНТ(Печать1)
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
ТабДок = Новый Табличный Документ;
Макет = Документы. Возврат Билетов. Получить Макет("Печать1");
// Заголовок
Область = Макет. Получить Область ("Заголовок");
ТабДок. Вывести(Область);
// Шапка
Область = Макет. Получить Область ("Шапка");
Область. Параметры. Номер = Номер;
Область. Параметры. Дата = Дата;
Область. Параметры. Пассажир = Пассажир;
Область. Параметры. Номер Билета = Номер Билета ;
Область. Параметры. Станция Отправления = Станция Отправления;
Область. Параметры. Станция Прибытия = Станция Прибытия;
Область. Параметры. Дата Отправления = Дата Отправления;
Область. Параметры. Дата Прибытия = Дата Прибытия;
Область. Параметры. Сумма = Сумма; ПараметрыПредметаИсчисления="рубль,рубля,рублей,м,копейка,копейки,копеек,ж,2";
Форматная Строка ="Л=ru_RU";
Область. Параметры .Сумма Прописью = Число Прописью (Сумма, Форматная Строка, Параметры Предмета Исчисления );
ТабДок. Вывести(Область);
ТабДок. Отображать Сетку = Ложь;
ТабДок. Защита = Истина;
ТабДок. Только Просмотр = Истина;
ТабДок. Отображать Заголовки = Ложь;
ТабДок. Показать ();
//}}_КОНСТРУКТОР_ПЕЧАТИ_ЭЛЕМЕНТ
Конец Процедуры
4) Расписание поездов
Форма документа:
Печатная форма:
Модуль документа:
Процедура Печать(Элемент)
//{{_КОНСТРУКТОР_ПЕЧАТИ_ЭЛЕМЕНТ(Печать)
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
ТабДок = Новый Табличный Документ;
Макет = Документы. Расписание Поездов. Получить Макет ("Печать");
// Заголовок
Область = Макет. Получить Область ("Заголовок");
ТабДок. Вывести (Область);
// Шапка
Область = Макет. Получить Область("Шапка");
Область. Параметры. Номер = Номер;
Область. Параметры. Номер Поезда = Номер Поезда ;
Область. Параметры. Название Поезда = Название Поезда;
Область. Параметры. Станция Отправления = Станция Отправления;
Область. Параметры. Дата Отправления = Дата Отправления;
Область. Параметры. Станция Прибытия = Станция Прибытия;
Область. Параметры. Дата Прибытия = Дата Прибытия;
ТабДок. Вывести (Область);
ТабДок. Отображать Сетку = Ложь;
ТабДок. Защита = Истина;
ТабДок. Только Просмотр = Истина;
ТабДок. Отображать Заголовки = Ложь;
ТабДок. Показать ();
//}}_КОНСТРУКТОР_ПЕЧАТИ_ЭЛЕМЕНТ
Конец Процедуры
2.4 Регистры
1) Цены На Билеты (регистр сведений) – независимый, цены вводятся пользователем.
Измерения:
Поезд
Места
Ресурсы:
Цена
2) Продажа Билетов (регистр сведений) – регистратором является документ Билет.
Измерения:
Номер Билета
Пассажир
Ресурсы:
Цена
3) Информация О поездах (регистр сведений) – регистратором является документы Билет и Расписание Поездов.
Измерения:
Поезд
Станция Отправления
Станция Прибытия
Дата Отправления
4) Проданные Билеты (регистр остатков) – регистратором является документы Билет, Возврат Билетов.
Измерения:
Пассажир
Ресурсы:
Номер Билета
5) Касса (регистр остатков) – регистратором является документы Билет, Возврат Билетов, Бронирование Билетов .
Ресурсы:
Сумма.
Реквизиты:
Пассажир.
2.5 Журналы
1) Касса.
Реестр документов:
2.6 Отчеты
1) ЦеныНаБилеты
Диалог:
Печатная форма:
Модуль отчёта:
процедура Действия Формы Цены На Билеты Сформировать (Кнопка)
//{{КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ_ПРОЦЕДУРА_ВЫЗОВА(Цены На Билеты)
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
ТабДок = Элементы Формы. Поле Табличного Документа ;
Цены На Билеты (ТабДок);
//}}КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ_ПРОЦЕДУРА_ВЫЗОВА
Конец Процедуры
Процедура Цены На Билеты(ТабДок) Экспорт
//{{КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ(Цены На Билеты)