;
ТД. Соскідкой=Об'єкт. ЦенаСоСкідкой;
Об'єкт. ОбщаяСтоімость=Об'єкт. Пасажири. Підсумок («соскідкой»);
/ / Об'єкт. Прибуток=Об'єкт. ОбщаяСтоімость-Об'єкт. Відстань * Об'єкт. РасходТопліва;
КонецПроцедури
& НаСервере
Процедура Кол_воРейсов ()
Запит=Новий Запит;
Запит. Текст="ВИБРАТИ
| УчетПассажіровОстаткі. Клієнт,
| УчетПассажіровОстаткі. КолічествоРейсовОстаток ЯК Колві
| ІЗ
| РегістрНакопленія. УчетПассажіров. Залишки ЯК УчетПассажіровОстаткі
| ДЕ
| УчетПассажіровОстаткі. Клієнт. Серія=& Серія
| І УчетПассажіровОстаткі. Клієнт. Номер=& Номер" ;
Запит. УстановітьПараметр («Серія», Об'єкт. Серія);
Запит. УстановітьПараметр («Номер», Об'єкт. НомерП);
Результат=Запит. Виконати ();
Вибірка=Результат. Вибрати ();
Якщо НЕ Результат. Порожній () Тоді
Поки Вибірка. Наступний () Цикл
Якщо Вибірка. Колво>=2 І Вибірка. Колво <5 Тоді
Повідомити («Клієнт» + Вибірка. Клієнт + «вчинив» + Вибірка. Колві + «поїздки»);
Знижка=0.05;
Об'єкт. ЦенаСоСкідкой=Об'єкт. СтоімостьМаршрута-Об'єкт. СтоімостьМаршрута * Знижка;
ІначеЕслі Вибірка. Колво>=5 Тоді
Повідомити («Клієнт» + Вибірка. Клієнт + «вчинив» + Вибірка. Колві + «поїздок»);
Знижка=0.1;
Об'єкт. ЦенаСоСкідкой=Об'єкт. СтоімостьМаршрута-Об'єкт. СтоімостьМаршрута * Знижка;
ІначеЕслі Вибірка. Колво=1 Тоді
Повідомити («Клієнт» + Вибірка. Клієнт + «вчинив 1 поїздку»);
Об'єкт. ЦенаСоСкідкой=Об'єкт. СтоімостьМаршрута;
КонецЕсли;
КонецЦікла;
Інакше
Повідомити («Клієнт не здійснював ще поїздок»);
Об'єкт. ЦенаСоСкідкой=Об'єкт. СтоімостьМаршрута;
КонецЕсли;
КонецПроцедури / / Кол_воРейсов ()
& НаКліенте
Процедура ПассажирыПриАктивизацииСтроки (Елемент)
ТД=Елементи. Пасажири. ТекущіеДанние;
Об'єкт. Серія=ТД. Серія;
Об'єкт. НомерП=ТД. Номер;
КонецПроцедури
& НаКліенте
Процедура ДатаОтправленияПриИзменении (Елемент)
ВспомогательнаяДата=Лев (Об'єкт ДатаОтправленія, 5);
Якщо Прав (ВспомогательнаяДата, 2)="02" Тоді
Об'єкт. Місяць="Лютий";
ІначеЕслі Прав (ВспомогательнаяДата, 2)="01" Тоді
Об'єкт. Місяць="Січень";
ІначеЕслі Прав (ВспомогательнаяДата, 2)="03" Тоді
Об'єкт. Місяц...
