|
Построение печатных форм на основании rtf шаблона |
  
|
|
Построение печатных форм на основании rtf шаблона |
|
В фабиусе вы можете использовать возможности невизуального компонента EK RTF report.
Автор этого компонента Eugene Kuchugurov. В фабиусе используется версия его программы 3.10. Этот компонент создавался на протяжении 12 лет с 2000 до 2011 года.
Смысл этой программы в том, что вы можете использовать программу WinWord любой версии для подготовки шаблона. Все что необходимо будет сделать - сохранить шаблон в RTF формате. Причем, пользователям даже не обязательно иметь на компьютере Word. По умолчанию на всех компьютерах Windows устанавливается программа WordPad, таким образом, ваш шаблон будет работать на любом компьютере.
Для знакомства с ekrtf откройте справочник R38. Нажмите SHIFT+F9. Найдите бланк EkRTFReport.rtf и нажмите клавишу ENTER. Откройте программу.
<OPENPIPELINE>
local dict, t, fld, sql, t2
dict := { { 'gg', 'Алексей' } }
// t
// t_KOD
// t_NAME
fld := 't_KOD,N,5; t_NAME,C,50; '
t := CreateTmpFile( fld, 't' , ~IsFreeDel := true, ~Own := PrintForm() )
t2 := CreateTmpFile( fld, 't2', ~IsFreeDel := true, ~Own := PrintForm() )
sql := [ Select KOD, Left( PNAME, 50 ) ;
From R38 ]
SimpleSql( [ Insert into ] + TmpFilePath( t ) + [( t_KOD, t_NAME ) ] + sql, ReflisPath )
( t )->( DbGoTop() )
sql := [ Select TOP 100 PERCENT t_KOD, t_NAME ;
From ] + TmpFilePath( t ) + [ ;
Order by t_NAME ]
SimpleSql( [ Insert into ] + TmpFilePath( t2 ) + [( t_KOD, t_NAME ) ] + sql, ReflisPath )
( t2 )->( DbGoTop() )
EkRtfReport( 'EkRTFReport.rtf', { t, t2 }, dict )
Найдите на диске в папке Fabius\Reflis\Template файл EkRTFReport.rtf
Внутри него написано следующее
Привет, \ gg \
Сортировка по коду
Код |
Наименование |
\ scan( t ) \
\ t : t_KOD \ |
\ t : t_NAME \ |
\ endscan \
Сортировка по алфавиту
Код |
Наименование |
\ scan( t2 ) \
\ t2 : t_KOD \ |
\ t2 : t_NAME \ |
\ endscan \
Дополнительные примеры вы можете найти на сайте http://www.128byte.ru/