Very simple ABC Report

Игорь Столяров

Привет всем !

Подскажите пожалуйста, а нет ли у кого-нибудь примера совсем простого ABC отчёта в Source ?
Т.е. надо напечатать несколько строк текста (или картинку), но файлы, window, view, фильтры и т.д. - не нужны.
Но при этом, очень хочется, что бы он поддерживал стандартный Preview отчётов.

Кажется, в SVGraph было, что-то похожее ...

Заранее спасибо !

Yufil

Для начала - без 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)

Yufil

А теперь с ABC.
Если 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)

Игорь Столяров

Спасибо !

Вроде бы то, что нужно. Завтра-с буду пробовать …