home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
db3plsar.zip
/
INACTIVE.PRG
< prev
next >
Wrap
Text File
|
1986-08-04
|
1KB
|
44 lines
*********************(INACTIVE.PRG)
CLEA
USE CUST
STORE CTOD(' / / ') TO MDATE
STORE 0 TO NUMB
SET CONFIRM ON
@ 10,0 SAY 'This will view inactive customers and give you the ì
option of taking'
@ 11,0 SAY 'them out of the active customer database.'
@ 12,0 SAY 'You will also be able to print a list of customers that are inactive.'
@ 15,15 SAY 'From what date should I look backwards? 'GET MDATE
READ
SET TALK ON
@ 15,0 CLEA
@ 15,5 SAY MDATE
COUNT TO NUMB FOR NEWDATE<MDATE
SET TALK OFF
?
?
? NUMB
WAIT
CLEA
GO TOP
DISPLAY ALL OFF ACCT,NAME,ADDRESS,NEWDATE FOR NEWDATE<MDATE
STORE 'Y' TO OPTION
DO WHILE .T.
@ 23,0 CLEA
WAIT ' Are there any of these you want to take out? ' ì
TO OPTION
IF OPTION<>'Y'
RETURN
ENDIF
IF OPTION='Y'
STORE ' ' TO WHO
@ 24,0 CLEA
@ 24,0 SAY 'What account please ? ' GET WHO
READ
USE INACTIVE
APPE FROM CUST FOR ACCT=WHO
STORE ' ' TO OPTION
ENDIF
ENDDO
RETURN