Копировать ссылку на страницу Перейти в предыдущий раздел Перейти в следующий раздел

Постановка задачи

Разработать отчет, который выводит сводку по документам указанного вида, созданным в указанный период.

Расчет

 

// Запросить данные для формирования отчета.

InputData = InputDialogEx("*Вид документа|*Создан от|*Создан по"; 

           Format("|%s|%s"; ArrayOf(BeginOfPeriod();EndOfPeriod())); 

           "Аналитика:ВЭД|Дата|Дата")

DocKind = SubString(InputData;'|'; 1)

DateBegin = SubString(InputData;'|'; 2)

DateEnd = SubString(InputData;'|'; 3)

 

// Выполнить поиск документов по виду и дате создания.

Search = Searches.CreateNew(ckEDocument)

Search.SearchCriteria.Add('ISBEDocKind').Add(DocKind)

Search.SearchCriteria.Add('ISBEDocCreateDate').

                          AddRange(DateBegin; DateEnd)

 

Docs = Search.Execute()

Шаблон

 

// Сформировать шапку документа.

#[РТФЗагОтч()]

 

// Получить запись справочника выбранного вида документа.

DK = References.ВЭД.GetObjectByCode(DocKind)

 

#{\b\fs40\qc Документы вида 

#[DK.Requisites(SYSREQ_NAME).AsString ] \par } \par

 

#{\b\ql От [DateBegin] по [DateEnd] \par } \par

 

// Сформировать заголовок таблицы.

#[РТФШапкаТабл(

    "10;5;3";"\b\qc Документ;\b\qc Автор;\b\qc Дата создания")]

 

// Вывести таблицу.

foreach doc in Docs

  #[РТФСтрТабл(

      "10;5;3";

      Format("%s;%s;%s"; 

ArrayOf(doc.Name; doc.Author.Name; doc.Created)))]

endforeach

 

// Вывести итоги.

#{\par \b\qr Итого: [Docs.Count] \par }

#[РТФКонОтч()]

Как разработать для веб-доступа

В веб-доступе заработает автоматически.

© Компания DIRECTUM, 2018 Сообщество пользователей DIRECTUM
.navbar > a:hover { background: #FFD73B; }