Дипломная работа: Автоматизация документооборота в ООО "ЭОС"

Скачать

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

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
98
ОбластьТабличнаяЧасть1 =
Макет.ПолучитьОбласть("ТабличнаяЧасть1");
Подвал = Макет.ПолучитьОбласть("Подвал");
ТабДок.Очистить();
ВставлятьРазделительСтраниц = Ложь;
Пока Выборка.Следующий() Цикл
Если ВставлятьРазделительСтраниц Тогда
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;
ТабДок.Вывести(ОбластьЗаголовок);
Шапка.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Шапка, Выборка.Уровень());
ТабДок.Вывести(ОбластьТабличнаяЧасть1Шапка);
ВыборкаТабличнаяЧасть1 = Выборка.ТабличнаяЧасть1.Выбрать();
Пока ВыборкаТабличнаяЧасть1.Следующий() Цикл
ОбластьТабличнаяЧасть1.Параметры.Заполнить(ВыборкаТабличнаяЧасть1);
ТабДок.Вывести(ОбластьТабличнаяЧасть1,
ВыборкаТабличнаяЧасть1.Уровень());
КонецЦикла;
Подвал.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Подвал);
ВставлятьРазделительСтраниц = Истина;
КонецЦикла;
//}}
КонецПроцедуры
&НаКлиенте
Процедура ОбработкаКоманды(ПараметрКоманды,
ПараметрыВыполненияКоманды)
//{{_КОНСТРУКТОР_ПЕЧАТИ(ПечатьШтатногоРасписания)
ТабДок = Новый ТабличныйДокумент;
ПечатьШтатногоРасписания(ТабДок, ПараметрКоманды);
99
ТабДок.ОтображатьСетку = Ложь;
ТабДок.Защита = Ложь;
ТабДок.ТолькоПросмотр = Ложь;
ТабДок.ОтображатьЗаголовки = Ложь;
ТабДок.Показать();
//}}
КонецПроцедуры
&НаСервере
Процедура ПечатьШтатногоРасписания(ТабДок, ПараметрКоманды)
Документы.ШтатноеРасписание.ПечатьШтатногоРасписания(ТабДок,
ПараметрКоманды);
КонецПроцедуры
Листинг программного кода для формирования табеля учета рабочего
времени
Процедура ПечатьТабеля(ТабДок, Ссылка) Экспорт
//{{_КОНСТРУКТОР_ПЕЧАТИ(ПечатьТабеля)
Макет = Документы.Табель.ПолучитьМакет("ПечатьТабеля");
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Табель.Дата,
| Табель.Номер,
| Табель.Отдел,
| Табель.ТабличнаяЧасть1.(
| НомерСтроки,
| Сотрудник,
| День1,
| День2,
| День3,
100
| День4,
| День5,
| День6,
| День7,
| День8,
| День9,
| День10,
| День11,
| День12,
| День13,
| День14,
| День15,
| День16,
| День17,
| День18,
| День19,
| День20,
| День21,
| День22,
| День23,
| День24,
| День25,
| День26,
| День27,
| День28,
| День29,
| День30,
| День31,
| Праздничные,
| Выходные,
| Больничные,
| Отпуск,
101
| Командировка,
| Опоздание,
| Прогул,
| Примечание
| )
|ИЗ
| Документ.Табель КАК Табель
|ГДЕ
| Табель.Ссылка В (&Ссылка)";
Запрос.Параметры.Вставить("Ссылка", Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
Шапка = Макет.ПолучитьОбласть("Шапка");
ОбластьТабличнаяЧасть1Шапка =
Макет.ПолучитьОбласть("ТабличнаяЧасть1Шапка");
ОбластьТабличнаяЧасть1 =
Макет.ПолучитьОбласть("ТабличнаяЧасть1");
Подвал = Макет.ПолучитьОбласть("Подвал");
ТабДок.Очистить();
ВставлятьРазделительСтраниц = Ложь;
Пока Выборка.Следующий() Цикл
Если ВставлятьРазделительСтраниц Тогда
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;
ТабДок.Вывести(ОбластьЗаголовок);
Шапка.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Шапка, Выборка.Уровень());
102
ТабДок.Вывести(ОбластьТабличнаяЧасть1Шапка);
ВыборкаТабличнаяЧасть1 = Выборка.ТабличнаяЧасть1.Выбрать();
Пока ВыборкаТабличнаяЧасть1.Следующий() Цикл
ОбластьТабличнаяЧасть1.Параметры.Заполнить(ВыборкаТабличнаяЧасть1);
ТабДок.Вывести(ОбластьТабличнаяЧасть1,
ВыборкаТабличнаяЧасть1.Уровень());
КонецЦикла;
Подвал.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Подвал);
ВставлятьРазделительСтраниц = Истина;
КонецЦикла;
//}}
КонецПроцедуры
&НаКлиенте
Процедура ОбработкаКоманды(ПараметрКоманды,
ПараметрыВыполненияКоманды)
//{{_КОНСТРУКТОР_ПЕЧАТИ(ПечатьТабеля)
ТабДок = Новый ТабличныйДокумент;
ПечатьТабеля(ТабДок, ПараметрКоманды);
ТабДок.ОтображатьСетку = Ложь;
ТабДок.Защита = Ложь;
ТабДок.ТолькоПросмотр = Ложь;
ТабДок.ОтображатьЗаголовки = Ложь;
ТабДок.Показать();
//}}
КонецПроцедуры
Источник: https://baza.diplomsite.ru/previewfile/612

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

!Контрольная работа (задание)
1 Понятие
1112
1119
1131
1302
2
2
2.ОМК.6112.Апарина О. А.
2392