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

     В заключении следует сказать, что  созданный мною проект АС учёта грузоперевозок на автотранспортном предприятии может быть внедрён на каком-либо небольшом предприятии, занимающимся предоставлением услуг по перевозке грузов. 
 

СПИСОК  ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ 
 

1. Анисимов  А.П. Организация грузоперевозок на автотранспортном предприятии.– М.: Транспорт, 1998.– 269 с.: ил.
2. Аксенова З.И., Бачурин А. А. Анализ производственно-финансовой деятельности автотранспортных предприятий. – М.: Транспорт, 1990. –255 с.
3. Митичкин С.А. Разработка в системе 1С: Предприятие 8.0.– М.: ООО «1С-Паблишинг», 2003.– 500 с.
4. Радченко М.Г. 1С: Предприятие 8.0. Практическое пособие разработчика. Примеры и типовые приёмы.– М.: ООО «1С-Паблишинг», 2004.– 656 с., ил.
5. Смирнова Г.Н., Сорокин А.А., Тельнов Ю.Ф. Проектирование экономических информационных систем.– Москва, 2002.– 539 с.: ил.

   
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

ПРИЛОЖЕНИЯ 
 
 

 
 
 
 
 
 

ПРИЛОЖЕНИЕ 1

Модуль  объекта «Документ «Путевой лист» 

     Процедура ОбработкаЗаполнения(Основание)

Если  ТипЗнч(Основание) = Тип("ДокументСсылка.Заявка") Тогда

            // Заполнение шапки

ВесГруза = Основание.ВесГруза;

Клиент = Основание.Клиент;

ПунктНазначения = Основание.ПунктНазначения;

ПунктОтправления = Основание.ПунктОтправления;

Заявка = Основание.Ссылка;

Тип = Основание.ТипАвтомобиля;

КонецЕсли;

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

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

      // регистр Перевозки 

Движение = Движения.Перевозки.Добавить();

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

Движение.Автомобиль = ГосНомер;

Движение.Водитель = ФИО_водителя;

Движение.Клиент = Клиент;

Движение.ЗатратыНаТопливо = ОбщаяСтоимость;

Движение.СтоимостьЗаявки = СтоимостьСГрузом+"300";

      // регистр Пробег 

Движение = Движения.Пробег.Добавить();

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

Движение.Автомобиль = ГосНомер;

Движение.ПробегОбщий = ПробегОбщий;

Движение.ПробегСГрузом = ПробегСГрузом;

Движение.ТонноКилометры = ВыполненоТонноКилометров;

      // регистр РасходТоплива 

Движение = Движения.РасходТоплива.Добавить();

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

Движение.Автомобиль = ГосНомер;

Движение.МаркаТоплива = МаркаТоплива;

Движение.ЦенаЗаЛитр = ЦенаЗаЛитр;

Движение.РасходНорма = РасходТопливаНорма;

Движение.РасходФакт = РасходТопливаФакт;

      // записываем движения регистров

Движения.Перевозки.Записать();

Движения.Пробег.Записать();

Движения.РасходТоплива.Записать();

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

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

ПРИЛОЖЕНИЕ 2

Модуль формы документа «Путевой лист»

     Процедура ГосНомерПриИзменении(Элемент)

РасходТопливаНа_100км = РасходТоплива (Элемент.Значение);

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

     Процедура МаркаТопливаПриИзменении(Элемент)

ЦенаЗаЛитр = РозничнаяЦена (Дата, Элемент.Значение);

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

     Процедура СпидометрВозвращениеПриИзменении(Элемент)

ПробегОбщий = СпидометрВозвращение-СпидометрВыезд;

РасходТопливаНорма = РасходТопливаНа_100Км*ПробегОбщий/100;

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

     Процедура ПробегСГрузомПриИзменении(Элемент)

ВыполненоТонноКилометров = ПробегСГрузом*ВесГруза;

ОбщаяСтоимость = РасходТопливаФакт*ЦенаЗаЛитр;

РасходСГрузом = ПробегСГрузом*РасходТопливаНа_100Км/100;

СтоимостьСГрузом = РасходСГрузом*ЦенаЗаЛитр;

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

     Процедура ОбъёмДозаправкиПриИзменении(Элемент)

РасходТопливаФакт = ТопливоВыезд-ТопливоВозвращение+ОбъёмДозаправки;

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

     Процедура Печать(Элемент)

ТабДок = Новый  ТабличныйДокумент;

Макет = Документы.ПутевойЛист.ПолучитьМакет("Печать");

      // Заголовок

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

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

      // Шапка

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

Область.Параметры.Номер = Номер;

Область.Параметры.Дата = Дата;

Область.Параметры.ФИО_водителя = ФИО_водителя;

Область.Параметры.ГосНомер = ГосНомер;

Область.Параметры.Клиент = Клиент;

Область.Параметры.ВесГруза = ВесГруза;

Область.Параметры.ПунктОтправления = ПунктОтправления;

Область.Параметры.ПунктНазначения = ПунктНазначения;

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

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

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

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

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

ТабДок.ОтображатьСетку = Ложь; ТабДок.Защита = Ложь;

ТабДок.ТолькоПросмотр = Ложь; ТабДок.ОтображатьЗаголовки = Ложь;

ТабДок.Показать();

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

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

ПРИЛОЖЕНИЕ 3

Модуль  объекта «Документ  «Счёт»

     Процедура ОбработкаЗаполнения(Основание)

Если ТипЗнч(Основание) = Тип("ДокументСсылка.Заявка") Тогда

            // Заполнение шапки

СтоимостьПеревозки = "300";

ВесГруза = Основание.ВесГруза;

Клиент = Основание.Клиент;

НаименованиеГруза = Основание.НаименованиеГруза;

СогласноЗаявке = Основание.Ссылка;

КонецЕсли;

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

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

ПРИЛОЖЕНИЕ 4

Модуль  объекта «Документ «Техосмотр» 

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

      // регистр Техосмотр 

Движение = Движения.Техосмотр.Добавить();

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

Движение.Автомобиль = Автомобиль;

Движение.ДатаТехосмотра = ДатаТехосмотра;

Движение.СледующийТехосмотр = СледующийТехосмотр;

      // записываем движения регистров

Движения.Техосмотр.Записать();

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

ПРИЛОЖЕНИЕ  5

Печатные  формы документов

 
 
 
 

ПРИЛОЖЕНИЕ 6

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

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

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

ПробегАвтомобилей(ТабДок, ДатаНачала, КонецДня(ДатаОкончания));

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

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

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

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

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

"ВЫБРАТЬ

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

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

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

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

      | ПробегОбороты.ПробегСГрузомОборот КАК СГрузом

      |ИЗ

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

      |

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

      | Период

      |ИТОГИ

      | СУММА(Общий),

      | СУММА(СГрузом)

      |ПО

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

      | Период"; 

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

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

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

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

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

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

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

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

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

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

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

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