process/report/statemnt.p

   1 &ANALYZE-SUSPEND _VERSION-NUMBER UIB_v8r12
   2 &ANALYZE-RESUME
   3 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS Procedure
   4 /*--------------------------------------------------------------------------
   5     File        :
   6     Purpose     :
   7
   8     Syntax      :
   9
  10     Description :
  11
  12     Author(s)   :
  13     Created     :
  14     Notes       :
  15   ------------------------------------------------------------------------*/
  16
  17 &SCOPED-DEFINE trn-per-page 43
  18
  19 DEF INPUT PARAMETER report-options AS CHAR NO-UNDO.
  20
  21 DEF VAR from-tenant LIKE Tenant.TenantCode NO-UNDO.
  22 DEF VAR to-tenant   LIKE Tenant.TenantCode NO-UNDO.
  23 DEF VAR open-only   AS LOGI NO-UNDO.
  24 DEF VAR active-only AS LOGI NO-UNDO.
  25 DEF VAR prop-code   LIKE Property.PropertyCode NO-UNDO.
  26 DEF VAR from-month  LIKE Month.MonthCode NO-UNDO.
  27 DEF VAR to-month    LIKE Month.MonthCode NO-UNDO.
  28 DEF VAR summarise-part AS LOGI NO-UNDO.
  29 DEF VAR show-zeroes AS LOGI NO-UNDO.
  30 RUN parse-parameters.
  31
  32 DEF VAR logo-codes AS CHAR NO-UNDO.
  33
  34 /* Report counters */
  35 DEF VAR ln AS DEC INIT 0.00 NO-UNDO.
  36
  37 /* Line definitions */
  38
  39 DEF VAR statement-total AS DEC NO-UNDO.
  40
  41 DEF VAR title-line     AS CHAR EXTENT 4 NO-UNDO.
  42 DEF VAR title-address  AS CHAR EXTENT 4 NO-UNDO.
  43 DEF VAR date-in-words  AS CHAR NO-UNDO.
  44
  45 DEF VAR client-code AS CHAR NO-UNDO.
  46 DEF VAR entity-type AS CHAR NO-UNDO.
  47 DEF VAR entity-code AS INT  NO-UNDO.
  48 DEF VAR tenant-address AS CHAR EXTENT 7 NO-UNDO.
  49 DEF VAR office-address AS CHAR EXTENT 5 NO-UNDO.
  50 DEF VAR trn-line       AS CHAR NO-UNDO.
  51 DEF VAR trn-no         AS INT NO-UNDO.
  52 DEF VAR regarding      AS CHAR NO-UNDO.
  53
  54 DEF VAR reset-page            AS CHAR NO-UNDO.
  55 DEF VAR half-line             AS CHAR NO-UNDO. half-line = CHR(27) + "=".
  56 DEF VAR line-printer          AS CHAR NO-UNDO.
  57 DEF VAR tenant-address-font   AS CHAR NO-UNDO.
  58 DEF VAR header-font           AS CHAR NO-UNDO.
  59 DEF VAR re-font               AS CHAR NO-UNDO.
  60 DEF VAR trn-font              AS CHAR NO-UNDO.
  61 DEF VAR remittance-title-font AS CHAR NO-UNDO.
  62 DEF VAR remittance-font       AS CHAR NO-UNDO.
  63 DEF VAR remittance-prompt     AS CHAR NO-UNDO.
  64 DEF VAR remittance-font-bold  AS CHAR NO-UNDO.
  65 DEF VAR id-font               AS CHAR NO-UNDO.
  66
  67 DEF VAR total-line-printed AS LOGI NO-UNDO.
  68
  69 {inc/ofc-this.i}
  70 {inc/ofc-acct.i "DEBTORS" "sundry-debtors"}
  71
  72 {inc/ofc-set-l.i "Statement-IsTaxInvoice" "is-tax-invoice"}
  73
  74 DEF VAR gst-applies AS LOGI NO-UNDO.
  75 gst-applies = Office.GST <> ?.
  76
  77 {inc/ofc-set.i "GST-Number" "gst-number"}
  78 IF NOT AVAILABLE(OfficeSetting) THEN
  79   gst-number = REPLACE( STRING( Office.GSTNo, ">99,999,999"),",","-") .
  80 {inc/ofc-set.i "GST-Number-Name" "gst-number-name"}
  81 IF NOT AVAILABLE(OfficeSetting) THEN
  82   gst-number-name = "GST NO.".
  83
  84 DEF VAR user-name AS CHAR NO-UNDO.
  85 DEF VAR print-id  AS CHAR NO-UNDO.
  86 {inc/username.i "user-name"}
  87 print-id = STRING( TODAY, "99/99/9999" ) + " " + STRING( TIME, "HH:MM" ) + " " +
  88   user-name.
  89
  90 /* _UIB-CODE-BLOCK-END */
  91 &ANALYZE-RESUME
  92
  93
  94 &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK
  95
  96 /* ********************  Preprocessor Definitions  ******************** */
  97
  98 &Scoped-define PROCEDURE-TYPE Procedure
  99 &Scoped-define DB-AWARE no
 100
 101
 102
 103 /* _UIB-PREPROCESSOR-BLOCK-END */
 104 &ANALYZE-RESUME
 105
 106
 107
 108 /* *********************** Procedure Settings ************************ */
 109
 110 &ANALYZE-SUSPEND _PROCEDURE-SETTINGS
 111 /* Settings for THIS-PROCEDURE
 112    Type: Procedure
 113    Allow:
 114    Frames: 0
 115    Add Fields to: Neither
 116    Other Settings: CODE-ONLY COMPILE
 117  */
 118 &ANALYZE-RESUME _END-PROCEDURE-SETTINGS
 119
 120 /* *************************  Create Window  ************************** */
 121
 122 &ANALYZE-SUSPEND _CREATE-WINDOW
 123 /* DESIGN Window definition (used by the UIB)
 124   CREATE WINDOW Procedure ASSIGN
 125          HEIGHT             = 21.9
 126          WIDTH              = 40.
 127 /* END WINDOW DEFINITION */
 128                                                                         */
 129 &ANALYZE-RESUME
 130
 131 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _INCLUDED-LIB Procedure
 132 /* ************************* Included-Libraries *********************** */
 133
 134 {inc/method/m-txtrep.i}
 135 {inc/method/m-hpgl.i}
 136 {inc/entity.i}
 137 {inc/convert.i}
 138
 139 /* _UIB-CODE-BLOCK-END */
 140 &ANALYZE-RESUME
 141
 142
 143
 144
 145
 146 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK Procedure
 147
 148
 149 /* ***************************  Main Block  *************************** */
 150
 151 RUN get-control-strings.
 152 OUTPUT TO VALUE(txtrep-print-file) KEEP-MESSAGES PAGE-SIZE 0.
 153
 154 RUN statement-of-account.
 155
 156 OUTPUT CLOSE.
 157 RUN view-output-file ( no ).
 158
 159 /* _UIB-CODE-BLOCK-END */
 160 &ANALYZE-RESUME
 161
 162
 163 /* **********************  Internal Procedures  *********************** */
 164
 165 &IF DEFINED(EXCLUDE-carriage-return) = 0 &THEN
 166
 167 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE carriage-return Procedure
 168 PROCEDURE carriage-return :
 169 /*------------------------------------------------------------------------------
 170   Purpose:
 171   Parameters:  <none>
 172   Notes:
 173 ------------------------------------------------------------------------------*/
 174
 175   PUT CONTROL CHR(13).
 176
 177 END PROCEDURE.
 178
 179 /* _UIB-CODE-BLOCK-END */
 180 &ANALYZE-RESUME
 181
 182 &ENDIF
 183
 184 &IF DEFINED(EXCLUDE-each-closing-group) = 0 &THEN
 185
 186 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE each-closing-group Procedure
 187 PROCEDURE each-closing-group :
 188 /*------------------------------------------------------------------------------
 189   Purpose:
 190 ------------------------------------------------------------------------------*/
 191 DEF VAR grp-amount AS DEC NO-UNDO INITIAL 0.
 192 DEF VAR dispDate AS CHAR NO-UNDO.
 193 DEF VAR dispReference AS CHAR NO-UNDO.
 194 DEF VAR dispDescription AS CHAR NO-UNDO.
 195
 196   FIND LAST AcctTran NO-LOCK OF ClosingGroup NO-ERROR.
 197   IF NOT AVAILABLE(AcctTran) THEN RETURN.
 198
 199   ASSIGN    dispDate = STRING( ClosingGroup.Date, "99/99/9999" )
 200             dispReference   = "CG " + STRING( ClosingGroup.ClosingGroup)
 201             dispDescription = (IF ClosingGroup.Description <> ""
 202                                     THEN ClosingGroup.Description
 203                                     ELSE AcctTran.Description ) .
 204
 205   IF dispDescription = "" THEN DO:
 206     FIND Document NO-LOCK OF AcctTran.
 207     IF dispDescription = "" THEN dispDescription = Document.Description.
 208   END.
 209
 210   DEF BUFFER AltTran FOR AcctTran.
 211   FOR EACH AltTran NO-LOCK OF ClosingGroup:
 212     grp-amount = grp-amount + AltTran.Amount.
 213   END.
 214
 215   RUN next-transaction.
 216
 217   PUT UNFORMATTED  dispDate                         SPACE(3)
 218         STRING( dispReference, "X(12)" )            SPACE(3)
 219         STRING( dispDescription, "X(50)" )          SPACE(4)
 220         STRING( grp-amount, ">,>>>,>>>,>>9.99CR" ).
 221   RUN skip-line(1).
 222
 223   statement-total = statement-total + grp-amount.
 224
 225
 226 END PROCEDURE.
 227
 228 /* _UIB-CODE-BLOCK-END */
 229 &ANALYZE-RESUME
 230
 231 &ENDIF
 232
 233 &IF DEFINED(EXCLUDE-each-tenant) = 0 &THEN
 234
 235 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE each-tenant Procedure
 236 PROCEDURE each-tenant :
 237 /*------------------------------------------------------------------------------
 238   Purpose:
 239   Parameters:  <none>
 240   Notes:
 241 ------------------------------------------------------------------------------*/
 242
 243 &SCOPED-DEFINE tran-clause   AcctTran.EntityType  = 'T' AND ~
 244                              AcctTran.EntityCode  = Tenant.TenantCode AND ~
 245                              AcctTran.AccountCode = sundry-debtors
 246
 247 &SCOPED-DEFINE by-clause BY AcctTran.EntityType ~
 248                          BY AcctTran.EntityCode ~
 249                          BY AcctTran.AccountCode~
 250                          BY AcctTran.Date ~
 251                          BY AcctTran.BatchCode ~
 252                          BY AcctTran.DocumentCode ~
 253                          BY AcctTran.TransactionCode
 254
 255   FIND AccountSummary WHERE AccountSummary.EntityType = "T"
 256                         AND AccountSummary.EntityCode = Tenant.TenantCode
 257                         AND AccountSummary.AccountCode = sundry-debtors
 258                         AND AccountSummary.Balance <> 0
 259                         NO-LOCK NO-ERROR.
 260   IF (prop-code <> ? OR from-tenant <> to-tenant)
 261          AND NOT AVAILABLE(AccountSummary) THEN RETURN.
 262
 263   RUN get-tenant-details.
 264   RUN page-header.
 265   total-line-printed = No.
 266   statement-total = 0.
 267
 268   IF from-month = ? OR to-month = ? OR summarise-part THEN DO:
 269     FOR EACH AcctTran NO-LOCK WHERE {&tran-clause} AND
 270       (AcctTran.ClosingGroup = ? OR
 271           (IF summarise-part THEN No ELSE ((AcctTran.ClosedState = "P") OR NOT open-only) ))
 272       {&by-clause}:
 273       RUN each-transaction.
 274     END.
 275     IF summarise-part THEN DO:
 276       FOR EACH ClosingGroup NO-LOCK
 277             WHERE ClosingGroup.EntityType = "T"
 278               AND ClosingGroup.EntityCode = Tenant.TenantCode
 279               AND ClosingGroup.AccountCode = sundry-debtors
 280               AND ClosingGroup.ClosedStatus = "P"
 281               BY ClosingGroup.EntityType BY ClosingGroup.EntityCode
 282               BY ClosingGroup.AccountCode BY ClosingGroup.Date:
 283         RUN each-closing-group.
 284       END.
 285     END.
 286   END.
 287   ELSE
 288     FOR EACH AcctTran NO-LOCK WHERE {&tran-clause} AND
 289       AcctTran.MonthCode >= from-month AND
 290       AcctTran.monthCode <= to-month   AND
 291       (AcctTran.ClosingGroup = ? OR AcctTran.ClosedState = "P" OR NOT open-only )
 292       {&by-clause}:
 293       RUN each-transaction.
 294     END.
 295
 296   RUN total-line.
 297   RUN print-remittance.
 298   RUN page-feed.
 299
 300 END PROCEDURE.
 301
 302 /* _UIB-CODE-BLOCK-END */
 303 &ANALYZE-RESUME
 304
 305 &ENDIF
 306
 307 &IF DEFINED(EXCLUDE-each-transaction) = 0 &THEN
 308
 309 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE each-transaction Procedure
 310 PROCEDURE each-transaction :
 311 /*------------------------------------------------------------------------------
 312   Purpose:
 313   Parameters:  <none>
 314   Notes:
 315 ------------------------------------------------------------------------------*/
 316
 317   DEF VAR trn-ref  AS CHAR NO-UNDO.
 318   DEF VAR trn-desc AS CHAR NO-UNDO.
 319   RUN next-transaction.
 320
 321   IF AcctTran.Reference = "" OR AcctTran.Description = "" THEN DO:
 322     FIND FIRST Document OF AcctTran NO-LOCK.
 323     trn-ref  = IF AcctTran.Reference   <> "" THEN AcctTran.Reference
 324       ELSE Document.Reference.
 325     trn-desc = IF AcctTran.Description <> "" THEN AcctTran.Description
 326       ELSE Document.Description.
 327   END.
 328   ELSE ASSIGN
 329     trn-ref  = AcctTran.Reference
 330     trn-desc = AcctTran.Description .
 331
 332   PUT UNFORMATTED
 333     STRING( AcctTran.Date, "99/99/9999" )   SPACE(3)
 334     STRING( trn-ref, "X(12)" )              SPACE(3)
 335     STRING( trn-desc, "X(50)" )             SPACE(4)
 336     STRING( AcctTran.Amount, ">,>>>,>>>,>>9.99CR" ).
 337   RUN skip-line(1).
 338
 339   statement-total = statement-total + AcctTran.Amount.
 340
 341 END PROCEDURE.
 342
 343 /* _UIB-CODE-BLOCK-END */
 344 &ANALYZE-RESUME
 345
 346 &ENDIF
 347
 348 &IF DEFINED(EXCLUDE-get-client-address) = 0 &THEN
 349
 350 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE get-client-address Procedure
 351 PROCEDURE get-client-address :
 352 /*------------------------------------------------------------------------------
 353   Purpose:
 354 ------------------------------------------------------------------------------*/
 355 DEF INPUT PARAMETER client-code AS CHAR NO-UNDO.
 356
 357 DEF VAR i AS INT NO-UNDO.
 358 DEF VAR client-address AS CHAR NO-UNDO INITIAL "".
 359
 360   FIND Client WHERE Client.ClientCode = client-code NO-LOCK NO-ERROR.
 361   IF NOT AVAILABLE(Client) THEN RETURN.
 362
 363   client-address = TRIM( REPLACE(Client.RemittanceAddress, CHR(13), "") ).
 364   IF client-address = ? OR client-address = "" THEN RETURN.
 365
 366   DO i = 1 TO 5:
 367     IF i <= NUM-ENTRIES( client-address, "~n" ) THEN
 368       ASSIGN office-address[i] = ENTRY( i, client-address, "~n" ) NO-ERROR.
 369     ELSE
 370       office-address[i] = "".
 371
 372     IF office-address[i] = ? THEN office-address[i] = "".
 373   END.
 374
 375 END PROCEDURE.
 376
 377 /* _UIB-CODE-BLOCK-END */
 378 &ANALYZE-RESUME
 379
 380 &ENDIF
 381
 382 &IF DEFINED(EXCLUDE-get-control-strings) = 0 &THEN
 383
 384 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE get-control-strings Procedure
 385 PROCEDURE get-control-strings :
 386 /*------------------------------------------------------------------------------
 387   Purpose:     Get all control strings for this report
 388 ------------------------------------------------------------------------------*/
 389
 390   DEF VAR rows AS DEC NO-UNDO.
 391   DEF VAR cols AS DEC NO-UNDO.
 392
 393   RUN make-control-string ( "PCL", "reset,portrait,a4,tm,0,lm,6",
 394                   OUTPUT reset-page, OUTPUT rows, OUTPUT cols ).
 395
 396   RUN make-control-string ( "PCL", "LinePrinter,lpi,9.54",
 397                   OUTPUT trn-font, OUTPUT rows, OUTPUT cols ).
 398
 399   RUN make-control-string ( "PCL", "Proportional,Times,Bold,Point,10",
 400                   OUTPUT tenant-address-font, OUTPUT rows, OUTPUT cols ).
 401
 402   RUN make-control-string ( "PCL", "Proportional,Times,Bold,Point,16",
 403                   OUTPUT header-font, OUTPUT rows, OUTPUT cols ).
 404
 405   RUN make-control-string ( "PCL", "Proportional,Times,Bold,Point,11",
 406                   OUTPUT re-font, OUTPUT rows, OUTPUT cols ).
 407
 408   RUN make-control-string ( "PCL", "Proportional,Times,Bold,Point,16",
 409                   OUTPUT remittance-title-font, OUTPUT rows, OUTPUT cols ).
 410
 411   RUN make-control-string ( "PCL", "Times,Proportional,point,9,normal,lpi,7",
 412                   OUTPUT remittance-font, OUTPUT rows, OUTPUT cols ).
 413
 414   RUN make-control-string ( "PCL", "Times,Proportional,point,8,normal,lpi,7",
 415                   OUTPUT remittance-prompt, OUTPUT rows, OUTPUT cols ).
 416
 417   RUN make-control-string ( "PCL", "Times,Proportional,point,10,bold",
 418                   OUTPUT remittance-font-bold, OUTPUT rows, OUTPUT cols ).
 419
 420   RUN make-control-string ( "PCL", "Times,Proportional,Point,4,Normal",
 421                   OUTPUT id-font, OUTPUT rows, OUTPUT cols ).
 422
 423 END PROCEDURE.
 424
 425 /* _UIB-CODE-BLOCK-END */
 426 &ANALYZE-RESUME
 427
 428 &ENDIF
 429
 430 &IF DEFINED(EXCLUDE-get-office-address) = 0 &THEN
 431
 432 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE get-office-address Procedure
 433 PROCEDURE get-office-address :
 434 /*------------------------------------------------------------------------------
 435   Purpose:
 436 ------------------------------------------------------------------------------*/
 437 DEF VAR i AS INT NO-UNDO.
 438
 439   FIND FIRST Office WHERE Office.ThisOffice NO-LOCK.
 440
 441   DO i = 1 TO 5:
 442     ASSIGN
 443       office-address[i] = ENTRY( i, Office.StreetAddress, CHR(10) )
 444       office-address[i] = REPLACE( office-address[i], CHR(13), "" )
 445     NO-ERROR.
 446     IF office-address[i] = ? THEN office-address[i] = "".
 447   END.
 448
 449 END PROCEDURE.
 450
 451 /* _UIB-CODE-BLOCK-END */
 452 &ANALYZE-RESUME
 453
 454 &ENDIF
 455
 456 &IF DEFINED(EXCLUDE-get-tenant-details) = 0 &THEN
 457
 458 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE get-tenant-details Procedure
 459 PROCEDURE get-tenant-details :
 460 /*------------------------------------------------------------------------------
 461   Purpose:
 462 ------------------------------------------------------------------------------*/
 463
 464   regarding = "".
 465   IF Tenant.EntityType = 'P' THEN
 466   DO:
 467     /* Note: find fails if lease is not unique - this is deliberate! */
 468     FIND TenancyLease WHERE TenancyLease.TenantCode = Tenant.TenantCode NO-LOCK NO-ERROR.
 469     IF AVAILABLE(TenancyLease) THEN DO:
 470       regarding = TenancyLease.AreaDescription.
 471       IF regarding = ? THEN regarding = "".
 472     END.
 473
 474     FIND FIRST Property WHERE Property.PropertyCode = Tenant.EntityCode
 475       NO-LOCK NO-ERROR.
 476     IF AVAILABLE Property THEN
 477       regarding = (IF regarding <> "" THEN TRIM(regarding) + ", " ELSE "")
 478                 + Property.Name
 479                 + (IF Property.Name <> Property.StreetAddress THEN ", " + Property.StreetAddress ELSE "" ) .
 480
 481   END.
 482   ELSE IF Tenant.EntityType = 'L' THEN
 483   DO:
 484     FIND FIRST Company WHERE Company.CompanyCode = Tenant.EntityCode
 485       NO-LOCK NO-ERROR.
 486     IF AVAILABLE Company THEN regarding = Company.LegalName.
 487   END.
 488
 489   entity-type = Tenant.EntityType.
 490   entity-code = Tenant.EntityCode.
 491   client-code = get-entity-client( Tenant.EntityType, Tenant.EntityCode ).
 492   RUN get-client-address( client-code ).
 493
 494   DEF VAR addr AS CHAR NO-UNDO.
 495   DEF VAR i    AS INT  NO-UNDO.
 496
 497   RUN process/getaddr.p( "T", Tenant.TenantCode, "BILL", OUTPUT addr ).
 498   DO i = 1 TO 7: tenant-address[i] = "". END.
 499   DO i = 1 TO NUM-ENTRIES( addr, CHR(10) ):
 500     tenant-address[i] = ENTRY( i, addr, CHR(10) ).
 501   END.
 502
 503 END PROCEDURE.
 504
 505 /* _UIB-CODE-BLOCK-END */
 506 &ANALYZE-RESUME
 507
 508 &ENDIF
 509
 510 &IF DEFINED(EXCLUDE-next-transaction) = 0 &THEN
 511
 512 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE next-transaction Procedure
 513 PROCEDURE next-transaction :
 514 /*------------------------------------------------------------------------------
 515   Purpose:
 516   Parameters:  <none>
 517   Notes:
 518 ------------------------------------------------------------------------------*/
 519
 520   trn-no = trn-no + 1.
 521
 522   IF trn-no >= {&trn-per-page} THEN
 523   DO:
 524     RUN print-remittance.
 525     RUN page-feed.
 526     RUN page-header.
 527   END.
 528
 529 END PROCEDURE.
 530
 531 /* _UIB-CODE-BLOCK-END */
 532 &ANALYZE-RESUME
 533
 534 &ENDIF
 535
 536 &IF DEFINED(EXCLUDE-page-feed) = 0 &THEN
 537
 538 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE page-feed Procedure
 539 PROCEDURE page-feed :
 540 /*------------------------------------------------------------------------------
 541   Purpose:
 542   Parameters:  <none>
 543   Notes:
 544 ------------------------------------------------------------------------------*/
 545
 546   PUT CONTROL CHR(12).
 547
 548 END PROCEDURE.
 549
 550 /* _UIB-CODE-BLOCK-END */
 551 &ANALYZE-RESUME
 552
 553 &ENDIF
 554
 555 &IF DEFINED(EXCLUDE-page-header) = 0 &THEN
 556
 557 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE page-header Procedure
 558 PROCEDURE page-header :
 559 /*------------------------------------------------------------------------------
 560   Purpose:
 561   Parameters:  <none>
 562   Notes:
 563 ------------------------------------------------------------------------------*/
 564
 565   RUN reset-page.
 566   RUN print-title.
 567   RUN print-address.
 568
 569   RUN skip-line(2).
 570   PUT CONTROL header-font.
 571   IF ( is-tax-invoice ) THEN DO:
 572     PUT UNFORMATTED SPACE(26) "INVOICE / STATEMENT".
 573     RUN skip-line(1.5).
 574     PUT UNFORMATTED SPACE(36) "Tax Invoice".
 575   END.
 576   ELSE
 577     PUT UNFORMATTED SPACE(26) "STATEMENT OF ACCOUNT".
 578   RUN carriage-return.
 579   PUT UNFORMATTED FILL( '_', 64).
 580   RUN skip-line(2).
 581
 582   PUT CONTROL re-font.
 583   PUT UNFORMATTED "RE:   ".
 584   PUT CONTROL STRING( regarding, "X(100)" ).
 585   RUN skip-line(1.5).
 586   PUT CONTROL trn-font.
 587
 588 END PROCEDURE.
 589
 590 /* _UIB-CODE-BLOCK-END */
 591 &ANALYZE-RESUME
 592
 593 &ENDIF
 594
 595 &IF DEFINED(EXCLUDE-parse-parameters) = 0 &THEN
 596
 597 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE parse-parameters Procedure
 598 PROCEDURE parse-parameters :
 599 /*------------------------------------------------------------------------------
 600   Purpose:
 601 ------------------------------------------------------------------------------*/
 602 DEF VAR n-tenant AS INT NO-UNDO.
 603 DEF VAR n-property AS INT NO-UNDO.
 604 DEF VAR type-of AS CHAR NO-UNDO.
 605 DEF VAR range-of AS CHAR NO-UNDO.
 606
 607
 608   type-of     = ENTRY( 1, report-options).
 609   n-property  = INT( ENTRY( 2, report-options)).
 610   n-tenant    = INT( ENTRY( 3, report-options)).
 611
 612   IF type-of = "All" THEN
 613     ASSIGN from-tenant = 0          to-tenant = 99999       prop-code = ?.
 614   ELSE IF type-of = "Tenant" THEN
 615     ASSIGN from-tenant = n-tenant   to-tenant = n-tenant    prop-code = ?.
 616   ELSE IF type-of = "Range" THEN
 617     ASSIGN from-tenant = n-property to-tenant = n-tenant    prop-code = ?.
 618   ELSE IF type-of = "Property" THEN
 619     ASSIGN from-tenant = ?          to-tenant = ?           prop-code = n-property.
 620
 621   range-of    = ENTRY( 4, report-options).
 622   open-only   = (ENTRY( 5, report-options) = "Yes").
 623   active-only = (ENTRY( 6, report-options) = "Yes").
 624   from-month  = INT( ENTRY( 7, report-options)).
 625   to-month    = INT( ENTRY( 8, report-options)).
 626   summarise-part = (ENTRY( 9, report-options) = "Yes").
 627   show-zeroes = (ENTRY( 10, report-options) = "Yes").
 628
 629   IF summarise-part THEN open-only = Yes.
 630   IF open-only OR range-of <> "Range" THEN ASSIGN from-month = ?    to-month = ?.
 631
 632 END PROCEDURE.
 633
 634 /* _UIB-CODE-BLOCK-END */
 635 &ANALYZE-RESUME
 636
 637 &ENDIF
 638
 639 &IF DEFINED(EXCLUDE-print-address) = 0 &THEN
 640
 641 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE print-address Procedure
 642 PROCEDURE print-address :
 643 /*------------------------------------------------------------------------------
 644   Purpose:
 645   Parameters:  <none>
 646   Notes:
 647 ------------------------------------------------------------------------------*/
 648
 649   DEF VAR i AS INT NO-UNDO.
 650
 651   RUN skip-line(6).
 652   PUT CONTROL tenant-address-font.
 653
 654   DO i = 1 TO 7:
 655     PUT UNFORMATTED tenant-address[i].
 656     IF i = 2 AND gst-applies AND is-tax-invoice THEN DO:
 657       PUT UNFORMATTED CHR(13) SPACE( 124 ) gst-number-name
 658                       CHR(13) SPACE( 140 ) gst-number.
 659     END.
 660     ELSE IF i = 4 THEN PUT UNFORMATTED CHR(13) SPACE(140) STRING( date-in-words, "X(20)" ).
 661     RUN skip-line(1).
 662   END.
 663
 664 END PROCEDURE.
 665
 666 /* _UIB-CODE-BLOCK-END */
 667 &ANALYZE-RESUME
 668
 669 &ENDIF
 670
 671 &IF DEFINED(EXCLUDE-print-remittance) = 0 &THEN
 672
 673 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE print-remittance Procedure
 674 PROCEDURE print-remittance :
 675 /*------------------------------------------------------------------------------
 676   Purpose:
 677 ------------------------------------------------------------------------------*/
 678 DEF VAR amount-due AS CHAR NO-UNDO.
 679
 680   PUT CONTROL trn-font.
 681   RUN pcl-moveto( 92, 11 ). RUN carriage-return.
 682
 683   PUT CONTROL id-font.
 684   PUT UNFORMATTED print-id.
 685   RUN carriage-return.
 686   PUT CONTROL remittance-font.
 687   PUT UNFORMATTED FILL(' ',20) + "Activity occurring after " + date-in-words + " will appear on your next statement." .
 688   RUN skip-line(0.5).
 689   PUT CONTROL remittance-title-font.
 690   PUT UNFORMATTED FILL( '_ ', 48 ). RUN skip-line(2).
 691   PUT UNFORMATTED "Remittance Advice".
 692   RUN skip-line(2).
 693   PUT CONTROL remittance-font.
 694
 695   PUT UNFORMATTED "Please return this portion with your cheque, payable to:".
 696   RUN skip-line(1.5).
 697
 698   FIND Client WHERE Client.ClientCode = client-code NO-LOCK NO-ERROR.
 699   IF AVAILABLE(Client) AND Client.Name <> Client.LegalName AND Client.LegalName <> ? AND Client.LegalName <> "" THEN
 700     PUT CONTROL remittance-font-bold Client.LegalName remittance-font.
 701   ELSE IF AVAILABLE(Client) THEN
 702     PUT CONTROL remittance-font-bold Client.Name remittance-font.
 703   RUN skip-line(1).
 704
 705   DEF VAR i AS INT NO-UNDO.
 706   DO i = 1 TO 5:
 707     PUT UNFORMATTED office-address[i]. RUN skip-line(1).
 708   END.
 709
 710   DEF VAR remittance-codes AS CHAR NO-UNDO.
 711   amount-due = IF total-line-printed THEN TRIM( STRING( statement-total, ">,>>>,>>>,>>9.99CR" ) ) ELSE "".
 712
 713   RUN hpgl-initialize.
 714   RUN hpgl-moveto( 110, 50 ).
 715   RUN hpgl-text( remittance-prompt, "Our Ref:" ).
 716   RUN hpgl-move-relative( 20, 0 ).
 717   RUN hpgl-text( remittance-font, "T" + STRING( Tenant.TenantCode, "99999" ) ).
 718   RUN hpgl-move-relative( 25, 0 ).
 719   RUN hpgl-text( remittance-prompt, "Date:" ).
 720   RUN hpgl-move-relative( 10, 0 ).
 721   RUN hpgl-text( remittance-font, STRING( TODAY, "99/99/9999" ) ).
 722   RUN hpgl-move-relative( -55, -18 ).
 723   RUN hpgl-text( remittance-prompt, "From:" ).
 724   RUN hpgl-move-relative( 20, 0 ).
 725   RUN hpgl-text( remittance-font, Tenant.Name ).
 726   RUN hpgl-move-relative( -20, -4 ).
 727   RUN hpgl-text( remittance-prompt, "Re:" ).
 728   RUN hpgl-move-relative( 20, 0 ).
 729   RUN hpgl-text( remittance-font, regarding ).
 730   RUN hpgl-move-relative( -20, -4 ).
 731   RUN hpgl-text( remittance-prompt, "Amount Due:" ).
 732   RUN hpgl-move-relative( 20, 0 ).
 733   RUN hpgl-text( remittance-font, amount-due ).
 734   RUN hpgl-move-relative( -20, -6 ).
 735   RUN hpgl-text( remittance-prompt, "Amount Paid:" ).
 736
 737   RUN hpgl-get-codes( yes, no, OUTPUT remittance-codes ).
 738   PUT CONTROL remittance-codes.
 739
 740 END PROCEDURE.
 741
 742 /* _UIB-CODE-BLOCK-END */
 743 &ANALYZE-RESUME
 744
 745 &ENDIF
 746
 747 &IF DEFINED(EXCLUDE-print-title) = 0 &THEN
 748
 749 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE print-title Procedure
 750 PROCEDURE print-title :
 751 /*------------------------------------------------------------------------------
 752   Purpose:
 753 ------------------------------------------------------------------------------*/
 754
 755   RUN hpgl-initialize.
 756   RUN client-logo( entity-type, entity-code, client-code ).
 757   RUN client-address( entity-type, entity-code, client-code ).
 758   RUN hpgl-get-codes( yes, yes, OUTPUT logo-codes ).
 759   PUT CONTROL logo-codes.
 760
 761 END PROCEDURE.
 762
 763 /* _UIB-CODE-BLOCK-END */
 764 &ANALYZE-RESUME
 765
 766 &ENDIF
 767
 768 &IF DEFINED(EXCLUDE-reset-page) = 0 &THEN
 769
 770 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE reset-page Procedure
 771 PROCEDURE reset-page :
 772 /*------------------------------------------------------------------------------
 773   Purpose:
 774   Parameters:  <none>
 775   Notes:
 776 ------------------------------------------------------------------------------*/
 777
 778   PUT CONTROL reset-page.
 779   trn-no = 0.
 780   ln = 0.
 781
 782 END PROCEDURE.
 783
 784 /* _UIB-CODE-BLOCK-END */
 785 &ANALYZE-RESUME
 786
 787 &ENDIF
 788
 789 &IF DEFINED(EXCLUDE-skip-line) = 0 &THEN
 790
 791 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE skip-line Procedure
 792 PROCEDURE skip-line :
 793 /*------------------------------------------------------------------------------
 794   Purpose:
 795   Parameters:  <none>
 796   Notes:
 797 ------------------------------------------------------------------------------*/
 798
 799   DEF INPUT PARAMETER n AS DEC NO-UNDO.
 800
 801   DEF VAR int-part AS INT NO-UNDO.
 802   DEF VAR dec-part AS DEC NO-UNDO.
 803
 804   int-part = TRUNCATE( n, 0 ).
 805   IF int-part < 0 THEN RETURN.
 806   dec-part = n - int-part.
 807   IF int-part = 0 AND dec-part = 0 THEN RETURN.
 808
 809   /* Need to have this like the following - do not touch */
 810   IF int-part <> 0 THEN PUT CONTROL FILL( CHR(10), int-part ).
 811   IF dec-part <> 0 THEN PUT CONTROL half-line.
 812
 813   ln = ln + n.
 814
 815   RUN carriage-return.
 816
 817 END PROCEDURE.
 818
 819 /* _UIB-CODE-BLOCK-END */
 820 &ANALYZE-RESUME
 821
 822 &ENDIF
 823
 824 &IF DEFINED(EXCLUDE-skip-to-line) = 0 &THEN
 825
 826 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE skip-to-line Procedure
 827 PROCEDURE skip-to-line :
 828 /*------------------------------------------------------------------------------
 829   Purpose:
 830   Parameters:  <none>
 831   Notes:
 832 ------------------------------------------------------------------------------*/
 833
 834   DEF INPUT PARAMETER line-no AS DEC NO-UNDO.
 835
 836   DEF VAR int-part AS INT NO-UNDO.
 837   DEF VAR dec-part AS DEC NO-UNDO.
 838
 839   int-part = TRUNCATE( line-no - ln, 0 ).
 840   IF int-part < 0 THEN RETURN.
 841   dec-part = ( line-no - ln ) - int-part.
 842   IF int-part = 0 AND dec-part = 0 THEN RETURN.
 843
 844   IF int-part <> 0 THEN PUT CONTROL FILL( CHR(10), int-part ).
 845   IF dec-part <> 0 THEN PUT CONTROL half-line.
 846
 847   ln = line-no.
 848
 849   RUN carriage-return.
 850
 851 END PROCEDURE.
 852
 853 /* _UIB-CODE-BLOCK-END */
 854 &ANALYZE-RESUME
 855
 856 &ENDIF
 857
 858 &IF DEFINED(EXCLUDE-statement-of-account) = 0 &THEN
 859
 860 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE statement-of-account Procedure
 861 PROCEDURE statement-of-account :
 862 /*------------------------------------------------------------------------------
 863   Purpose:
 864   Parameters:  <none>
 865   Notes:
 866 ------------------------------------------------------------------------------*/
 867
 868   RUN get-control-strings.
 869   RUN get-office-address.
 870   RUN date-to-word( TODAY, OUTPUT date-in-words ).
 871
 872   IF prop-code <> ? THEN DO:
 873     FOR EACH Tenant NO-LOCK WHERE (NOT(active-only) OR Tenant.Active)
 874                         AND Tenant.EntityType = 'P' AND Tenant.EntityCode = prop-code
 875                         BY Tenant.TenantCode:
 876       RUN each-tenant.
 877     END.
 878   END.
 879   ELSE DO:
 880     FOR EACH Tenant NO-LOCK WHERE (NOT(active-only) OR Tenant.Active)
 881                         AND Tenant.TenantCode >= from-tenant AND Tenant.TenantCode <= to-tenant
 882                         BY Tenant.TenantCode:
 883       RUN each-tenant.
 884     END.
 885   END.
 886
 887
 888 END PROCEDURE.
 889
 890 /* _UIB-CODE-BLOCK-END */
 891 &ANALYZE-RESUME
 892
 893 &ENDIF
 894
 895 &IF DEFINED(EXCLUDE-total-line) = 0 &THEN
 896
 897 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE total-line Procedure
 898 PROCEDURE total-line :
 899 /*------------------------------------------------------------------------------
 900   Purpose:
 901   Parameters:  <none>
 902   Notes:
 903 ------------------------------------------------------------------------------*/
 904
 905   trn-no = trn-no + 3.
 906   RUN next-transaction.
 907
 908   PUT UNFORMATTED SPACE(86) "------------". RUN skip-line(1).
 909   PUT UNFORMATTED
 910     SPACE(82)
 911     STRING( statement-total, ">,>>>,>>>,>>9.99CR" ). RUN skip-line(1).
 912   PUT UNFORMATTED SPACE(86) "============". RUN skip-line(1).
 913
 914   total-line-printed = Yes.
 915
 916 END PROCEDURE.
 917
 918 /* _UIB-CODE-BLOCK-END */
 919 &ANALYZE-RESUME
 920
 921 &ENDIF
 922