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

 
Output of file : ALLBAL.PRG contained in archive : DB3AR.ZIP
************************************* (B:ALLBAL.PRG)
CLEAR
@ 13,1 SAY 'Do you want to proceed?'
?
STORE ' ' TO OPTION
WAIT ' ? ' TO OPTION
IF OPTION<>'Y'
RETURN
ENDIF
CLEAR
STORE 0 TO COUNTR
STORE 0 TO XCOUNT
USE B:CUST INDEX B:ACCT
COUNT TO COUNTR
GO TOP
SET EXACT ON
SET TALK ON
MACCT=' '
MNAME=' '
ACCEPT 'Start with what account number? ' TO MACCT
DO WHILE .NOT. EOF()
STORE XCOUNT+1 TO XCOUNT
FIND &MACCT
STORE NAME TO MNAME
CLEAR
@ 1,1 SAY "I'm working on "
@ 1,17 SAY MNAME
@ 3,17 SAY STR(XCOUNT,3,0)
@ 3,24 SAY 'of'
@ 3,28 SAY STR(COUNTR,3,0)
USE B:INV
COPY TO B:TEMP FOR ACCT = MACCT
USE B:TEMP
GO TOP
MNET=0.00
OVER30=0.00
OVER45=0.00
OVER60=0.00
SET TALK ON
SUM NET FOR ACCT = MACCT TO MNET
SUM NET FOR ACCT = MACCT .AND. NEWDATE <= DATE() - 60 TO OVER30
SUM NET FOR ACCT = MACCT .AND. NEWDATE <= DATE() - 75 TO OVER45
SUM NET FOR ACCT = MACCT .AND. NEWDATE <= DATE() - 90 TO OVER60
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
SET TALK OFF
SKIP +1
STORE ACCT TO MACCT
ENDDO
RETURN




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