Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : DB3AR.ZIP
Filename : STMT.PRG

 
Output of file : STMT.PRG contained in archive : DB3AR.ZIP
******************************** (B:NEWSTMT.PRG)
CNTR=0
CLEAR
@ 11,1 SAY 'Bail out? '
?
?
STORE ' ' TO OPTION
WAIT ' Y or N 'TO OPTION
IF OPTION='Y'
RETURN
ENDIF
STORE 2 TO CNTR
SET HEADING OFF
SET TALK OFF
USE B:CUST
DO WHILE .NOT. BOF()
CLEAR
USE B:CUST
GOTO CNTR
STORE ACCT TO X
USE B:INV
SET EXACT ON
COUNT TO MCT FOR ACCT=X .AND. .NOT. PAID
IF MCT=0
USE B:CUST
GOTO CNTR
SKIP+1
STORE RECNO() TO CNTR
STORE ACCT TO X
LOOP
ENDIF
USE B:CUST
GOTO CNTR
STORE 0 TO A,B,C,D
STORE LEN(MTITLE) TO A
STORE (80-A)/2 TO A
STORE LEN(MADD1) TO B
STORE (80-B)/2 TO B
STORE LEN(MADD2) TO C
STORE (80-C)/2 TO C
STORE LEN(MPHONE) TO D
STORE (80-D)/2 TO D
SET DEVICE TO PRINT
SET PRINT ON
@ 1,35 SAY 'STATEMENT'
@ 2,A SAY MTITLE
@ 3,B SAY MADD1
@ 4,C SAY MADD2
@ 5,D SAY MPHONE
@ 6,36 SAY DATE()
@ 7,0 SAY 
'=================================================================
==============='
@ 8,0 SAY NAME
@ 8,51 SAY 'Amt last payment:'
@ 8,71 SAY LSTPAY
@ 9,0 SAY ADDRESS
@ 9,51 SAY 'Date last payment:'
@ 9,72 SAY NEWDATE
@ 10,0 SAY TRIM(CITY) +' '+ STATE +' '+ ZIP
@ 10,51 SAY 'Check number:'
@ 10,65 SAY CHKNO
@ 11,0 SAY PHONE
@ 11,51 SAY 'Unapplied Credits:'
@ 11,68 SAY UCREDIT
@ 12,0 SAY 'Account number:'
@ 12,17 SAY ACCT
@ 12,51 SAY 'Terms:'
@ 12,59 SAY TERMS
@ 13,0 SAY 
'=================================================================
==============='
@ 14,0 SAY 'Balance:'
@ 14,7 SAY STR(NET,8,2)
IF OLD_30 < 0.01
@ 14,20 SAY 'Thank you for your prompt payment.'
ENDIF
IF OLD_30 > 0.00
@ 14,17 SAY '>>>>>>>> Amount 30 days past due date:'
@ 14,54 SAY STR(OLD_30,8,2)
ENDIF
IF OLD_45 > 0.00
@ 14,65 SAY 'Over 45:'
@ 14,72 SAY STR(OLD_45,8,2)
ENDIF
IF OLD_60 > 0.00
@ 15,0 SAY '>>>>>>>>>>>>>>>>>>>>>>>>> Amount 60 days past due 
date:'
@ 15,54 SAY STR(OLD_60,8,2)
ENDIF
? 
'=================================================================
==============='
USE B:INV
REPO FORM B:STMT FOR ACCT=X .AND. .NOT. PAID PLAIN NOEJECT TO 
PRINT
STORE CNTR +1 TO CNTR
ENDDO
RETURN



  3 Responses to “Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : DB3AR.ZIP
Filename : STMT.PRG

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/