! ARSTM.FRM
! Standard Plain Paper Statement
! 12/17/04 PTM - New Layout
! (Boxes, Proportional Font, Color)
!
!
! AVAILABLE CALCULATED FIELDS
! ===========================
!
! Field Name Data Type Description
! -------------------- --------------- ---------------------------------------------------
! CALC_AGDATEHI1 String Aging 1 Ending Date
! CALC_AGDATEHI2 String Aging 2 Ending Date
! CALC_AGDATEHI3 String Aging 3 Ending Date
! CALC_AGDATEHI4 String Aging 4 Ending Date
! CALC_AGDATEHI5 String Aging 5 Ending Date
! CALC_AGDATELO1 String Aging 1 Beginning Date
! CALC_AGDATELO2 String Aging 2 Beginning Date
! CALC_AGDATELO3 String Aging 3 Beginning Date
! CALC_AGDATELO4 String Aging 4 Beginning Date
! CALC_AGDATELO5 String Aging 5 Beginning Date
! CALC_AGING1 Currency Aging 1 Total (most current)
! CALC_AGING2 Currency Aging 2 Total
! CALC_AGING3 Currency Aging 3 Total
! CALC_AGING4 Currency Aging 4 Total
! CALC_AGING4&5 Currency Aging 4 Total + Aging 5 Total
! CALC_AGING5 Currency Aging 5 Total (least current)
! CALC_CREDITLIMITMSG String Credit Limit message ([LIMIT] = credit limit, [AVAIL] = available credit)
! CALC_CREDITTERMS String Customer Terms
! CALC_CUSTADDR1 String Customer Name & Address Line 1
! CALC_CUSTADDR2 String Customer Name & Address Line 2
! CALC_CUSTADDR3 String Customer Name & Address Line 3
! CALC_CUSTADDR4 String Customer Name & Address Line 4
! CALC_DISCBALDUE Currency Discounted Balance Due (CALC_TOTALDUE - CALC_DISCTOTAL)
! CALC_DISCDATE String Discount Valid Until Date
! CALC_DISCOUNTMSG String Discount Message ([AMOUNt] = disc avail, [DATE] = discount valid date)
! CALC_DISCTOTAL Currency Discount Total
! CALC_DUNNINGMSG String Dunning Message
! CALC_FINCHGBAL Currency Finance Charge Total
! CALC_INVOICEBAL Currency Invoice Balance for current line
! CALC_JOBTOTAL Currency Total Invoices for job
! CALC_LASTJOB String Last Job Desc/Id processed
! CALC_NFAGING1 Currency Non-finance charge Aging 1 Total (most current)
! CALC_NFAGING2 Currency Non-finance charge Aging 2 Total
! CALC_NFAGING3 Currency Non-finance charge Aging 3 Total
! CALC_NFAGING4 Currency Non-finance charge Aging 4 Total
! CALC_NFAGING4&5 Currency Non-finance charge Aging 4 Total + Aging 5 Total
! CALC_NFAGING5 Currency Non-finance charge Aging 5 Total (least current)
! CALC_PAIDTHISMOMSG String Total payments this month ([AMOUNT] = total payments)
! CALC_PLANTTOTAL Currency Total Invoices for plant
! CALC_PREVBALAMT Currency Previous Balance (balance forward only)
! CALC_PREVBALDATE String Previous Balance Date (Aging 1 Beginning Date)
! CALC_RETADDR1 String Company Address Line 1
! CALC_RETADDR2 String Company Address Line 2
! CALC_RETADDR3 String Company Address Line 3
! CALC_RETADDR4 String Company Address Line 4
! CALC_RUNNINGTOTAL Currency Cumulative invoice total
! CALC_STMTDATE String Statement Date
! CALC_STMTMSG1 String Statement Message Line 1
! CALC_STMTMSG2 String Statement Message Line 2
! CALC_STMTMSG3 String Statement Message Line 3
! CALC_STMTMSG4 String Statement Message Line 4
! CALC_TOTALDUE Currency Grand Total
! COND_PRINTCREDITLIMIT Boolean True to print credit limit
! COND_PRINTDISCOUNT Boolean True to print discount message
! COND_PRINTDUNNING Boolean True to print dunning message
! COND_PRINTPAIDTHISMO Boolean True to print payments this month
! COND_TAXABLE Boolean True if invoice has non-zero tax amount
FORM
TITLE Plain Paper Statement
LENGTH 66 WIDTH 80 PRINTER ARStatement
NEWPAGE
FONTNAME Verdana
HEADING
LINE 2 COLUMN 4
LEFT 24 IMAGE c:\xfr\ghlogo.jpg
FONTNAME Times New Roman
FONTSIZE 36
BOLD ON
COLUMN 1 RIGHT 77 TEXT STATEMENT
BOLD OFF
FONTNAME Default
LINE +1
FONTSIZE 6
COLUMN 30 FIELD CALC_RETADDR2
FONTSIZE 0
LINE +1
FONTSIZE 6
COLUMN 30 FIELD CALC_RETADDR3
FONTSIZE 0
LINE +1
FONTSIZE 6
COLUMN 30 FIELD CALC_RETADDR4
FONTSIZE 0
COLUMN 56 TEXT As Of
FIELD CALC_STMTDATE
LINE +5 COLUMN 12 FIELD CALC_CUSTADDR1
LINE +1 COLUMN 12 FIELD CALC_CUSTADDR2
LINE +1 COLUMN 12 FIELD CALC_CUSTADDR3
LINE +1 COLUMN 12 FIELD CALC_CUSTADDR4
LINE +2 COLUMN 58 TEXT Your Terms Are
LINE +1 COLUMN 12 TEXT Account #
FIELD CUST_NO
COLUMN 58 FIELD CALC_CREDITTERMS
LINE +2 COLUMN 4
BOX 1,74,0,20
BOX 32,74
BOX 32,9
BOX 32,17
BOX 32,30
BOX 32,43
BOX 32,56
COLUMN 4 CENTER 8 TEXT Date
COLUMN 13 RIGHT 7 TEXT Invoice
COLUMN 21 RIGHT 12 TEXT Charges
COLUMN 34 RIGHT 12 TEXT Credits
COLUMN 47 RIGHT 12 TEXT Balance
COLUMN 61 TEXT Job Id
DETAIL
LENGTH 30
LINE +1
COLUMN 4 RIGHT 8 FORMAT m/dd/yy FIELD INVOICE_DATE
COLUMN 13 RIGHT 7 FIELD INVOICE_NO
COLUMN 21 FORMAT #########.00 FIELD DEBIT_AMOUNT
COLUMN 34 FORMAT #########.00 FIELD CREDIT_AMOUNT
COLUMN 47 FORMAT #########.00 FIELD CALC_INVOICEBAL
COLUMN 61 FIELD JOB_PO_LOC
DETAIL 2
LINE +1 COLUMN 47 FORMAT #########.00 FIELD CALC_JOBTOTAL
COLUMN 61 TEXT SUB-TOTAL
DETAIL 3
LINE +1
COLUMN 4 RIGHT 8 FORMAT m/dd/yy FIELD CALC_PREVBALDATE
COLUMN 13 TEXT Previous
COLUMN 21 TEXT Balance
COLUMN 47 FORMAT #########.00 FIELD CALC_PREVBALAMT
COLUMN 61 FIELD CALC_LASTJOB
DETAIL 4
LINE +1 COLUMN 4 TEXT PLANT:
COLUMN 13 FIELD PLANT_NAME
COLUMN 47 FORMAT #########.00 FIELD CALC_PLANTTOTAL
COLUMN 61 TEXT SUB-TOTAL
TOTAL
LINE 50 COLUMN 1
FONTSIZE 8
COLUMN 1 CENTER 80 FIELD CALC_STMTMSG1
FONTSIZE 0
LINE +1 COLUMN 1
FONTSIZE 8
COLUMN 1 CENTER 80 FIELD CALC_STMTMSG2
FONTSIZE 0
LINE +1 COLUMN 1
FONTSIZE 8
COLUMN 1 CENTER 80 FIELD CALC_STMTMSG3
FONTSIZE 0
LINE +1 COLUMN 1
FONTSIZE 8
COLUMN 1 CENTER 80 FIELD CALC_STMTMSG4
FONTSIZE 0
LINE +1 COLUMN 4
BOX 2,74,0,20
BOX 3,74
COLUMN 5 RIGHT 12 FIELD CALC_AGDATELO1
COLUMN 17 RIGHT 12 FIELD CALC_AGDATELO2
COLUMN 29 RIGHT 12 FIELD CALC_AGDATELO3
COLUMN 41 RIGHT 12 FIELD CALC_AGDATELO4
COLUMN 53 RIGHT 12 FIELD CALC_AGDATELO5
LINE +1 COLUMN 5 RIGHT 12 FIELD CALC_AGDATEHI1
COLUMN 17 RIGHT 12 FIELD CALC_AGDATEHI2
COLUMN 29 RIGHT 12 FIELD CALC_AGDATEHI3
COLUMN 41 RIGHT 12 FIELD CALC_AGDATEHI4
COLUMN 53 RIGHT 12 FIELD CALC_AGDATEHI5
BOLD ON
COLUMN 65 RIGHT 12 TEXT Total Due
BOLD OFF
LINE +1 COLUMN 5 FORMAT #########.00 FIELD CALC_AGING1
COLUMN 17 FORMAT #########.00 FIELD CALC_AGING2
COLUMN 29 FORMAT #########.00 FIELD CALC_AGING3
COLUMN 41 FORMAT #########.00 FIELD CALC_AGING4
COLUMN 53 FORMAT #########.00 FIELD CALC_AGING5
BOLD ON
COLUMN 65 FORMAT #########.00 FIELD CALC_TOTALDUE
BOLD OFF
IF COND_PRINTDUNNING
COLOR clRed
LINE +2 COLUMN 1 CENTER 80 FIELD CALC_DUNNINGMSG
COLOR clBlack
ENDIF
IF COND_PRINTPAIDTHISMO
LINE +1 COLUMN 1 CENTER 80 FIELD CALC_PAIDTHISMOMSG
ENDIF
IF COND_PRINTCREDITLIMIT
LINE +1 COLUMN 1 CENTER 80 FIELD CALC_CREDITLIMITMSG
ENDIF
IF COND_PRINTDISCOUNT
LINE +1 COLUMN 1 CENTER 80 FIELD CALC_DISCOUNTMSG
ENDIF
TOTAL 2
LINE +2 COLUMN 36 TEXT CONTINUED
TOTAL 4
LINE +6 COLUMN 26 TEXT GRAND TOTAL
COLUMN 45 FIELD DUE_NOW_TOTAL FORMAT PIC(ZZZZZZZZZZ.ZZ-)
LINE +2 COLUMN 26 TEXT FUTURE TOTAL
COLUMN 45 FIELD FUTURE_DUE FORMAT PIC(ZZZZZZZZZZ.ZZ-)