home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
db3plsar.zip
/
EDITACC.PRG
< prev
next >
Wrap
Text File
|
1986-08-04
|
3KB
|
95 lines
****************************** (Jay Kenney 01/25/86)
****************************** (EDITACC.PRG)
SET BELL OFF
SET EXACT ON
SET TALK OFF
SET HEADING OFF
SET SAFETY OFF
CLEAR
USE CUST
SET CONFIRM ON
DO WHILE .T.
CLEA
@ 10,22 SAY 'Do you want to edit a customer?'
?
?
STORE ' ' TO OPTION
WAIT ' ? ' TO OPTION
IF OPTION='N'
CLEA
RETURN
ENDIF
CLEAR
IF OPTION='Y'
STORE ' ' TO QUES
@ 10,9 SAY 'Edit by C)ompany name, A)ddress, P)hone, or N (Acct. number)? '
?
?
WAIT ' C,A,P or N ? ' TO QUES
IF QUES='C'
STORE ' ' TO BCO
CLEA
@ 10,1 SAY 'Enter company name (or string) ' GET BCO
? [(String can be anywhere in company name.)]
READ
STORE TRIM(BCO) TO BCO
CLEA
SET EXACT OFF
LOCA FOR BCO $ NAME
SET FORMAT TO CUSTEDIT.FMT
SET CONFIRM ON
EDIT
CLOSE FORMAT CUSTEDIT.FMT
ENDIF
IF QUES='N'
STORE ' ' TO ACTNO
CLEA
@ 10,1 SAY 'Enter account number (or string) ' GET ACTNO
? [(String can be anywhere in account number.)]
READ
STORE TRIM(ACTNO) TO ACTNO
CLEA
SET EXACT OFF
LOCA FOR ACTNO $ ACCT
SET FORMAT TO CUSTEDIT.FMT
SET CONFIRM ON
EDIT
CLOSE FORMAT CUSTEDIT.FMT
ENDIF
IF QUES='P'
STORE ' ' TO PCO
CLEA
@ 10,1 SAY 'Enter phone number (or string) ' GET PCO
? [(String can be anywhere in phone.)]
READ
STORE TRIM(PCO) TO PCO
CLEA
SET EXACT OFF
LOCA FOR PCO $ PHONE
SET FORMAT TO CUSTEDIT.FMT
SET CONFIRM ON
EDIT
CLOSE FORMAT CUSTEDIT.FMT
ENDIF
IF QUES='A'
STORE ' ' TO XCO
CLEA
@ 10,1 SAY 'Enter address (or string) ' GET XCO
? [(String can be anywhere in address.)]
READ
STORE TRIM(XCO) TO XCO
CLEA
SET EXACT OFF
LOCA FOR XCO $ UPPER(ADDRESS)
SET FORMAT TO CUSTEDIT.FMT
SET CONFIRM ON
EDIT
CLOSE FORMAT CUSTEDIT.FMT
ENDIF
CLEAR
SET CONFIRM OFF
ENDIF
ENDIF
ENDDO
RETURN