озврата=ДанниеЗаполненія. ПланіруемаДатаВозврата;
Місяць=ДанниеЗаполненія. Місяць;
Прибуток=ДанниеЗаполненія. Прибуток;
КодРейса=ДанниеЗаполненія. КодРейса;
ЗатратиПлан=ДанниеЗаполненія. ЗатратиПлан;
Для Кожного ТекСтрокаПассажіри З ДанниеЗаполненія. Пасажири Цикл
НоваяСтрока=Пасажири. Додати ();
НоваяСтрока. ПІБ=ТекСтрокаПассажіри. ПІБ;
НоваяСтрока. Соскідкой=ТекСтрокаПассажіри. Соскідкой;
КонецЦікла;
Для Кожного Текстра З ДанниеЗаполненія. Дистанційні Цикл
НовСтр=Дистанційні. Додати ();
НовСтр. ПІБ=Текстра. ПІБ;
КонецЦікла;
Для Кожного Текстра З ДанниеЗаполненія. МаршрутиПоДвіженію Цикл
НовСтр=МаршрутиПоДвіженію. Додати ();
НовСтр. ТочкаМаршрута=Текстра. ТочкаМаршрута;
НовСтр. ОтбилПлан=Текстра. ОтбилПлан;
НовСтр. ОтбилФакт=Текстра. ОтбилФакт;
НовСтр. ПрібилПлан=Текстра. ПрібилПлан;
НовСтр. ОтбилФакт=Текстра. ОтбилФакт;
НовСтр. ОтклоненіеОтбил=Текстра. ОтклоненіеОтбил;
НовСтр. ОтклоненіеПрібил=Текстра. ОтклоненіеПрібил;
КонецЦікла;
КонецЕсли;
КонецПроцедури
Процедура ОбработкаПроверкиЗаполнения (Відмова, ПроверяемиеРеквізіти)
Якщо Статус=Перерахування. СтатусРейса. Заплановано Тоді
Запит=Новий Запит;
Запит. Текст=
" ВИБРАТИ ПЕРШІ 1
| Рейси. Статус
| ІЗ
| Документ. Рейси ЯК Рейси
| ДЕ
| Рейси. Статус=& Статус
| І Рейси. КодРейса=& КодРейса" ;
Запит. УстановітьПараметр («КодРейса», КодРейса);
Запит. УстановітьПараметр («Статус», Статус);
Результат=Запит. Виконати ();
Якщо НЕ Результат. Порожній () і НЕ Проведено Тоді
Повідомити («КодРейса не унікальний!");
Відмова=Істина;
КонецЕсли;
КонецЕсли;
КонецПроцедури;
Додаток 2
Лістинг модуля форми документа «Рейси».
Перем Знижка Експорт;
& НаКліенте
Процедура АвтобусПріІзмененіі (Елемент)
Об'єкт. КолічествоСвободнихМест=ОбщійМодуль1. ПолучітьВместімость (Об'єкт Автобус);
Об'єкт. РасходТопліва=ОбщійМодуль1. ПолучітьРасходТопліва (Об'єкт Автобус);
Об'єкт. ЗатратиПлан=Об'єкт. Відстань * Об'єкт. РасходТопліва;
КонецПроцедури
& НаКліенте
Процедура МаршрутПріІзмененіі (Елемент) ...
