Привет всем !
Подскажите пожалуйста, а нет ли у кого-нибудь примера совсем простого ABC отчёта в Source ?
Т.е. надо напечатать несколько строк текста (или картинку), но файлы, window, view, фильтры и т.д. - не нужны.
Но при этом, очень хочется, что бы он поддерживал стандартный Preview отчётов.
Кажется, в SVGraph было, что-то похожее ...
Заранее спасибо !
Very simple ABC Report
Модератор: Дед Пахом
Правила форума
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
- Игорь Столяров
- Ветеран движения
- Сообщения: 7411
- Зарегистрирован: 07 Июль 2005, 10:19
- Откуда: г. Ростов-на-ДоМу
- Благодарил (а): 16 раз
- Поблагодарили: 49 раз
Very simple ABC Report
Для начала - без ABC
Код: Выделить всё
PrintProc PROCEDURE (Loc:Id,Loc:Control,Loc:SaveMargin) ! Declare Procedure
Report REPORT ...
Detail DETAIL ...
END
END
Q PreviewQueue
CODE
OPEN(Report)
Report{Prop:Preview} = Q.FileName
LOOP ....
PRINT(RPT:DETAIL)
END
ENDPAGE(Report)
Report{PROP:FlushPreview} = True
CLOSE(REPORT)
FREE(Q)
Very simple ABC Report
А теперь с ABC.
Если Clarion не знает, что такое PrintPreViewClass и всё такое,
добавь в модуль пустой report, чтобы всё подключилось
Если Clarion не знает, что такое PrintPreViewClass и всё такое,
добавь в модуль пустой report, чтобы всё подключилось
Код: Выделить всё
T
Test Procedure
....
Previewer PrintPreviewClass
Q PreviewQueue
....
! Возможно, нужно Previewer.init() - у меня есть далеко не везде
OPEN(Report)
Report{Prop:Preview} = Q.FileName
Loop ...
Print(Rpt:Detail)
End
ENDPAGE(Report)
Previewer.AllowUserZoom=1
Previewer.Maximize=1
IF Previewer.Display()
Report{PROP:FlushPreview} = True
End
CLOSE(REPORT)
! Возможно, нужно Previewer.Kill ()
FREE(Q)
- Игорь Столяров
- Ветеран движения
- Сообщения: 7411
- Зарегистрирован: 07 Июль 2005, 10:19
- Откуда: г. Ростов-на-ДоМу
- Благодарил (а): 16 раз
- Поблагодарили: 49 раз
Very simple ABC Report
Спасибо !
Вроде бы то, что нужно. Завтра-с буду пробовать …
Вроде бы то, что нужно. Завтра-с буду пробовать …
За теми кто отстал - не возвращаться. (С) Кодекс