home *** CD-ROM | disk | FTP | other *** search
/ Software Du Jour / SoftwareDuJour.iso / BUSINESS / DBASE / DB3.ARC / INVCHECK.PRG < prev    next >
Text File  |  1984-10-25  |  2KB  |  71 lines
  1.   ***************** Invcheck COMMAND FILE ******************
  2. * The following procedure checks to see that when more than one
  3. * job is indicated for an invoice, the clients match.
  4. *****************************************************************
  5. *
  6. CLEAR
  7. ?
  8. @  6,20 SAY '******** DO NOT INTERRUPT ********'
  9. @  8,20 SAY '    CHECKING CLIENT INVOICES'
  10. SELECT 1
  11. GO TOP
  12. ?
  13. ?
  14. DO WHILE .NOT. EOF() .AND. .NOT. Aborted
  15.    IF DELETED()
  16.       SKIP
  17.    ELSE
  18.       ?? RECNO(),Inv_Nmbr,Client,Descrip
  19.       ?
  20.       TempInv = Inv_Nmbr
  21.       TempCli = Client
  22.       SKIP
  23.       Number = STR(RECNO(),5)
  24.       IF Inv_Nmbr = TempInv .AND. Client <> TempCli .AND. .NOT. DELETED()
  25.          CLEAR
  26.          ? '     ********************************************'
  27.          ?
  28.          ? '     ENTRY  INV#    JOB    DESCRIPTION'
  29.          ?
  30.          ?
  31.          ?? RECNO(),Inv_Nmbr,Client +'-'+ STR(Job_Nmbr,4),SUBSTR(Descrip,1,26)
  32.          SKIP -1
  33.          ?
  34.          DO WHILE Inv_Nmbr = TempInv
  35.             ?? RECNO(),Inv_Nmbr,Client+'-'+STR(Job_Nmbr,4),SUBSTR(Descrip,1,26)
  36.             ?
  37.             IF RECNO() <> 1
  38.                SKIP -1
  39.             ELSE
  40.                TempInv = ' '
  41.             ENDIF
  42.          ENDDO
  43.          ?
  44.          ? '     ********************************************'
  45.          ?
  46.          ? 'Only one CLIENT can be entered on a single invoice.'
  47.          WAIT 'Do you want to edit it now (Y or N)? ' TO Fix
  48.          IF UPPER(Fix) = 'Y'
  49.             CLEAR
  50.             @  3,0 SAY '           Entry' + STR(RECNO(),5)
  51.             @  3,30 SAY '     DATE  '+dtoc(Inv_Date)
  52.             @  5,0 SAY '  P. O. NUMBER ' GET PO_Nmbr PICTURE '!!!!!!!!'
  53.             @  7,0 SAY 'INVOICE NUMBER ' GET Inv_Nmbr
  54.             @  8,0 SAY '        CLIENT ' GET Client PICTURE '!!!'
  55.             @  9,0 SAY '    JOB NUMBER ' GET Job_Nmbr
  56.             @ 10,0 SAY 'TAXABLE AMOUNT ' GET Taxable
  57.             @ 11,0 SAY 'TAXFREE AMOUNT ' GET TaxFree
  58.             @ 12,0 SAY '   DESCRIPTION ' GET Descrip PICTURE ;
  59.               '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'
  60.             @ 13,0 SAY '     SALES TAX ' GET Sales_Tax
  61.             READ
  62.             GO TOP
  63.          ELSE
  64.             Aborted = .T.
  65.          ENDIF
  66.       ENDIF
  67.    ENDIF
  68. ENDDO
  69. *
  70. RETURN
  71.