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

Автор работы: Пользователь скрыл имя, 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

Скачать целиком (335.85 Кб) Сколько стоит заказать работу?
Содержимое работы - 1 файл

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

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

      |

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

      | Период

      |ИТОГИ

      | СУММА(Выручка)

      |ПО

      | ОБЩИЕ,

      | Водитель,

      | Период"; 

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

ВыборкаДетали = ВыборкаПериод.Выбрать();

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

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

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

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

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

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

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

ПРИЛОЖЕНИЕ  10

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

     Процедура ПередОткрытием(Отказ, СтандартнаяОбработка)

ГрафикТехосмотровИнициализация();

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

     Процедура ПриЗакрытии()

СохранитьЗначение("НастройкаОтчетыГрафикТехосмотровГрафикТехосмотров_b21a4459-80eb-4167-8f5b-5d28548d9f1e", ПостроительОтчетаГрафикТехосмотров.ПолучитьНастройки());

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

     Процедура ДействияФормыГрафикТехосмотровНастройка(Кнопка)

Форма = ОтчетОбъект.ПолучитьФорму("ГрафикТехосмотровНастройка");

Форма.ПостроительОтчета = ПостроительОтчетаГрафикТехосмотров;

Настройка = ПостроительОтчетаГрафикТехосмотров.ПолучитьНастройки();

      Если  Форма.ОткрытьМодально() = Истина Тогда

ГрафикТехосмотровВывести();

      Иначе

ПостроительОтчетаГрафикТехосмотров.УстановитьНастройки(Настройка);

      КонецЕсли;

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

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

ГрафикТехосмотровВывести();

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

     Процедура ГрафикТехосмотровВывести()

ЭлементыФормы.ПолеТабличногоДокумента.Очистить();

ПостроительОтчетаГрафикТехосмотров.Параметры.Вставить("ДатаОтчёта", КонецДня(ДатаОтчёта));

ПостроительОтчетаГрафикТехосмотров.Выполнить();

ПостроительОтчетаГрафикТехосмотров.РазмещениеИзмеренийВСтроках = ТипРазмещенияИзмерений.Вместе;

ПостроительОтчетаГрафикТехосмотров.РазмещениеРеквизитовИзмеренийВСтроках = ТипРазмещенияРеквизитовИзмерений.Отдельно;

ПостроительОтчетаГрафикТехосмотров.РазмещениеРеквизитовИзмеренийВКолонках = ТипРазмещенияРеквизитовИзмерений.Отдельно;

ПостроительОтчетаГрафикТехосмотров.МакетОформления = ПолучитьМакетОформления(СтандартноеОформление.Классика);

ПостроительОтчетаГрафикТехосмотров.Вывести(ЭлементыФормы.ПолеТабличногоДокумента);

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

     Процедура ГрафикТехосмотровИнициализация()

ПостроительОтчетаГрафикТехосмотров.Текст =

"ВЫБРАТЬ

      | ТехосмотрСрезПоследних.Автомобиль,

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

      | ТехосмотрСрезПоследних.СледующийТехосмотр

      |ИЗ

      | РегистрСведений.Техосмотр.СрезПоследних(&ДатаОтчёта, ) КАК ТехосмотрСрезПоследних";

ПостроительОтчетаГрафикТехосмотров.ЗаполнитьНастройки();

ПостроительОтчетаГрафикТехосмотров.ЗаполнениеРасшифровки = ВидЗаполненияРасшифровкиПостроителяОтчета.ЗначенияГруппировок;

ПостроительОтчетаГрафикТехосмотров.ТекстЗаголовка = "График техосмотров";

Настройка = ВосстановитьЗначение("НастройкаОтчетыГрафикТехосмотровГрафикТехосмотров_b21a4459-80eb-4167-8f5b-5d28548d9f1e");

      Если  Настройка <> Неопределено Тогда

ПостроительОтчетаГрафикТехосмотров.УстановитьНастройки(Настройка);

      КонецЕсли;

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

 
 
 
 
 
 
 

ПРИЛОЖЕНИЕ 11

Выходные  формы отчётов 

 
 
 
 
 

 
 
 
 
 

 
 
 
 

 
 
 
 
 

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