7. Сроки проведения работ

Сроки выполнения работ представлены в Календарном плане работ (Приложение Д)

Приложение д Календарный план работ

Название	Длительность	Дата начала	Дата окончания
Постановка задачи	7	01.03.09	08.03.09
Составление технического задания	10	08.03.09	18.03.09
Выявление реквизитов перечислений, документов, журналов	5	18.03.09	23.03.09
Разработка структуры документов, печатных форм, написание программного комплекса	30	23.03.09	23.04.09
Разработка руководства пользователя	14	23.04.09	06.05.09
Тестирование на данных бухгалтерии	2	06.05.09	10.05.09
Введение в опытную эксплуатацию	1	10.05.09

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

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

Если Водитель.Выбран()=0 Тогда

Предупреждение("Укажите водителя");

НеПроводитьДокумент();

КонецЕсли;

Если Автомобиль.Выбран()=0 Тогда

Предупреждение("Выберите автомобиль");

НеПроводитьДокумент();

КонецЕсли;

Если ПустоеЗначение(ВидСД)=1 Тогда

Предупреждение("Опишите вид сделки");

НеПроводитьДокумент();

КонецЕсли;

Если ВыданоТопливо=0 Тогда

Предупреждение("Введите количество топлива которое следует выдать водителю");

НеПроводитьДокумент();

КонецЕсли;

УстановитьРеквизитСправочника(Автомобиль,"Спидометр",Спидометр+КилометражПоКарте,ДатаДок,,,);

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

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

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

ПриЗаписиПерепроводить(1);

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

Процедура ПриВыбореВодителя() //автоматически заносятся сведения о водителе

Пр=Водитель.ПраваНомер;

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

Процедура ПриВыбореАвтомобиля() //автоматически заносятся сведения об автомобиле

Прицеп=Автомобиль.ПрицепНом;

Спидометр=Автомобиль.Спидометр.Получить(ДатаДок);

Топливо=Автомобиль.Топливо;

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

Процедура Печать()

Т = СоздатьОбъект("Таблица");

Т.ИсходнаяТаблица("Таблица");

Т.ВывестиСекцию("Лицевая");

Т.ТолькоПросмотр(0);

Т.Опции(0,0,0,0);

Т.Показать ("Полученные результаты","");

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

Модуль документа «Расчетная ведомость»

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

Если Водитель.Выбран()=0 Тогда

Предупреждение("Укажите водителя");

НеПроводитьДокумент();

КонецЕсли;

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

Модуль формы документа «Расчетная ведомость»

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

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

Перем Запрос, ТекстЗапроса;

//Создание объекта типа Запрос

Запрос = СоздатьОбъект("Запрос");

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

"//{{ЗАПРОС(Заполнить)

|Период с (НачМесяца(ДатаДок)) по (КонМесяца(ДатаДок));

|Без итогов;

|ПутевойЛист = Документ.ПутевойЛист.ТекущийДокумент;

|КилометражПоКарте= Документ.ПутевойЛист.КилометражПоКарте;

|ВодительДок = Документ.ПутевойЛист.Водитель;

|Автомобиль = Документ.ПутевойЛист.Автомобиль;

|Функция КилометражПоКартеСумма= Сумма(КилометражПоКарте);

|Группировка ПутевойЛист без групп;

|Группировка Автомобиль без групп;

|Условие(ВодительДок = Водитель);

|"//}}ЗАПРОС;

// Если ошибка в запросе, то выход из процедуры

Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда

Возврат;

КонецЕсли;

// Подготовка к заполнению выходных форм данными запроса

// Заполнение полей "Заголовок"

Пока Запрос.Группировка() = 1 Цикл

// Заполнение полей Заполнить

НоваяСтрока();

НомерПЛ = (Запрос.ПутевойЛист.НомерДок)+" от "+ Формат(Запрос.ПутевойЛист.ДатаДок,"Д ДДММГГГГ");

ПробегЗаРейс = Запрос.КилометражПоКартеСумма;

СтавкаЗаКилометр = Запрос.Автомобиль.ТарифЗаКм.Получить(ДатаДок);

ОплатаЗаРейс = ПробегЗаРейс*СтавкаЗаКилометр;

КонецЦикла;

// Вывод заполненной формы

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

//******************************

***************************

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

ПриЗаписиПерепроводить(1);

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

Процедура ПриВыборе()

ПраваНомер=Водитель.ПраваНомер;

Класс=Водитель.Класс;

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

ИНН=Водитель.ИНН;

Оклад=Водитель.Оклад;

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

Процедура Печать()

Т = СоздатьОбъект("Таблица");

Т.ИсходнаяТаблица("Таблица");

Т.ВывестиСекцию("Ведомость");

ВыбратьСтроки();

Пока ПолучитьСтроку() = 1 Цикл

Т.ВывестиСекцию("Строка");

КонецЦикла;

Т.ВывестиСекцию("Итог");

Т.ТолькоПросмотр(0);

Т.Опции(0,0,0,0);

Т.Показать ("Полученные результаты","");

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

Процедура Очистка()

УдалитьСтроки();

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