Реферат Проектування комплексу задач по автоматизації роботи фахівця відділу пасажирських міжнародних перевезень фірми "Експрес-РТЦ" на базі "1С: Підприємство 8.2"

=Об'єкт. ОбщаяСтоімость-ТД. Соскідкой * 0.5;

Об'єкт. КолічествоСвободнихМест=Об'єкт. КолічествоСвободнихМест +1;

Якщо Закінчення=«в» або Закінчення="н" Тоді

Повідомлення=Новий СообщеніеПользователю;

Повідомлення. Текст=«Пасажиру №» + Число + « »+ ТД. ПІБ + «у повернуто 50% від вартість квитка»;

Повідомлення. Повідомити ();

Інакше

Повідомлення=Новий СообщеніеПользователю;

Повідомлення. Текст=«Пасажиру №» + Число + « »+ ТД. ПІБ + « повернуто 50% від вартість квитка »;

Повідомлення. Повідомити ();

КонецЕсли;

ІначеЕслі ВременнаяДата <86400 Тоді

Об'єкт. КолічествоСвободнихМест=Об'єкт. КолічествоСвободнихМест +1;

Якщо Закінчення=«в» або Закінчення="н" Тоді

Повідомлення=Новий СообщеніеПользователю;

Повідомлення. Текст=«Пасажир №» + Число + « »+ ТД. ПІБ + « видалений, вартість квитка не повертається »;

Повідомлення. Повідомити ();

Інакше

Повідомлення=Новий СообщеніеПользователю;

Повідомлення. Текст=«Пасажир №» + Число + « »+ ТД. ПІБ + « видалений, вартість квитка не повертається »;

Повідомлення. Повідомити ();

КонецЕсли;

КонецЕсли;

КонецЕсли;

КонецПроцедури

& НаКліенте

Процедура ПассажирыПриНачалеРедактирования (Елемент, НоваяСтрока, Копіювання)

Об'єкт. КолічествоСвободнихМест=ОбщійМодуль1. ПолучітьВместімость (Об'єкт Автобус) - Об'єкт. Пасажири. Кількість ();

/ / Об'єкт. ОбщаяСтоімость=Об'єкт. СтоімостьМаршрута * Об'єкт. Пасажири. Кількість () - Об'єкт. Відстань * Об'єкт. РасходТопліва;

КонецПроцедури

& НаКліенте

Процедура ПассажіриПріІзмененіі (Елемент)

Якщо Об'єкт. КолічествоСвободнихМест=0 Тоді

Елементи. Пасажири. Доступність=Брехня;

Об'єкт. КолічествоСвободнихМест=0;

Елементи. ДляУдаленія. Видимість=Істина;

КонецЕсли;

ТД=Елементи. Пасажири. ТекущіеДанние;

ТД. Серія=ОбщійМодуль1. ПолучітьСерію (ТД. ПІБ);

ТД. Номер=ОбщійМодуль1. ПолучітьНомер (ТД. ПІБ);

ТД. Пол=ОбщійМодуль1. ПолучітьПол (ТД. ПІБ);

КонецПроцедури

& НаКліенте

Процедура ДляУдаленіяПріІзмененіі (Елемент)

Якщо Об'єкт. ДляУдаленія=Істина Тоді

Елементи. Пасажири. Доступність=Істина;

КонецЕсли;

КонецПроцедури

& НаКліенте

Процедура СколькоРейсов (Команда)

Кол_воРейсов ();

ТД=Елементи. Пасажири. ТекущіеДанние...