В глобальном модуле вставка:
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()
Библиотека печати отчетов в RTF
Программы на Clarion, шаблоны, библиотеки и пр.
Модератор: Дед Пахом
Правила форума
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
Библиотека печати отчетов в RTF
- Вложения
-
- qrpt6x.rar
- (9.15 КБ) 510 скачиваний
-
- qrpt6x.inc
- (854 байт) 755 скачиваний
-
- Представления.rar
- Шаблон (в прошлый раз ошибся, вложил уже сгенерированный отчет по данному шаблону)
- (11.74 КБ) 498 скачиваний
Niki246
-
- Новичок
- Сообщения: 7
- Зарегистрирован: 07 Декабрь 2010, 14:44
- Благодарил (а): 1 раз
vgoncharov78
- Губин Игорь
- Шубуршун
- Сообщения: 2584
- Зарегистрирован: 16 Сентябрь 2005, 16:35
- Откуда: Москва
- Благодарил (а): 3 раза
- Поблагодарили: 26 раз
Re: Библиотека печати отчетов в RTF
Напиши сам. Если отчётов не слишком много, то сделать рукописную генерацию RTF не проблема. Я взял для обучения указанный шаблон, а дальше сваял по описанию полную копию отчётов.
Это я только кажусь дураком! На самом деле я полный идиот!
Губин Игорь
Re: Библиотека печати отчетов в RTF
Страшновато как то тратить время на применение черного ящика предлагаемой dll.Губин Игорь писал(а):Напиши сам. Если отчётов не слишком много, то сделать рукописную генерацию RTF не проблема. Я взял для обучения указанный шаблон, а дальше сваял по описанию полную копию отчётов.
Я делаю отчеты по такой же технологии без табличной части.
Вобщем то и нужна только одна команда добавления новой строки таблицы.
Может чего подскажешь ?
Любить и обещать ничего не стоит
Артур
- Губин Игорь
- Шубуршун
- Сообщения: 2584
- Зарегистрирован: 16 Сентябрь 2005, 16:35
- Откуда: Москва
- Благодарил (а): 3 раза
- Поблагодарили: 26 раз
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>') ! закрываем таблицу
Это я только кажусь дураком! На самом деле я полный идиот!
Губин Игорь
Артур
- Губин Игорь
- Шубуршун
- Сообщения: 2584
- Зарегистрирован: 16 Сентябрь 2005, 16:35
- Откуда: Москва
- Благодарил (а): 3 раза
- Поблагодарили: 26 раз
Re: Библиотека печати отчетов в RTF
строку с \trowd надо занести в цикл (поправка)
Это я только кажусь дураком! На самом деле я полный идиот!
Губин Игорь
Вернуться в «Готовые программы, шаблоны, библиотеки...»
Перейти
- CW
- ↳ CLARION for Windows
- ↳ CLARION for Internet
- ↳ Clarion.NET
- Эксклюзив
- ↳ Приват
- CLARION и...
- ↳ Reports
- ↳ Железо
- ↳ Готовые программы, шаблоны, библиотеки...
- ↳ cJSON
- ↳ LibCurl
- ↳ MAV
- ↳ SQL, Oracle, ...
- ↳ Multi-программирование(Pascal/Delphi, и т.д.)
- ↳ WinDev
- DOS
- ↳ CLARION for DOS
- Разное
- ↳ Новости
- ↳ English
- ↳ Ресурсы
- ↳ Работа
- ↳ Обо всем ...
- ↳ Обсуждение этого Форума (типа, Гостевая книга)