home *** CD-ROM | disk | FTP | other *** search
/ Software Du Jour / SoftwareDuJour.iso / BUSINESS / DBASE / DB3.ARC / DEPOSITS.PRG < prev    next >
Encoding:
Text File  |  1984-10-25  |  3.8 KB  |  116 lines
  1.         ************  Deposits COMMAND FILE  ***********
  2. * This file records any money coming in in a file called Deposits.  If the
  3. * the money is in payment of an invoice, the amount and date of payment are
  4. * entered against that invoice in the Invoice file.
  5. *      The checkbook balance is kept current for each entry.
  6. *      At the end of the sesssion, deposits are printed out individually, then
  7. * the total of deposits plus the new checkbook balance are printed.
  8. ****************************************************************************
  9. *
  10. RESTORE FROM Konstant
  11. *
  12. CLEAR
  13. @  3,20 SAY '  ENTERING INCOME'
  14. @  7, 5 SAY 'The Starting Balance is '+STR(MBalance,9,2)
  15. @  9,10 SAY 'If this does not match the checkbook,'
  16. @ 10,10 SAY '<ENTER> to exit to the deposit menu.'
  17. @ 12,10 SAY '   Any key to proceed'
  18. WAIT ' ' TO Continue
  19. IF LEN(Continue) = 0
  20.    RETURN
  21. ENDIF
  22. RELEASE Continue
  23. *
  24. T_Date = DATE()
  25. *
  26. *Selecting transaction file DEPTEMP.DBF
  27. SELECT 1
  28. T_Deposit = 'Y'
  29. DO WHILE LEN(T_Deposit) <> 0
  30.    APPEND BLANK
  31.    REPLACE Dep_Date WITH T_Date
  32.    *
  33.    CLEAR
  34.    * Next loop is used when there has been an error in the entry
  35.    * (defined as no client or no rate).  The operator is shown the
  36.    * previous entries and can make any changes required.
  37.    Incorrect = 'T'
  38.    DO WHILE UPPER(Incorrect) <> 'F'
  39.       @ 1,20 SAY 'CHECK DEPOSIT '
  40.       @  3,0 SAY ' If a check covers more than one agency invoice,'
  41.       @  4,0 SAY ' enter each invoice and amount separately.'
  42.       @  6,0 SAY '          Entry '+STR(RECNO(),5)
  43.       @  8,0 SAY '      HOW MUCH' GET Deposit
  44.       @  9,0 SAY 'OUR INVOICE NO' GET Inv_Nmbr
  45.       @ 10,0 SAY '    CHECK FROM' GET Payer PICTURE '!!!!!!!!!!!!!!!!!!!!'
  46.       @ 11,0 SAY 'THEIR CHECK NO' GET Pay_Nmbr PICTURE '!!!!!!!'
  47.       @ 12,0 SAY '      Comments' GET Comments PICTURE '!!!!!!!!!!!!!!!!!!!!'
  48.       READ
  49.       *
  50.       IF Payer <> ' ' .AND. Deposit > 0
  51.          @ 17,5 SAY 'Type any key to CHANGE,'
  52.          WAIT 'press <ENTER> to continue.' TO T_Deposit
  53.          IF LEN(T_Deposit) <> 0
  54.             Incorrect = 'T'
  55.          ELSE
  56.             MBalance = (MBalance + Deposit)
  57.             Incorrect = 'F'
  58.          ENDIF
  59.       ELSE
  60.          @ 15,5 SAY 'CHECK WRITER or AMOUNT missing.'
  61.          @ 17,5 SAY 'Type any key to correct record,'
  62.          WAIT 'press <ENTER> to exit.    ' TO T_Deposit 
  63.          IF LEN(T_Deposit) = 0
  64.             DELETE
  65.             Incorrect = 'F'
  66.          ELSE
  67.             CLEAR
  68.             Incorrect = 'T'
  69.          ENDIF
  70.       ENDIF
  71.    ENDDO Incorrect
  72.    @ 15,0
  73.    @ 17,5 SAY 'Type any key for another deposit,'
  74.    WAIT 'press <ENTER> to exit.     ' TO T_Deposit   
  75. ENDDO T_Deposit
  76. @ 15,0 CLEAR
  77. *
  78. RELEASE Change,T_Date,NoDate,T_Deposit,Update,New,Incorrect
  79. SAVE TO Konstant
  80. *
  81. COUNT FOR .NOT. DELETED() TO Any
  82.  
  83. IF Any = 0
  84.    ? 'No deposits to add to the file.'
  85.    WAIT 'Press any key to continue.'
  86. ELSE
  87.    WAIT 'Do you want to print the deposits (Y or N)? ' TO Go
  88.    IF UPPER(Go) = 'Y'
  89.       DO Depprint
  90.    ENDIF
  91.    *
  92.    * Deptrans uses two work areas (Select 1, Select 2) to check payments
  93.    * against invoices in the Invoices file.  If the payment is for one of our
  94.    * invoices, the amount is transferred to the Amt_Rcd field in Invoices.
  95.    *
  96.    DO Deptrans
  97.    *
  98.    SELECT 1
  99.    GO TOP
  100.    DO WHILE .NOT. EOF()
  101.      IF .NOT. DELETED()
  102.         SELECT 8
  103.         APPEND BLANK
  104.         REPLACE Dep_Date WITH A->Dep_Date,Payer WITH A->Payer,Pay_Nmbr WITH;
  105.                 A->Pay_Nmbr,Deposit WITH A->Deposit,Inv_Nmbr WITH A->Inv_nmbr,;
  106.                 Comments WITH A->Comments
  107.         SELECT 1
  108.      ENDIF
  109.      SKIP
  110.    ENDDO
  111. ENDIF there are deposits to add to the file
  112. *
  113. SELECT 1
  114. ZAP
  115. RETURN
  116.