Печать очереди напрямую

Обсуждение извечных проблем кларионовских (и не только) отчетов

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

Правила форума
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
Ответить
optron
Активист
Сообщения: 114
Зарегистрирован: 29 Март 2006, 10:53
Откуда: Саранск
Контактная информация:

Печать очереди напрямую

Сообщение optron »

С55 EE АВС
Добрый день.
Возник вот какой вопрос:

Формируем очередь для печати. Ну, например PrintQueue.
Сейчас вывожу её на печать стандартным репортом через временный tps файл.
Всё бы хорошо, но этот tps файл абсолютно не нужен - открывай его, записывай, выводи на печать и стирай. Причем, абсолютно ненужное торможение при add записей в файл.
Хотелось бы как то сформировать стандартный репорт, но вместо файла использовать PrintQueue. Возможно ли это?

Заранее спасибо.
Алексей- Софт-Центр
Ветеран
Сообщения: 390
Зарегистрирован: 26 Август 2009, 12:41
Откуда: Moscow
Контактная информация:

Re: Печать очереди напрямую

Сообщение Алексей- Софт-Центр »

Добрый день!
Создай один файл с одной записью.
Его используй в качестве основного файла в схеме процедуры report.
В embed before print detail
поставь цикл работы с очередью и print(rpt:detail)
ну и другие print
В конце этой вставки :
if 2=3 then
Во вставку: after print detail
end

Алексей
optron
Активист
Сообщения: 114
Зарегистрирован: 29 Март 2006, 10:53
Откуда: Саранск
Контактная информация:

Re: Печать очереди напрямую

Сообщение optron »

Спасибо. Буду пробовать.
kreator
✯ Ветеран ✯
Сообщения: 4960
Зарегистрирован: 28 Май 2009, 15:54
Откуда: Москва
Благодарил (а): 6 раз
Поблагодарили: 19 раз

Re: Печать очереди напрямую

Сообщение kreator »

А если так. Очередь всё равно ведь на основе какой-то таблицы. В репорте задаём эту таблицу, а в точке вставки Take Record сделать обращение к очереди.
We are hard at work… for you. :)
optron
Активист
Сообщения: 114
Зарегистрирован: 29 Март 2006, 10:53
Откуда: Саранск
Контактная информация:

Re: Печать очереди напрямую

Сообщение optron »

Очередь на основе MySQL таблицы.
Кстати, после селекта RECORDS(Sqlfile)=0. На самом деле, всё вытягивается нормально.
Может можно как то узнать кол-во записей в Sqlfile без тупого перебора со счетчиком?
kreator
✯ Ветеран ✯
Сообщения: 4960
Зарегистрирован: 28 Май 2009, 15:54
Откуда: Москва
Благодарил (а): 6 раз
Поблагодарили: 19 раз

Re: Печать очереди напрямую

Сообщение kreator »

У меня FireBird сейчвс. RECORDS(Sqlfile) работает без проблем. Может Sqlfile к этому времени закрыт?
Можно ещё сделать так:
Sqlfile{prop:SQL} = 'count(*) from MyFile'
next(Sqlfile)
Только в Sqlfile первое поле должно быть long.
We are hard at work… for you. :)
Ответить