In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

TReport Documentation ???

Xailer professional forum in English
Responder
Avatar de Usuario
Dionisis Divaris
Mensajes: 485
Registrado: Jue Jul 12, 2007 8:48 pm
Ubicación: Athens Greece

TReport Documentation ???

Mensaje por Dionisis Divaris »

Hello
I can not find any info abt Treport Class in help !!!!
I need to develop some customers reports .....
Any help would be apreciate..
Regards
Dionisis
T.I.A
Dionisis
SGS-soft
support.sgs@gmail.com
Arriba
Ingo Junge-Herrmann
Mensajes: 339
Registrado: Lun Jul 02, 2007 7:17 pm

TReport Documentation ???

Mensaje por Ingo Junge-Herrmann »

/*
* Xailer source code:
*
* Report.txt
* Clase TReport
*
* Copyright 2003, 2004 Xailer.com
*
*/
Ultima revisión: 2004-10-25 [IOrtiz]
//---------------------------------------------------------- ----------------
Clase para creación de informes básicos de forma NO visual basado en el
generador de informes propiedad de Ignacio Ortiz de Zúñiga utilizado
ampliamente por usuarios de Fivewin
//---------------------------------------------------------- ----------------
Comandos:
REPORT <oReport> [ OF <oParent> ] ;
[ TITLE <bTitle, ...> [ ALIGN <nTitleAlign> ] ] ;
[ HEADER <bHeader, ...> [ ALIGN <nHeaderAlign> ] ] ;
[ FOOTER <bFooter, ...> [ ALIGN <nFooterAlign> ] ] ;
[ FONT <oFont, ...> ] ;
[ PEN <oPen> ] ;
[ <lSummary: SUMMARY> ] ;
[ <lPreview: PREVIEW> [ <lModal: MODAL> ] ;
[ TO PRINTER <oPrinter> ] ;
[ JOBNAME <cJobName> ]
GROUP [ <oRptGrp> ] [ OF <oReport> ] ;
[ ON <bGroup> ] ;
[ HEADER <bHeader> ] ;
[ FOOTER <bFooter> ] ;
[ FONT <nFont> ] ;
[ <lEject:EJECT> ]
COLUMN [ <oRptCol> ] [ OF <oReport> ];
[ TITLE <bTitle, ...> ] ;
[ DATA <bData, ...> ] ;
[ PICTURE <cPicture, ...> ] ;
[ FONT <nFont> ] ;
[ CHARSIZE <nSize> ] ;
[ <lTotal: TOTAL> ] ;
[ ALIGN <nAlign> ]
RUN REPORT <oReport> ;
[ FOR <bFor> ] ;
[ WHILE <bWhile> ] ;
[ ON INIT <OnInit> ] ;
[ ON END <OnEnd> ] ;
[ ON POSTEND <OnPostEnd> ] ;
[ ON STARTPAGE <OnStartPage> ] ;
[ ON ENDPAGE <OnEndPage> ] ;
[ ON POSTPAGE <OnPostPage> ] ;
[ ON STARTGROUP <OnStartGroup> ] ;
[ ON ENDGROUP <OnEndGroup> ] ;
[ ON POSTGROUP <OnPostGroup> ] ;
[ ON STARTLINE <OnStartLine> ] ;
[ ON ENDLINE <OnEndLine> ] ;
[ ON CHANGE <OnChange> ] ;
[ ON CHANGED <OnChanged> ]
//---------------------------------------------------------- ----------------
CLASS TReport
PUBLISHED:
PROPERTY oParent // Parent object
PROPERTY oDevice INIT Printer // Printer object
PROPERTY oTitle // TRptLine object for title
PROPERTY oHeader // TRptLine object for header
PROPERTY oFooter // TRptLine object for footer
PROPERTY oPen // Pen object for lines
PROPERTY aGroups INIT {} // Array of TRptGroup objects
PROPERTY aColumns INIT {} // Array of TRptColumn objects
PROPERTY aFonts INIT {} // Array of TFont objects
PROPERTY bFor INIT {|| .T. }
PROPERTY bWhile INIT {|| !Eof() }
PROPERTY bSkip
PROPERTY cJobName INIT "Xailer Report"
PROPERTY cPageTotal INIT ""
PROPERTY cGrandTotal INIT ""
PROPERTY nTitleUpLine INIT rlDOUBLE VALUES rlNONE, rlSINGLE, rlDOUBLE
PROPERTY nTitleDnLine INIT rlDOUBLE VALUES rlNONE, rlSINGLE, rlDOUBLE
PROPERTY nTotalLine INIT rlDOUBLE VALUES rlNONE, rlSINGLE, rlDOUBLE
PROPERTY nGroupLine INIT rlSINGLE VALUES rlNONE, rlSINGLE, rlDOUBLE
PROPERTY nGridStyle INIT rgNONE VALUES rgNONE, rgVERTICAL, rgHORIZONTAL, rgBOTH
PROPERTY nTopMargin INIT 100 // In Himetrics (1 Centimeter)
PROPERTY nPage INIT 1
PROPERTY lSummary INIT .f.
PROPERTY lPreview INIT .f.
PROPERTY lPreviewModal INIT .t.
PROPERTY lPageTotal INIT .t.
PROPERTY lAutoLand INIT .t.
PROPERTY Cargo
PUBLIC:
DATA nCounter INIT 0
DATA nSeparator INIT 0 // In pixels
DATA nLineHeight INIT 0 // In pixels
DATA lTotal INIT .f.
DATA lCancel INIT .f.
PUBLISHED:
EVENT OnInit( oSender )
EVENT OnEnd( oSender )
EVENT OnPostEnd( oSender )
EVENT OnStartLine( oSender, nHeight )
EVENT OnEndLine( oSender, nHeight )
EVENT OnStartPage( oSender )
EVENT OnEndPage( oSender )
EVENT OnPostPage( oSender )
EVENT OnStartGroup( oSender, oGroup )
EVENT OnEndGroup( oSender, oGroup )
EVENT OnPostGroup( oSender, oGroup )
EVENT OnChange( oSender )
EVENT OnChanged( oSender )
PUBLIC:
METHOD New( oParent ) CONSTRUCTOR
METHOD Create( oParent ) CONSTRUCTOR
METHOD AddColumn( oCol )
METHOD DelColumn( nCol )
METHOD AddGroup( oGroup )
METHOD DelGroup( nGroup )
METHOD Adjust()
METHOD Run()
METHOD End()
METHOD StartLine( nHeight )
METHOD EndLine( nHeight )
METHOD NeedNewPage( nHeight )
METHOD NewPage()
METHOD NewLine( nHeight )
METHOD LinesLeft()
METHOD BackLine( nLine )
METHOD Finished()
METHOD AreGroups()
ENDCLASS
//---------------------------------------------------------- ----------------
//---------------------------------------------------------- ----------------
//---------------------------------------------------------- ----------------
//---------------------------------------------------------- ----------------
//---------------------------------------------------------- ----------------
CLASS TRptColumn
PUBLISHED:
PROPERTY oReport // Report object
PROPERTY aData // Array of codeblocks for Data columns
PROPERTY aTitle // Array of codeblocks for Title columns
PROPERTY aPicture // Array of picture formats for Data columns
PROPERTY nAlignment INIT taLEFT // style alignment
PROPERTY nDataFont INIT 1 // Font for Data
PROPERTY nTitleFont INIT 1 // Font for Title
PROPERTY nTotalFont INIT 1 // Font for Total
PROPERTY nClrText INIT clBlack // Text color
PROPERTY nCharSize INIT 0 // Size in Chars
PROPERTY cTotalPict INIT "" // Picture for Total
PROPERTY lTotal INIT .f. // Totalize
PROPERTY Cargo
EVENT OnPrintData( oSender, nLine, cText, nFont, nColor ) // cText, nFont and nColor byRef
EVENT OnPrintTitle( oSender, nLine, cText, nFont, nColor ) // cText, nFont and nColor byRef
EVENT OnPrintTotal( oSender, cText, nFont, nColor ) // cText, nFont and nColor byRef
PUBLIC:
DATA Value
DATA nWidth, nDataHeight, nTitleHeight, nTotal, nCol, nOrder, nCurLine
METHOD New( oReport ) CONSTRUCTOR
METHOD Create( oReport ) CONSTRUCTOR
METHOD PrintTitle( nRow, nCol, nLine )
METHOD PrintData( nRow, nCol, nLine )
METHOD PrintTotal( nRow, nCol )
ENDCLASS
//---------------------------------------------------------- ----------------
//---------------------------------------------------------- ----------------
//---------------------------------------------------------- ----------------
//---------------------------------------------------------- ----------------
//---------------------------------------------------------- ----------------
CLASS TRptLine
PUBLISHED:
PROPERTY oReport // Report object
PROPERTY aLine // Array of codeblocks that return lines of text
PROPERTY aAlignment // Array of style alignment for every line in aLines
PROPERTY aFonts // Array of numeric font to use for every line in aLines
PROPERTY nColor INIT clBlack
PROPERTY Cargo
EVENT OnPrintLine( oSender, nLine, cText, nFont, nColor ) // cText, nFont and nColor byRef
PUBLIC:
DATA aRow, aWidth
DATA nCol, nHeight, nWidth
METHOD New( oReport ) CONSTRUCTOR
METHOD Create( oReport, aLine, nAlignment, cType ) CONSTRUCTOR
METHOD AddLine( bLine, nAlignment )
METHOD Adjust( nFirstRow, nFirstCol )
METHOD Print( nStartRow )
ENDCLASS
//---------------------------------------------------------- ----------------
//---------------------------------------------------------- ----------------
//---------------------------------------------------------- ----------------
//---------------------------------------------------------- ----------------
//---------------------------------------------------------- ----------------
CLASS TRptGroup
PUBLISHED:
PROPERTY oReport
PROPERTY bGroup INIT {|| ""}
PROPERTY bHeader INIT {|| ""}
PROPERTY bFooter INIT {|| "Total..."}
PROPERTY nFont INIT 1
PROPERTY nClrText INIT clBlack
PROPERTY lEject INIT .f.
PROPERTY Cargo
EVENT OnPrintTotal( oSender ,cText, nFont, nColor ) // cText, nFont and nColor byRef
EVENT OnPrintHeader( oSender, cText, nFont, nColor ) // cText, nFont and nColor byRef
EVENT OnPrintFooter( oSender, cText, nFont, nColor ) // cText, nFont and nColor byRef
PUBLIC:
DATA nCounter INIT 0
DATA aTotal
DATA cValue, cOldValue
DATA nHeaderHeight, nFooterHeight, nOrder
DATA lNeedStart, lHeader, lFooter
METHOD New( oReport ) CONSTRUCTOR
METHOD Create( oReport ) CONSTRUCTOR
METHOD PrintHeader( nRow )
METHOD PrintFooter( nRow )
METHOD PrintTotal( nRow )
ENDCLASS
Arriba
Ingo Junge-Herrmann
Mensajes: 339
Registrado: Lun Jul 02, 2007 7:17 pm

TReport Documentation ???

Mensaje por Ingo Junge-Herrmann »

/*
* Xailer source code:
*
* Report.txt
* Clase TReport
*
* Copyright 2003, 2004 Xailer.com
*
*/
Ultima revisión: 2004-10-25 [IOrtiz]
//---------------------------------------------------------- ----------------
Clase para creación de informes básicos de forma NO visual basado en el
generador de informes propiedad de Ignacio Ortiz de Zúñiga utilizado
ampliamente por usuarios de Fivewin
//---------------------------------------------------------- ----------------
Comandos:
REPORT <oReport> [ OF <oParent> ] ;
[ TITLE <bTitle, ...> [ ALIGN <nTitleAlign> ] ] ;
[ HEADER <bHeader, ...> [ ALIGN <nHeaderAlign> ] ] ;
[ FOOTER <bFooter, ...> [ ALIGN <nFooterAlign> ] ] ;
[ FONT <oFont, ...> ] ;
[ PEN <oPen> ] ;
[ <lSummary: SUMMARY> ] ;
[ <lPreview: PREVIEW> [ <lModal: MODAL> ] ;
[ TO PRINTER <oPrinter> ] ;
[ JOBNAME <cJobName> ]
GROUP [ <oRptGrp> ] [ OF <oReport> ] ;
[ ON <bGroup> ] ;
[ HEADER <bHeader> ] ;
[ FOOTER <bFooter> ] ;
[ FONT <nFont> ] ;
[ <lEject:EJECT> ]
COLUMN [ <oRptCol> ] [ OF <oReport> ];
[ TITLE <bTitle, ...> ] ;
[ DATA <bData, ...> ] ;
[ PICTURE <cPicture, ...> ] ;
[ FONT <nFont> ] ;
[ CHARSIZE <nSize> ] ;
[ <lTotal: TOTAL> ] ;
[ ALIGN <nAlign> ]
RUN REPORT <oReport> ;
[ FOR <bFor> ] ;
[ WHILE <bWhile> ] ;
[ ON INIT <OnInit> ] ;
[ ON END <OnEnd> ] ;
[ ON POSTEND <OnPostEnd> ] ;
[ ON STARTPAGE <OnStartPage> ] ;
[ ON ENDPAGE <OnEndPage> ] ;
[ ON POSTPAGE <OnPostPage> ] ;
[ ON STARTGROUP <OnStartGroup> ] ;
[ ON ENDGROUP <OnEndGroup> ] ;
[ ON POSTGROUP <OnPostGroup> ] ;
[ ON STARTLINE <OnStartLine> ] ;
[ ON ENDLINE <OnEndLine> ] ;
[ ON CHANGE <OnChange> ] ;
[ ON CHANGED <OnChanged> ]
//---------------------------------------------------------- ----------------
CLASS TReport
PUBLISHED:
PROPERTY oParent // Parent object
PROPERTY oDevice INIT Printer // Printer object
PROPERTY oTitle // TRptLine object for title
PROPERTY oHeader // TRptLine object for header
PROPERTY oFooter // TRptLine object for footer
PROPERTY oPen // Pen object for lines
PROPERTY aGroups INIT {} // Array of TRptGroup objects
PROPERTY aColumns INIT {} // Array of TRptColumn objects
PROPERTY aFonts INIT {} // Array of TFont objects
PROPERTY bFor INIT {|| .T. }
PROPERTY bWhile INIT {|| !Eof() }
PROPERTY bSkip
PROPERTY cJobName INIT "Xailer Report"
PROPERTY cPageTotal INIT ""
PROPERTY cGrandTotal INIT ""
PROPERTY nTitleUpLine INIT rlDOUBLE VALUES rlNONE, rlSINGLE, rlDOUBLE
PROPERTY nTitleDnLine INIT rlDOUBLE VALUES rlNONE, rlSINGLE, rlDOUBLE
PROPERTY nTotalLine INIT rlDOUBLE VALUES rlNONE, rlSINGLE, rlDOUBLE
PROPERTY nGroupLine INIT rlSINGLE VALUES rlNONE, rlSINGLE, rlDOUBLE
PROPERTY nGridStyle INIT rgNONE VALUES rgNONE, rgVERTICAL, rgHORIZONTAL, rgBOTH
PROPERTY nTopMargin INIT 100 // In Himetrics (1 Centimeter)
PROPERTY nPage INIT 1
PROPERTY lSummary INIT .f.
PROPERTY lPreview INIT .f.
PROPERTY lPreviewModal INIT .t.
PROPERTY lPageTotal INIT .t.
PROPERTY lAutoLand INIT .t.
PROPERTY Cargo
PUBLIC:
DATA nCounter INIT 0
DATA nSeparator INIT 0 // In pixels
DATA nLineHeight INIT 0 // In pixels
DATA lTotal INIT .f.
DATA lCancel INIT .f.
PUBLISHED:
EVENT OnInit( oSender )
EVENT OnEnd( oSender )
EVENT OnPostEnd( oSender )
EVENT OnStartLine( oSender, nHeight )
EVENT OnEndLine( oSender, nHeight )
EVENT OnStartPage( oSender )
EVENT OnEndPage( oSender )
EVENT OnPostPage( oSender )
EVENT OnStartGroup( oSender, oGroup )
EVENT OnEndGroup( oSender, oGroup )
EVENT OnPostGroup( oSender, oGroup )
EVENT OnChange( oSender )
EVENT OnChanged( oSender )
PUBLIC:
METHOD New( oParent ) CONSTRUCTOR
METHOD Create( oParent ) CONSTRUCTOR
METHOD AddColumn( oCol )
METHOD DelColumn( nCol )
METHOD AddGroup( oGroup )
METHOD DelGroup( nGroup )
METHOD Adjust()
METHOD Run()
METHOD End()
METHOD StartLine( nHeight )
METHOD EndLine( nHeight )
METHOD NeedNewPage( nHeight )
METHOD NewPage()
METHOD NewLine( nHeight )
METHOD LinesLeft()
METHOD BackLine( nLine )
METHOD Finished()
METHOD AreGroups()
ENDCLASS
//---------------------------------------------------------- ----------------
//---------------------------------------------------------- ----------------
//---------------------------------------------------------- ----------------
//---------------------------------------------------------- ----------------
//---------------------------------------------------------- ----------------
CLASS TRptColumn
PUBLISHED:
PROPERTY oReport // Report object
PROPERTY aData // Array of codeblocks for Data columns
PROPERTY aTitle // Array of codeblocks for Title columns
PROPERTY aPicture // Array of picture formats for Data columns
PROPERTY nAlignment INIT taLEFT // style alignment
PROPERTY nDataFont INIT 1 // Font for Data
PROPERTY nTitleFont INIT 1 // Font for Title
PROPERTY nTotalFont INIT 1 // Font for Total
PROPERTY nClrText INIT clBlack // Text color
PROPERTY nCharSize INIT 0 // Size in Chars
PROPERTY cTotalPict INIT "" // Picture for Total
PROPERTY lTotal INIT .f. // Totalize
PROPERTY Cargo
EVENT OnPrintData( oSender, nLine, cText, nFont, nColor ) // cText, nFont and nColor byRef
EVENT OnPrintTitle( oSender, nLine, cText, nFont, nColor ) // cText, nFont and nColor byRef
EVENT OnPrintTotal( oSender, cText, nFont, nColor ) // cText, nFont and nColor byRef
PUBLIC:
DATA Value
DATA nWidth, nDataHeight, nTitleHeight, nTotal, nCol, nOrder, nCurLine
METHOD New( oReport ) CONSTRUCTOR
METHOD Create( oReport ) CONSTRUCTOR
METHOD PrintTitle( nRow, nCol, nLine )
METHOD PrintData( nRow, nCol, nLine )
METHOD PrintTotal( nRow, nCol )
ENDCLASS
//---------------------------------------------------------- ----------------
//---------------------------------------------------------- ----------------
//---------------------------------------------------------- ----------------
//---------------------------------------------------------- ----------------
//---------------------------------------------------------- ----------------
CLASS TRptLine
PUBLISHED:
PROPERTY oReport // Report object
PROPERTY aLine // Array of codeblocks that return lines of text
PROPERTY aAlignment // Array of style alignment for every line in aLines
PROPERTY aFonts // Array of numeric font to use for every line in aLines
PROPERTY nColor INIT clBlack
PROPERTY Cargo
EVENT OnPrintLine( oSender, nLine, cText, nFont, nColor ) // cText, nFont and nColor byRef
PUBLIC:
DATA aRow, aWidth
DATA nCol, nHeight, nWidth
METHOD New( oReport ) CONSTRUCTOR
METHOD Create( oReport, aLine, nAlignment, cType ) CONSTRUCTOR
METHOD AddLine( bLine, nAlignment )
METHOD Adjust( nFirstRow, nFirstCol )
METHOD Print( nStartRow )
ENDCLASS
//---------------------------------------------------------- ----------------
//---------------------------------------------------------- ----------------
//---------------------------------------------------------- ----------------
//---------------------------------------------------------- ----------------
//---------------------------------------------------------- ----------------
CLASS TRptGroup
PUBLISHED:
PROPERTY oReport
PROPERTY bGroup INIT {|| ""}
PROPERTY bHeader INIT {|| ""}
PROPERTY bFooter INIT {|| "Total..."}
PROPERTY nFont INIT 1
PROPERTY nClrText INIT clBlack
PROPERTY lEject INIT .f.
PROPERTY Cargo
EVENT OnPrintTotal( oSender ,cText, nFont, nColor ) // cText, nFont and nColor byRef
EVENT OnPrintHeader( oSender, cText, nFont, nColor ) // cText, nFont and nColor byRef
EVENT OnPrintFooter( oSender, cText, nFont, nColor ) // cText, nFont and nColor byRef
PUBLIC:
DATA nCounter INIT 0
DATA aTotal
DATA cValue, cOldValue
DATA nHeaderHeight, nFooterHeight, nOrder
DATA lNeedStart, lHeader, lFooter
METHOD New( oReport ) CONSTRUCTOR
METHOD Create( oReport ) CONSTRUCTOR
METHOD PrintHeader( nRow )
METHOD PrintFooter( nRow )
METHOD PrintTotal( nRow )
ENDCLASS
Arriba
Ingo Junge-Herrmann
Mensajes: 339
Registrado: Lun Jul 02, 2007 7:17 pm

TReport Documentation ???

Mensaje por Ingo Junge-Herrmann »

/*
* Xailer source code:
*
* Report.txt
* Clase TReport
*
* Copyright 2003, 2004 Xailer.com
*
*/
Ultima revisión: 2004-10-25 [IOrtiz]
//---------------------------------------------------------- ----------------
Clase para creación de informes básicos de forma NO visual basado en el
generador de informes propiedad de Ignacio Ortiz de Zúñiga utilizado
ampliamente por usuarios de Fivewin
//---------------------------------------------------------- ----------------
Comandos:
REPORT <oReport> [ OF <oParent> ] ;
[ TITLE <bTitle, ...> [ ALIGN <nTitleAlign> ] ] ;
[ HEADER <bHeader, ...> [ ALIGN <nHeaderAlign> ] ] ;
[ FOOTER <bFooter, ...> [ ALIGN <nFooterAlign> ] ] ;
[ FONT <oFont, ...> ] ;
[ PEN <oPen> ] ;
[ <lSummary: SUMMARY> ] ;
[ <lPreview: PREVIEW> [ <lModal: MODAL> ] ;
[ TO PRINTER <oPrinter> ] ;
[ JOBNAME <cJobName> ]
GROUP [ <oRptGrp> ] [ OF <oReport> ] ;
[ ON <bGroup> ] ;
[ HEADER <bHeader> ] ;
[ FOOTER <bFooter> ] ;
[ FONT <nFont> ] ;
[ <lEject:EJECT> ]
COLUMN [ <oRptCol> ] [ OF <oReport> ];
[ TITLE <bTitle, ...> ] ;
[ DATA <bData, ...> ] ;
[ PICTURE <cPicture, ...> ] ;
[ FONT <nFont> ] ;
[ CHARSIZE <nSize> ] ;
[ <lTotal: TOTAL> ] ;
[ ALIGN <nAlign> ]
RUN REPORT <oReport> ;
[ FOR <bFor> ] ;
[ WHILE <bWhile> ] ;
[ ON INIT <OnInit> ] ;
[ ON END <OnEnd> ] ;
[ ON POSTEND <OnPostEnd> ] ;
[ ON STARTPAGE <OnStartPage> ] ;
[ ON ENDPAGE <OnEndPage> ] ;
[ ON POSTPAGE <OnPostPage> ] ;
[ ON STARTGROUP <OnStartGroup> ] ;
[ ON ENDGROUP <OnEndGroup> ] ;
[ ON POSTGROUP <OnPostGroup> ] ;
[ ON STARTLINE <OnStartLine> ] ;
[ ON ENDLINE <OnEndLine> ] ;
[ ON CHANGE <OnChange> ] ;
[ ON CHANGED <OnChanged> ]
//---------------------------------------------------------- ----------------
CLASS TReport
PUBLISHED:
PROPERTY oParent // Parent object
PROPERTY oDevice INIT Printer // Printer object
PROPERTY oTitle // TRptLine object for title
PROPERTY oHeader // TRptLine object for header
PROPERTY oFooter // TRptLine object for footer
PROPERTY oPen // Pen object for lines
PROPERTY aGroups INIT {} // Array of TRptGroup objects
PROPERTY aColumns INIT {} // Array of TRptColumn objects
PROPERTY aFonts INIT {} // Array of TFont objects
PROPERTY bFor INIT {|| .T. }
PROPERTY bWhile INIT {|| !Eof() }
PROPERTY bSkip
PROPERTY cJobName INIT "Xailer Report"
PROPERTY cPageTotal INIT ""
PROPERTY cGrandTotal INIT ""
PROPERTY nTitleUpLine INIT rlDOUBLE VALUES rlNONE, rlSINGLE, rlDOUBLE
PROPERTY nTitleDnLine INIT rlDOUBLE VALUES rlNONE, rlSINGLE, rlDOUBLE
PROPERTY nTotalLine INIT rlDOUBLE VALUES rlNONE, rlSINGLE, rlDOUBLE
PROPERTY nGroupLine INIT rlSINGLE VALUES rlNONE, rlSINGLE, rlDOUBLE
PROPERTY nGridStyle INIT rgNONE VALUES rgNONE, rgVERTICAL, rgHORIZONTAL, rgBOTH
PROPERTY nTopMargin INIT 100 // In Himetrics (1 Centimeter)
PROPERTY nPage INIT 1
PROPERTY lSummary INIT .f.
PROPERTY lPreview INIT .f.
PROPERTY lPreviewModal INIT .t.
PROPERTY lPageTotal INIT .t.
PROPERTY lAutoLand INIT .t.
PROPERTY Cargo
PUBLIC:
DATA nCounter INIT 0
DATA nSeparator INIT 0 // In pixels
DATA nLineHeight INIT 0 // In pixels
DATA lTotal INIT .f.
DATA lCancel INIT .f.
PUBLISHED:
EVENT OnInit( oSender )
EVENT OnEnd( oSender )
EVENT OnPostEnd( oSender )
EVENT OnStartLine( oSender, nHeight )
EVENT OnEndLine( oSender, nHeight )
EVENT OnStartPage( oSender )
EVENT OnEndPage( oSender )
EVENT OnPostPage( oSender )
EVENT OnStartGroup( oSender, oGroup )
EVENT OnEndGroup( oSender, oGroup )
EVENT OnPostGroup( oSender, oGroup )
EVENT OnChange( oSender )
EVENT OnChanged( oSender )
PUBLIC:
METHOD New( oParent ) CONSTRUCTOR
METHOD Create( oParent ) CONSTRUCTOR
METHOD AddColumn( oCol )
METHOD DelColumn( nCol )
METHOD AddGroup( oGroup )
METHOD DelGroup( nGroup )
METHOD Adjust()
METHOD Run()
METHOD End()
METHOD StartLine( nHeight )
METHOD EndLine( nHeight )
METHOD NeedNewPage( nHeight )
METHOD NewPage()
METHOD NewLine( nHeight )
METHOD LinesLeft()
METHOD BackLine( nLine )
METHOD Finished()
METHOD AreGroups()
ENDCLASS
//---------------------------------------------------------- ----------------
//---------------------------------------------------------- ----------------
//---------------------------------------------------------- ----------------
//---------------------------------------------------------- ----------------
//---------------------------------------------------------- ----------------
CLASS TRptColumn
PUBLISHED:
PROPERTY oReport // Report object
PROPERTY aData // Array of codeblocks for Data columns
PROPERTY aTitle // Array of codeblocks for Title columns
PROPERTY aPicture // Array of picture formats for Data columns
PROPERTY nAlignment INIT taLEFT // style alignment
PROPERTY nDataFont INIT 1 // Font for Data
PROPERTY nTitleFont INIT 1 // Font for Title
PROPERTY nTotalFont INIT 1 // Font for Total
PROPERTY nClrText INIT clBlack // Text color
PROPERTY nCharSize INIT 0 // Size in Chars
PROPERTY cTotalPict INIT "" // Picture for Total
PROPERTY lTotal INIT .f. // Totalize
PROPERTY Cargo
EVENT OnPrintData( oSender, nLine, cText, nFont, nColor ) // cText, nFont and nColor byRef
EVENT OnPrintTitle( oSender, nLine, cText, nFont, nColor ) // cText, nFont and nColor byRef
EVENT OnPrintTotal( oSender, cText, nFont, nColor ) // cText, nFont and nColor byRef
PUBLIC:
DATA Value
DATA nWidth, nDataHeight, nTitleHeight, nTotal, nCol, nOrder, nCurLine
METHOD New( oReport ) CONSTRUCTOR
METHOD Create( oReport ) CONSTRUCTOR
METHOD PrintTitle( nRow, nCol, nLine )
METHOD PrintData( nRow, nCol, nLine )
METHOD PrintTotal( nRow, nCol )
ENDCLASS
//---------------------------------------------------------- ----------------
//---------------------------------------------------------- ----------------
//---------------------------------------------------------- ----------------
//---------------------------------------------------------- ----------------
//---------------------------------------------------------- ----------------
CLASS TRptLine
PUBLISHED:
PROPERTY oReport // Report object
PROPERTY aLine // Array of codeblocks that return lines of text
PROPERTY aAlignment // Array of style alignment for every line in aLines
PROPERTY aFonts // Array of numeric font to use for every line in aLines
PROPERTY nColor INIT clBlack
PROPERTY Cargo
EVENT OnPrintLine( oSender, nLine, cText, nFont, nColor ) // cText, nFont and nColor byRef
PUBLIC:
DATA aRow, aWidth
DATA nCol, nHeight, nWidth
METHOD New( oReport ) CONSTRUCTOR
METHOD Create( oReport, aLine, nAlignment, cType ) CONSTRUCTOR
METHOD AddLine( bLine, nAlignment )
METHOD Adjust( nFirstRow, nFirstCol )
METHOD Print( nStartRow )
ENDCLASS
//---------------------------------------------------------- ----------------
//---------------------------------------------------------- ----------------
//---------------------------------------------------------- ----------------
//---------------------------------------------------------- ----------------
//---------------------------------------------------------- ----------------
CLASS TRptGroup
PUBLISHED:
PROPERTY oReport
PROPERTY bGroup INIT {|| ""}
PROPERTY bHeader INIT {|| ""}
PROPERTY bFooter INIT {|| "Total..."}
PROPERTY nFont INIT 1
PROPERTY nClrText INIT clBlack
PROPERTY lEject INIT .f.
PROPERTY Cargo
EVENT OnPrintTotal( oSender ,cText, nFont, nColor ) // cText, nFont and nColor byRef
EVENT OnPrintHeader( oSender, cText, nFont, nColor ) // cText, nFont and nColor byRef
EVENT OnPrintFooter( oSender, cText, nFont, nColor ) // cText, nFont and nColor byRef
PUBLIC:
DATA nCounter INIT 0
DATA aTotal
DATA cValue, cOldValue
DATA nHeaderHeight, nFooterHeight, nOrder
DATA lNeedStart, lHeader, lFooter
METHOD New( oReport ) CONSTRUCTOR
METHOD Create( oReport ) CONSTRUCTOR
METHOD PrintHeader( nRow )
METHOD PrintFooter( nRow )
METHOD PrintTotal( nRow )
ENDCLASS
Arriba
Ingo Junge-Herrmann
Mensajes: 339
Registrado: Lun Jul 02, 2007 7:17 pm

TReport Documentation ???

Mensaje por Ingo Junge-Herrmann »

/*
* Xailer source code:
*
* Report.txt
* Clase TReport
*
* Copyright 2003, 2004 Xailer.com
*
*/
Ultima revisión: 2004-10-25 [IOrtiz]
//---------------------------------------------------------- ----------------
Clase para creación de informes básicos de forma NO visual basado en el
generador de informes propiedad de Ignacio Ortiz de Zúñiga utilizado
ampliamente por usuarios de Fivewin
//---------------------------------------------------------- ----------------
Comandos:
REPORT <oReport> [ OF <oParent> ] ;
[ TITLE <bTitle, ...> [ ALIGN <nTitleAlign> ] ] ;
[ HEADER <bHeader, ...> [ ALIGN <nHeaderAlign> ] ] ;
[ FOOTER <bFooter, ...> [ ALIGN <nFooterAlign> ] ] ;
[ FONT <oFont, ...> ] ;
[ PEN <oPen> ] ;
[ <lSummary: SUMMARY> ] ;
[ <lPreview: PREVIEW> [ <lModal: MODAL> ] ;
[ TO PRINTER <oPrinter> ] ;
[ JOBNAME <cJobName> ]
GROUP [ <oRptGrp> ] [ OF <oReport> ] ;
[ ON <bGroup> ] ;
[ HEADER <bHeader> ] ;
[ FOOTER <bFooter> ] ;
[ FONT <nFont> ] ;
[ <lEject:EJECT> ]
COLUMN [ <oRptCol> ] [ OF <oReport> ];
[ TITLE <bTitle, ...> ] ;
[ DATA <bData, ...> ] ;
[ PICTURE <cPicture, ...> ] ;
[ FONT <nFont> ] ;
[ CHARSIZE <nSize> ] ;
[ <lTotal: TOTAL> ] ;
[ ALIGN <nAlign> ]
RUN REPORT <oReport> ;
[ FOR <bFor> ] ;
[ WHILE <bWhile> ] ;
[ ON INIT <OnInit> ] ;
[ ON END <OnEnd> ] ;
[ ON POSTEND <OnPostEnd> ] ;
[ ON STARTPAGE <OnStartPage> ] ;
[ ON ENDPAGE <OnEndPage> ] ;
[ ON POSTPAGE <OnPostPage> ] ;
[ ON STARTGROUP <OnStartGroup> ] ;
[ ON ENDGROUP <OnEndGroup> ] ;
[ ON POSTGROUP <OnPostGroup> ] ;
[ ON STARTLINE <OnStartLine> ] ;
[ ON ENDLINE <OnEndLine> ] ;
[ ON CHANGE <OnChange> ] ;
[ ON CHANGED <OnChanged> ]
//---------------------------------------------------------- ----------------
CLASS TReport
PUBLISHED:
PROPERTY oParent // Parent object
PROPERTY oDevice INIT Printer // Printer object
PROPERTY oTitle // TRptLine object for title
PROPERTY oHeader // TRptLine object for header
PROPERTY oFooter // TRptLine object for footer
PROPERTY oPen // Pen object for lines
PROPERTY aGroups INIT {} // Array of TRptGroup objects
PROPERTY aColumns INIT {} // Array of TRptColumn objects
PROPERTY aFonts INIT {} // Array of TFont objects
PROPERTY bFor INIT {|| .T. }
PROPERTY bWhile INIT {|| !Eof() }
PROPERTY bSkip
PROPERTY cJobName INIT "Xailer Report"
PROPERTY cPageTotal INIT ""
PROPERTY cGrandTotal INIT ""
PROPERTY nTitleUpLine INIT rlDOUBLE VALUES rlNONE, rlSINGLE, rlDOUBLE
PROPERTY nTitleDnLine INIT rlDOUBLE VALUES rlNONE, rlSINGLE, rlDOUBLE
PROPERTY nTotalLine INIT rlDOUBLE VALUES rlNONE, rlSINGLE, rlDOUBLE
PROPERTY nGroupLine INIT rlSINGLE VALUES rlNONE, rlSINGLE, rlDOUBLE
PROPERTY nGridStyle INIT rgNONE VALUES rgNONE, rgVERTICAL, rgHORIZONTAL, rgBOTH
PROPERTY nTopMargin INIT 100 // In Himetrics (1 Centimeter)
PROPERTY nPage INIT 1
PROPERTY lSummary INIT .f.
PROPERTY lPreview INIT .f.
PROPERTY lPreviewModal INIT .t.
PROPERTY lPageTotal INIT .t.
PROPERTY lAutoLand INIT .t.
PROPERTY Cargo
PUBLIC:
DATA nCounter INIT 0
DATA nSeparator INIT 0 // In pixels
DATA nLineHeight INIT 0 // In pixels
DATA lTotal INIT .f.
DATA lCancel INIT .f.
PUBLISHED:
EVENT OnInit( oSender )
EVENT OnEnd( oSender )
EVENT OnPostEnd( oSender )
EVENT OnStartLine( oSender, nHeight )
EVENT OnEndLine( oSender, nHeight )
EVENT OnStartPage( oSender )
EVENT OnEndPage( oSender )
EVENT OnPostPage( oSender )
EVENT OnStartGroup( oSender, oGroup )
EVENT OnEndGroup( oSender, oGroup )
EVENT OnPostGroup( oSender, oGroup )
EVENT OnChange( oSender )
EVENT OnChanged( oSender )
PUBLIC:
METHOD New( oParent ) CONSTRUCTOR
METHOD Create( oParent ) CONSTRUCTOR
METHOD AddColumn( oCol )
METHOD DelColumn( nCol )
METHOD AddGroup( oGroup )
METHOD DelGroup( nGroup )
METHOD Adjust()
METHOD Run()
METHOD End()
METHOD StartLine( nHeight )
METHOD EndLine( nHeight )
METHOD NeedNewPage( nHeight )
METHOD NewPage()
METHOD NewLine( nHeight )
METHOD LinesLeft()
METHOD BackLine( nLine )
METHOD Finished()
METHOD AreGroups()
ENDCLASS
//---------------------------------------------------------- ----------------
//---------------------------------------------------------- ----------------
//---------------------------------------------------------- ----------------
//---------------------------------------------------------- ----------------
//---------------------------------------------------------- ----------------
CLASS TRptColumn
PUBLISHED:
PROPERTY oReport // Report object
PROPERTY aData // Array of codeblocks for Data columns
PROPERTY aTitle // Array of codeblocks for Title columns
PROPERTY aPicture // Array of picture formats for Data columns
PROPERTY nAlignment INIT taLEFT // style alignment
PROPERTY nDataFont INIT 1 // Font for Data
PROPERTY nTitleFont INIT 1 // Font for Title
PROPERTY nTotalFont INIT 1 // Font for Total
PROPERTY nClrText INIT clBlack // Text color
PROPERTY nCharSize INIT 0 // Size in Chars
PROPERTY cTotalPict INIT "" // Picture for Total
PROPERTY lTotal INIT .f. // Totalize
PROPERTY Cargo
EVENT OnPrintData( oSender, nLine, cText, nFont, nColor ) // cText, nFont and nColor byRef
EVENT OnPrintTitle( oSender, nLine, cText, nFont, nColor ) // cText, nFont and nColor byRef
EVENT OnPrintTotal( oSender, cText, nFont, nColor ) // cText, nFont and nColor byRef
PUBLIC:
DATA Value
DATA nWidth, nDataHeight, nTitleHeight, nTotal, nCol, nOrder, nCurLine
METHOD New( oReport ) CONSTRUCTOR
METHOD Create( oReport ) CONSTRUCTOR
METHOD PrintTitle( nRow, nCol, nLine )
METHOD PrintData( nRow, nCol, nLine )
METHOD PrintTotal( nRow, nCol )
ENDCLASS
//---------------------------------------------------------- ----------------
//---------------------------------------------------------- ----------------
//---------------------------------------------------------- ----------------
//---------------------------------------------------------- ----------------
//---------------------------------------------------------- ----------------
CLASS TRptLine
PUBLISHED:
PROPERTY oReport // Report object
PROPERTY aLine // Array of codeblocks that return lines of text
PROPERTY aAlignment // Array of style alignment for every line in aLines
PROPERTY aFonts // Array of numeric font to use for every line in aLines
PROPERTY nColor INIT clBlack
PROPERTY Cargo
EVENT OnPrintLine( oSender, nLine, cText, nFont, nColor ) // cText, nFont and nColor byRef
PUBLIC:
DATA aRow, aWidth
DATA nCol, nHeight, nWidth
METHOD New( oReport ) CONSTRUCTOR
METHOD Create( oReport, aLine, nAlignment, cType ) CONSTRUCTOR
METHOD AddLine( bLine, nAlignment )
METHOD Adjust( nFirstRow, nFirstCol )
METHOD Print( nStartRow )
ENDCLASS
//---------------------------------------------------------- ----------------
//---------------------------------------------------------- ----------------
//---------------------------------------------------------- ----------------
//---------------------------------------------------------- ----------------
//---------------------------------------------------------- ----------------
CLASS TRptGroup
PUBLISHED:
PROPERTY oReport
PROPERTY bGroup INIT {|| ""}
PROPERTY bHeader INIT {|| ""}
PROPERTY bFooter INIT {|| "Total..."}
PROPERTY nFont INIT 1
PROPERTY nClrText INIT clBlack
PROPERTY lEject INIT .f.
PROPERTY Cargo
EVENT OnPrintTotal( oSender ,cText, nFont, nColor ) // cText, nFont and nColor byRef
EVENT OnPrintHeader( oSender, cText, nFont, nColor ) // cText, nFont and nColor byRef
EVENT OnPrintFooter( oSender, cText, nFont, nColor ) // cText, nFont and nColor byRef
PUBLIC:
DATA nCounter INIT 0
DATA aTotal
DATA cValue, cOldValue
DATA nHeaderHeight, nFooterHeight, nOrder
DATA lNeedStart, lHeader, lFooter
METHOD New( oReport ) CONSTRUCTOR
METHOD Create( oReport ) CONSTRUCTOR
METHOD PrintHeader( nRow )
METHOD PrintFooter( nRow )
METHOD PrintTotal( nRow )
ENDCLASS
Arriba
_support_
Mensajes: 146
Registrado: Lun Abr 10, 2006 1:29 pm

TReport Documentation ???

Mensaje por _support_ »

Dionisis,
The documentation is already done in spanish. Right now is translated into
English. We hope that it will be finish really soon.
Regards,
"Dionisis Divaris" <sv1fkk@hol.gr> escribió en el mensaje
news:443a12b0$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Hello
>
> I can not find any info abt Treport Class in help !!!!
> I need to develop some customers reports .....
> Any help would be apreciate..
>
> Regards
> Dionisis
>
Arriba
_support_
Mensajes: 146
Registrado: Lun Abr 10, 2006 1:29 pm

TReport Documentation ???

Mensaje por _support_ »

Dionisis,
The documentation is already done in spanish. Right now is translated into
English. We hope that it will be finish really soon.
Regards,
"Dionisis Divaris" <sv1fkk@hol.gr> escribió en el mensaje
news:443a12b0$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Hello
>
> I can not find any info abt Treport Class in help !!!!
> I need to develop some customers reports .....
> Any help would be apreciate..
>
> Regards
> Dionisis
>
Arriba
Avatar de Usuario
Dionisis Divaris
Mensajes: 485
Registrado: Jue Jul 12, 2007 8:48 pm
Ubicación: Athens Greece

TReport Documentation ???

Mensaje por Dionisis Divaris »

Many thanks both of you for (Ingo - Ignacio) the replies
Regards
Dionisis
Ï "Ignacio Ortiz de Zúñiga" <_support_@xailer.com> Ýãñáøå óôï ìÞíõìá
news:[email=443a41b0@ozsrvnegro.ozlan.local...]443a41b0@ozsrvnegro.ozlan.local...[/email]
> Dionisis,
>
> The documentation is already done in spanish. Right now is translated into
> English. We hope that it will be finish really soon.
>
> Regards,
>
> "Dionisis Divaris" <sv1fkk@hol.gr> escribió en el mensaje
> news:443a12b0$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>> Hello
>>
>> I can not find any info abt Treport Class in help !!!!
>> I need to develop some customers reports .....
>> Any help would be apreciate..
>>
>> Regards
>> Dionisis
>>
>
>
T.I.A
Dionisis
SGS-soft
support.sgs@gmail.com
Arriba
Avatar de Usuario
Dionisis Divaris
Mensajes: 485
Registrado: Jue Jul 12, 2007 8:48 pm
Ubicación: Athens Greece

TReport Documentation ???

Mensaje por Dionisis Divaris »

Many thanks both of you for (Ingo - Ignacio) the replies
Regards
Dionisis
Ï "Ignacio Ortiz de Zúñiga" <_support_@xailer.com> Ýãñáøå óôï ìÞíõìá
news:[email=443a41b0@ozsrvnegro.ozlan.local...]443a41b0@ozsrvnegro.ozlan.local...[/email]
> Dionisis,
>
> The documentation is already done in spanish. Right now is translated into
> English. We hope that it will be finish really soon.
>
> Regards,
>
> "Dionisis Divaris" <sv1fkk@hol.gr> escribió en el mensaje
> news:443a12b0$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>> Hello
>>
>> I can not find any info abt Treport Class in help !!!!
>> I need to develop some customers reports .....
>> Any help would be apreciate..
>>
>> Regards
>> Dionisis
>>
>
>
T.I.A
Dionisis
SGS-soft
support.sgs@gmail.com
Arriba
Responder

Volver a “Xailer Pro English”