XLT шаблоны

Программирование на Атлантисе (VIP, FCOM, ARD), FastReport

Модераторы: m0p3e, edward_K, Модераторы

Ответить
san
Местный житель
Сообщения: 412
Зарегистрирован: 28 апр 2005, 11:34
Откуда: Галактика Млечный Путь

XLT шаблоны

Сообщение san »

В галактике появилась возможность создавать отчеты по XLT шаблонам. Подскажите, как создать свой шаблон с нуля. Что то у меня это не получается, дизайнер не понимает и выдает ошибку 9.
Как задать имя таблицы и имена полей в шаблоне?
Max_Fin
На пенсии
Сообщения: 797
Зарегистрирован: 29 мар 2005, 17:49
Откуда: г. Тюмень
Контактная информация:

Сообщение Max_Fin »

1) Изменение существующих XLT
Берется существующий, модифицируется дизайнером

2) Формирование собственным XLT
Все формирование выполняется кодом
В том числе и создание отчета

Код: Выделить всё

//нужно подключить
#include OfpMacro.vpp
#include xlReport.Vih

interface .........
....
var pXL: XLSRepBuilder;  // объект формирования Excel-отчетов

...

procedure PrintRepData(bMakeXLT: Boolean; sXLTName: String);
{
var sXLSName: String;

   //либо создаем новый шаблон, либо заполяем
   if bMakeXLT sXLSName := pXL.CreateXLT(sXLTName, true);
   else sXLSName := pXL.CreateReport(sXLTName, true);

    // определение таблицы отчета (DBTbl Constructor)
    pXL.CreateTbls(sXLSName);
    pXL.CreateTbl('TBLNAME');

    // объявление полей таблицы
    pXL.CreateTblFld('Field_1');
    pXL.CreateTblFld('Field_2');
    ....
    pXL.CreateTblFld('Field_N');

    if not bMakeXLT
    {
        //тут должен быть цикл
        pXL.ClearTblBuffer;
        pXL.SetTblDateFldValue('Field_1', DDDD);
        pXL.SetTblStringFldValue('Field_2', SSSS);
        ....
        pXL.SetTblNumberFldValue('Field_N', NNNN);
        pXL.InsTblRow;
        //тут должен быть цикл
    }
    pXL.PublishTbl('TBLNAME');
    //создание переменных отчета
    pXL.CreateVar(sXLSName);
    pXL.SetDateVar('Var_1', VD);
    pXL.SetStringVar('Var_2', VS);
    ........
    pXL.SetNumberVar('Var_3', VN);
    pXL.PublishVar;

    pXL.LoadReport(sXLSName);
    pXL.DisConnectExcel;
}
далее использутся дизайнер для создания листа "Отчет"
Жду выхода Вселенная 2.12!
Ответить