Shareware Overload/ShartewareOverload.cdr/database/dbbooks.zip/BINSTALL.CMD

OS/2 REXX Batch file | 1987-02-14 | 3KB | 96 lines

******************************* BINSTALL.CMD
**************** Start the Chart of Accounts.
SET TALK OFF
SET DEFA TO B

********************** Get General Information.
ERASE
USE GENINFO
DELE ALL
PACK
APPEND BLANK
?
? "         Start the Bookkeeping System"
? "This program allows you to set up general"
? "information and a Chart of Accounts for the"
? "bookkeeping system.  You need to use this"
? "program only once.  The edit option under the"
? "BOOKS main menu allows you to make changes."
@ 9,0 SAY "Enter the name of the Company or User"
@ 9,40 GET COMPANY
READ

****************** Next, set up chart of accounts.
ERASE
? "Next, you need to set up the Chart of Accounts"
? "Account numbers use the format XXX.XX (e.g. 100.00)"
? "Account numbers in the range of 100.00 to 299.99"
? "Are for INCOME only.  Account numbers in the range"
? "300.00 to 999.99 are for EXPENSES only."
?
? "Press any key to continue..."
WAIT
ERASE
? "Accounts that have a non-zero decimal portion"
? "are sub-accounts, and are not included in totals."
? "Hence, you may want to break transactions that "
? "involve a single check into sub-accounts.  For "
? "example, you only write one check for utilities."
? "You may, however, wish to record the amount of"
? "this single check that went toward Gas, and the"
? "amount that went toward Electricity.  To do so,"
? "Set up three accounts as follows:"
?
? "     Account"
? "      Number       Title"
?
? "      400.00     Utilities"
? "      400.10     Gas"
? "      400.20     Electricity"
?
? "In this example, only one check will be written,"
? "for account 400.  Accounts 400.10 and 400.20 will"
? "be recorded, but checks will not be written."
?
? "Press RETURN to continue, ESC to QUIT...."
WAIT

ERASE
USE COA INDEX COA
DELE ALL
PACK

STORE T TO ADDING
DO WHILE ADDING
   APPEND BLANK
   ERASE
   @  1, 0 SAY "Type in Account Number, Title, and Current Balance"
   @  1,50 SAY "."
   @  2, 0 SAY "Enter Ctrl-W to Quit"
   @  4, 0 SAY "Account Number"
   @  4,16 GET ACCT
   @  5, 0 SAY "Title"
   @  5,16 GET TITLE
   @  6, 0 SAY "Month-to-Date"
   @  6,16 GET AMOUNT
   @  7, 0 SAY "Quarter-to-Date"
   @  7,16 GET QTD
   @  8, 0 SAY "Year-to-Date"
   @  8,16 GET YTD
   READ
   ************* Check for 0 as acct.
   IF ACCT = 0
      STORE F TO ADDING
   ENDIF
ENDDO (while adding)

************** Done adding.
ERASE
? "Returning to dot prompt.  To use the bookkeeping"
? "System, type DO BOOKS when dot appears."
?
?
DELE ALL FOR ACCT = 0
PACK
USE