Advertisement
Guest User

Untitled

a guest
Jun 27th, 2016
68
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 3.66 KB | None | 0 0
  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. | Документ.ПриказыПоОсновнойДеятельности КАК ПриказыПоОсновнойДеятельности
  28. |ГДЕ
  29. | ДатаСоздания МЕЖДУ &С и &По1";
  30. Запрос.Параметры.Вставить("С", С);
  31. Запрос.Параметры.Вставить("По1", По1);
  32.  
  33. Шапка.Параметры.С = Формат(С,"ДФ=dd.MM.yyyy");
  34. Шапка.Параметры.ПО = Формат(По1,"ДФ=dd.MM.yyyy");
  35.  
  36. //Запрос.УстановитьПараметр("Подразделение",Подразделение);
  37.  
  38. Выборка = Запрос.Выполнить().Выбрать();
  39. ВставлятьРазделительСтраниц = Ложь;
  40. Пока Выборка.Следующий() Цикл
  41. Если ВставлятьРазделительСтраниц Тогда
  42. ТабличныйДокумент.ВывестиГоризонтальныйРазделительСтраниц();
  43. КонецЕсли;
  44. Шапка.Параметры.Заполнить(Выборка);
  45. Шапка.Параметры.С = ФОРМАТ(Шапка.Параметры.С, "ДФ=dd.MM.yyyy");
  46. Шапка.Параметры.По = ФОРМАТ(Шапка.Параметры.По, "ДФ=dd.MM.yyyy");
  47.  
  48. ТабличныйДокумент.Вывести(Шапка);
  49.  
  50. Тело.Параметры.Заполнить(Выборка);
  51. Тело.Параметры.ДатаСоздания = ФОРМАТ(Тело.Параметры.ДатаСоздания, "ДФ=dd.MM.yyyy");
  52. Тело.Параметры.ДатаИсполнения = ФОРМАТ(Тело.Параметры.ДатаИсполнения, "ДФ=dd.MM.yyyy");
  53. ТабличныйДокумент.Вывести(Тело, Выборка.Уровень());
  54.  
  55. ВставлятьРазделительСтраниц = Истина;
  56. КонецЦикла;
  57.  
  58.  
  59. Возврат (ТабличныйДокумент);
  60. КонецФункции
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement