home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / dbbooks.zip / ADDTRANS.OLD < prev    next >
Text File  |  1987-02-14  |  3KB  |  109 lines
  1. *********************************** ADDTRANS.CMD
  2. ************************** Add new transactions.
  3. ************************** Set up data files.
  4.  
  5. ************* First, get last check number
  6. USE GENINFO
  7. STORE LAST:CHECK TO CNO
  8.  
  9. SET BELL OFF
  10. SELE PRIM
  11. USE TRANS INDEX ACCT,DATES
  12. SELE SECO
  13. USE COA INDEX COA
  14.  
  15. SELE PRIM
  16.  
  17. ******************* Get data for transactions.
  18. STORE T TO ADDING
  19. DO WHILE ADDING
  20.    APPEND BLANK
  21.    REPLACE DATE WITH T:DATE
  22.  
  23.    ERASE
  24.    @  1, 0 SAY "--- Enter new transactions (0 when done) --"
  25.  
  26.    ************** Accept only valid account numbers.
  27.    STORE N TO OK
  28.    DO WHILE .NOT. OK
  29.       @  3, 0 SAY "Account Number"
  30.       @  3,15 GET ACCT
  31.       READ
  32.  
  33.       IF ACCT > 0
  34.          STORE STR(ACCT,6,2) TO LOOKUP
  35.          SELE SECO
  36.          ************** Make sure account exists on COA. 
  37.          FIND &LOOKUP
  38.          IF # > 0
  39.             STORE T TO OK
  40.             @ 3,25 SAY TITLE
  41.             STORE TITLE TO MTITLE
  42.          ELSE
  43.             @ 3,25 SAY "No such account!"
  44.             ? CHR(7)
  45.          ENDIF (account number exists)
  46.          ELSE
  47.          STORE F TO ADDING
  48.          STORE T TO OK
  49.          LOOP
  50.       ENDIF (acct > 0)
  51.       SELE PRIM
  52.    ENDDO (while .NOT. ok)
  53.  
  54.    *********** Get rest of info if user not exiting.   
  55.    IF ADDING
  56.       ************** Get reason
  57.       @  5, 0 SAY "Description"
  58.       @  5,12 GET REASON
  59.       READ
  60.       
  61.       *************** If no reason type in, use account title.
  62.       IF REASON = " "
  63.          REPLACE REASON WITH TITLE
  64.          @ 5,12 SAY REASON
  65.       ENDIF
  66.       
  67.       @  7, 0 SAY "Amount"
  68.       @  7, 7 GET AMOUNT
  69.       @  9, 0 SAY "Date"
  70.       @  9, 5 GET DATE
  71.       READ
  72.       
  73.       *********** Ask about type if expense account
  74.       *********** and not a sub-account.
  75.       IF ACCT > 299.99 .AND. INT(ACCT)=ACCT
  76.          @ 11, 0 SAY "Type (1=Check, 2=Other)"
  77.          @ 11,24 GET TYPE
  78.          READ
  79.          ************ If check, ask about check info.
  80.          IF TYPE = 1
  81.             REPL CHECK:NO WITH CNO
  82.             @ 13, 0 SAY "Check Number"
  83.             @ 13,13 GET CHECK:NO
  84.             @ 15, 0 SAY "To Whom Paid"
  85.             @ 15,13 GET TO:WHOM
  86.             READ
  87.             ********* Incerement check number. 
  88.             STORE CHECK:NO TO CNO
  89.             STORE CNO +1 TO CNO        
  90.          ENDIF (type = 1
  91.       ENDIF (acct > 299.99)
  92.       
  93.    ENDIF(if adding)
  94.    
  95. ENDDO (while adding)
  96.  
  97. ************** Done adding. Close files and update 
  98. ************** General information file.
  99. SELE PRIM
  100. DELE ALL FOR ACCT=0
  101. USE
  102. SELE SECO
  103. USE
  104. USE GENINFO
  105. REPLACE LAST:CHECK WITH CNO
  106. USE
  107. RETURN
  108.  
  109.