Библиотека печати отчетов в RTF

[Niki246]

В глобальном модуле вставка:
include('qrpt6x.inc')

Пример:

if not status(Journal)
Share(Journal)
end
Set(Journal,0)

bind('DatesV',DatesV)
bind('DatesR',DatesR)
bind('RecCount',GLO:RecCount)
bind('RecKolNar',GLO:RecKolNar)
bind('RecKolNar',GLO:RecKolNar)
bind('RecRezRasm',GLO:RecRezRasm)
bind('RecRezRasm1',GLO:RecRezRasm1)
bind('RecUchProk',GLO:RecUchProk)
bind('RecNarSrok',GLO:RecNarSrok)
bind('RecRSrok',GLO:RecRSrok)
bind('RepDopstr',RepDopstr)
bind('Numpp',Numpp)
bind('Prok',Prok)


ch# = OpenRpt('.\TEMPLATE\Ïðåäñòàâëåíèÿ.rtf','.\reports\Ïðåäñòàâëåíèÿ')
WriteBlock('MAIN')
set(JRN6:NumberKey,1)
Numpp=0
Loop until eof(Journal)
Next(Journal)
if clip(evaluate(clip(BRW1::View:Browse{prop:filter})))<>'0'
RepDopstr=JRN:CodeDopSTR
DatesV=Format(JRN:Dates,@d6)
DatesR=Format(JRN:DatesR,@d6)
Numpp+=1
If JRN:RunProcuror
prok=1
else
prok=''
end
WriteBlock('BODY')
end
END
WriteBlock('ITOG')
CloseRpt()

[vgoncharov78]

А под 8-ку нету ?

[Губин Игорь]

Напиши сам. Если отчётов не слишком много, то сделать рукописную генерацию RTF не проблема. Я взял для обучения указанный шаблон, а дальше сваял по описанию полную копию отчётов.

[Артур]

Напиши сам. Если отчётов не слишком много, то сделать рукописную генерацию RTF не проблема. Я взял для обучения указанный шаблон, а дальше сваял по описанию полную копию отчётов.

Страшновато как то тратить время на применение черного ящика предлагаемой dll.
Я делаю отчеты по такой же технологии без табличной части.
Вобщем то и нужна только одна команда добавления новой строки таблицы.
Может чего подскажешь ?

[Губин Игорь]

Попробовал вырезать из программы кусок кода. Вроде не ошибся с закрытием/открытием

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

ExportFile.AddLine('<123><13><10>') ! Начинаем кусок с таблицей 123 это символ {
ExportFile.AddLine('\trowd\intbl\cellx800\cellx3200<13><10>') ! Объявляем начало строки \trowd Запись в таблицу \intbl и размеры ячеек \cell....
Loop ! По строкам
	ExportFile.AddLine('<123>\ql\f0\fs18 ' & ExportFile.StringToRTF('текст 1') & '\cell}')    ! Запись ячейки { \cell} Обрати внимание на то, что текст должен быть перекодирован в символы
	ExportFile.AddLine('<123>\ql\f0\fs18 ' & ExportFile.StringToRTF('текст 2') & '\cell}')    ! Запись ячейки { \cell} Обрати внимание на то, что текст должен быть перекодирован в символы
	ExportFile.AddLine('\row<13><10>') ! закрываем строку
End
ExportFile.AddLine('}\pard\par<13><10>') ! закрываем таблицу

[Артур]

Спасибо, попробую

[Губин Игорь]

строку с \trowd надо занести в цикл (поправка)