home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4611 / fw16d.ins / INCLUDE / REPORT.CH < prev    next >
Text File  |  1994-06-07  |  4KB  |  70 lines
  1. /*
  2. ┌─ Programa ───────────────────────────────────────────────────────────────┐
  3. │   Aplication: Header file for class TReport                              │
  4. │         File: REPORT.CH                                                  │
  5. │       Author: Ignacio Ortiz de Zúñiga Echeverría                         │
  6. │         Date: 05/24/94                                                   │
  7. │         Time: 11:41:07                                                   │
  8. │    Make File: None                                                       │
  9. │    Exec File: None                                                       │
  10. │    Copyright: 1994 by Ortiz de Zuñiga, S.L.                              │
  11. └──────────────────────────────────────────────────────────────────────────┘
  12. */
  13.  
  14. #xcommand REPORT [ <oReport> ]                                            ;
  15.                 [ SIZE <nWidth>, <nHeight> ]                              ;
  16.                 [ TITLE <bTitle, ...> ]                                   ;
  17.                 [ HEADER <bHead, ...> ]                                   ;
  18.                 [ FOOTER <bFoot, ...> ]                                   ;
  19.                 [ FONT <oFont, ...> ]                                     ;
  20.                 [ <file: FILE, FILENAME, DISK> <cRptFile> ]               ;
  21.                 [ <resource: NAME, RESNAME, RESOURCE> <cResName> ]        ;
  22.                 [ <grp: GROUP, GROUPS>                                    ;
  23.                         <bGroup1> [<lSum1:SUMMARY>] [<lEject1:EJECT>]     ;
  24.                       [,<bGroupn> [<lSumn:SUMMARY>] [<lEjectn:EJECT>] ] ] ;
  25.         =>                                                                ;
  26.         [ <oReport> := ] RptBegin(<nWidth>, <nHeight>, {<{bTitle}>}     , ;
  27.                 {<{bHead}>}, {<{bFoot}>}, {<oFont>}, <cRptFile>         , ;
  28.                 <cResName> )                                              ;
  29.                 ; IF .T.                                                  ;
  30.                 [; RptAddGroup( <{bGroup1}>, <.lSum1.>, <.lEject1.> ) ]   ;
  31.                 [; RptAddGroup( <{bGroupn}>, <.lSumn.>, <.lEjectn.> ) ]
  32.  
  33. #xcommand COLUMN [ <oRptCol> ]                                            ;
  34.                 [ TITLE <bTitle, ...> ]                                   ;
  35.                 [ AT <nCol> ]                                             ;
  36.                 [ UDATA <bData, ...> ]                                    ;
  37.                 [ SIZE <nSize> ]                                          ;
  38.                 [ PICTURE <cPicture, ...> ]                               ;
  39.                 [ FONT <uFont> ]                                          ;
  40.                 [ <total: TOTAL> [ FOR <bTotalExpr> ] ]                   ;
  41.         =>                                                                ;
  42.          [ <oRptCol> := ] RptAddColumn( {<{bTitle}>}, <nCol>           ,  ;
  43.                 {<{bData}>}, <nSize>, {<cPicture>}                     ,  ;
  44.                 <{uFont}>, <.total.>, <{bTotalExpr}> )
  45.  
  46. #xcommand END REPORT                                                      ;
  47.         =>                                                                ;
  48.          END IF                                                           ;
  49.          ; RptEnd()
  50.  
  51. #xcommand ENDREPORT                                                       ;
  52.         =>                                                                ;
  53.          END REPORT
  54.  
  55. #xcommand ACTIVATE REPORT <oReport>                                       ;
  56.                 [ FOR <for> ]                                             ;
  57.                 [ WHILE <while> ]                                         ;
  58.                 [ ON INIT <uInit> ]                                       ;
  59.                 [ ON END <uEnd> ]                                         ;
  60.                 [ ON NEWPAGE <uNewPage> ]                                 ;
  61.                 [ ON NEWGROUP <uNewGroup> ]                               ;
  62.                 [ ON NEWLINE <uNewLine> ]                                 ;
  63.                 [ <preview: PREVIEW> ]                                    ;
  64.         =>                                                                ;
  65.          <oReport>:Activate(<{for}>, <{while}>, <{uInit}>, <{uEnd}>,      ;
  66.                 <{uNewPage}>, <{uNewGroup}>, <{uNewLine}>, <.preview.> )
  67.  
  68. // EOF
  69.  
  70.