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

 
Output of file : BAL.PRG contained in archive : DB3AR.ZIP
******************************** (B:BAL.PRG)
SET EXACT ON
CLEAR
USE B:CUST INDEX B:ACCT
DO WHILE .NOT. EOF()
CLEAR
@ 19,1 SAY 'Want to sum a balance? '
STORE ' ' TO OPTION
?
WAIT ' ? ' TO OPTION
IF OPTION <> 'Y'
RETURN
ENDIF
IF OPTION='Y'
CLEAR
MNET=0.00
OVER_30=0.00
OVER_45=0.00
OVER_60=0.00
MACCT = ' '
ACCEPT 'What account number ? ' TO MACCT
MNAME=' '
FIND &MACCT
STORE NAME TO MNAME
USE B:INV
CLEAR
@ 10,0 SAY "I'm working on"
@ 10,15 SAY MNAME
@ 11,0 SAY '============================================'
COPY TO B:TEMP FOR ACCT = MACCT
USE B:TEMP
GO TOP
SET TALK ON
SUM NET TO MNET
SUM NET FOR NEWDATE <= DATE() - 60 TO OVER30
SUM NET FOR NEWDATE <= DATE() - 75 TO OVER45
SUM NET FOR NEWDATE <= DATE() - 90 TO OVER60
SET TALK OFF
USE B:CUST INDEX B:ACCT
FIND &MACCT
REPLACE NET WITH MNET
REPLACE OLD_30 WITH OVER30
REPLACE OLD_45 WITH OVER45
REPLACE OLD_60 WITH OVER60
?
@ 10,4 SAY 'looking at'
@ 13,13 SAY CHR(27)
@ 13,14 SAY '---------- Total net due'
@ 15,13 SAY CHR(27)
@ 15,14 SAY '---------- 30 Days past due'
@ 17,13 SAY CHR(27)
@ 17,14 SAY '---------- 45 Days past due'
@ 19,13 SAY CHR(27)
@ 19,14 SAY '---------- 60 Days past due'
?
?
WAIT 'Press anything... '
ENDIF
ENDDO
RETURN



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