home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
dbbooks.zip
/
ADDTRANS.OLD
< prev
next >
Wrap
Text File
|
1987-02-14
|
3KB
|
109 lines
*********************************** ADDTRANS.CMD
************************** Add new transactions.
************************** Set up data files.
************* First, get last check number
USE GENINFO
STORE LAST:CHECK TO CNO
SET BELL OFF
SELE PRIM
USE TRANS INDEX ACCT,DATES
SELE SECO
USE COA INDEX COA
SELE PRIM
******************* Get data for transactions.
STORE T TO ADDING
DO WHILE ADDING
APPEND BLANK
REPLACE DATE WITH T:DATE
ERASE
@ 1, 0 SAY "--- Enter new transactions (0 when done) --"
************** Accept only valid account numbers.
STORE N TO OK
DO WHILE .NOT. OK
@ 3, 0 SAY "Account Number"
@ 3,15 GET ACCT
READ
IF ACCT > 0
STORE STR(ACCT,6,2) TO LOOKUP
SELE SECO
************** Make sure account exists on COA.
FIND &LOOKUP
IF # > 0
STORE T TO OK
@ 3,25 SAY TITLE
STORE TITLE TO MTITLE
ELSE
@ 3,25 SAY "No such account!"
? CHR(7)
ENDIF (account number exists)
ELSE
STORE F TO ADDING
STORE T TO OK
LOOP
ENDIF (acct > 0)
SELE PRIM
ENDDO (while .NOT. ok)
*********** Get rest of info if user not exiting.
IF ADDING
************** Get reason
@ 5, 0 SAY "Description"
@ 5,12 GET REASON
READ
*************** If no reason type in, use account title.
IF REASON = " "
REPLACE REASON WITH TITLE
@ 5,12 SAY REASON
ENDIF
@ 7, 0 SAY "Amount"
@ 7, 7 GET AMOUNT
@ 9, 0 SAY "Date"
@ 9, 5 GET DATE
READ
*********** Ask about type if expense account
*********** and not a sub-account.
IF ACCT > 299.99 .AND. INT(ACCT)=ACCT
@ 11, 0 SAY "Type (1=Check, 2=Other)"
@ 11,24 GET TYPE
READ
************ If check, ask about check info.
IF TYPE = 1
REPL CHECK:NO WITH CNO
@ 13, 0 SAY "Check Number"
@ 13,13 GET CHECK:NO
@ 15, 0 SAY "To Whom Paid"
@ 15,13 GET TO:WHOM
READ
********* Incerement check number.
STORE CHECK:NO TO CNO
STORE CNO +1 TO CNO
ENDIF (type = 1
ENDIF (acct > 299.99)
ENDIF(if adding)
ENDDO (while adding)
************** Done adding. Close files and update
************** General information file.
SELE PRIM
DELE ALL FOR ACCT=0
USE
SELE SECO
USE
USE GENINFO
REPLACE LAST:CHECK WITH CNO
USE
RETURN