Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : DB3LEDGE.ZIP
Filename : ENTER2.PRG

SET HEADING OFF
SET SAFETY OFF
*************************** (B:ENTER2.PRG)
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 B: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
IF NET=0.00 .OR. ACCT=0
CLEA
SET TALK ON
DELE FOR NET=0.00 .OR. ACCT=0
PACK
SET TALK OFF
RETURN
ENDIF
@ 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 B:VEND
STORE ' ' TO MNAME
LOCA FOR ACCT=Z
STORE NAME TO MNAME
USE B:PAY
GO BOTT
REPL NAME WITH MNAME
ENDDO
RETURN