home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
db3ledge.zip
/
ENTER2.PRG
< prev
next >
Wrap
Text File
|
1986-01-12
|
927b
|
46 lines
SET HEADING OFF
SET SAFETY OFF
*************************** (ENTER2.PRG)--JAY KENNEY
CLEAR
SET BELL OFF
SET TALK OFF
SET CONFIRM ON
SET EXACT ON
STORE ' ' TO OPTION
@ 15,23 SAY 'Do you want to enter a payable ? '
?
WAIT ' ? ' TO OPTION
IF OPTION<>'Y'
RETURN
ENDIF
USE PAY
DO WHILE .T.
CLEA
APPEND BLAN
@ 12,1 SAY 'Account ' GET ACCT
@ 12,19 SAY 'Inv. number ' GET INV
@ 12,48 say 'Notes ' get notes
@ 14,1 SAY 'Inv. date ' GET DATE
@ 14,26 SAY 'Due date ' GET DUEDATE
@ 14,51 SAY 'Orig.amt. ' GET NET
READ
@ 23,25 SAY 'Is this correct? '
WAIT ' ? ' TO OPTION
IF OPTION<>'Y'
CLEA
@ 15,25 SAY 'Press Ctrl W when finished editing... '
EDIT
RETURN
ENDIF
STORE 0 TO Z
STORE ACCT TO Z
USE VEND
STORE ' ' TO MNAME
LOCA FOR ACCT=Z
STORE NAME TO MNAME
USE PAY
GO BOTT
REPL NAME WITH MNAME
ENDDO
RETURN