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

* Invedit.prg
Changing = 'Y'
DO WHILE UPPER(Changing) = 'Y'
SELECT 1
GO TOP
IF EOF()
WAIT 'There are no INVOICES in the entry file. Type any key to proceed'
Changing = 'N'
ELSE
CLEAR
WAIT 'Do you want to print the listing now (Y or N)? ' TO Hardcopy
CLEAR
? 'These are the INVOICES in the entry file.'
? 'After they are displayed, enter the number to EDIT.'
?
IF UPPER(Hardcopy) = 'Y'
SET PRINT ON
ENDIF
? ' INV # JOB # DESCRIPTION TAXABLE';
+ ' TAX NO TAX'
?
DISPLAY FOR .NOT. DELETED() Inv_Nmbr,Client +'-'+ STR(Job_Nmbr,4),;
SUBSTR(Descrip,1,26), Taxable, Sales_Tax, TaxFree OFF
SET PRINT OFF
ACCEPT 'Enter INVOICE NUMBER to EDIT, to exit ' TO T_Inv_Nmbr
IF LEN(T_Inv_Nmbr) <> 0
LOCATE FOR Inv_Nmbr = T_Inv_Nmbr
IF EOF()
?
?
? T_Inv_Nmbr + ' is not in the file.'
WAIT 'Do you want to continue (Y or N)?' TO Changing
ELSE
CLEAR
@ 3,0 SAY ' Entry' + STR(RECNO(),5)
@ 3,30 SAY ' DATE '+dtoc(Inv_Date)
@ 5,0 SAY 'INVOICE NUMBER ' GET Inv_Nmbr
@ 7,0 SAY ' CLIENT ' GET Client PICTURE '!!!'
@ 8,0 SAY ' JOB NUMBER ' GET Job_Nmbr
@ 9,0 SAY 'TAXABLE AMOUNT ' GET Taxable
@ 10,0 SAY 'TAXFREE AMOUNT ' GET TaxFree
@ 11,0 SAY ' P. O. NUMBER ' GET PO_Nmbr PICTURE '!!!!!!!!'
@ 12,0 SAY ' DESCRIPTION ' GET Descrip PICTURE ;
'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'
@ 13, 0 SAY ' SALES TAX ' GET Sales_Tax
READ
?
WAIT 'Do you want to edit any other invoices (Y or N)? ';
TO Changing
ENDIF
ELSE
Changing = 'N'
ENDIF
ENDIF
ENDDO Changing
RETURN