Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- &НаКлиенте
- Процедура СформироватьОтчет(Команда)
- //Если Тогда
- ТабличныйДокумент=СформироватьОтчетНаСервере();
- //КонецЕсли
- КонецПроцедуры
- &НаСервереБезКонтекста
- Функция СформироватьОтчетНаСервере()
- ТабличныйДокумент=Новый ТабличныйДокумент();
- Макет=Отчеты.ОтчетОсновнойДеятельностиПодразделения.ПолучитьМакет("Макет");
- Шапка=Макет.ПолучитьОбласть("Шапка");
- Тело=Макет.ПолучитьОбласть("Тело");
- Запрос = Новый Запрос;
- Запрос.Текст =
- "ВЫБРАТЬ
- | ПриказыПоОсновнойДеятельности.Дата,
- | ПриказыПоОсновнойДеятельности.Исполнитель.Фамилия как Фамилия,
- | ПриказыПоОсновнойДеятельности.Приказ.Номер как НомерПриказа,
- | ПриказыПоОсновнойДеятельности.КраткоеОписание как Содержание,
- | ПриказыПоОсновнойДеятельности.ДатаИсполнения как ДатаИсполнения,
- | ПриказыПоОсновнойДеятельности.Дата как ДатаСоздания,
- | ПриказыПоОсновнойДеятельности.СостояниеПриказа как СтатусПриказа
- |ИЗ
- | Документ.ПриказыПоОсновнойДеятельности КАК ПриказыПоОсновнойДеятельности
- |ГДЕ
- | ДатаСоздания МЕЖДУ &С и &По1";
- Запрос.Параметры.Вставить("С", С);
- Запрос.Параметры.Вставить("По1", По1);
- Шапка.Параметры.С = Формат(С,"ДФ=dd.MM.yyyy");
- Шапка.Параметры.ПО = Формат(По1,"ДФ=dd.MM.yyyy");
- //Запрос.УстановитьПараметр("Подразделение",Подразделение);
- Выборка = Запрос.Выполнить().Выбрать();
- ВставлятьРазделительСтраниц = Ложь;
- Пока Выборка.Следующий() Цикл
- Если ВставлятьРазделительСтраниц Тогда
- ТабличныйДокумент.ВывестиГоризонтальныйРазделительСтраниц();
- КонецЕсли;
- Шапка.Параметры.Заполнить(Выборка);
- Шапка.Параметры.С = ФОРМАТ(Шапка.Параметры.С, "ДФ=dd.MM.yyyy");
- Шапка.Параметры.По = ФОРМАТ(Шапка.Параметры.По, "ДФ=dd.MM.yyyy");
- ТабличныйДокумент.Вывести(Шапка);
- Тело.Параметры.Заполнить(Выборка);
- Тело.Параметры.ДатаСоздания = ФОРМАТ(Тело.Параметры.ДатаСоздания, "ДФ=dd.MM.yyyy");
- Тело.Параметры.ДатаИсполнения = ФОРМАТ(Тело.Параметры.ДатаИсполнения, "ДФ=dd.MM.yyyy");
- ТабличныйДокумент.Вывести(Тело, Выборка.Уровень());
- ВставлятьРазделительСтраниц = Истина;
- КонецЦикла;
- Возврат (ТабличныйДокумент);
- КонецФункции
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement