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

Об'єкт. СтоімостьМаршрута=ОбщійМодуль1. ПолучітьЦенуМаршрута (Об'єкт Маршрут);

Об'єкт. Відстань=ОбщійМодуль1. ПолучітьРасстояніе (Об'єкт Маршрут);

Об'єкт. ЗатратиПлан=Об'єкт. Відстань * Об'єкт. РасходТопліва;

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

& НаСервере

Процедура ПередЗапісьюНаСервере (Відмова, ТекущійОб'ект, ПараметриЗапісі)

Запит=Новий Запит;

Запит. Текст="ВИБРАТИ

| РемонтнийОстаткі. Автобус

| ІЗ

| РегістрНакопленія. Ремонтний. Залишки ЯК РемонтнийОстаткі

| ДЕ

| РемонтнийОстаткі. Автобус=& Автобус

| І РемонтнийОстаткі. ТіпОпераціі=& ТіпОпераціі" ;

Запит. УстановітьПараметр («Автобус», Об'єкт. Автобус);

Запит. УстановітьПараметр («ТіпОпераціі», Перерахування. ТіпРемонта. Времонте);

Результат=Запит. Виконати ();

Вибірка=Результат. Вибрати ();

Якщо НЕ Результат. Порожній () Тоді

Відмова=Істина;

Повідомити («Цей автобус в ремонті зараз. Виберіть д?? Угой. »);

КонецЕсли;

Якщо Об'єкт. Статус=Перерахування. СтатусРейса. Запланований і НЕ Об'єкт. Проведено Тоді

Запрос2=Новий Запит;

Запрос2. Текст="ВИБРАТИ

| СостояниеАвтомобилейОстатки. Автобус

| ІЗ

| РегістрНакопленія. СостояніеАвтомобілей. Залишки ЯК СостояниеАвтомобилейОстатки

| ДЕ

| СостояниеАвтомобилейОстатки. Автобус=& Автобус

| І СостояниеАвтомобилейОстатки. ДатаВозврата <= & ДатаВозврата

| І СостояниеАвтомобилейОстатки. ДатаВиезда>=& ДатаВиезда" ;

Запрос2. УстановітьПараметр («Автобус», Об'єкт. Автобус);

Запрос2. УстановітьПараметр («ДатаВиезда», Об'єкт. ДатаОтправленія - 86400);

Запрос2. УстановітьПараметр («ДатаВозврата», Об'єкт. ПланіруемаДатаВозврата +86400);

/ / Запрос2. УстановітьПараметр («Стан», Перерахування. СостояніеАвтомобіля. ВРейсе);

Результат2=Запрос2. Виконати ();

Виборка2=Результат2. Вибрати ();

Якщо НЕ Результат2. Порожній () Тоді

Відмова=Істина;

Повідомити («Цей автобус у рейсі на обрану дату. Виберіть іншу дату або автобус.»);

КонецЕсли;

КонецЕсли;

Якщо Об'єкт. Статус=Перерахування. СтатусРейса. ПродажаБілетов і Об'єкт. ОбщаяСтоімость=0 Тоді

Відмова=Істина;

Повідомити («Не розрахована вартість квитків для пасажирів!");

КонецЕсли;

Якщо Об'єкт. Статус=Перерахування. СтатусРейса. ГотовКОтправке і ТекущаяДата () <Об'єкт. ДатаОтправленія - 86400 Тоді

Відмова=Істина;

...