= ЦенаБілета * 250/100;
КонецЕсли;
Якщо ТіпВагона = "Люкс" Тоді
Надбавка = ЦенаБілета * 400/100;
КонецЕсли;
КонецПроцедури
Процедура МестоОбработкаВибора (Елемент, ВибранноеЗначеніе, СтандартнаяОбработка)
Підстава = ВибранноеЗначеніе;
Якщо ТіпЗнч (Підстава) = Тип ("СправочнікСсилка.Места") Тоді
ТіпМеста = Основаніе.ТіпМеста;
КонецЕсли;
КонецПроцедури
Процедура ВагонОбработкаВибора (Елемент, ВибранноеЗначеніе, СтандартнаяОбработка)
Підстава = ВибранноеЗначеніе;
Якщо ТіпЗнч (Підстава) = Тип ("СправочнікСсилка.Вагони") Тоді
ТіпВагона = Основаніе.ТіпВагона;
КонецЕсли;
КонецПроцедури
Процедура ТаріфПріІзмененіі (Елемент)
Відбір = Новий Структура ("Тариф", Тариф);
Запис =
Коефіцієнт = Запісь.Коеффіціент;
КонецПроцедури
Процедура Друк (Елемент)
ТабДок = Новий ТаблічнийДокумент;
Макет =
Область = Макет.ПолучітьОбласть ("Тема");
ТабДок.Вивесті (Область);
Шапка = Макет.ПолучітьОбласть ("Шапка");
Шапка.Параметри.Заполніть (ЕтотОб'ект);
Шапка.Параметри.НДС = "18%";
Шапка.Параметри.НДС = "3%";
ФорматнаяСтрока = "Л = ru_RU";
ТабДок.Вивесті (Шапка);
ТабДок.ОтображатьСетку = Брехня;
ТабДок.Защіта = Істина;
ТабДок.ТолькоПросмотр = Істина;
ТабДок.ОтображатьЗаголовки = Брехня;
ТабДок.Показать ();
КонецПроцедури
Модуль Документа "Повернення квитка"
Процедура ПередЗапісью (Відмова, РежімЗапісі, РежімПроведенія)
СуммаВозврата = СуммаБілета-100;
КонецПроцедури
Процедура ДокументОснованиеОбработкаВыбора (Елемент, ВибранноеЗначеніе, СтандартнаяОбработка)
Підстава = ВибранноеЗначеніе;
Якщо ТіпЗнч (Підстава) = Тип ("ДокументСсылка.ПродажаБилета") Тоді
Вагон = Основаніе.Вагон;
ВремяВПуті = Основаніе.ВремяВПуті;
ВремяСтоянкі = Основаніе.ВремяСтоянкі;
ДатаІВремяОтправленія = Основание.ДатаИВремяОтправления;
ДатаІВ...
