RTF-отчет

Contents

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

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

Расчет

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

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 }

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

Результат формирования

В результате формирования отчета откроется документ Microsoft Word: