Диспетчерская служба такси

Результат выполнения отчета показан на рисунке 2.

35.Рисунок 2.35 — Результат выполнения отчета о отработке водителей.

Отчет «Анализ работы службы» выводит информацию по всем заказам, поступившим в диспетчерскую службу, в разрезе диспетчеров и водителей. Закрытые, но не выполненные заказы подсвечиваются красным цветом, а текущие заказы — зеленым. Результат выполнения данного отчета представлен на рисунке 2.

36.Рисунок 2.36 — Результат выполнения отчета «Анализ работы службы"Второй вариант исполнения данного отчета — диаграмма, на которой показано количество заказов, выполненных каждым водителемза день. Сформированная диаграмма представлена на рисунке 2.

37.Рисунок 2.37 — Вариант отчета «Анализ работы службы» в виде диаграммы.

Заключение

Цельюнастоящей дипломной работы была разработка и опытная эксплуатация информационной системы для диспетчерской службы такси, реализованнаяна платформе «1С: Предприятие 8.3».В процессе выполнения дипломного проекта были проведены следующие работы:

исследована и описана предметная область службы заказов такси;

описана организационная структура и проанализированы бизнес-процессы внутри диспетчерской службы;

обоснована необходимость внедрения информационной системы;

сформулированы требования к информационной системе;

изучена среда разработки «1С: Предприятие 8.3», а именноосновные объекты метаданных, конструктор запросов, язык запросов 1С, система компоновки данных, динамические списки и встроенный язык 1С;выполнено проектирование и реализация информационной системы для диспетчерской службы такси;

разработанаинструкция пользователя. Разработанное прикладное решение для диспетчерской службы позволит получать актуальные данные пользователям информационной системы, увеличить производительность труда и соответственно количество обработанных службой заказов.

Список используемых источников

.

Габец А. П., Гончаров Д. И., Козырев Д. В., Кухлевский Д. С., Радченко М. Г. Профессиональная разработка в системе 1С: Предприятие 8. — М.: ООО «1С — Паблишинг», 2007 г. — 808 с. Маклаков, С.В. BPwin и ERwin. CASE-средства разработки информационных систем /.

С.В. Маклаков. — М.: ДИАЛОГ-МИФИ, 2001. — 304 с. Радченко М. Г., Хрусталева Е. Ю. 1С: Предприятие 8.

3. Практическое пособие разработчика. Примеры и типовые приемы. — М.: ООО «1С — Паблишинг», 2013 г. — 964 с. МУ к ДП. Методические указания по оформлению и защите выпускной квалификационной работы (Дипломный проект) для специальности 09.

02.04 «Информационные системы» / А. О. Попко, О. В. Долгополов, 2014.

Архитектура платформы 1С: Предприятия 8: [Электронный ресурс]. URL:

http://www.v8.1c.ru/overview/Platform.htm (Дата обращения: 30.

04.2016).Онлайн уроки 1С: Предприятие [Электрон. ресурс] - Режим доступа:

http://1c-uroki.ru/(Дата обращения: 03.

05.2016).Свой бизнес: как открыть службу такси [Электронный ресурс]. URL:

http://www.openbusiness.ru/biz/business/svoy-biznes-kak-otkryt-sluzhbu-taksi/(дата обращения: 30.

04.2016).Система компоновки данных [Электронный ресурс]. URL:

http://www.v8.1c.ru/overview/Term_93.htm (дата обращения: 10.

05.2016).Приложение АЛистинг программы.

Листинг 1. Общий модуль «Общего.

НазначениеСервер"Процедура Перенумеровать.

Очередь (Сотрудник = Неопределено) Экспорт.

Запрос = Новый Запрос («ВЫБРАТЬ-Заказ.Сотрудник-ИЗ-Документ.Заказ КАК Заказ-ГДЕ-Заказ.Состояние.

Заказа = &Состояние.

Заказа-И ВЫБОР-КОГДА Заказ. Сотрудник = НЕОПРЕДЕЛЕНО-ТОГДА ИСТИНА-ИНАЧЕ Заказ. Сотрудник = &Сотрудник-КОНЕЦ—СГРУППИРОВАТЬ ПО-Заказ.Сотрудник");Запрос.Установить.

Параметр («Состояние.

Заказа", Перечисления.Состояния.

Заказа.Текущий.

Заказ);Запрос.Установить.

Параметр («Сотрудник», Сотрудник);Выборка = Запрос. Выполнить ().Выбрать ();Пока Выборка. Следующий () Цикл.

НаборЗаписей = Регистры.

Сведений.Очередь.Создать.

НаборЗаписей ();Набор

Записей.Отбор.Исполнитель.Установить (Выборка.Сотрудник);Набор

Записей.Прочитать ();Таб.

Набора = Набор

Записей.Выгрузить ();Таб.

Набора.Сортировать («Водитель, Очередность»);Номер

ПП = 1;Для каждого Строчка Из Таб.

Набора Цикл.

Строчка.Очередность = Номер

ПП;Номер

ПП = Номер

ПП + 1;Конец.

Цикла; Набор

Записей.Загрузить (Таб.

Набора);Набор

Записей.Записать ();Конец.

Цикла; Конец.

ПроцедурыЛистинг 2. Модуль формы справочника «Контрагенты"&НаСервере.

Процедура Установить.

ОтборыДинамических.

Списков ()Общего.

НазначенияКлиент.

Сервер.Изменить.

Отбор (Список.

Задач, «Контрагент», Объект. Ссылка, Истина);Конец.

Процедуры&НаКлиенте.

Процедура При.

Открытии (Отказ)Установить.

ОтборыДинамических.

Списков ();Конец.

ПроцедурыЛистинг 3 Модуль формы документа «Заказ"Перемвр

ДатаИсполнения;&НаКлиенте.

Процедура При.

Открытии (Отказ).

вр

ДатаИсполнения = Объект.Дата.

Исполнения;

Установить.

ОтборыДинамических.

Списков ();Конец.

Процедуры&НаСервере.

Процедура Установить.

ОтборыДинамических.

Списков ()Общего.

НазначенияКлиент.

Сервер.Изменить.

Отбор (Список.

Решений, «Заказ», Объект. Ссылка, Истина);Конец.

Процедуры&НаСервере.

Функция Получить.

СписокЗадач ()Запрос = Новый Запрос («ВЫБРАТЬ-Очередь.Очередность,-Очередь.Заказ.Заголовок КАК Заголовок-ИЗ-Регистр

Сведений.Очередь КАК Очередь-ГДЕ-Очередь.Исполнитель = &Исполнитель-И Очередь. Заказ <> &Ссылка-И Очередь.Заказ.Сотрудник = &Исполнитель");Запрос.Установить.

Параметр («Исполнитель», Объект. Сотрудник);Запрос.Установить.

Параметр («Ссылка», Объект. Ссылка);Выборка = Запрос. Выполнить ().Выбрать (); Список = Новый Список.

Значений;

Пока Выборка. Следующий () Цикл.

Список.Добавить (Выборка.Очередность, Выборка. Заголовок);Конец.

Цикла; Возврат Список;

Конец.

Функции&НаКлиенте.

Процедура Сдвинуть.

Всех (Команда)Ответ = Вопрос («Переместить в начало очереди?», Режим.

ДиалогаВопрос.ДаНет);Если Ответ = Код.

ВозвратаДиалога.Да Тогда.

СдвинутьВсех.

Сервер ();Общего.

НазначениеСервер.Перенумеровать.

Очередь (Объект.Сотрудник);Конец.

Если; Конец.

Процедуры&НаСервере.

Процедура Сдвинуть.

ВсехСервер ()Набор

Записей = Регистры.

Сведений.Очередь.Создать.

НаборЗаписей ();Набор

Записей.Отбор.Заказ.Установить (Объект.Ссылка);Набор

Записей.Отбор.Исполнитель.Установить (Объект.Сотрудник);Набор

Записей.Прочитать ();Набор

Записей.Очистить ();Стр

Набора = Набор

Записей.Добавить ();Стр

Набора.Исполнитель = Объект. Сотрудник;

Стр

Набора.Очередность = 0;Стр

Набора.Период = Текущая.

Дата ();Стр

Набора.Заказ = Объект. Ссылка;

Набор

Записей.Записать ();Конец.

Процедуры&НаКлиенте.

Процедура Список.

РешенийПеред.

НачаломДобавления (Элемент, Отказ, Копирование, Родитель, Группа) Отказ = Истина;

Структура.

Параметров = Новый Структура;

Структура.

Параметров.Вставить («Заказ», Объект. Ссылка);Структура.

Параметров.Вставить («Сотрудник», Объект. Сотрудник);Структура.

Параметров.Вставить («Дата.

ВремяНачала", Текущая.

Дата ());Структура.

Параметров.Вставить («Дата.

ВремяКонца", Текущая.

Дата () + Объект.Время.

ПоПлану);Открыть.

ФормуМодально («Документ.Выполнение.Форма.Форма.

Документа", Структура.

Параметров);Конец.

Процедуры&НаСервере.

Процедура При.

СозданииНаСервере (Отказ, Стандартная.

Обработка)// Вставить содержимое обработчика. Если Параметры.Ключ.Пустая () Тогда.

Объект.Сотрудник = Параметры.

Сеанса.Текущий.

Пользователь;

Объект.Дата.

Исполнения = Текущая.

Дата ();Конец.

Если;

Конец.

ПроцедурыЛистинг 4. Модуль документа «Заказ"Процедура Обработка.

Проведения (Отказ, Режим.

Проведения)Набор

Записей = Регистры.

Сведений.Очередь.Создать.

НаборЗаписей ();Набор

Записей.Отбор.Заказ.Установить (Ссылка);Набор

Записей.Отбор.Исполнитель.Установить (Сотрудник);Набор

Записей.Отбор.Водитель.Установить (Водитель);Набор

Записей.Прочитать ();Набор

Записей.Очистить ();Если Состояние.

Заказа = Перечисления.Состояния.

Заказа.Текущий.

Заказ Тогда.

Движение = Набор

Записей.Добавить ();Движение.Исполнитель= Сотрудник;

Движение.Водитель= Водитель;

Движение.Период= Текущая.

Дата ();Движение.Очередность= Получить.

Очередность ();Движение.Заказ= Ссылка;

Конец.

Если;

Набор

Записей.Записать ();Общего.

НазначениеСервер.Перенумеровать.

Очередь (Сотрудник);Конец.

ПроцедурыФункция Получить.

Очередность ()Запрос = Новый Запрос («ВЫБРАТЬ-МАКСИМУМ (ЕСТЬNULL (Очередь.Очередность, 0)) КАК Очередность-ИЗ-Регистр

Сведений.Очередь КАК Очередь-ГДЕ-Очередь.Заказ <> &Заказ-И Очередь. Исполнитель = &Исполнитель");Запрос.Установить.

Параметр («Заказ», Ссылка);Запрос.Установить.

Параметр («Исполнитель», Сотрудник);Выборка = Запрос. Выполнить ().Выбрать ();Если Выборка. Следующий () Тогда.

Если Выборка. Очередность = NULL Тогда.

СледующаяОчередь = 1;Иначе.

СледующаяОчередь = Выборка. Очередность + 1;Конец.

Если; Иначе.

СледующаяОчередь = 1;Конец.

Если; Запрос = Новый Запрос («ВЫБРАТЬ-МАКСИМУМ (ЕСТЬNULL (Очередь.Очередность, 0)) КАК Очередность-ИЗ-Регистр

Сведений.Очередь КАК Очередь-ГДЕ-Очередь.Заказ = &Заказ-И Очередь. Исполнитель = &Исполнитель");Запрос.Установить.

Параметр («Заказ», Ссылка);Запрос.Установить.

Параметр («Исполнитель», Сотрудник);Выборка = Запрос. Выполнить ().Выбрать ();Если Выборка. Следующий () Тогда.

Если Выборка. Очередность = NULL Тогда.

ТекущаяОчередь = 0;Иначе.

ТекущаяОчередь = Выборка. Очередность;

Конец.

Если; Иначе.

ТекущаяОчередь = 0;Конец.

Если; Если Текущая.

Очередь = 0 Тогда.

Возврат Следующая.

Очередь;

Иначе.

Возврат Текущая.

Очередь;

Конец.

Если; Конец.

ФункцииПроцедура Перед.

Записью (Отказ, Режим.

Записи, Режим.

Проведения)Если Это.

Новый () Тогда.

СостояниеЗаказа = Перечисления.Состояния.

Заказа.Текущий.

Заказ;

Конец.

Если; Конец.

ПроцедурыЛистинг 5. Модуль формы документа «Выполнение"&НаСервере.

Процедура При.

СозданииНаСервере (Отказ, Стандартная.

Обработка)Если Не Значение.

Заполнено (Объект.Ссылка) Тогда.

ЗаполнитьЗначения.

Свойств (Объект, Параметры);Конец.

Если; Элементы.Заказ.Видимость = Значение.

Заполнено (Объект.Заказ);Конец.

Процедуры&НаКлиенте.

Процедура При.

Закрытии ()Оповестить («Обновить.

РабочийДень");Конец.

Процедуры&НаКлиенте.

Процедура При.

Открытии (Отказ)Если Объект.Время.

ПоФакту > 0 Тогда.

МинутЗатрачено = Формат ((Объект.Время.

ПоФакту / 60 — Цел (Объект.Время.

ПоФакту / 60)) * 60," ЧЦ=2; ЧН=; ЧВН=");Часов.

Затрачено = Формат (Цел (Объект.Время.

ПоФакту / 60)," ЧЦ=2; ЧН=; ЧВН=");Затрачено.

Времени = «» + Часов.

Затрачено + «ч. «+ Минут.

Затрачено + «мин.» ;Иначе.

ЗатраченоВремени = «00 ч. 00 мин.» ;Конец.

Если; Конец.

Процедуры&НаКлиенте.

Процедура Дата.

ВремяКонца.

ПриИзменении (Элемент)Если Объект.Дата.

ВремяКонца <> '10 101 000 000' Тогда.

Объект.Дата.

ВремяКонца = Начало.

Дня (Объект.Дата) + (Объект.Дата.

ВремяКонца — Начало.

Дня (Объект.Дата.

ВремяКонца));Конец.

Если;

Если Объект.Дата.

ВремяКонца< Объект.Дата.

ВремяНачала Тогда.

Сообщение = Новый Сообщение.

Пользователю;

Сообщение.Текст = «Время окончания решения не может быть меньше времени его начала» ;Сообщение.Сообщить (); Объект.Дата.

ВремяКонца = Объект.Дата.

ВремяНачала + Объект.Время.

ПоФакту * 60Конец.

Если; Конец.

Процедуры&НаКлиенте.

Процедура Время.

ПоФакту.

ПриИзменении (Элемент)Объект.Дата.

ВремяКонца.

Факт = Объект.Дата.

ВремяНачала.

Факт + Объект.Время.

ПоФакту*60;Обновить.

ЗатраченоВремени ();Конец.

Процедуры&НаКлиенте.

Процедура Обновить.

ЗатраченоВремени ()Если Объект.Время.

ПоФакту > 0 Тогда.

МинутЗатрачено = Формат ((Объект.Время.

ПоФакту / 60 — Цел (Объект.Время.

ПоФакту / 60)) * 60," ЧЦ=2; ЧН=; ЧВН=");Часов.

Затрачено = Формат (Цел (Объект.Время.

ПоФакту / 60)," ЧЦ=2; ЧН=; ЧВН=");Затрачено.

Времени = «» + Часов.

Затрачено + «ч. «+ Минут.

Затрачено + «мин.» ;Иначе.

ЗатраченоВремени = «00 ч. 00 мин.» ;Конец.

Если; Конец.

Процедуры&НаКлиенте.

Процедура Дата.

ВремяНачала.

ПланПри.

Изменении (Элемент)Если Объект.Дата.

ВремяНачала.

Факт <> '10 101 000 000' Тогда.

Объект.Дата.

ВремяНачала.

Факт = Начало.

Дня (Объект.Дата) + (Объект.Дата.

ВремяНачала.

Факт — Начало.

Дня (Объект.Дата.

ВремяНачала.

Факт));Конец.

Если; Если Объект.Дата.

ВремяКонца.

Факт< Объект.Дата.

ВремяНачала.

Факт и Объект.Дата.

ВремяКонца.

Факт <> '10 101 000 000' Тогда.

Сообщение = Новый Сообщение.

Пользователю;

Сообщение.Текст = «Время окончания решения не может быть меньше времени его начала» ;Сообщение.Сообщить (); Объект.Дата.

ВремяНачала.

Факт = Объект.Дата.

ВремяКонца.

Факт — Объект.Время.

ПоФакту * 60Конец.

Если; Объект.Время.

ПоФакту = (Объект.Дата.

ВремяКонца.

Факт — Объект.Дата.

ВремяНачала.

Факт)/60;Обновить.

ЗатраченоВремени ();Конец.

Процедуры&НаКлиенте.

Процедура Дата.

ВремяКонца.

ПланПри.

Изменении (Элемент)Если Объект.Дата.

ВремяКонца.

Факт <> '10 101 000 000' Тогда.

Объект.Дата.

ВремяКонца.

Факт = Начало.

Дня (Объект.Дата) + (Объект.Дата.

ВремяКонца.

Факт — Начало.

Дня (Объект.Дата.

ВремяКонца.

Факт));Конец.

Если; Если Объект.Дата.

ВремяКонца.

Факт< Объект.Дата.

ВремяНачала.

Факт и Объект.Дата.

ВремяКонца.

Факт <> '10 101 000 000' Тогда.

Сообщение = Новый Сообщение.

Пользователю;

Сообщение.Текст = «Время окончания решения не может быть меньше времени его начала» ;Сообщение.Сообщить (); Объект.Дата.

ВремяКонца.

Факт = Объект.Дата.

ВремяНачала.

Факт + Объект.Время.

ПоФакту * 60Конец.

Если; Объект.Время.

ПоФакту = (Объект.Дата.

ВремяКонца.

Факт — Объект.Дата.

ВремяНачала.

Факт)/60;Обновить.

ЗатраченоВремени ();Конец.

Процедуры&НаКлиенте.

Процедура Дата.

ПриИзменении (Элемент)Если Объект.Дата.

ВремяНачала <> '10 101 000 000' Тогда.

Объект.Дата.

ВремяНачала = Начало.

Дня (Объект.Дата) + (Объект.Дата.

ВремяНачала — Начало.

Дня (Объект.Дата.

ВремяНачала));Конец.

Если; Если Объект.Дата.

ВремяКонца <> '10 101 000 000' Тогда.

Объект.Дата.

ВремяКонца = Начало.

Дня (Объект.Дата) + (Объект.Дата.

ВремяКонца — Начало.

Дня (Объект.Дата.

ВремяКонца));Конец.

Если;

Если Объект.Дата.

ВремяНачала.

Факт <> '10 101 000 000' Тогда.

Объект.Дата.

ВремяНачала.

Факт = Начало.

Дня (Объект.Дата) + (Объект.Дата.

ВремяНачала.

Факт — Начало.

Дня (Объект.Дата.

ВремяНачала.

Факт));Конец.

Если; Если Объект.Дата.

ВремяКонца.

Факт <> '10 101 000 000' Тогда.

Объект.Дата.

ВремяКонца.

Факт = Начало.

Дня (Объект.Дата) + (Объект.Дата.

ВремяКонца.

Факт — Начало.

Дня (Объект.Дата.

ВремяКонца.

Факт));Конец.

Если; Конец.

Процедуры&НаКлиенте.

Процедура Заполнить.

Факт (Команда)Объект.Дата.

ВремяКонца.

Факт= Объект.Дата.

ВремяКонца;

Объект.Дата.

ВремяНачала.

Факт= Объект.Дата.

ВремяНачала;

Объект.Время.

ПоФакту = (Объект.Дата.

ВремяКонца.

Факт — Объект.Дата.

ВремяНачала.

Факт);Конец.

Процедуры&НаКлиенте.

Процедура Расчет (Команда)Выполнить.

Расчет ();Конец.

Процедуры&НаСервере.

Процедура Выполнить.

Расчет ()Сумма.

Фикс = 0;Цена.

ЗаЕд = 0;Запрос = Новый Запрос;

Запрос.Текст = «ВЫБРАТЬ-Тарифы.

СрезПоследних.Вид.

Тарифа,-Тарифы.

СрезПоследних.Цена-ИЗ-Регистр

Сведений.Тарифы.Срез.

Последних КАК Тарифы.

СрезПоследних" ;Результат.

Запроса = Запрос. Выполнить ();Выборка.

ДетальныеЗаписи = Результат.

Запроса.Выбрать ();Пока Выборка.

ДетальныеЗаписи.Следующий () Цикл.

Если Выборка.

ДетальныеЗаписи.Вид.

Тарифа = Перечисления.Вид.

Тарифа.ЗаМинуту Тогда.

ЦенаЗаЕд =Выборка.

ДетальныеЗаписи.Цена;

Иначе.

ЕслиВыборка.

ДетальныеЗаписи.Вид.

Тарифа = Перечисления.Вид.

Тарифа.Фикс Тогда.

СуммаФикс = Выборка.

ДетальныеЗаписи.Цена;

Конец.

Если;

Конец.

Цикла;

Минут.

Фикс = Константы.Время.

ФиксированныйТариф.Получить ();Минут.

КОплате = 0;Если Объект.Время.

ПоФакту <=Минут.

Фикс Тогда.

Объект.Сумма = Сумма.

Фикс;

Иначе.

МинутКОплате= Объект.Время.

ПоФакту — Минут.

Фикс;

Объект.Сумма = Сумма.

Фикс + Минут.

КОплате*Цена.

ЗаЕд;

Конец.

Если;

Конец.

ПроцедурыЛистинг 6. Модуль документа «Выполнение"Процедура Обработка.

Заполнения (Данные.

Заполнения, Стандартная.

Обработка)Если Тип.

Знч (Данные.

Заполнения) = Тип («Документ.

Ссылка.Заказ") Тогда.

Заказ = Данные.

Заполнения.Ссылка;

Сотрудник = Данные.

Заполнения.Сотрудник;

Дата.

ВремяНачала= Данные.

Заполнения.Дата.

Исполнения;

Дата.

ВремяКонца= Данные.

Заполнения.Дата.

Исполнения + Данные.

Заполнения.Время.

ПоПлану*60;Конец.

Если;

Конец.

ПроцедурыПроцедура Обработка.

Проведения (Отказ, Режим.

Проведения)Движения.Выполнения.

Заказов.Записывать = Истина;

Движения.Выполнения.

Заказов.Очистить ();Движение = Движения.Выполнения.

Заказов.Добавить ();Движение.Водитель = Заказ. Водитель;

Движение.Сотрудник= Сотрудник;

Движение.Контрагент= Заказ. Контрагент;

Движение.Период= Дата;

Движение.Заказ = Заказ;

Движение.Выполнение= Ссылка;

Движение.Время.

ПоПлану= (Дата.

ВремяКонца — Дата.

ВремяНачала);Движение.Время.

ПоФакту= (Дата.

ВремяКонца.

Факт — Дата.

ВремяНачала.

Факт);Движение.Адрес= Заказ. Адрес;

Движение.Сумма= Сумма;

Конец.

ПроцедурыЛистинг 7. Модуль формы обработки «Рабочий стол"&НаСервере.

Процедура При.

СозданииНаСервере (Отказ, Стандартная.

Обработка)Параметры.Завершенная.

Задача =Перечисления.Состояния.

Заказа.Завершенный.

Заказ;

Параметры.Текущая.

Задача = Перечисления.Состояния.

Заказа.Текущий.

Заказ;

Параметры.Пустая.

Задача = Перечисления.Состояния.

Заказа.Пустая.

Ссылка ();Параметры.Текущий.

Пользователь = Параметры.

Сеанса.Текущий.

Пользователь;

Сотрудник = Параметры.

Сеанса.Текущий.

Пользователь;

Первое.

Открытие= Истина;

Текущий.

Пользователь= Параметры.

Сеанса.Текущий.

Пользователь;

Конец.

Процедуры&НаКлиенте.

Процедура При.

Открытии (Отказ)Параметры.Цвет.

ОбластиВыделен = WebЦвета. Черный;

Параметры.Цвет.

ОбластиНеВыделен = Новый Цвет (179, 172, 134);Обновить.

ТекущиеЗадачи ();Обновить.

СписокВодителей ();Конец.

Процедуры&НаКлиенте.

Процедура Состояния.

ЗадачПри.

СменеСтраницы (Элемент, Текущая.

Страница)Если Текущая.

Страница.Имя = «Текущие.

Задачи" Тогда Состояние.

Задачи = Параметры.Текущая.

Задача;

Иначе.

ЕслиТекущая.

Страница.Имя = «Завершенные.

Задачи" Тогда Состояние.

Задачи = Параметры.Завершенная.

Задача;

Конец.

Если; Если Текущая.

Страница.Имя = «Текущие.

Задачи" Тогда Обновить.

ТекущиеЗадачи ();Иначе.

ЕслиТекущая.

Страница.Имя = «Завершенные.

Задачи" Тогда Обновить.

ЗавершенныеЗадачи ();Конец.

Если; Конец.

Процедуры&НаКлиенте.

Процедура Завершить.

Задачу (Команда)Тек.

Задача = Получить.

ТекущуюЗадачу ();Если Тек.

Задача = Неопределено Тогда.

Возврат;

Конец.

Если;

Установить.

НовоеСостояние.

Задачи (Тек.

Задача, «Завершенный.

Заказ");Если Элементы.Состояния.

Задач.Текущая.

Страница = Элементы.Текущие.

Задачи Тогда.

Элементы.Список.

ДокументовТекущий.Обновить ();Иначе.

ЕслиЭлементы.Состояния.

Задач.Текущая.

Страница = Элементы.Завершенные.

Задачи Тогда Элементы.Список.

ДокументовЗавершенных.Обновить ();Конец.

Если; Конец.

Процедуры&НаКлиенте.

Функция Получить.

ТекущуюЗадачу ()Если Элементы.Состояния.

Задач.Текущая.

Страница.Имя = «Текущие.

Задачи" Тогда.

Возврат Элементы.Список.

ДокументовТекущий.Текущая.

Строка;

Иначе.

ЕслиЭлементы.Состояния.

Задач.Текущая.

Страница.Имя = «Завершенные.

Задачи" Тогда Возврат Элементы.Список.

ДокументовЗавершенных.Текущая.

Строка;

Конец.

Если; Конец.

Функции&НаСервере.

Функция Получить.

Реквизит (вр

Объект, Имя.

Реквизита)Возврат вр

Объект[Имя.

Реквизита]; Конец.

Функции&НаСервере.

Процедура Установить.

НовоеСостояние.

Задачи (Заказ, Состояние) Объект.

Заказ = Заказ.Получить.

Объект ();Объект.

Заказ.Состояние.

Заказа = Перечисления.Состояния.

Заказа[Состояние]; Попытка.

ОбъектЗаказ.Записать (Режим.

ЗаписиДокумента.Проведение);Исключение.

Сообщение = Новый Сообщение.

Пользователю;

Сообщение.Текст = Описание.

Ошибки ();Сообщение.Сообщить (); Конец.

Попытки;

Конец.

Процедуры&НаКлиенте.

Процедура Обновить.

ТекущиеЗадачи ()Список.

ДокументовТекущий.Параметры.Установить.

ЗначениеПараметра («Тек.

Сотрудник", Текущий.

Пользователь);Элементы.Список.

ДокументовТекущий.Обновить ();Конец.

Процедуры&НаКлиенте.

Процедура Обновить.

СписокВодителей ()Водительская.

Смена.Параметры.Установить.

ЗначениеПараметра («Тек.

Период", Начало.

Дня (Текущая.

Дата ()));Вид.

Смены = Получит.

Смену ();Водительская.

Смена.Параметры.Установить.

ЗначениеПараметра («Вид.

Смены", Вид.

Смены);Элементы.Водительская.

Смена.Обновить ();Конец.

Процедуры&НаСервере.

Функция Получит.

Смену ()Нач.

ДнСмены = Начало.

Дня (Текущая.

Дата ()) + Константы.Начало.

ДневнойСмены.Получить ()*60*60;Кон.

ДнСмены = Начало.

Дня (Текущая.

Дата ()) + Константы.Конец.

ДневнойСмены.Получить ()*60*60;Если Текущая.

Дата ()>=Нач.

ДнСмены и Текущая.

Дата () < Кон.

ДнСмены Тогда Возврат Перечисления.Вид.

Смены.Дневная;

Иначе.

Возврат Перечисления.Вид.

Смены.Ночная;

Конец.

Если;

Конец.

Функции&НаКлиенте.

Процедура Обновить.

ЗавершенныеЗадачи ()Список.

ДокументовЗавершенных.Параметры.Установить.

ЗначениеПараметра («Тек.

Сотрудник", Текущий.

Пользователь);Элементы.Список.

ДокументовЗавершенных.Обновить ();Конец.

Процедуры&НаКлиенте.

Процедура Обновить.

ВодительскаяСмена (Команда)Обновить.

СписокВодителей ();Конец.

ПроцедурыЛистинг 8. Модуль формы списка регистра сведений «Смена"&НаСервере.

Процедура Заполнить.

СменуНаСервере (Вид.

Смены)Запрос = Новый Запрос;

Запрос.Текст = «ВЫБРАТЬ-Водители.Ссылка КАК Водитель,-Водители.Рабочая.

Смена КАК Смена-ИЗ-Справочник.Водители КАК Водители-ЛЕВОЕ СОЕДИНЕНИЕ Регистр

Сведений.Смена.Срез.

Последних () КАК Смена.

СрезПоследних-ПО (Смена.

СрезПоследних.Водитель = Водители. Ссылка) И Смена.

СрезПоследних.Период = &тек.

Дата-ГДЕ-Водители.Рабочая.

Смена = &Рабочая.

Смена-И Смена.

СрезПоследних.Водитель ЕСТЬ NULL «;Запрос.Установить.

Параметр («Тек.

Дата", Начало.

Дня (Текущая.

Дата ()));Если Вид.

Смены = «Д» Тогда.

Запрос.Установить.

Параметр («Рабочая.

Смена", Перечисления.Вид.

Смены.Дневная);Иначе.

Запрос.Установить.

Параметр («Рабочая.

Смена", Перечисления.Вид.

Смены.Ночная);Конец.

Если;

Результат.

Запроса = Запрос. Выполнить ();Выборка.

ДетальныеЗаписи = Результат.

Запроса.Выбрать ();Пока Выборка.

ДетальныеЗаписи.Следующий () Цикл.

НаборЗаписей = Регистры.

Сведений.Смена.Создать.

НаборЗаписей ();Набор

Записей.Отбор.Водитель.Установить (Выборка.

ДетальныеЗаписи.Водитель);Набор

Записей.Отбор.Период.Установить (Текущая.

Дата ());Нов.

Запись = Набор

Записей.Добавить ();Нов.

Запись.Водитель = Выборка.

ДетальныеЗаписи.Водитель;

Нов.

Запись.Период =Текущая.

Дата ();Нов.

Запись.Вид.

Смены = Выборка.

ДетальныеЗаписи.Смена;

Набор

Записей.Записать (Истина);Конец.

Цикла;

Конец.

Процедуры&НаКлиенте.

Процедура Заполнить.

ДнСмену (Команда)Заполнить.

СменуНаСервере («Д»);Обновить.

Интерфейс ();Конец.

Процедуры&НаКлиенте.

Процедура Заполнить.

НочнуюСмену (Команда)Заполнить.

СменуНаСервере («Н»);Обновить.

Интерфейс ();Конец.

Процедуры.