home *** CD-ROM | disk | FTP | other *** search
/ Software Du Jour / SoftwareDuJour.iso / BUSINESS / DBASE / DB3.ARC / INVUPDAT.PRG < prev    next >
Encoding:
Text File  |  1984-10-25  |  1.4 KB  |  51 lines
  1. * Invupdat.prg
  2. CLEAR
  3. @ 5,20 SAY '****   DO NOT INTERRUPT   ****'
  4. @ 6,20 SAY 'UPDATING BILLINGS AND INVOICES'
  5. *
  6. * Costs entered are totalled by invoice number to Scratch because several
  7. * job costs can be entered against each invoice number. Amounts are
  8. * totalled and appended onto the Invoices file.
  9. *
  10. * Copy INVGET to BILLINGS
  11. SELECT 1
  12. GO TOP
  13. DO WHILE .NOT. EOF()
  14.    IF .NOT. DELETED()
  15.       SELECT 9
  16.       APPEND BLANK
  17.       REPLACE Inv_Nmbr WITH A->Inv_Nmbr,Inv_Date WITH A->Inv_Date,Client WITH;
  18.               A->Client,Taxable WITH A->Taxable,Job_Nmbr WITH A->Job_Nmbr,;
  19.               Sales_Tax WITH A->Sales_Tax,Taxfree WITH A->Taxfree
  20.       REPLACE PO_Nmbr WITH A->PO_Nmbr,Descrip WITH A->Descrip,More WITH A->More;
  21.               Extratax WITH A->Extratax
  22.       SELECT 1
  23.    ENDIF
  24.    SKIP
  25. ENDDO
  26. ?
  27. ? '* Updated billings'
  28. *
  29. SELECT 8
  30. COPY STRUCTURE TO Scratch
  31. ?? ' * set up the scratch file'
  32. *
  33. SELECT 1
  34. INDEX ON Inv_Nmbr TO Invget
  35. TOTAL ON Inv_Nmbr TO Scratch FOR .NOT. DELETED() ;
  36. FIELDS Taxable, Sales_Tax, TaxFree
  37. ZAP
  38. *
  39. ?? ' * computed totals'
  40. *
  41. SELECT 8
  42. APPEND FROM Scratch
  43. REPLACE ALL Amount WITH Taxable + Sales_Tax + TaxFree
  44. ? ' * updated invoices'
  45. *
  46. SELECT 1
  47. REPLACE All Posted WITH .T.
  48. ?? ' * Marked new billings as posted'
  49. **
  50. ERASE Scratch.dbf
  51.