process/report/cheque-whites.p

   1 &ANALYZE-SUSPEND _VERSION-NUMBER UIB_v8r12
   2 &ANALYZE-RESUME
   3 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS Procedure
   4 /*--------------------------------------------------------------------------
   5     Approved Vouchers Report
   6   ------------------------------------------------------------------------*/
   7 DEF INPUT PARAMETER report-options AS CHAR NO-UNDO.
   8
   9 DEF VAR preview   AS LOGI NO-UNDO       INIT No.
  10 DEF VAR bank-account AS CHAR NO-UNDO    INIT "".
  11 DEF VAR exporting AS LOGI NO-UNDO       INIT No.
  12 DEF VAR one-per-page AS LOGI NO-UNDO    INIT No.
  13 DEF VAR file-name AS CHAR NO-UNDO       INIT "".
  14 DEF VAR first-cheque-no AS INT NO-UNDO  INIT ?.
  15 DEF VAR last-cheque-no AS INT NO-UNDO   INIT ?.
  16 DEF VAR pdf-support AS LOGICAL INIT YES NO-UNDO.
  17 DEF VAR output-to-pdf AS LOGICAL INIT NO NO-UNDO.
  18 DEF VAR rows AS DEC NO-UNDO.
  19 DEF VAR cols AS DEC NO-UNDO.
  20 DEF VAR reset-page AS CHARACTER NO-UNDO.
  21
  22 RUN parse-parameters.
  23
  24 DEF VAR user-name AS CHAR NO-UNDO.
  25 {inc/username.i "user-name"}
  26 DEF VAR timeStamp AS CHAR FORMAT "X(44)" NO-UNDO.
  27 timeStamp = STRING( TODAY, "99/99/9999") + ", " + STRING( TIME, "HH:MM:SS") + " for " + user-name.
  28
  29 DEF VAR pr-line AS CHAR INIT "" NO-UNDO.        /* used everywhere to hold print line */
  30
  31 DEF VAR title-font    AS CHAR NO-UNDO   INITIAL "proportional,helvetica,point,12,bold".
  32 DEF VAR time-font     AS CHAR NO-UNDO   INITIAL "proportional,helvetica,point,6,normal".
  33 DEF VAR break1-font   AS CHAR NO-UNDO   INITIAL "proportional,helvetica,point,12,lpi,7,bold".
  34 DEF VAR break2-font   AS CHAR NO-UNDO   INITIAL "proportional,helvetica,point,8,bold".
  35 DEF VAR line1-font    AS CHAR NO-UNDO   INITIAL "fixed,courier,cpi,17,lpi,8.5,point,8,bold".
  36 DEF VAR line2-font    AS CHAR NO-UNDO   INITIAL "fixed,courier,cpi,17,lpi,9,point,8,normal".
  37 DEF VAR amt-fmt       AS CHAR INIT "(>>,>>>,>>9.99)" NO-UNDO.
  38 DEF VAR i AS INT NO-UNDO.
  39
  40 /* ensure bank account is scoped to entire program */
  41 FIND FIRST BankAccount WHERE BankAccount.BankAccountCode = bank-account NO-LOCK NO-ERROR.
  42
  43 /* _UIB-CODE-BLOCK-END */
  44 &ANALYZE-RESUME
  45
  46
  47 &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK
  48
  49 /* ********************  Preprocessor Definitions  ******************** */
  50
  51 &Scoped-define PROCEDURE-TYPE Procedure
  52
  53
  54
  55 /* _UIB-PREPROCESSOR-BLOCK-END */
  56 &ANALYZE-RESUME
  57
  58
  59 /* ************************  Function Prototypes ********************** */
  60
  61 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD print-cheque Procedure
  62 FUNCTION print-cheque RETURNS DECIMAL
  63   ( /* parameter-definitions */ )  FORWARD.
  64
  65 /* _UIB-CODE-BLOCK-END */
  66 &ANALYZE-RESUME
  67
  68
  69 /* *********************** Procedure Settings ************************ */
  70
  71 &ANALYZE-SUSPEND _PROCEDURE-SETTINGS
  72 /* Settings for THIS-PROCEDURE
  73    Type: Procedure
  74    Allow:
  75    Frames: 0
  76    Add Fields to: Neither
  77    Other Settings: CODE-ONLY COMPILE
  78  */
  79 &ANALYZE-RESUME _END-PROCEDURE-SETTINGS
  80
  81 /* *************************  Create Window  ************************** */
  82
  83 &ANALYZE-SUSPEND _CREATE-WINDOW
  84 /* DESIGN Window definition (used by the UIB)
  85   CREATE WINDOW Procedure ASSIGN
  86          HEIGHT             = .08
  87          WIDTH              = 40.
  88 /* END WINDOW DEFINITION */
  89                                                                         */
  90 &ANALYZE-RESUME
  91
  92
  93
  94 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _INCLUDED-LIB Procedure
  95 /* ************************* Included-Libraries *********************** */
  96
  97 {inc/method/m-txtrep.i}
  98 {inc/method/m-hpgl.i}
  99
 100 /* _UIB-CODE-BLOCK-END */
 101 &ANALYZE-RESUME
 102
 103
 104
 105 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK Procedure
 106
 107
 108 /* ***************************  Main Block  *************************** */
 109
 110 IF preview THEN
 111   output-to-pdf = NO.
 112
 113 IF output-to-pdf THEN DO:
 114     RUN txtrep-output-mode( "pdf" ).
 115     RUN hpgl-output-mode( "pdf" ).
 116
 117     RUN make-control-string( "PCL", "reset,simplex,portrait,a4,tm,0,lm,4", OUTPUT reset-page, OUTPUT rows, OUTPUT cols ).
 118     RUN pclrep-start( preview OR exporting, "reset,portrait,tm,2,a4,lm,4," + line1-font).
 119
 120     IF NOT one-per-page THEN DO:
 121         RUN txtrep-pdf-filename( 'PaymentDetails-' + STRING(first-cheque-no) + '-' + STRING(last-cheque-no) ).
 122         OUTPUT TO VALUE(txtrep-print-file) KEEP-MESSAGES PAGE-SIZE 0.
 123         PUT CONTROL reset-page.
 124     END.
 125
 126     FOR EACH Cheque WHERE Cheque.BankAccountCode = bank-account
 127                     AND Cheque.ChequeNo >= first-cheque-no
 128                     AND Cheque.ChequeNo <= last-cheque-no NO-LOCK:
 129
 130         IF one-per-page THEN DO:
 131             RUN txtrep-pdf-filename( 'PaymentDetails-' + STRING(Cheque.ChequeNo) ).
 132             OUTPUT TO VALUE(txtrep-print-file) KEEP-MESSAGES PAGE-SIZE 0.
 133             PUT CONTROL reset-page.
 134             RUN inst-page-header.
 135         END.
 136
 137         print-cheque().
 138
 139         IF one-per-page THEN
 140             OUTPUT CLOSE.
 141     END.
 142
 143     IF NOT one-per-page THEN
 144         OUTPUT CLOSE.
 145 END.
 146 ELSE DO:
 147     OUTPUT TO VALUE( IF exporting THEN file-name ELSE txtrep-print-file ) KEEP-MESSAGES PAGE-SIZE 0.
 148     RUN pclrep-start( preview OR exporting, "reset,portrait,tm,2,a4,lm,4," + line1-font).
 149
 150     FOR EACH Cheque WHERE Cheque.BankAccountCode = bank-account
 151                     AND Cheque.ChequeNo >= first-cheque-no
 152                     AND Cheque.ChequeNo <= last-cheque-no NO-LOCK:
 153         print-cheque().
 154         IF one-per-page OR pclrep-test-bottom(8.5) THEN RUN pclrep-page-break.
 155     END.
 156
 157     OUTPUT CLOSE.
 158
 159     IF exporting THEN
 160         MESSAGE "Export Complete" VIEW-AS ALERT-BOX INFORMATION TITLE "Finished".
 161     ELSE
 162         RUN pclrep-finish.
 163 END.
 164
 165 /* _UIB-CODE-BLOCK-END */
 166 &ANALYZE-RESUME
 167
 168
 169 /* **********************  Internal Procedures  *********************** */
 170
 171 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE inst-page-footer Procedure
 172 PROCEDURE inst-page-footer :
 173 /*------------------------------------------------------------------------------
 174   Purpose:
 175 ------------------------------------------------------------------------------*/
 176
 177 END PROCEDURE.
 178
 179 /* _UIB-CODE-BLOCK-END */
 180 &ANALYZE-RESUME
 181
 182
 183 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE inst-page-header Procedure
 184 PROCEDURE inst-page-header :
 185 /*------------------------------------------------------------------------------
 186   Purpose:
 187 ------------------------------------------------------------------------------*/
 188
 189   pr-line = timeStamp.
 190   RUN pclrep-line( time-font, pr-line).
 191
 192   IF AVAILABLE(Cheque) THEN DO:
 193     pr-line = FILL(' ',110) + Cheque.BankAccountCode + STRING(Cheque.ChequeNo, ">>999999").
 194     RUN pclrep-line( title-font, pr-line).
 195   END.
 196   ELSE
 197     RUN pclrep-line( ?, "").
 198
 199   RUN pclrep-line( ?, "").
 200   RUN pclrep-line( title-font, SPC(45) + "Payment Details" ).
 201   RUN pclrep-line( time-font, "").
 202   RUN pclrep-line( time-font, "").
 203
 204
 205 END PROCEDURE.
 206
 207 /* _UIB-CODE-BLOCK-END */
 208 &ANALYZE-RESUME
 209
 210
 211 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE parse-parameters Procedure
 212 PROCEDURE parse-parameters :
 213 /*------------------------------------------------------------------------------
 214   Purpose:
 215 ------------------------------------------------------------------------------*/
 216 DEF VAR token AS CHAR NO-UNDO.
 217 DEF VAR i AS INT NO-UNDO.
 218
 219 {inc/showopts.i "report-options"}
 220
 221   DO i = 1 TO NUM-ENTRIES( report-options, "~n" ):
 222     token = ENTRY( i, report-options, "~n" ).
 223
 224     CASE ENTRY( 1, token ):
 225       WHEN "Preview" THEN               preview = Yes.
 226
 227       WHEN "OnePerPage" THEN            one-per-page = Yes.
 228
 229       WHEN "ChequeRange" THEN ASSIGN
 230         bank-account    = ENTRY(2,token)
 231         first-cheque-no = INT(ENTRY(3,token))
 232         last-cheque-no  = INT(ENTRY(4,token)).
 233
 234       WHEN "OutputPDF" THEN             output-to-pdf = Yes.
 235
 236     END CASE.
 237
 238   END.
 239
 240 END PROCEDURE.
 241
 242 /* _UIB-CODE-BLOCK-END */
 243 &ANALYZE-RESUME
 244
 245
 246 /* ************************  Function Implementations ***************** */
 247
 248 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION print-cheque Procedure
 249 FUNCTION print-cheque RETURNS DECIMAL
 250   ( /* parameter-definitions */ ) :
 251 /*------------------------------------------------------------------------------
 252   Purpose:
 253     Notes:
 254 ------------------------------------------------------------------------------*/
 255 DEF VAR line AS CHAR NO-UNDO.
 256 DEF VAR cheque-total AS DEC NO-UNDO INITIAL 0.0 .
 257 DEF VAR tax-total AS DEC NO-UNDO INITIAL 0.0 .
 258
 259     line = "Cheque " + STRING( Cheque.ChequeNo, ">999999")
 260          + "  C" + STRING( Cheque.CreditorCode, "99999") + " " + Cheque.Payee.
 261     RUN pclrep-line( break1-font, line ).
 262
 263     FOR EACH Voucher WHERE Voucher.BankAccountCode = Cheque.BankAccountCode
 264                        AND Voucher.ChequeNo = Cheque.ChequeNo NO-LOCK
 265                        BY Voucher.BankAccountCode BY Voucher.ChequeNo BY Voucher.VoucherSeq:
 266       line = STRING( "VCHR" + STRING( Voucher.VoucherSeq ), "X(11)")
 267            + (IF Voucher.Date = ? THEN FILL(" ",10) ELSE STRING(  Voucher.Date, "99/99/9999" )) + " "
 268            + STRING( Voucher.Description, "X(50)" ) + " "
 269            + STRING( Voucher.InvoiceReference, "X(25)") + " "
 270            + STRING( Voucher.InvoicePeriod, "X(25)") .
 271       cheque-total = cheque-total + Voucher.TaxValue + Voucher.GoodsValue .
 272       tax-total    = tax-total + Voucher.TaxValue.
 273       RUN pclrep-line( line1-font, line ).
 274
 275       IF CAN-FIND( FIRST VoucherLine OF Voucher) THEN DO:
 276         FOR EACH VoucherLine OF Voucher NO-LOCK:
 277           line = SPC(16) + VoucherLine.EntityType + " "
 278                + STRING( VoucherLine.EntityCode, "99999" ) + " "
 279                + STRING( VoucherLine.AccountCode, "9999.99" ) + " "
 280                + STRING( VoucherLine.Amount, ">>>,>>>,>>9.99CR") + "  "
 281                + STRING( VoucherLine.TaxAmount, ">>>,>>>,>>9.99CR") + "  "
 282                + STRING( VoucherLine.Description, "X(50)") .
 283           RUN pclrep-line( line2-font, line ).
 284         END.
 285       END.
 286       ELSE DO:
 287         line = SPC(16) + Voucher.EntityType + " "
 288              + STRING( Voucher.EntityCode, "99999" ) + " "
 289              + STRING( Voucher.AccountCode, "9999.99" ) + " "
 290              + STRING( Voucher.GoodsValue + Voucher.TaxValue, ">>>,>>>,>>9.99CR") + "  "
 291              + STRING( Voucher.TaxValue, ">>>,>>>,>>9.99CR") + "  "
 292              + STRING( Voucher.Description, "X(50)") .
 293         RUN pclrep-line( line2-font, line ).
 294       END.
 295       RUN pclrep-line( line2-font, "" ).
 296     END.
 297
 298   line = SPC(32) + FILL( FILL("-", 14) + "    ", 2).
 299   RUN pclrep-line( line2-font, line ).
 300   line = SPC(32) + STRING( cheque-total, ">>>,>>>,>>9.99CR" ) + "  "
 301                  + STRING( tax-total, ">>>,>>>,>>9.99CR" ).
 302   RUN pclrep-line( line2-font, line ).
 303   RUN pclrep-line( ?, ? ).
 304
 305 END FUNCTION.
 306
 307 /* _UIB-CODE-BLOCK-END */
 308 &ANALYZE-RESUME
 309
 310