Синтаксис
procedure ToExcel(AFileName: string; ATimeBegin, ATimeEnd: TDateTime; AExportType: TM_MessageExportType; APrint: Boolean);
Описание
Экспортирует состояния сообщения за выбранный период в Excel-файл на сервере. Для работы данной процедуры, на ПК-сервере должен быть установлен MS Excel. Файл сохраняется в папку "\Имя_Проекта\Exports". Процедура доступна в версиях Standard и Professional.
Параметр |
Описание |
|---|---|
AFileName |
Имя файла для экспорта. Если файл с таким именем уже существует, то он будет заменен. Если имя пустое (= ''), то имя файла будет сгенерировано на основе текущего времени, в виде: "hh.mm.ss (zzz)" |
ATimeBegin |
Начало интервала |
ATimeEnd |
Конец интервала |
AExportType |
Определяет в каком виде будут импортироваться значения. Имеет тип TM_MessageExportType. |
APrint |
Распечатать файл |
Пример кода
var
aBegin, aEnd: TDateTime;
begin
aEnd := Now; // конец интервала: текущая дата
aBegin := IncDay(aEnd, -1); // начало интервала: текущая дата – 1 день
// экспортировать в Excel все состояния сообщения "Message1", кроме обычных
Message1.ToExcel('', aBegin, aEnd, emtNoMessage, True);
end.