Пример построения отчета ExcelReport — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м |
||
| (не показано 5 промежуточных версий этого же участника) | |||
| Строка 1: | Строка 1: | ||
| + | Откройте файл '''[[R204]].xltx''' | ||
| + | [https://drive.google.com/open?id=1252RNklvxpqGpSnRkzNeDd1rGi7A0eWL r204.xltx] | ||
| + | [[Файл:2018-05-30 11-23-38.png]] | ||
| + | = Текст = | ||
| + | <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 ) | ||
| + | |||
| + | |||
| + | |||
= Смотрите также = | = Смотрите также = | ||
[https://sftserv.ru/help/excelreport_r204.htm Пример построения отчета ExcelReport] | [https://sftserv.ru/help/excelreport_r204.htm Пример построения отчета ExcelReport] | ||
Текущая версия на 11:25, 30 мая 2018
Откройте файл 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 )
