107
ПоказатьПредупреждение(,"Не заполнены даты выполнения
работ",100,"ВНИМАНИЕ!!!");
Прервать;
ИначеЕсли ПолнЗапДтВр(Текст.ТДатаОкончания)=Ложь или
ПолнЗапДтВр(Текст.ТДатаНачала)=Ложь тогда
ПоказатьПредупреждение(,"Не заполнено время выполнения
работ",100,"ВНИМАНИЕ!!!");
Прервать;
ИначеЕсли ПолнЗапДтВр(Текст.ТДатаОкончания)<>Ложь и
ПолнЗапДтВр(Текст.ТДатаНачала)<>Ложь тогда
Вр=Текст.ТДатаОкончания-Текст.ТДатаНачала; КонецЕсли;
Если Текст.ТСтоимостьВЧас<>Ложь или Текст.ТСтоимостьВЧас<>0 тогда
СтоимСек=Окр(Текст.ТСтоимостьВЧас/60/60,5);
Иначе
СтоимСек=0;
КонецЕсли;
Если Вр=0 тогда
ПоказатьПредупреждение(,"Нет расчета общего времени работы, расчет не
верен",100,"ВНИМАНИЕ!!!");
Прервать; Иначе
Текст.ТСтоимостьВсего=СтоимСек*ВР;
КонецЕсли;
КонецЦикла;
КонецПроцедуры
Процедура К3Нажатие(Элемент)
Авто.Добавить();
Индекс = Авто.Количество();
ЭлементыФормы.Авто.ТекущаяСтрока = Авто[Индекс-1];
КонецПроцедуры
Процедура К4Нажатие(Элемент)
ТабДок = Новый ТабличныйДокумент;
Макет = ПолучитьМакет("МакетЗаказа");
108
ОбластьЗаголовок = Макет.ПолучитьОбласть("Сек1");
ОбластьАвто = Макет.ПолучитьОбласть("Сек2");
ОбластьЗаголовок.Параметры.Зак="Заказы по службе "+Службы+" №
"+НомДокумента+" Дата документа "+Формат(ДатаДокумента,"ДФ=""дд.ММ.гг""");
ТабДок.Вывести(ОбластьЗаголовок);
ном=0;
Для Каждого Текст из ЭтотОбъект.Авто Цикл
ном=ном+1;
ОбластьАвто.Параметры.ном=СокрЛП(ном);
ОбластьАвто.Параметры.ТОрганизация=СокрЛП(Текст.ТОрганизация);
ОбластьАвто.Параметры.ТАвтомобиль=СокрЛП(Текст.ТАвтомобиль);
ОбластьАвто.Параметры.ТГосНом=СокрЛП(Текст.ТГосНом);
ОбластьАвто.Параметры.ТПутевойЛист=СокрЛП(Текст.ТПутевойЛист);
ОбластьАвто.Параметры.ТВидРабот=СокрЛП(Текст.ТВидРабот);
ОбластьАвто.Параметры.ДатаНач=Формат(Текст.ТДатаНачала,"ДФ=""дд.ММ.
гг чч.мм""");
ОбластьАвто.Параметры.ДатаОконч=Формат(Текст.ТДатаОкончания,"ДФ=""д
д.ММ.гг чч.мм""");
ОбластьАвто.Параметры.ТВсегоВремя=СокрЛП(Текст.ТВсегоВремени);
ОбластьАвто.Параметры.ТСтоимЧас=СокрЛП(Текст.ТСтоимостьВЧас);
ОбластьАвто.Параметры.ТСтоимВсего=СокрЛП(Текст.ТСтоимостьВсего);
ТабДок.Вывести(ОбластьАвто);
КонецЦикла;
ТабДок.Показать("ЗаказАвтоПоСлужбе");
КонецПроцедуры
Процедура ВыбПериодаНажатие(Элемент)
НастройкаПериода = Новый НастройкаПериода;
НастройкаПериода.РедактироватьКакИнтервал = Истина;
НастройкаПериода.РедактироватьКакПериод = Истина;
НастройкаПериода.ВариантНастройки = ВариантНастройкиПериода.Период;
109
НастройкаПериода.УстановитьПериод(НачДата, ?(КонДата='0001-01-01', КонДата,
КонецДня(КонДата)));
Если НастройкаПериода.Редактировать() Тогда
НачДата = НастройкаПериода.ПолучитьДатуНачала();
КонДата = НастройкаПериода.ПолучитьДатуОкончания();
КонецЕсли;
КонецПроцедуры
Процедура К1Нажатие(Элемент)
СписокСлужб.ЗаполнитьПометки(Истина);
КонецПроцедуры
Процедура К2Нажатие(Элемент)
СписокСлужб.ЗаполнитьПометки(Ложь);
КонецПроцедуры
Процедура ПриОткрытии()
НачДата=НачалоМесяца(ТекущаяДата());
КонДата=КонецМесяца(ТекущаяДата());
Слу=Справочники.Службы;
СЛ=Слу.Выбрать();
Пока СЛ.Следующий() цикл
Значение=СокрЛП(СЛ.Наименование);
Представление=СокрЛП(СЛ.Наименование);
СписокСлужб.Добавить(,Представление,1);
КонецЦикла;
КонецПроцедуры
Процедура
ОсновныеДействияФормыОсновныеДействияФормыВыполнить(Кнопка)
ТабДок = Новый ТабличныйДокумент;
Макет = ПолучитьМакет("МакетОтчетПоСлужбам");
110
ОбластьЗаголовок = Макет.ПолучитьОбласть("Сек1");
ОбластьАвто = Макет.ПолучитьОбласть("Сек2");
ОбластьСлужба = Макет.ПолучитьОбласть("Сек3");
ТЗ=Новый ТаблицаЗначений;
ТЗ.Колонки.Добавить("Организация");
ТЗ.Колонки.Добавить("Автомобиль");
ТЗ.Колонки.Добавить("ПутевойЛист");
ТЗ.Колонки.Добавить("ВидРабот");
ТЗ.Колонки.Добавить("ДтИВрНачРабот");
ТЗ.Колонки.Добавить("ДтИВрОконРабот");
ТЗ.Колонки.Добавить("ВрВсего");
ТЗ.Колонки.Добавить("СтоимостьВЧас");
ТЗ.Колонки.Добавить("СтоимостьВсего");
ТЗ.Колонки.Добавить("Сотрудник");
ТЗ.Колонки.Добавить("Служба");
ТЗ.Колонки.Добавить("ДатаНачала");
ТЗ.Колонки.Добавить("ГосНом");
ТЗ1=Новый ТаблицаЗначений;
ТЗ1.Колонки.Добавить("Служба");
Для Каждого Текст из СписокСлужб цикл
Если Текст.Пометка=Истина тогда
Новаястрока=ТЗ1.Добавить();
НоваяСтрока.Служба=СокрЛП(Текст.Представление);
КонецЕсли;
КонецЦикла;
Выборка=Документы.ЭксплуатацияАвто.Выбрать(НачДата,КонДата);
Пока Выборка.Следующий() Цикл
Если Выборка.ПометкаУдаления=Истина тогда Продолжить; КонецЕсли;
Для Каждого Текст1 из Выборка.Авто цикл
Если (Текст1.ТДатаНачала>=НачДата) и (Текст1.ТДатаОкончания<=КонДата) тогда
НоваяСтрока=ТЗ.Добавить();
НоваяСтрока.Организация=СокрЛП(Текст1.ТОрганизация);
111
НоваяСтрока.Автомобиль=СокрЛП(Текст1.ТАвтомобиль);
НоваяСтрока.ПутевойЛист=СокрЛП(Текст1.ТПутевойЛист);
НоваяСтрока.ВидРабот=СокрЛП(Текст1.ТВидРабот);
НоваяСтрока.ДтИВрНачРабот=Формат(Текст1.ТДатаНачала,"ДФ=""дд.ММ.гг
чч.мм""");
НоваяСтрока.ДтИВрОконРабот=Формат(Текст1.ТДатаОкончания,"ДФ=""дд.ММ.гг
чч.мм""");
НоваяСтрока.ВрВсего=СокрЛП(Текст1.ТВсегоВремени);
НоваяСтрока.СтоимостьВЧас=СокрЛП(Текст1.ТСтоимостьВЧас);
НоваяСтрока.СтоимостьВсего=СокрЛП(Текст1.ТСтоимостьВсего);
НоваяСтрока.Сотрудник=СокрЛП(Выборка.Сотрудник);
НоваяСтрока.Служба=СокрЛП(Выборка.Службы);
НоваяСтрока.ДатаНачала=СокрЛП(Выборка.ДатаДокумента); //
НоваяСтрока.ГосНом=СокрЛП(Текст1.ТГосНом);
КонецЕсли;
КонецЦикла;
КонецЦикла;
ном=0;
ТЗ.Сортировать("Служба,ДтИВрНачРабот");
ОбластьЗаголовок.Параметры.Заг="Период с "+
Формат(НачДата,"ДФ=""дд.ММ.гг""")+" по "+Формат(КонДата,"ДФ=""дд.ММ.гг""");
ТабДок.Вывести(ОбластьЗаголовок);
НазваниеСЛ=""; Вр=0; СТ=0;
Для Каждого Текст3 из ТЗ цикл
Знч=ТЗ1.Найти(Текст3.Служба,"Служба");
Если Знч <> Неопределено Тогда
Ном=Ном+1;
Если НазваниеСЛ <>Текст3.Служба тогда
НазваниеСЛ=Текст3.Служба;
ОбластьСлужба.Параметры.НазваниеСЛ=СокрЛП(Текст3.Служба);
ОбластьСлужба.Параметры.СТВсего=Ст+Текст3.СтоимостьВсего;
ТабДок.Вывести(ОбластьСлужба);
112
ОбластьАвто.Параметры.ном=ном;
ОбластьАвто.Параметры.ТОрганизация=СокрЛП(Текст3.Организация);
ОбластьАвто.Параметры.ТАвтомобиль=СокрЛП(Текст3.Автомобиль)+",
"+СокрЛП(Текст3.ГосНом);
ОбластьАвто.Параметры.ТПутевойЛист=СокрЛП(Текст3.ПутевойЛист);
ОбластьАвто.Параметры.ТВидРабот=СокрЛП(Текст3.ВидРабот);
ОбластьАвто.Параметры.ТДатаНачала=ФОрмат(Текст3.ДтИВрНачРабот,"ДФ=""дд.М
М.гг чч.мм""");
ОбластьАвто.Параметры.ТДатаОкончания=Формат(Текст3.ДтИВрОконРабот,"ДФ=""
дд.ММ.гг чч.мм""");
ОбластьАвто.Параметры.ТВрВсего=СокрЛП(Текст3.ВрВсего);
ОбластьАвто.Параметры.ТСтоимостьЧас=СокрЛП(Текст3.СтоимостьВЧас);
ОбластьАвто.Параметры.ТСтоимостьВсего=СокрЛП(Текст3.СтоимостьВсего);
ТабДок.Вывести(ОбластьАвто);
Иначе
ОбластьАвто.Параметры.ном=ном;
ОбластьАвто.Параметры.ТОрганизация=СокрЛП(Текст3.Организация);
ОбластьАвто.Параметры.ТАвтомобиль=СокрЛП(Текст3.Автомобиль);
ОбластьАвто.Параметры.ТПутевойЛист=СокрЛП(Текст3.ПутевойЛист);
ОбластьАвто.Параметры.ТВидРабот=СокрЛП(Текст3.ВидРабот);
ОбластьАвто.Параметры.ТДатаНачала=Формат(Текст3.ДтИВрНачРабот,"ДФ=""дд.М
М.гг чч.мм""");
ОбластьАвто.Параметры.ТДатаОкончания=Формат(Текст3.ДтИВрОконРабот,"ДФ=""
дд.ММ.гг чч.мм""");
ОбластьАвто.Параметры.ТВрВсего=СокрЛП(Текст3.ВрВсего);
ОбластьАвто.Параметры.ТСтоимостьЧас=СокрЛП(Текст3.СтоимостьВЧас);
ОбластьАвто.Параметры.ТСтоимостьВсего=СокрЛП(Текст3.СтоимостьВсего);
ТабДок.Вывести(ОбластьАвто);
КонецЕсли;
ОбластьСлужба.Параметры.СТВсего=Ст+Текст3.СтоимостьВсего;
ОбластьСлужба.Параметры.НазваниеСЛ=СокрЛП(Текст3.Служба);
113
НазваниеСЛ=Текст3.Служба;
КонецЕсли;
КонецЦикла;
ТабДок.Показать("ОтчетПоСлужбамЗаПериод");
КонецПроцедуры