Пример построения отчета ExcelReport

Откройте файл R204.xltx

r204.xltx

Текст

<OPENPIPELINE>

local fld, t, sql, er

// t
// t_TASK  - Задача
// t_ID    - имя объекта
// t_COLOR - цвет
// t_SIZE  - размер
fld := 't_TASK,C,10;t_ID,C,30;t_COLOR,C,20;t_SIZE,N,2'

t := CreateTmpFile( fld, 't', ~IsFreeDel:=true, ~Own:=PrintForm() )

sql := [ Select DISTINCT TASK, IDNAME, FONTCOLOR, SIZE ;
  From r204 ]
SimpleSql( [ Insert into ]+TmpFilePath( t )+[( t_TASK, t_ID, t_COLOR, t_SIZE ) ]+sql, ReflisPath )

( t )->( DbGoTop() )

er := ;
  {;
    { 'Title',       'A1:C3' }, ;
    { 'MasterData',  'A5:C5' }, ;
    { 'GroupHeader', 'A4:C4', '1', 't_TASK' }, ;
    { 'GroupFooter', 'A6:C6', '1', 't_TASK' }  ;
  }


ExcelReport( 'r204.xltx','Лист1', t, , , er )

Смотрите также

Пример построения отчета ExcelReport