Автоматизация учёта грузоперевозок на автотранспортном предприятии

Автор работы: Пользователь скрыл имя, 23 Ноября 2010 в 09:41, курсовая работа

Краткое описание

Предоставлением услуг в сфере грузоперевозок занимаются автотранспортные предприятия.
Автомобильный транспорт, по сравнению с другими видами транспорта, имеет ряд преимуществ при перевозке грузов. К ним относятся:
 доставка грузов "от двери до двери";
 сокращение потребности в дорогостоящей и громоздкой упаковке;
 более высокая скорость и умеренная стоимость доставки грузов автомобилями.

Содержание работы

Введение……………………………………………………………………………...3
РАЗДЕЛ 1. Описание деятельности автотранспортного предприятия ...………..5
РАЗДЕЛ 2. Проектирование автоматизированной системы учёта грузоперевозок на автотранспортном предприятии……………………………..10
РАЗДЕЛ 3. Разработка автоматизированной системы учёта грузоперевозок на автотранспортном предприятии……….…………………..………...…………….20
3.1. Создание перечислений………………………………………………...20
3.2. Создание справочников………………………………………………...21
3.3. Создание регистров сведений………………………………………….23
3.4. Создание документов…………………………………………………...25
3.5. Создание регистров накопления……………………………………….31
3.6. Создание отчётов……………………………………………….……….33
Заключение………………………………………………………………………….37
Список использованных источников……………………………………………...38
Приложение 1. Модуль объекта «Документ «Путевой лист»…………………...40
Приложение 2. Модуль формы документа «Путевой лист»…………………….42
Приложение 3. Модуль объекта «Документ «Счёт»……………………………..44
Приложение 4. Модуль объекта «Документ «Техосмотр»………………………45
Приложение 5. Печатные формы документов……………………………………46
Приложение 6. Модуль формы отчёта «Пробег автомобилей»…………………47
Приложение 7. Модуль формы отчёта «Выполнение плана грузоперевозок»…49
Приложение 8. Модуль формы отчёта «Расход топлива автомобилями»……...51
Приложение 9. Модуль формы отчёта «Выручка водителей»…………………..53
Приложение 10. Модуль формы отчёта «График техосмотров»………………..55
Приложение 11. Выходные формы отчётов………………………………………57

Содержимое работы - 1 файл

курсовая работа ИЛЬЧЕНКО С.А.doc

— 585.00 Кб (Скачать файл)

ТабДок.НачатьАвтогруппировкуСтрок();

ВыборкаАвтомобиль = Результат.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);

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

ОбластьАвтомобиль.Параметры.Заполнить(ВыборкаАвтомобиль);

ТабДок.Вывести(ОбластьАвтомобиль, ВыборкаАвтомобиль.Уровень());

ВыборкаПериод= ВыборкаАвтомобиль.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);

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

ОбластьПериод.Параметры.Заполнить(ВыборкаПериод);

ТабДок.Вывести(ОбластьПериод, ВыборкаПериод.Уровень());

      КонецЦикла;

      КонецЦикла;

ТабДок.ЗакончитьАвтогруппировкуСтрок();

ТабДок.Вывести(ОбластьПодвалТаблицы);

ТабДок.Вывести(ОбластьПодвал);

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

ПРИЛОЖЕНИЕ 7

Модуль  формы отчёта «Выполнение плана грузоперевозок» 

     Процедура ДействияФормыВыполнениеПланаГрузоперевозокСформировать(Кнопка)

ТабДок = ЭлементыФормы.ПолеТабличногоДокумента;

ВыполнениеПланаГрузоперевозок(ТабДок, ДатаНачала, КонецДня(ДатаОкончания));

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

     Процедура ВыполнениеПланаГрузоперевозок(ТабДок, ДатаНачала, ДатаОкончания) Экспорт

Макет = ОтчетОбъект.ПолучитьМакет("ВыполнениеПланаГрузоперевозок");

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

Запрос.Текст =

"ВЫБРАТЬ

      | ПробегОбороты.Период КАК Период,

      | ПробегОбороты.Автомобиль КАК Автомобиль,

      | ПРЕДСТАВЛЕНИЕ(ПробегОбороты.Автомобиль),

      | ПробегОбороты.ТонноКилометрыОборот КАК ВыполненоТонноКилометров

      |ИЗ

      | РегистрНакопления.Пробег.Обороты(&ДатаНачала, &ДатаОкончания, День, ) КАК ПробегОбороты

      |

      |УПОРЯДОЧИТЬ  ПО

      | Период

      |ИТОГИ

      | СУММА(ВыполненоТонноКилометров)

      |ПО

      | Автомобиль,

      | Период"; 

Запрос.УстановитьПараметр("ДатаНачала", ДатаНачала);

Запрос.УстановитьПараметр("ДатаОкончания", ДатаОкончания);

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

ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");

ОбластьПодвал = Макет.ПолучитьОбласть("Подвал");

ОбластьШапкаТаблицы = Макет.ПолучитьОбласть("ШапкаТаблицы");

ОбластьПодвалТаблицы = Макет.ПолучитьОбласть("ПодвалТаблицы");

ОбластьАвтомобиль = Макет.ПолучитьОбласть("Автомобиль");

ОбластьПериод = Макет.ПолучитьОбласть("Период");

ТабДок.Очистить();

ТабДок.Вывести(ОбластьЗаголовок);

ТабДок.Вывести(ОбластьШапкаТаблицы);

ТабДок.НачатьАвтогруппировкуСтрок();

ВыборкаАвтомобиль = Результат.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);

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

ОбластьАвтомобиль.Параметры.Заполнить(ВыборкаАвтомобиль);

ТабДок.Вывести(ОбластьАвтомобиль, ВыборкаАвтомобиль.Уровень());

ВыборкаПериод= ВыборкаАвтомобиль.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);

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

ОбластьПериод.Параметры.Заполнить(ВыборкаПериод);

ТабДок.Вывести(ОбластьПериод, ВыборкаПериод.Уровень());

      КонецЦикла;

      КонецЦикла;

ТабДок.ЗакончитьАвтогруппировкуСтрок();

ТабДок.Вывести(ОбластьПодвалТаблицы);

ТабДок.Вывести(ОбластьПодвал);

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

ПРИЛОЖЕНИЕ  8

Модуль  формы отчёта «Расход топлива автомобилями» 

     Процедура ДействияФормыРасходТопливаАвтомобилямиСформировать(Кнопка)

ТабДок = ЭлементыФормы.ПолеТабличногоДокумента;

РасходТопливаАвтомобилями(ТабДок, ДатаНачала, КонецДня(ДатаОкончания));

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

     Процедура РасходТопливаАвтомобилями(ТабДок, ДатаНачала, ДатаОкончания) Экспорт

Макет = ОтчетОбъект.ПолучитьМакет("РасходТопливаАвтомобилями");

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

Запрос.Текст =

"ВЫБРАТЬ

      | РасходТопливаОбороты.Автомобиль КАК Автомобиль,

      | ПРЕДСТАВЛЕНИЕ(РасходТопливаОбороты.Автомобиль),

      | РасходТопливаОбороты.МаркаТоплива,

      | ПРЕДСТАВЛЕНИЕ(РасходТопливаОбороты.МаркаТоплива),

      | РасходТопливаОбороты.ЦенаЗаЛитрОборот КАК ЦенаЗаЛитр,

      | РасходТопливаОбороты.РасходНормаОборот КАК РасходПоНорме,

      | РасходТопливаОбороты.РасходФактОборот КАК РасходПоФакту,

      | РасходТопливаОбороты.РасходФактОборот- РасходТопливаОбороты.РасходНормаОборот КАК Перерасход,

      | (РасходТопливаОбороты.РасходФактОборот- РасходТопливаОбороты.РасходНормаОборот) * РасходТопливаОбороты.ЦенаЗаЛитрОборот КАК СтоимостьПерерасхода

      |ИЗ

      | РегистрНакопления.РасходТоплива.Обороты(&ДатаНачала, &ДатаОкончания, День, ) КАК РасходТопливаОбороты

      |

      |УПОРЯДОЧИТЬ  ПО

      | СтоимостьПерерасхода

      |ИТОГИ

      | СУММА(СтоимостьПерерасхода)

      |ПО

      | ОБЩИЕ,

      | Автомобиль";

Запрос.УстановитьПараметр("ДатаНачала", ДатаНачала);

Запрос.УстановитьПараметр("ДатаОкончания", ДатаОкончания);

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

ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");

ОбластьПодвал = Макет.ПолучитьОбласть("Подвал");

ОбластьШапкаТаблицы = Макет.ПолучитьОбласть("ШапкаТаблицы");

ОбластьПодвалТаблицы = Макет.ПолучитьОбласть("ПодвалТаблицы");

ОбластьОбщийИтог = Макет.ПолучитьОбласть("ОбщиеИтоги");

ОбластьАвтомобиль = Макет.ПолучитьОбласть("Автомобиль");

ОбластьДетальныхЗаписей = Макет.ПолучитьОбласть("Детали");

ТабДок.Очистить();

ТабДок.Вывести(ОбластьЗаголовок);

ТабДок.Вывести(ОбластьШапкаТаблицы);

ТабДок.НачатьАвтогруппировкуСтрок();

ВыборкаОбщийИтог = Результат.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);

ВыборкаОбщийИтог.Следующий();  // Общий итог

ОбластьОбщийИтог.Параметры.Заполнить(ВыборкаОбщийИтог);

ТабДок.Вывести(ОбластьОбщийИтог, ВыборкаОбщийИтог.Уровень());

ВыборкаАвтомобиль= ВыборкаОбщийИтог.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);

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

ОбластьАвтомобиль.Параметры.Заполнить(ВыборкаАвтомобиль);

ТабДок.Вывести(ОбластьАвтомобиль, ВыборкаАвтомобиль.Уровень());

ВыборкаДетали = ВыборкаАвтомобиль.Выбрать();

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

ОбластьДетальныхЗаписей.Параметры.Заполнить(ВыборкаДетали);

ТабДок.Вывести(ОбластьДетальныхЗаписей, ВыборкаДетали.Уровень());

      КонецЦикла;

      КонецЦикла;

ТабДок.ЗакончитьАвтогруппировкуСтрок();

ТабДок.Вывести(ОбластьПодвалТаблицы);

ТабДок.Вывести(ОбластьПодвал);

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

ПРИЛОЖЕНИЕ  9

Модуль  формы отчёта «Выручка водителей» 

     Процедура ДействияФормыВыручкаВодителейСформировать(Кнопка)

ТабДок = ЭлементыФормы.ПолеТабличногоДокумента;

ВыручкаВодителей(ТабДок, ДатаНачала, КонецДня(ДатаОкончания));

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

     Процедура ВыручкаВодителей(ТабДок, ДатаНачала, ДатаОкончания) Экспорт

Макет = ОтчетОбъект.ПолучитьМакет("ВыручкаВодителей");

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

Запрос.Текст =

"ВЫБРАТЬ

      | ПеревозкиОбороты.Период КАК Период,

      | ПеревозкиОбороты.Водитель КАК Водитель,

      | ПРЕДСТАВЛЕНИЕ(ПеревозкиОбороты.Водитель),

      | ПеревозкиОбороты.Автомобиль,

      | ПРЕДСТАВЛЕНИЕ(ПеревозкиОбороты.Автомобиль),

      | ПеревозкиОбороты.Клиент,

      | ПеревозкиОбороты.СтоимостьЗаявкиОборот КАК СтоимостьЗаявки,

      | ПеревозкиОбороты.ЗатратыНаТопливоОборот КАК ЗатратыНаТопливо,

      | ПеревозкиОбороты.СтоимостьЗаявкиОборот- ПеревозкиОбороты.ЗатратыНаТопливоОборот КАК Выручка

      |ИЗ

      | РегистрНакопления.Перевозки.Обороты(&ДатаНачала, &ДатаОкончания, День, ) КАК ПеревозкиОбороты

Информация о работе Автоматизация учёта грузоперевозок на автотранспортном предприятии