Re: CHECK WRITING PROGRAM IN INFORMIX
In article <1993Nov19.225251.8278@nevada.edu> sxj@nye.nscee.edu (Sam Jain) writes:
}
} Does anyone have a readymade check writing program to print checks on
} continuous perforated forms.. in particular, it would need to
} convert like 1296 - to tweleve hundred and ninety six dollars and no cents
} for checks and stuff like that
}
Do you mean like the following... BTW this program is formatted for Deluxe
Computer Check #91002 and has a dol2word() function.
Here --------- Snip Here --------- Snip Here --------- Snip Here --------- Snip
I N F O F O R T A B L E apchk
Index name Owner Type Cluster Columns
ixchk_1 dave unique No chk_number
Column name Type Nulls
chk_number char(6) no
chk_date date yes
chk_status char(1) yes
Here --------- Snip Here --------- Snip Here --------- Snip Here --------- Snip
I N F O F O R T A B L E apinv
Index name Owner Type Cluster Columns
ixinv_1 dave unique No ven_code
inv_number
inv_sequence
Column name Type Nulls
ven_code char(8) no
inv_number char(10) no
inv_sequence smallint no
inv_date date yes
inv_amount money(8,2) no
inv_description char(30) yes
batchnum integer yes
trn_number integer yes
chk_number char(6) yes
due_date date yes
Here --------- Snip Here --------- Snip Here --------- Snip Here --------- Snip
I N F O F O R T A B L E aptrn
Index name Owner Type Cluster Columns
ixtrn_1 michele unique No ven_code
inv_number
inv_sequence
ixtrn_2 michele unique No trn_number
Column name Type Nulls
ven_code char(8) no
inv_number char(10) no
inv_sequence smallint no
inv_date date yes
inv_amount money(8,2) no
inv_description char(30) yes
batchnum integer no
trn_number serial no
chk_number char(6) yes
chk_date date yes
Here --------- Snip Here --------- Snip Here --------- Snip Here --------- Snip
I N F O F O R T A B L E apven
Index name Owner Type Cluster Columns
ixven_1 dave unique No ven_code
Column name Type Nulls
ven_code char(8) no
ven_name char(30) yes
ven_addr1 char(30) yes
ven_addr2 char(30) yes
ven_city char(20) yes
ven_state char(2) yes
ven_zip char(10) yes
ven_phone char(13) yes
ven_contact char(10) yes
ven_ship1 char(30) yes
ven_ship2 char(30) yes
ven_ship3 char(30) yes
Here --------- Snip Here --------- Snip Here --------- Snip Here --------- Snip
# o_chkp.4gl
# Created by: db4glgen, v3.17 93/11/18 10:22:56
DATABASE accounting
DEFINE w_record RECORD LIKE aptrn.* # working record
DEFINE gv_chk_number LIKE apchk.chk_number
{*******************************************************************************
* This program drives the aptrn screen.
*******************************************************************************}
MAIN
DEFER INTERRUPT
CALL menu_aptrn()
END MAIN
{*******************************************************************************
* This function handles the main ring menu. *
*******************************************************************************}
FUNCTION menu_aptrn()
CALL init_aptrn()
OPEN FORM o_chkp FROM "o_chkp"
DISPLAY FORM o_chkp ATTRIBUTE(BLUE)
CALL qry_aptrn()
IF NOT int_flag THEN
CALL out_aptrn()
END IF
CLOSE FORM o_chkp
END FUNCTION
{*******************************************************************************
* This function initializes options and variables. *
*******************************************************************************}
FUNCTION init_aptrn()
OPTIONS HELP FILE "o_chkp.msg"
OPTIONS MESSAGE LINE LAST
SELECT MAX(chk_number) INTO gv_chk_number FROM apchk
LET gv_chk_number = gv_chk_number + 1 USING "&&&&"
END FUNCTION
{*******************************************************************************
* This function will query the database table. *
*******************************************************************************}
FUNCTION qry_aptrn()
DISPLAY "OUTPUT: ESCAPE outputs. CTRL-C discards output. ARROW keys move cursor.", "" AT 1,1 ATTRIBUTE(WHITE)
DISPLAY "Output select rows in report format.", "" AT 2,1 ATTRIBUTE(WHITE)
MESSAGE ""
LET int_flag = FALSE
INPUT BY NAME gv_chk_number WITHOUT DEFAULTS HELP 2
RETURN
END FUNCTION
{*******************************************************************************
* This function outputs the current list to the printer.
*******************************************************************************}
FUNCTION out_aptrn()
DEFINE w_apinv RECORD LIKE apinv.*
DEFINE inv_deduction LIKE apinv.inv_amount
DECLARE out_curs CURSOR FOR
SELECT * FROM aptrn ORDER BY ven_code, inv_number, inv_sequence
START REPORT rpt_aptrn TO PIPE "lp -s -onlq -onoformfeed"
FOREACH out_curs INTO w_record.*
LET w_record.chk_date = TODAY
SELECT inv_date,inv_amount INTO w_apinv.inv_date,w_apinv.inv_amount
FROM ap