home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
db3plsar.zip
/
BAL.PRG
< prev
next >
Wrap
Text File
|
1986-08-04
|
2KB
|
61 lines
******************************** (BAL.PRG)
SET EXACT ON
CLEAR
USE CUST INDEX 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 INV
CLEAR
@ 10,0 SAY "I'm working on"
@ 10,15 SAY MNAME
@ 11,0 SAY '============================================='
COPY TO TEMP FOR ACCT = MACCT
USE TEMP
GO TOP
SET TALK ON
SUM NET TO MNET
SUM NET FOR NEWDATE <= DATE() - 30 TO OVER30
SUM NET FOR NEWDATE <= DATE() - 45 TO OVER45
SUM NET FOR NEWDATE <= DATE() - 60 TO OVER60
SET TALK OFF
USE CUST INDEX 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