home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
xbase
/
library
/
dbase
/
ledge
/
vendedit.prg
< prev
next >
Wrap
Text File
|
1986-01-12
|
931b
|
54 lines
SET HEADING OFF
SET SAFETY OFF
****************************** (VENDEDIT.PRG) jay kenney 8/15/85
CLEAR
USE VEND
SET EXACT ON
SET TALK OFF
SET CONFIRM ON
DO WHILE .T.
@ 2,0 CLEAR
@ 20,22 SAY 'Do you want to edit a vendor ?'
?
?
STORE ' ' TO OPTION
WAIT ' ? 'TO OPTION
IF OPTION='N'
RETURN
ENDIF
STORE 0 TO X
CLEA
@ 2,0 SAY ' Please enter account number ' GET X
READ
IF X=0
RETURN
ENDIF
IF OPTION='Y'
LOCATE FOR ACCT=X
IF EOF()
LOOP
ENDIF EOF()
STORE RECNO() TO RECNO
?
@ 4,25 SAY 'Enter Ctrl W when finished...'
?
?
SET FORMAT TO VENDEDIT.FMT
SET CONFIRM ON
EDIT RECNO
@ 2,0 CLEAR
CLOSE FORMAT VENDEDIT.FMT
@ 15,25 SAY 'Do you want to pack the database ? '
STORE ' ' TO OPTION
?
WAIT ' ' TO OPTION
IF OPTION='Y'
SET TALK ON
CLEA
PACK
SET TALK OFF
ENDIF
SET CONFIRM OFF
ENDDO
RETURN