Вивесті (Область);
// Шапка
Шапка = Макет.ПолучітьОбласть ("Шапка");
Шапка.Параметри.Заполніть (ЕтотОб'ект);
ТабДок.Вивесті (Шапка);
// Станції
Область = Макет.ПолучітьОбласть ("СтанцііШапка");
ТабДок.Вивесті (Область);
ОбластьСтанціі = Макет.ПолучітьОбласть ("Станції");
Для Кожного ТекСтрокаСтанціі З Станції Цикл
ТабДок.Вивесті (ОбластьСтанціі);
КонецЦікла;
// Місця
Область = Макет.ПолучітьОбласть ("МестаШапка");
ТабДок.Вивесті (Область);
ОбластьМеста = Макет.ПолучітьОбласть ("Місця");
Для Кожного ТекСтрокаМеста З Місця Цикл
ТабДок.Вивесті (ОбластьМеста);
КонецЦікла;
ТабДок.ОтображатьСетку = Брехня;
ТабДок.Защіта = Істина;
ТабДок.ТолькоПросмотр = Істина;
ТабДок.ОтображатьЗаголовки = Брехня;
ТабДок.Показать ();
//}} _КОНСТРУКТОР_ПЕЧАТИ_ЭЛЕМЕНТ
КонецПроцедури
Модуль Документа "Продаж квитка"
Процедура ДокументОснованиеОбработкаВыбора (Елемент, ВибранноеЗначеніе, СтандартнаяОбработка)
Підстава = ВибранноеЗначеніе;
Якщо ТіпЗнч (Підстава) = Тип ("ДокументСсылка.ОформлениеПоезда") Тоді
ДатаІВремяОтправленія = Основание.ДатаИВремяОтправления;
Маршрут = Основаніе.Маршрут;
НомерПоезда = Основаніе.Поезд;
ДокументОснованіе = Основаніе.Ссилка;
КонецЕсли;
КонецПроцедури
Процедура СтанцияНазначенияОбработкаВыбора (Елемент, ВибранноеЗначеніе, СтандартнаяОбработка)
Підстава = ВибранноеЗначеніе;
Якщо ТіпЗнч (Підстава) = Тип ("СправочнікСсилка.Станціі") Тоді
ДатаІВремяПрібитія = ДатаІВремяОтправленія + ВрВПуті;
ВремяСтоянкі = Основаніе.ВремяСтоянкі;
ВремяВПуті = Основаніе.ВремяВПуті;
ЦенаБілета = Основаніе.Цена;
КонецЕсли;
КонецПроцедури
Процедура ПередЗапісью (Відмова, РежімЗапісі, РежімПроведенія)
Якщо ТіпВагона = "Плацкартний" Тоді
Надбавка = ЦенаБілета * 100/100;
КонецЕсли;
Якщо ТіпВагона = "Купейний" Тоді
Надбавка ...
