home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
xbase
/
library
/
dbase
/
ledge
/
update.prg
< prev
next >
Wrap
Text File
|
1986-01-12
|
695b
|
31 lines
******************************(UPDATE.PRG)--JAY KENNEY
CLEA
USE PAY
? 'Sorting pay file...'
SORT TO TEMP ON NAME,DUEDATE FOR NAME<>' '
USE TEMP
?
? '30 Days past due...'
REPL ALL OLD30 WITH NET FOR DUEDATE < DATE()
?
? '60 Days past due...'
REPL ALL OLD60 WITH NET FOR DUEDATE < DATE()-30
?
? '90 Days past due...'
REPL ALL OLD90 WITH NET FOR DUEDATE < DATE()-60
?
? '120 Days past due...'
REPL ALL OLD120 WITH NET FOR DUEDATE < DATE()-90
?
? 'Over 120...'
REPL ALL OLDER WITH NET FOR DUEDATE < DATE()-120
GO TOP
?
? 'Copying to active pay file...'
COPY TO PAY
CLEA
USE PAY
DELE FILE TEMP.DBF
@ 23,1 SAY 'Press F9 to return to the main menu.'
RETURN