107
Печатная форма документа учета командировок «Отчет
командировок»
Форма документа «Учет командировок» вызов отчетов
108
Отчетная форма документа учета командировок с выбором группы
«Пункт назначения»
Отчетная форма документа учета командировок с расшифровкой
«Пункт назначения»
109
Форма документа «Табель» с выборкой граф для списка
Форма документа «Табель» - список
110
ПРИЛОЖЕНИЕ 12
Листинги программного кода
Листинг программного кода для формирования Сотрудники
Процедура ПечатьСотрудники(ТабДок, Ссылка) Экспорт
//{{_КОНСТРУКТОР_ПЕЧАТИ(Сотрудники)
Макет = Справочники.Сотрудники.ПолучитьМакет("Сотрудники");
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Сотрудники.ТабличнаяЧасть1.(
| НомерСтроки,
| Сотрудник.ФИО,
| Должность.Наименование
| Отдел.Наименование
| Паспорт,
| Телефон,
| ДатаРождения,
| ИНН,
| СНИЛС,
| Пол,
| Примечание,
| )
|ИЗ
| Справочника.Сотрудники КАК Сотрудники
|ГДЕ
| Сотрудники.Ссылка В (&Ссылка)";
Запрос.Параметры.Вставить("Ссылка", Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
111
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
ОбластьТабличнаяЧасть1 =
Макет.ПолучитьОбласть("ТабличнаяЧасть1");
Подвал = Макет.ПолучитьОбласть("Подвал");
ТабДок.Очистить();
ВставлятьРазделительСтраниц = Ложь;
Пока Выборка.Следующий() Цикл
Если ВставлятьРазделительСтраниц Тогда
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;
ТабДок.Вывести(ОбластьЗаголовок);
ВыборкаТабличнаяЧасть1 =
Выборка.ТабличнаяЧасть1.Выбрать();
Пока ВыборкаТабличнаяЧасть1.Следующий() Цикл
ОбластьТабличнаяЧасть1.Параметры.Заполнить(ВыборкаТабличнаяЧасть
1);
ТабДок.Вывести(ОбластьТабличнаяЧасть1,
ВыборкаТабличнаяЧасть1.Уровень());
КонецЦикла;
Подвал.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Подвал);
ВставлятьРазделительСтраниц = Истина;
КонецЦикла;
//}}
КонецПроцедуры
&НаКлиенте
112
Процедура ОбработкаКоманды(ПараметрКоманды,
ПараметрыВыполненияКоманды)
//{{_КОНСТРУКТОР_ПЕЧАТИ(Сотрудники)
ТабДок = Новый ТабличныйДокумент;
ПечатьСотрудники(ТабДок, ПараметрКоманды);
ТабДок.ОтображатьСетку = Ложь;
ТабДок.Защита = Ложь;
ТабДок.ТолькоПросмотр = Ложь;
ТабДок.ОтображатьЗаголовки = Ложь;
ТабДок.Показать();
//}}
КонецПроцедуры
&НаСервере
Процедура ПечатьСотрудники(ТабДок, ПараметрКоманды)
Справочники.Сотрудники.ПечатьСотрудники(ТабДок,
ПараметрКоманды);
КонецПроцедуры
Листинг программного кода для формирования табеля учета рабочего
времени.
Процедура ПечатьТабеля(ТабДок, Ссылка) Экспорт
//{{_КОНСТРУКТОР_ПЕЧАТИ(ПечатьТабеля)
Макет = Документы.Табель.ПолучитьМакет("ПечатьТабеля");
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Табель.Дата,
| Табель.Номер,
| Табель.Отдел,
| Табель.ТабличнаяЧасть1.(
113
| НомерСтроки,
| Сотрудник,
| День1,
| День2,
| День3,
| День4,
| День5,
| День6,
| День7,
| День8,
| День9,
| День10,
| День11,
| День12,
| День13,
| День14,
| День15,
| День16,
| День17,
| День18,
| День19,
| День20,
| День21,
| День22,
| День23,
| День24,
| День25,
| День26,
| День27,
114
| День28,
| День29,
| День30,
| День31,
| Праздничные,
| Выходные,
| Больничные,
| Отпуск,
| Командировка,
| Опоздание,
| Прогул,
| Примечание
| )
|ИЗ
| Документ.Табель КАК Табель
|ГДЕ
| Табель.Ссылка В (&Ссылка)";
Запрос.Параметры.Вставить("Ссылка", Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
Шапка = Макет.ПолучитьОбласть("Шапка");
ОбластьТабличнаяЧасть1Шапка =
Макет.ПолучитьОбласть("ТабличнаяЧасть1Шапка");
ОбластьТабличнаяЧасть1 =
Макет.ПолучитьОбласть("ТабличнаяЧасть1");
Подвал = Макет.ПолучитьОбласть("Подвал");
ТабДок.Очистить();
ВставлятьРазделительСтраниц = Ложь;
115
Пока Выборка.Следующий() Цикл
Если ВставлятьРазделительСтраниц Тогда
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;
ТабДок.Вывести(ОбластьЗаголовок);
Шапка.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Шапка, Выборка.Уровень());
ТабДок.Вывести(ОбластьТабличнаяЧасть1Шапка);
ВыборкаТабличнаяЧасть1 =
Выборка.ТабличнаяЧасть1.Выбрать();
Пока ВыборкаТабличнаяЧасть1.Следующий() Цикл
ОбластьТабличнаяЧасть1.Параметры.Заполнить(ВыборкаТабличнаяЧасть
1);
ТабДок.Вывести(ОбластьТабличнаяЧасть1,
ВыборкаТабличнаяЧасть1.Уровень());
КонецЦикла;
Подвал.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Подвал);
ВставлятьРазделительСтраниц = Истина;
КонецЦикла;
//}}
КонецПроцедуры
&НаКлиенте
Процедура ОбработкаКоманды(ПараметрКоманды,
ПараметрыВыполненияКоманды)
116
//{{_КОНСТРУКТОР_ПЕЧАТИ(ПечатьТабеля)
ТабДок = Новый ТабличныйДокумент;
ПечатьТабеля(ТабДок, ПараметрКоманды);
ТабДок.ОтображатьСетку = Ложь;
ТабДок.Защита = Ложь;
ТабДок.ТолькоПросмотр = Ложь;
ТабДок.ОтображатьЗаголовки = Ложь;
ТабДок.Показать();
//}}
КонецПроцедуры
&НаСервере
Процедура ПечатьТабеля(ТабДок, ПараметрКоманды)
Документы.Табель.ПечатьТабеля(ТабДок, ПараметрКоманды);
КонецПроцедуры