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

 
Output of file : FSTATE.PRG contained in archive : DB3AR.ZIP
******************************** (B:FSTATE.PRG)
CLEAR
SET HEADING OFF
STORE 0.00 TO CNET
STORE 0.00 TO INET
SET EXACT ON
SET TALK OFF
DO WHILE .T.
USE B:CUST INDEX B:ACCT
CLEAR
@ 3,25 SAY 'Want to run one statement? '
?
?
STORE ' ' TO OPTION
WAIT ' ? ' TO OPTION
IF OPTION<>'Y'
RETURN
ENDIF
STORE 0.00 TO MNET
@ 2,0 CLEAR
ACCEPT ' Which account? ' TO X
FIND &X
STORE NET TO CNET
USE B:INV
COUNT FOR ACCT=X TO MCT
GO TOP
SUM NET FOR ACCT=X TO INET
IF MCT=0
? CHR(7)
?
?
?
?
?
? 'NO INVOICES IN FILE FOR THIS 
ACCOUNT******************************************'
?
?
?
?
LOOP
ENDIF
IF STR(CNET,9,2)<>STR(INET,9,2)
? CHR(7)
?
?
? 'YOU NEED TO UPDATE THIS CUSTOMER BEFORE PRINTING A STATEMENT'
?
?
WAIT
LOOP
ENDIF
USE B:CUST INDEX B:ACCT
FIND &X
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
CLEAR
@ 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
@ 16,0 SAY 
'=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
-=-=-=-=-=-=-=-'
USE B:INV
REPO FORM B:STMT FOR ACCT=X .AND. .NOT. PAID NOEJECT TO PRINT
SET DEVICE TO SCREEN
EJECT
SET PRINT OFF
ENDDO
RETURN


  3 Responses to “Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : DB3AR.ZIP
Filename : FSTATE.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/