Software Du Jour/SoftwareDuJour.iso/BUSINESS/DBASE/DB3AR.ARC/EDITINV.PRG

Text File | 1985-10-16 | 1.5 KB | 78 lines

SET SAFETY OFF
************************(EDITINV.PRG)
CLEAR
SET BELL OFF
SET CONFIRM ON
SET TALK OFF
SET EXACT ON
DO WHILE .T.
USE B:CUST INDEX B:ACCT
@ 2,0 CLEAR
@ 20,25 SAY 'Want to edit some invoices? '
?
?
STORE ' ' TO OPTION
STORE '    ' TO X
WAIT '                              Press Y or N  ' TO OPTION
IF OPTION<>'Y'
RETURN
ENDIF
@ 2,0 CLEAR
ACCEPT "                          Enter acct number " TO X
FIND &X
IF (EOF() .OR. BOF())
@ 2,0 CLEAR
? CHR(7)
@ 6,20 SAY " I can't find an account for # &X  ..."
STORE 1 TO XX
DO WHILE XX<70
STORE XX+1 TO XX
ENDDO WHILE XX<70
LOOP
ENDIF (EOF() .OR. BOF())
@ 2,0 CLEAR
@ 6,15 SAY NAME
@ 6,50 SAY ACCT
@ 8,15 SAY ADDRESS
@ 8,50 SAY CITY
IF UCREDIT > 0.00
SET COLOR TO /W
@ 10,15 SAY 'Unapplied credits '
@ 10,32 SAY UCREDIT
SET COLOR TO W
ENDIF
@ 12,15 SAY '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~'
@ 15,25 SAY 'Is this the correct account?'
@ 16,0 SAY '  '
WAIT '                                   ?  ' TO OPTION
IF OPTION='N'
LOOP
ENDIF
@ 2,0 CLEAR
STORE NAME TO MNAME
USE B:INV INDEX B:ACCTS
@ 2,0 CLEAR
@ 15,27 SAY 'Press Ctrl W when finished'
SET TALK OFF
FIND &X
IF (EOF() .OR. BOF())
@ 2,0 CLEAR
? CHR(7)
@ 6,7 SAY " I can't find any invoices for &MNAME ..."
STORE 1 TO XX
DO WHILE XX<70
STORE XX+1 TO XX
ENDDO WHILE XX<70
LOOP
ENDIF (EOF() .OR. BOF())
SET INTENSITY ON
BROWSE FIELDS ì
ACCT,INVNO,NEWDATE,PRICE,CRINV,AMTAPPL,NET,PAID,PAYDATE,PONO
SET INTENSITY OFF
@ 2,0 CLEAR
SET HEADING OFF
ENDDO
SET CONFIRM OFF
RETURN