Материал: Автоматизация учета рабочего времени сотрудников компании ООО "Фольксваген Групп Рус"

Скачать

Заказать новую работу

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
91
ПРИЛОЖЕНИЕ 1
Листинг печатной формы и отчетов
ВЫБРАТЬ
Журнал.Номер,
Журнал.Дата,
Журнал.Отдел.Наименование,
Журнал.КЖурналу.(
ФИО.Наименование,
ВремяПрихода,
ВремяУхода,
Примечание
)
ИЗ
Справочник.Сотрудники КАК Сотрудники,
Документ.Журнал КАК Журнал
ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Отделы КАК Отделы
ПО Журнал.Отдел = Отделы.Ссылка
&НаКлиенте
Процедура ОбработкаКоманды(ПараметрКоманды,
ПараметрыВыполненияКоманды)
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать_журнала)
ТабДок = Новый ТабличныйДокумент;
Печеть_журнала(ТабДок, ПараметрКоманды);
ТабДок.ОтображатьСетку = Ложь;
ТабДок.Защита = Ложь;
ТабДок.ТолькоПросмотр = Ложь;
ТабДок.ОтображатьЗаголовки = Ложь;
ТабДок.Показать();
//}}
92
КонецПроцедуры
&НаСервере
Процедура Печеть_журнала(ТабДок, ПараметрКоманды)
Документы.Журнал.Печеть_журнала(ТабДок, ПараметрКоманды);
КонецПроцедуры
Процедура Печеть_журнала(ТабДок, Ссылка) Экспорт
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печеть_журнала)
Макет = Документы.Журнал.ПолучитьМакет("Печеть_журнала");
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Журнал.Дата,
| Журнал.Номер,
| Журнал.Отдел,
| Журнал.КЖурналу.(
| НомерСтроки,
| ФИО,
| ВремяПрихода,
| ВремяУхода,
| Подпись,
| Примечание
| )
|ИЗ
| Документ.Журнал КАК Журнал
|ГДЕ
| Журнал.Ссылка В (&Ссылка)";
Запрос.Параметры.Вставить("Ссылка", Ссылка);
93
Выборка = Запрос.Выполнить().Выбрать();
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
Шапка = Макет.ПолучитьОбласть("Шапка");
ОбластьКЖурналуШапка = Макет.ПолучитьОбласть("КЖурналуШапка");
ОбластьКЖурналу = Макет.ПолучитьОбласть("КЖурналу");
Подвал = Макет.ПолучитьОбласть("Подвал");
ТабДок.Очистить();
ВставлятьРазделительСтраниц = Ложь;
Пока Выборка.Следующий() Цикл
Если ВставлятьРазделительСтраниц Тогда
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;
ТабДок.Вывести(ОбластьЗаголовок);
Шапка.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Шапка, Выборка.Уровень());
ТабДок.Вывести(ОбластьКЖурналуШапка);
ВыборкаКЖурналу = Выборка.КЖурналу.Выбрать();
Пока ВыборкаКЖурналу.Следующий() Цикл
ОбластьКЖурналу.Параметры.Заполнить(ВыборкаКЖурналу);
ТабДок.Вывести(ОбластьКЖурналу,
ВыборкаКЖурналу.Уровень());
КонецЦикла;
94
Подвал.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Подвал);
ВставлятьРазделительСтраниц = Истина;
КонецЦикла;
//}}
КонецПроцедуры
Процедура Печать(ТабДок, Ссылка) Экспорт
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
Макет = Документы.Табель.ПолучитьМакет("Печать");
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Табель.Дата,
| Табель.Номер,
| Табель.Ответственный,
| Табель.Отдел,
| Табель.КТабелю.(
| НомерСтроки,
| ФИО,
| День1,
| День2,
| День3,
| День4,
| День5,
| День6,
| День7
| )
95
|ИЗ
| Документ.Табель КАК Табель
|ГДЕ
| Табель.Ссылка В (&Ссылка)";
Запрос.Параметры.Вставить("Ссылка", Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
Шапка = Макет.ПолучитьОбласть("Шапка");
ОбластьКТабелюШапка = Макет.ПолучитьОбласть("КТабелюШапка");
ОбластьКТабелю = Макет.ПолучитьОбласть("КТабелю");
Подвал = Макет.ПолучитьОбласть("Подвал");
ТабДок.Очистить();
ВставлятьРазделительСтраниц = Ложь;
Пока Выборка.Следующий() Цикл
Если ВставлятьРазделительСтраниц Тогда
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;
ТабДок.Вывести(ОбластьЗаголовок);
Шапка.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Шапка, Выборка.Уровень());
ТабДок.Вывести(ОбластьКТабелюШапка);
ВыборкаКТабелю = Выборка.КТабелю.Выбрать();
Пока ВыборкаКТабелю.Следующий() Цикл
Источник: https://baza.diplomsite.ru/previewfile/2438

Смотрите также:

Анализ эффективности инвестиций предприятия на примере ООО «СпецПримСтрой»
Изложение содержания дела, по которому приняты судебные постановления