3.6 Проектирование отчета о произведенных работах

В целях автоматизации формирования отчета о произведенных работах, предоставляемого заказчикам был разработан "Отчет о работе".

Экранная форма для ввода данных при формировании отчета о работе представлена на рис.3.22.

Рис.3.22 - Экранная форма для формирования отчета о работе

В экранной форме отчета о работе присуттсвуют поля ввода: "Дата начала периода" - для ввода даты начала периода за который необходимо сформировать отчет, "Дата конца периода" - для ввода даты конца периода за который необходимо сформировать отчет, "Заказчик" - поле выбора заказчика, заявки которого собираются в отчет, "Исполнитель" - поле выбора исполнителя работ заявки которого необходимо собрать в отчет.

Если поля ввода "Заказчик" не заполнено то отчет формируется по всем заказчикам, аналогично отчет работает с незаполненным полем "Исполнитель". Данные для этих полей берутся из базы данных, введенные в процессе формирования актов работ.

Для удобства пользования программой при открытии экранной формы отчета о работе поля "Дата конца периода" и "Дата начала периода" заполняются, путем автоматического заполнения этих полей датой начала текущего месяца, и датой конца текущего месяца соответственно. Для этого была разработана процедура:

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

ДатаНач = НачалоМесяца (ТекущаяДата ());

ДатаКон = КонецМесяца (ТекущаяДата ());

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

Для запуска формирования отчета необходимо нажать кнопку "Сформировать" находящуюся в левом верхнем углу экранной формы для формирования отчета (см. рис.3.22).

Для формирования отчета была разработана следующая процедура [6,7,8,15]:

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

// /Запрос Начало

ЗОтчОРаб = Новый Запрос;

ЗОтчОРаб. Текст =

"ВЫБРАТЬ

|АктВыпРабот. Дата,

|АктВыпРабот. Ссылка КАК АВР

|ИЗ

|Документ. АктВыпРабот КАК АктВыпРабот

|ГДЕ

| АктВыпРабот. Дата>=&ДатаНач и АктВыпРабот. Дата<=&ДатаКон";

Если Исполнитель <> Справочники. Исполнители. ПустаяСсылка () тогда

ЗОтчОРаб. Текст = ЗОтчОРаб. Текст + " и АктВыпРабот. Исполнитель = &Исполнитель";

ЗОтчОРаб. Параметры. Вставить ("Исполнитель", Исполнитель);

КонецЕсли;

Если Заказчик <> Справочники. Заказчики. ПустаяСсылка () тогда

ЗОтчОРаб. Текст = ЗОтчОРаб. Текст + " и АктВыпРабот. Заказчик = &Заказчик";

ЗОтчОРаб. Параметры. Вставить ("Заказчик", Заказчик);

КонецЕсли;

ЗОтчОРаб. Параметры. Вставить ("ДатаНач", ДатаНач);

ЗОтчОРаб. Параметры. Вставить ("ДатаКон", ДатаКон);

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

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

ТЗРезультат = Новый ТаблицаЗначений;

ТЗРезультат. Колонки. Добавить ("НСм"); //

ТЗРезультат. Колонки. Добавить ("Дата"); //

ТЗРезультат. Колонки. Добавить ("Цех"); //

ТЗРезультат. Колонки. Добавить ("НСкв"); //

ТЗРезультат. Колонки. Добавить ("Месторождение"); //

ТЗРезультат. Колонки. Добавить ("ВрНач"); //

ТЗРезультат. Колонки. Добавить ("ВрКон"); //

ТЗРезультат. Колонки. Добавить ("ВидРабот");

ТЗРезультат. Колонки. Добавить ("Оборудование");

ТЗРезультат. Колонки. Добавить ("НалАкт");

ТЗРезультат. Колонки. Добавить ("НалАрхив");

ТЗРезультат. Колонки. Добавить ("НалТрек");

ДатаСмены = Дата ("19000101");

НомерСмены = 0;

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

НовСтрока = ТЗРезультат. Добавить ();

НовСтрока. Дата = НачалоДня (Выборка. Дата);

Если ДатаСмены <> НачалоДня (Выборка. Дата) тогда

НомерСмены = НомерСмены+1;

ДатаСмены = НачалоДня (Выборка. Дата);

КонецЕсли;

НовСтрока. Нсм = НомерСмены;

НовСтрока. Цех = Выборка. АВР. Объект. Цех;

НовСтрока. НСкв = Выборка. АВР. Объект. НомерСкв;

НовСтрока. Месторождение = Выборка. АВР. Объект. МР;

НовСтрока. ВрНач = Выборка. АВР. ВрНачРаб;

НовСтрока. ВрКон = Выборка. АВР. ВрКонРаб;

Если Выборка. АВР. НалАкт = Истина тогда

НовСтрока. НалАкт = "Есть"

КонецЕсли;

Если Выборка. АВР. НалХр = Истина тогда

НовСтрока. НалАрхив = "Есть"

КонецЕсли;

Если Выборка. АВР. НалГЛ = Истина тогда

НовСтрока. НалТрек = "Есть"

КонецЕсли;

Док = Выборка. АВР;

ТЧР = Док. ТЧРабота;

НовСтрока. ВидРабот = "";

Для Каждого ТекСтрокаТЧР из ТЧР цикл

Если НовСтрока. ВидРабот <> "" тогда

НовСтрока. ВидРабот = НовСтрока. ВидРабот+". "+ТекСтрокаТЧР. ВыпРабота. Наименование;

Иначе

НовСтрока. ВидРабот = ТекСтрокаТЧР. ВыпРабота. Наименование;

КонецЕсли;

КонецЦикла;

ТЧО = Док. ТЧОборудование;

НовСтрока. Оборудование = "";

Для Каждого ТекСтрокаТЧО из ТЧО цикл

НовСтрока. Оборудование = НовСтрока. Оборудование+" "+ТекСтрокаТЧО. Оборудование. Наименование+

" №"+ТекСтрокаТЧО. Оборудование. ЗНомер+" "+Прав (СокрЛП (ТекСтрокаТЧО. Оборудование. ДатаВып),4) +"г. в. ";

КонецЦикла;

// Сообщить (Выборка. АВР. Объект. Наименование+" "+ДатаСмены+" "+НомерСмены);

КонецЦикла;

// /Запрос окончание

// Вывод на печать начало

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

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

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

СекцШапка. Параметры. ДатаНач = ДатаНач;

СекцШапка. Параметры. ДатаКон = ДатаКон;

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

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

номерсм = 0;

Для каждого Строка из ТЗРезультат Цикл

СекцСтрока. Параметры. НСм = Строка. Нсм;

СекцСтрока. Параметры. Дата = Строка. Дата;

СекцСтрока. Параметры. ЦДНГ = Строка. Цех;

СекцСтрока. Параметры. НСкв = Строка. НСкв;

СекцСтрока. Параметры. МР = Строка. Месторождение;

СекцСтрока. Параметры. ВрНач = Строка. ВрНач;

СекцСтрока. Параметры. ВрКон = Строка. ВрКон;

СекцСтрока. Параметры. Работы = Строка. ВидРабот;

СекцСтрока. Параметры. Оборудование = Строка. Оборудование;

СекцСтрока. Параметры. ПрАкт = Строка. НалАкт;

СекцСтрока. Параметры. ПрАрхив = Строка. НалАрхив;

СекцСтрока. Параметры. ПрГлонасс = Строка. НалТрек;

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

КонецЦикла;

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

ТабДок. Защита = Ложь;

ТабДок. ТолькоПросмотр = Истина;

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

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

// Вывод на печать окончание

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

Результатом данной процедуры является вывод готовой печатной формы данного отчета (рис.3.23).

Рис.3.23 - Вид сформированного отчета для печати

Для удобства предоставления документов по электронной почте в программе существует возможность сохранения готовой печатной формы документа в файлы форматов: *. xlsx, *. docx, *. pdf, *. odf.

Для сохранения печатной формы документа в файл любого из вышеуказанных форматов необходимо в меню "Файл" системы, выбрать пункт "Сохранить как…", В результате появится диалоговое окно сохранения файла показанное на рис.3.17

Таким образом, разработанный програмный модуль позволяет уменьшить количество вводимой информации, т.к. используются уже существующие справочники, в которых сохраняется уже введенные данные. Разработанные формы позволяют добавлять данные в эти справочники и просматривать их. Созданные процедуры позволяют автоматически передавать данные для формирования необходимых актов произведенных работ, а также получать печатные их копии.

В диалоге сохранения необходимо выбрать папку сохранения файла, ввести имя файла и выбрать необходимый формат. После чего нажать кнопку сохранить.

Заключение