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

Программы на Clarion, шаблоны, библиотеки и пр.
Правила форума
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
Ответить
Niki246
Новичок
Сообщения: 8
Зарегистрирован: 12 Апрель 2012, 14:41

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

Сообщение Niki246 » 13 Апрель 2012, 7:35

В глобальном модуле вставка:
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()
Вложения
qrpt6x.rar
(9.15 КБ) 209 скачиваний
qrpt6x.inc
(854 байт) 290 скачиваний
Представления.rar
Шаблон (в прошлый раз ошибся, вложил уже сгенерированный отчет по данному шаблону)
(11.74 КБ) 212 скачиваний

vgoncharov78
Новичок
Сообщения: 5
Зарегистрирован: 07 Декабрь 2010, 14:44

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

Сообщение vgoncharov78 » 09 Октябрь 2012, 17:40

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

Аватара пользователя
Губин Игорь
Ветеран
Сообщения: 1209
Зарегистрирован: 16 Сентябрь 2005, 15:35
Откуда: Москва

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

Сообщение Губин Игорь » 10 Октябрь 2012, 15:08

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

Аватара пользователя
Артур
Старожил
Сообщения: 297
Зарегистрирован: 01 Июнь 2006, 11:33
Откуда: Новороссийск

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

Сообщение Артур » 09 Ноябрь 2012, 12:07

Губин Игорь писал(а):Напиши сам. Если отчётов не слишком много, то сделать рукописную генерацию RTF не проблема. Я взял для обучения указанный шаблон, а дальше сваял по описанию полную копию отчётов.
Страшновато как то тратить время на применение черного ящика предлагаемой dll.
Я делаю отчеты по такой же технологии без табличной части.
Вобщем то и нужна только одна команда добавления новой строки таблицы.
Может чего подскажешь ?
Любить и обещать ничего не стоит

Аватара пользователя
Губин Игорь
Ветеран
Сообщения: 1209
Зарегистрирован: 16 Сентябрь 2005, 15:35
Откуда: Москва

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

Сообщение Губин Игорь » 09 Ноябрь 2012, 12:42

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

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

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>') ! закрываем таблицу
Это я только кажусь дураком! На самом деле я полный идиот!

Аватара пользователя
Артур
Старожил
Сообщения: 297
Зарегистрирован: 01 Июнь 2006, 11:33
Откуда: Новороссийск

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

Сообщение Артур » 09 Ноябрь 2012, 12:47

Спасибо, попробую
Любить и обещать ничего не стоит

Аватара пользователя
Губин Игорь
Ветеран
Сообщения: 1209
Зарегистрирован: 16 Сентябрь 2005, 15:35
Откуда: Москва

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

Сообщение Губин Игорь » 09 Ноябрь 2012, 13:03

строку с \trowd надо занести в цикл (поправка)
Это я только кажусь дураком! На самом деле я полный идиот!

Ответить