home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
db3plsar.zip
/
EDIT.PRG
< prev
next >
Wrap
Text File
|
1986-08-04
|
561b
|
29 lines
******************************************** (EDIT.PRG)
CLEAR
STORE ' ' TO OPTION
STORE ' ' TO MACCT
USE INV INDEX ACCTS
DO WHILE .NOT. EOF()
SET CONFIRM ON
CLEAR
@ 3,1 SAY 'Want to edit some invoices '
?
WAIT ' ? ' TO OPTION
IF OPTION<>'Y'
CLEAR
SET CONFIRM OFF
@ 13,1 SAY 'Press F9 to return to main menu '
RETURN
ENDIF
CLEAR
?
?
ACCEPT 'Customer number ? ' TO MACCT
FIND &MACCT
SET FORM TO EDIT.FMT
EDIT
SET CONFIRM OFF
CLOSE FORM EDIT.FMT
ENDDO
RETURN