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

Программы на Clarion, шаблоны, библиотеки и пр.

Модератор: Дед Пахом

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

Библиотека печати отчетов в 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()
Вложения
qrpt6x.rar
(9.15 КБ) 398 скачиваний
qrpt6x.inc
(854 байт) 660 скачиваний
Представления.rar
Шаблон (в прошлый раз ошибся, вложил уже сгенерированный отчет по данному шаблону)
(11.74 КБ) 401 скачивание
vgoncharov78
Новичок
Сообщения: 7
Зарегистрирован: 07 Декабрь 2010, 14:44
Благодарил (а): 1 раз

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

Сообщение vgoncharov78 »

А под 8-ку нету ?
Аватара пользователя
Губин Игорь
✯ Ветеран ✯
Сообщения: 2301
Зарегистрирован: 16 Сентябрь 2005, 16:35
Откуда: Москва
Поблагодарили: 17 раз

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

Сообщение Губин Игорь »

Напиши сам. Если отчётов не слишком много, то сделать рукописную генерацию RTF не проблема. Я взял для обучения указанный шаблон, а дальше сваял по описанию полную копию отчётов.
Это я только кажусь дураком! На самом деле я полный идиот!
Аватара пользователя
Артур
Ветеран
Сообщения: 329
Зарегистрирован: 01 Июнь 2006, 12:33
Откуда: Новороссийск

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

Сообщение Артур »

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

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

Сообщение Губин Игорь »

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

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

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>') ! закрываем таблицу
Это я только кажусь дураком! На самом деле я полный идиот!
Аватара пользователя
Артур
Ветеран
Сообщения: 329
Зарегистрирован: 01 Июнь 2006, 12:33
Откуда: Новороссийск

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

Сообщение Артур »

Спасибо, попробую
Любить и обещать ничего не стоит
Аватара пользователя
Губин Игорь
✯ Ветеран ✯
Сообщения: 2301
Зарегистрирован: 16 Сентябрь 2005, 16:35
Откуда: Москва
Поблагодарили: 17 раз

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

Сообщение Губин Игорь »

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