#
# requires UnForm 4.1 or higher
#
#########################################################################
# aon605.rul  rule file for standard AddOn Accounting Software modules  #
# Based upon AddOn 6.0.5 demo data                                      #
#########################################################################
# This rule file is provided "AS IS", without warranty. #
# Under no circumstances will the publisher be liable   #
# for consequential damages resulting from the use or   #
# inability to use the contents.                        #
#########################################################
#  -----------------------------------------------------------
# | ADD+ON Software, Inc. Advantage/V Version 6.0.1 - 01Oct97 |
# |      Copyright (c) ADD+ON Software, Inc.                  |
# |                  All Rights Reserved                      |
# |                                                           |
# | Commercial use of this rule file requires a one-time      | 
# | royalty payment to AddonSoftware.                         |
#  -----------------------------------------------------------
#

# Last modified 12/14/01

# 12/14/01 - bcj
# fixed improper fonting in totals area of plain invoice
# tested with version 5.0

# Adjust the following constants to correct files and info
# if you use the subst file then replace each constant 
# with subst info in rule sets below
const COMP_NAME="Synergetic Data Systems Inc"
const COMP_ADDR1="2195 Talon Drive"
const COMP_ADDR2="Latrobe CA 95682"
const COMP_ADDR3=""
const COMP_PHONES="530/672-9970  Fax: 672-9975"

# Bank info for ap checks
const AP_BANK_NAME="One Major Bank"
const AP_BANK_ADDR1="1 Major Blvd"
const AP_BANK_ADDR2="Major City CA 90123"

# Bank info for pr checks
const PR_BANK_NAME="One Major Bank"
const PR_BANK_ADDR1="1 Major Blvd"
const PR_BANK_ADDR2="Major City CA 90123"

# How many AP or PR check stubs are required.
const AP_NO_STUBS=2	# 1=vendor stub, 2=vendor stub and payor stub
const PR_NO_STUBS=2	# 1=employee stub, 2=employee stub and employer stub

#####################################
# in the following constants, a # in front of the constant will effectively 
# remove the command from # all applicable rule sets, 
# while no # will make the command active
# eg. The following would make signature active
#	const SIGNATURE_IMAGE="image"
# eg. The following would make signature inactive
#	const SIGNATURE_IMAGE="#image" 
#####################################

# Logos
const LOGO_IMAGE="image"
const COMP_LOGO="sdsilogo.pcl"

# Scissors logo
const SCISSORS_IMAGE="image"
const SCISSORS_LOGO="scissors.pcl"

# check signature on AP/PR checks,
const SIGNATURE_IMAGE="#image" 
const SIGNATURE=""

# MICR code on AP checks, 
const AP_MICR_ACCOUNTNO=":123456789:9999-1234<34>"
const AP_MICR="micr"

# MICR code on PR checks, 
const PR_MICR_ACCOUNTNO=":987654321:1111-9876<34>"
const PR_MICR="micr"

# date mask for detects
const DATEMASK="[0-1][0-9]/[0-3][0-9]/[0-9][0-9]"		# American dates
#const DATEMASK="[0-3][0-9]/[0-1][0-9]/[0-9][0-9]"		# Canadian dates

# for faster processing, place a # in front of the constants below
# eg. Change const SO_INV_CFONT="cfont" to const SO_INV_CFONT="#cfont"
# for more professional looking documents remove the #
# eg. Change const SO_INV_CFONT="#cfont" to const SO_INV_CFONT="cfont"
const AP_SUM_AGING_FONT="font"
const AR_SUM_AGING_FONT="font"
const AR_STMT_CFONT="cfont"
const PO_FONT="font"
const PO_CFONT="cfont"
const OP_INV_FONT="font"
const OP_INV_CFONT="cfont"

############################
# Module: Accounts Payable #
############################

[AP Check]
# shifted middle stub down 2 lines - 10/15/2001
# shifted name & address to fit in window envelope better - 10/15/2001
detect 37,3,"~ DATEMASK"
detect 0,1,"~ [0-9][0-9][0-9][0-9][0-9][0-9][0-9]"	# Check #

const MAXCOLS=81
const MAXRCOLS=80
const MAXROWS=66
cols MAXCOLS
page 42
rows MAXROWS

const ONE_STUB_COPY=1
const TWO_STUB_COPY=2
pcopies 2

Prepage {
	# move check to bottom
	for i=23 to 42
      	text$[i+24]=text$[i]
		text$[i]=""			# clear line
	next i

	# copy stub from top to middle
	for i=1 to 22
       	text$[i+23]=text$[i]
	next i

	chkno$=trim(get(51,1,8))
}

precopy {
	if copy=ONE_STUB_COPY and copy<>AP_NO_STUBS then skip=1
	if copy=ONE_STUB_COPY then \
		for i=1 to 21; \
			text$[i]=""; \
		next i
	if copy=TWO_STUB_COPY and copy<>AP_NO_STUBS then skip=1
}

########## Payor Stub (top)

const LEFTCOL=.5
const TOPROW=.5
const SHFONT=univers,10,shade 0
const DFONT=cgtimes,12,bold
const HFONT=univers,10,italic
if copy TWO_STUB_COPY
	# top section
	cbox LEFTCOL,TOPROW,MAXCOLS,20.5
	cbox 25,TOPROW,25,3.5
	text 2,1,"COMP_NAME",univers,10,bold
	text 2,1.7,"COMP_ADDR1",univers,6
	text 2,2.4,"COMP_ADDR2",univers,6
	text 2,3.1,"COMP_PHONES",univers,6
	cfont 26,1,32,1,DFONT		# acnt #
	cfont 41,1,49,1,HFONT,right	# check # title
	cfont 51,1,MAXCOLS,1,DFONT	# check #
	cfont 26,2,MAXCOLS,2,DFONT	# Vendor name
	cfont 26,3,36,3,HFONT		# check date title
	cfont 38,3,45,3,DFONT		# check date
	cfont 51,3,62,3,HFONT,right	# Acnt ID # title
	cfont 64,3,MAXCOLS,3,DFONT	# Acnt ID 

	# detail
	cbox LEFTCOL,3.5,MAXCOLS,4.5,1,10
	cbox LEFTCOL,4.5,MAXCOLS,18.5
	cbox LEFTCOL,18.5,MAXCOLS,19.5
	cbox 10,3.5,10,18.5
	cbox 23,3.5,23,19.5
	cbox 37,3.5,37,19.5
	cbox 50,3.5,50,19.5
	cbox 63,3.5,63,19.5
	cfont 1,4,9,4,HFONT,center	# inv date
	cfont 11,4,22,4,HFONT		# inv #
	cfont 24,4,36,4,HFONT,right	# inv amt
	cfont 38,4,49,4,HFONT,right	# disc
	cfont 51,4,62,4,HFONT,right	# amt paid
	cfont 64,4,MAXCOLS,4,HFONT	# memo
	cfont 1,5,9,18,DFONT,center
	cfont 11,5,22,18,DFONT
	cfont 24,5,36,19,DFONT,right
	cfont 38,5,49,19,DFONT,right
	cfont 51,5,62,19,DFONT,right
	cfont 64,5,MAXCOLS,18,cgtimes,10

	cbox 10,18.5,23,19.5,1,100
	text 19,19,"Totals",SHFONT
	text 1,19,"Payor's Copy",DFONT,right,cols=MAXRCOLS
endif

########### Vendor Stub

# top section
cbox LEFTCOL,23.5,MAXCOLS,43.5
cbox 25,23.5,25,26.5
text 2,24,"COMP_NAME",univers,10,bold
text 2,24.7,"COMP_ADDR1",univers,6
text 2,25.4,"COMP_ADDR2",univers,6
text 2,26.1,"COMP_PHONES",univers,6
cfont 26,24,32,24,DFONT		# Acnt #
cfont 41,24,49,24,HFONT,right	# Check # title
cfont 51,24,MAXCOLS,24,DFONT	# Check #
cfont 26,25,MAXCOLS,25,DFONT	# Vendor name
cfont 26,26,36,26,HFONT		# Check date title
cfont 38,26,45,26,DFONT		# Check date
cfont 51,26,62,26,HFONT,right	# Acnt ID title
cfont 64,26,MAXCOLS,26,DFONT	# Acnt ID

# detail
cbox LEFTCOL,26.5,MAXCOLS,27.5,1,10
cbox LEFTCOL,27.5,MAXCOLS,41.5
cbox LEFTCOL,41.5,MAXCOLS,42.5
cbox 10,26.5,10,42.5
cbox 23,26.5,23,42.5
cbox 37,26.5,37,42.5
cbox 50,26.5,50,42.5
cbox 63,26.5,63,42.5
cfont 1,27,9,27,HFONT,center	# inv date
cfont 11,27,22,27,HFONT		# inv #
cfont 24,27,36,27,HFONT,right	# inv amt
cfont 38,27,49,27,HFONT,right	# disc
cfont 51,27,62,27,HFONT,right	# amt paid
cfont 64,27,MAXCOLS,27,HFONT	# memo
cfont 1,28,9,41,DFONT,center
cfont 11,28,22,41,DFONT
cfont 24,28,36,42,DFONT,right
cfont 38,28,49,42,DFONT,right
cfont 51,28,62,42,DFONT,right
cfont 64,28,MAXCOLS,41,cgtimes,10

move "*Continued*",0,0,11,1,0,1
bold "*Continued*",0,0,11,1
cbox 10,41.5,23,42.5,1,100
text 19,42,"Totals",SHFONT
text 1,42,"Vendor's Copy",DFONT,right,cols=MAXRCOLS

########### Check

cbox LEFTCOL,45,MAXCOLS,MAXROWS,4,10
LOGO_IMAGE 1,45,10,5,"COMP_LOGO"
text 15,46.25,"COMP_NAME",univers,15,bold
text 15,47.35,"COMP_ADDR1",univers,12
text 15,48.35,"COMP_ADDR2",univers,12

cbox 43,49.5,MAXCOLS,50.5,1,100
cbox 43,50.5,MAXCOLS,51.5
cbox 54,49.5,62,51.5
text 44,50,"Date",SHFONT,center,cols=10
cmove 53,56,60,56,44,51
cfont 44,51,53,51,DFONT,center,cols=10
text 55,50,"Check #",SHFONT
cmove 70,51,76,51,55,51
cfont 55,51,61,51,DFONT
text 63,50,"Amount",SHFONT,right,cols=18
cmove 66,56,80,56,63,51
cfont 63,51,MAXRCOLS,51,DFONT,right

cfont 1,54,MAXCOLS,54,DFONT,italic

cmove 8,57,MAXCOLS,62,8,60
text 2,60,"Pay",HFONT
text 2,61,"to the",HFONT
text 2,62,"Order",HFONT
text 2,63,"of",HFONT
cfont 8,60,MAXCOLS,63,DFONT

SIGNATURE_IMAGE 50,59,0,0,"SIGNATURE"
box 50,63.25,30,0,3
text 50,64,"Authorized Signature",HFONT,center,cols=30
AP_MICR 10,64.75,"AP_MICR_ACCOUNTNO",{chkno$}
text 62,46.0,"AP_BANK_NAME",cgtimes,10,bold
text 62,46.8,"AP_BANK_ADDR1",cgtimes,8
text 62,47.6,"AP_BANK_ADDR2",cgtimes,8

[A/P Summary Aging Report]
detect 0,2,"Summary Aging Report"
detect 0,0,"Vendor"
const MAXCOLS=133
const MAXRCOLS=131
const MAXROWS=60
const LEFTCOL=.5
cols MAXCOLS
rows MAXROWS
pcopies 1
landscape

prepage {
	rptdate$=trim(get(1,1,20))
	rpttime$=trim(get(1,2,20))
	pageno$=trim(get(120,1,13))
	head1$=trim(get(20,1,100))
	head2$=trim(get(20,2,100))
	head3$=trim(get(20,3,100))
	head4$=trim(get(20,4,100))
}

# Heading section
const HFONT=univers,italic
cerase 1,1,MAXCOLS,5
box LEFTCOL,.1,MAXCOLS,4.5,3,20
text 1,1.25,{rptdate$},HFONT,10
text 1,2.25,{rpttime$},HFONT,10
text 1,1.25,{pageno$},HFONT,10,right,cols=MAXRCOLS
text 1,1.25,{head1$},HFONT,14,bold,center,cols=MAXCOLS
text 1,2.45,{head2$},HFONT,12,bold,center,cols=MAXCOLS
text 1,3.45,{head3$},HFONT,10,center,cols=MAXCOLS
text 1,4.45,{head4$},HFONT,10,center,cols=MAXCOLS
hline "---",erase

# Detail heading section
box "Future",-66,-2.7,MAXCOLS,3.7,1,10
const HFONT=univers,10
const DFONT=cgtimes,10,bold
font "~^Vendor@1,5,1,9",0,0,6,1,HFONT
font "Future",0,0,6,1,HFONT,right
font "Through",0,-1,8,3,HFONT,center
font 123,7,9,2,HFONT,right
AP_SUM_AGING_FONT "~^Vendor",0,1,6,55,DFONT
AP_SUM_AGING_FONT "~^Vendor",7,1,30,55,DFONT
AP_SUM_AGING_FONT "~\.[0-9][0-9]",-7,0,10,55,DFONT,right
AP_SUM_AGING_FONT "~\.[0-9][0-9]-",4,0,1,55,DFONT,right

# Subtotal box
box "  ----",-58,0.25,MAXCOLS,2.5,1,10

# grand totals
box "Total For Report",-44,-.75,MAXCOLS,2.5,1,10
font "Retention",-35,-1,44,2,HFONT,bold,right
font "Retention",10,-1,10,2,DFONT,right
font "Retention",22,-1,10,2,DFONT,right
font "Retention",34,-1,10,2,DFONT,right
font "Retention",46,-1,10,2,DFONT,right
font "Retention",58,-1,10,2,DFONT,right
font "Retention",70,-1,10,2,DFONT,right
font "Retention",82,-1,10,2,DFONT,right

[A/P Detail Aging Report]
detect 0,2,"Detail Aging Report"
detect 0,0,"Vendor"
const MAXCOLS=133
const MAXRCOLS=131
const MAXROWS=60
const LEFTCOL=.5
cols MAXCOLS
rows MAXROWS
pcopies 1
landscape

prepage {
	rptdate$=trim(get(1,1,20))
	rpttime$=trim(get(1,2,20))
	pageno$=trim(get(120,1,13))
	head1$=trim(get(20,1,100))
	head2$=trim(get(20,2,100))
	head3$=trim(get(20,3,100))
	head4$=trim(get(20,4,100))
}

# Heading section
const HFONT=univers,italic
cerase 1,1,MAXCOLS,5
box LEFTCOL,.1,MAXCOLS,4.5,3,20
text 1,1.25,{rptdate$},HFONT,10
text 1,2.25,{rpttime$},HFONT,10
text 1,1.25,{pageno$},HFONT,10,right,cols=MAXRCOLS
text 1,1.25,{head1$},HFONT,14,bold,center,cols=MAXCOLS
text 1,2.45,{head2$},HFONT,12,bold,center,cols=MAXCOLS
text 1,3.45,{head3$},HFONT,10,center,cols=MAXCOLS
text 1,4.45,{head4$},HFONT,10,center,cols=MAXCOLS
hline "---",erase

# Detail heading section
box "Future",-66,-2.75,MAXCOLS,3.25,1,10
const HFONT=univers,10
const DFONT=cgtimes,10,bold
const TFONT=cgtimes,11,bold
font "~^Vendor@1,5,1,9",0,0,6,1,HFONT
font "PG H",-31,0,9,1,HFONT
font "PG H",-20,0,7,1,HFONT
font "PG H",-7,-1,5,2,HFONT,center
font "PG H",0,0,2,1,HFONT
font "PG H",3,0,1,1,HFONT
font "Future",0,0,6,1,HFONT,right
font "Through",0,-1,8,3,HFONT,center
font 123,7,9,2,HFONT,right
font "~^[0-9T][0-9E][0-9M]",0,0,6,1,TFONT
font "~^[0-9T][0-9E][0-9M]",7,0,30,1,TFONT
font "~^[0-9T][0-9E][0-9M]",2,1,12,1,TFONT

# Bottom of Vendor
font "Total For Vendor",0,0,16,1,HFONT,bold,right
font "Total For Vendor",17,0,10,1,DFONT,right
font "Total For Vendor",29,0,10,1,DFONT,right
font "Total For Vendor",41,0,10,1,DFONT,right
font "Total For Vendor",53,0,10,1,DFONT,right
font "Total For Vendor",65,0,10,1,DFONT,right
font "Total For Vendor",77,0,10,1,DFONT,right
font "Total For Vendor",89,0,10,1,DFONT,right

# totals
box "Retention",-52,-1.75,MAXCOLS,2.5,1,10
font "Retention",-35,-1,44,2,HFONT,bold,right
font "Retention",10,-1,10,2,DFONT,right
font "Retention",22,-1,10,2,DFONT,right
font "Retention",34,-1,10,2,DFONT,right
font "Retention",46,-1,10,2,DFONT,right
font "Retention",58,-1,10,2,DFONT,right
font "Retention",70,-1,10,2,DFONT,right
font "Retention",82,-1,10,2,DFONT,right

###############################
# Module: Accounts Receivable #
###############################

[Statement]
# added copies 05/24/01
detect 48,13,"~ DATEMASK"
detect 59,13,"~ DATEMASK"
const MAXCOLS=81
const MAXRCOLS=78
const MAXROWS=51
const LEFTCOL=.5
cols MAXCOLS
rows MAXROWS
page MAXROWS

# copy 1=file, 2=customer
const FILE_COPY=1
const CUSTOMER_COPY=2
pcopies 2

# Top section
LOGO_IMAGE 1,1.5,6,3,"COMP_LOGO"
text 29,1,"STATEMENT",univers,16,bold
text 12,2,"Please remit to:",cgtimes,8
text 12,3.25,"COMP_NAME",univers,15,bold
text 12,4.35,"COMP_ADDR1",univers,12
text 12,5.35,"COMP_ADDR2",univers,12
text 12,6.35,"COMP_PHONES",univers,12

# Outer boxes
cbox LEFTCOL,8,MAXCOLS,16
cbox LEFTCOL,16,MAXCOLS,18,1,10
cbox LEFTCOL,18,MAXCOLS,42
cbox LEFTCOL,42,MAXCOLS,46

# Page No
const HFONT=univers,italic,9
const DFONT=cgtimes,10,bold
const TFONT=cgtimes,10
box 48,0,7,1.2
text 49.5,.2,"Page",HFONT
box 73,0,7,1.2
text 74.5,.2,"Page",HFONT

# Header
box LEFTCOL,8,7,8,1,10
text 2,9,"To:",HFONT,9
cfont 8,9,47,14,DFONT

box 48,8,10,8
box 48,8,10,1.5,1,10
text 49,9,"Customer",HFONT,center,cols=10
cfont 49,10,56,10,DFONT,center

box 48,11,10,1.5,1,10
text 49,12,"Date",HFONT,center,cols=10
cfont 49,13,57,13,DFONT,center

box 58,0,0,68,3
text 63,3,"Please return this section",TFONT
text 65,3.8,"with your payment",TFONT

cfont 60,10,MAXCOLS,10,DFONT
cbox 58,11,MAXCOLS,12.5,1,10
text 60,12,"Date",HFONT,center,cols=8
cfont 60,13,67,13,DFONT,center
text 75,12,"Cust No",HFONT
cfont 75,13,MAXCOLS,13,DFONT

# Line items
box 10,16,0,26
box 14,16,0,26
box 23,16,0,26
box 34,16,0,26
box 46,16,0,26
box 66,16,0,26
box 69,16,0,26
text 1,17,"Date",HFONT,center,cols=8
text 11,17,"Type",HFONT
text 15,17,"Invoice",HFONT
text 24,17,"Amount",HFONT,right,cols=9
text 35,17,"Credit",HFONT,right,cols=10
text 47,17,"Balance",HFONT,right,cols=10
text 59,17,"Invoice",HFONT
text 67,17,"Tp",HFONT
text 70,17,"Balance",HFONT,right,cols=10
AR_STMT_CFONT 1,18,9,41,DFONT,center
AR_STMT_CFONT 11,18,13,41,DFONT
AR_STMT_CFONT 15,18,22,41,DFONT
AR_STMT_CFONT 24,18,32,41,DFONT,right
AR_STMT_CFONT 35,18,44,41,DFONT,right
AR_STMT_CFONT 47,18,56,41,DFONT,right
AR_STMT_CFONT 59,18,65,41,DFONT
AR_STMT_CFONT 67,18,69,41,DFONT
AR_STMT_CFONT 70,18,79,41,DFONT,right

# Totals
cfont 1,43,45,45,TFONT
box 46,42,12,2,1,10
box 46,44,12,2
text 47,43,"Balance Due",HFONT,right,cols=10
cfont 47,45,57,45,DFONT,right

cbox 66,42,MAXCOLS,44,1,10
cbox 66,44,MAXCOLS,46
text 67,43,"Balance Due",HFONT,right,cols=12
cfont 67,45,79,45,DFONT,right

box LEFTCOL, 46, 57.5, 1.5
box LEFTCOL, 47.5, 57.5, 1.5, 1, 10

box "Current",8,-2,0,3
box "30-Days",8,-2,0,3
box "60-Days",8,-2,0,3
box "90-Days",8,-2,0,3
font "Current",-2,0,9,1,DFONT,right
font "30-Days",-2,0,9,1,DFONT,right
font "60-Days",-2,0,9,1,DFONT,right
font "90-Days",-2,0,9,1,DFONT,right
font "Current",-2,-1,9,1,DFONT,right
font "30-Days",-2,-1,9,1,DFONT,right
font "60-Days",-2,-1,9,1,DFONT,right
font "90-Days",-2,-1,9,1,DFONT,right

# Continued
shade "(Continued)",-3.5,-.5,16,2,100
font "(Continued)",0,0,11,1,arial,shade 0

text 60,46.8,"Please remit to:",cgtimes,8
text 60,47.7,"COMP_NAME",univers,10,bold
text 60,48.6,"COMP_ADDR1",univers,10,bold
text 60,49.5,"COMP_ADDR2",univers,10,bold
text 60,50.4,"COMP_PHONES",univers,10,bold

SCISSORS_IMAGE 55.2,49.2,"SCISSORS_LOGO"

if copy FILE_COPY
	text 1,64,"File Copy",HFONT,12,bold,center,cols=55
end if
if copy CUSTOMER_COPY
	text 1,64,"Customer Copy",HFONT,12,bold,center,cols=55
end if

[A/R Summary Aging Report]
# added constants in detail area to handle different numeric masks 05/25/01
detect 0,2,"Summary Aging Report As Of"
const MAXCOLS=133
const MAXRCOLS=131
const MAXROWS=60
const LEFTCOL=.5
cols MAXCOLS
rows MAXROWS
pcopies 1
landscape

prepage {
	rptdate$=trim(get(1,1,20))
	rpttime$=trim(get(1,2,20))
	pageno$=trim(get(120,1,13))
	head1$=trim(get(20,1,100))
	head2$=trim(get(20,2,100))
	head3$=trim(get(20,3,100))
	head4$=trim(get(20,4,100))
}

# Heading section
const HFONT=univers,italic
cerase 1,1,MAXCOLS,5
box LEFTCOL,.1,MAXCOLS,4.5,3,20
text 1,1.25,{rptdate$},HFONT,10
text 1,2.25,{rpttime$},HFONT,10
text 1,1.25,{pageno$},HFONT,10,right,cols=MAXRCOLS
text 1,1.25,{head1$},HFONT,14,bold,center,cols=MAXCOLS
text 1,2.45,{head2$},HFONT,12,bold,center,cols=MAXCOLS
text 1,3.45,{head3$},HFONT,10,center,cols=MAXCOLS
text 1,4.45,{head4$},HFONT,10,center,cols=MAXCOLS
hline "---",erase

# Detail heading section
box "Customer No. & Name",-.5,-.75,MAXCOLS,1.75,1,10
const HFONT=univers,10
const DFONT=cgtimes,10
font "~^Customer No. & Name",0,0,19,1,HFONT
font "~Future .* Balance *$",0,0,6,1,HFONT,right
font "~Current .* Balance",0,0,7,1,HFONT,right
font "~30-Days .* Balance",0,0,7,1,HFONT,right
font "~60-Days .* Balance",0,0,7,1,HFONT,right
font "~90-Days .* Balance",0,0,7,1,HFONT,right
font "~120-Days .* Balance",0,0,8,1,HFONT,right
font "~Balance",0,0,7,1,HFONT,right
AR_SUM_AGING_FONT "~^Customer No. & Name",0,1,6,55,DFONT
AR_SUM_AGING_FONT "~^Customer No. & Name",7,1,25,55,DFONT

# Remark (#) out the constants below depending on your amount mask
# amounts up to 999,999.99
const COL_OFFSET=-6
const NO_COLS=9
# amounts up to 9,999,999.99
#const COL_OFFSET=-7
#const NO_COLS=10
# amounts up to 99,999,999.99
# const COL_OFFSET=-8
# const NO_COLS=11
AR_SUM_AGING_FONT "~\.[0-9][0-9]",COL_OFFSET,0,NO_COLS,1,DFONT,right	# amount
AR_SUM_AGING_FONT "~\.[0-9][0-9]-",3,0,1,1,DFONT,right,black	# minus sign

# Grand Total box
box "Grand Total:",-11,-1,MAXCOLS,2,1,10
font "Grand Total:",0,0,12,1,DFONT,bold

[A/R Detail Aging Report]
# added constants in detail area to handle different numeric masks 05/25/01
detect 0,2,"Detail Aging Report As Of"
const MAXCOLS=133
const MAXRCOLS=131
const MAXROWS=60
const LEFTCOL=.5
cols MAXCOLS
rows MAXROWS
pcopies 1
landscape

prepage {
	rptdate$=trim(get(1,1,20))
	rpttime$=trim(get(1,2,20))
	pageno$=trim(get(120,1,13))
	head1$=trim(get(20,1,100))
	head2$=trim(get(20,2,100))
	head3$=trim(get(20,3,100))
	head4$=trim(get(20,4,100))
}

# Heading section
const HFONT=univers,italic
cerase 1,1,MAXCOLS,5
box LEFTCOL,.1,MAXCOLS,4.5,3,20
text 1,1.25,{rptdate$},HFONT,10
text 1,2.25,{rpttime$},HFONT,10
text 1,1.25,{pageno$},HFONT,10,right,cols=MAXRCOLS
text 1,1.25,{head1$},HFONT,14,bold,center,cols=MAXCOLS
text 1,2.45,{head2$},HFONT,12,bold,center,cols=MAXCOLS
text 1,3.45,{head3$},HFONT,10,center,cols=MAXCOLS
text 1,4.45,{head4$},HFONT,10,center,cols=MAXCOLS
hline "---",erase

# Detail heading section
erase "~^Customer No. & Name",0,0,MAXCOLS
box "~^Customer No. & Name",-.5,0,MAXCOLS,1.75,1,10
const HFONT=univers,10
const DFONT=cgtimes,10
font "~^  Invoice .* Balance *$",2,0,7,1,HFONT
font "~^  Invoice .* Balance *$",11,0,8,1,HFONT
font "~^  Invoice .* Balance *$",20,0,9,1,HFONT
font "~^  Invoice .* Balance *$",31,0,6,1,HFONT
font "~^  Invoice .* Balance *$",39,0,5,1,HFONT
font "~^  Invoice .* Balance *$",45,0,4,1,HFONT
font "~Future .* Balance *$",0,0,6,1,HFONT,right
font "~Current .* Balance *$",0,0,7,1,HFONT,right
font "~30-Days .* Balance *$",0,0,7,1,HFONT,right
font "~60-Days .* Balance *$",0,0,7,1,HFONT,right
font "~90-Days .* Balance *$",0,0,7,1,HFONT,right
font "~120-Days .* Balance *$",0,0,8,1,HFONT,right
font "~Balance *$",0,0,7,1,HFONT,right

# Font for customer line, top of customer box
font "~\(...-...-....\)",-37,0,35,1,DFONT,bold
font "~\(...-...-....\)",0,0,14,1,DFONT,right,bold
font "~\(...-...-....\)",16,0,30,1,DFONT,right,bold

# detail
# Remark (#) out the constants below depending on your amount mask
# amounts up to 999,999.99
const COL_OFFSET=-6
const NO_COLS=9
# amounts up to 9,999,999.99
#const COL_OFFSET=-7
#const NO_COLS=10
# amounts up to 99,999,999.99
# const COL_OFFSET=-8
# const NO_COLS=11
AR_SUM_AGING_FONT "~\.[0-9][0-9]",COL_OFFSET,0,NO_COLS,1,DFONT,right	# amount
AR_SUM_AGING_FONT "~\.[0-9][0-9]-",3,0,1,1,DFONT,right,black	# minus sign


# Subtotal box
box "  ----",-10,0,88,1.75
text "  ----",-9,1,"Totals:",DFONT,bold

# Salesperson Total
bold "~Total For ... ",0,0,13,1
font "~Total For ... ",0,0,13,1,DFONT,bold

# Grand Total box
font "Grand Total:",0,0,12,1,DFONT,bold
box "Grand Total:",-11,-1.7,MAXCOLS,2.7,1,10

#############################
# Module: Bill of Materials #
#############################

##########################
# Module: General Ledger #
##########################

[Balance Sheet]
detect 34,2,"Balance Sheet"
const MAXCOLS=81
const MAXRCOLS=79
const MAXROWS=66
const LEFTCOL=.5
cols MAXCOLS
rows MAXROWS
pcopies 1

prepage {
	rptdate$=trim(get(1,1,20))
	rpttime$=trim(get(1,2,20))
	pageno$=trim(get(70,1,13))
	head1$=trim(get(20,1,50))
	head2$=trim(get(20,2,50))
	head3$=trim(get(20,3,50))
	head4$=trim(get(20,4,50))
	For i=6 to MAXROWS
		If pos("Total Assets"=text$[i])>0 then \
			text$[i](1,20)="    Total Assets"; \
			text$[i-1]=""
		If pos("Current Period Retained Earnings"=text$[i])>0 then \
			text$[i](1,40)="    Current Period Retained Earnings"; \
			text$[i-1]=""
		If pos("Total Liabilities & Equity"=text$[i])>0 then \
			text$[i](1,40)="    Total Liabilities & Equity"; \
			text$[i-1]=""
	Next i
}

# Heading section
const HFONT=univers,italic
cerase 1,1,MAXCOLS,5
box LEFTCOL,.1,MAXCOLS,4.5,3,20
text 1,1.25,{rptdate$},HFONT,10
text 1,2.25,{rpttime$},HFONT,10
text 1,1.25,{pageno$},HFONT,10,right,cols=MAXRCOLS
text 1,1.25,{head1$},HFONT,14,bold,center,cols=MAXCOLS
text 1,2.45,{head2$},HFONT,12,bold,center,cols=MAXCOLS
text 1,3.45,{head3$},HFONT,10,center,cols=MAXCOLS
text 1,4.45,{head4$},HFONT,10,center,cols=MAXCOLS
hline "---",erase

# body
const DFONT=cgtimes,12
box "  ----",2,0,15,1
font " @1,7,1,MAXROWS",0,0,50,1,DFONT					# acnt # & desc
font "~\.[0-9][0-9]@77,7,79,MAXROWS",-10,0,13,1,DFONT,right		# amount
bold "  ----",2,1,15,1								# section totals
font "~^[A-Z]",0,0,30,1,HFONT,12,bold					# minus sign

# Total Assets box
const DFONT=cgtimes,bold,12
box "Total Assets",-4.5,-1,MAXCOLS,2,4,10
font "Total Assets",0,0,20,1,HFONT,12,bold
font "Total Assets",62,0,13,1,DFONT,right					# amount
font "Total Assets",76,0,1,1,DFONT						# minus sign

# Retained Earnings box
box "Current Period Retained Earnings",-4.5,-1,MAXCOLS,2,4,10
font "Current Period Retained Earnings",0,0,40,1,HFONT,12,bold
font "Current Period Retained Earnings",62,0,13,1,DFONT,right	# amount
font "Current Period Retained Earnings",76,0,1,1,DFONT		# minus sign

# Total Liabilities box
box "Total Liabilities & Equity",-4.5,-1,MAXCOLS,2,4,10
font "Total Liabilities & Equity",0,0,40,1,HFONT,12,bold
font "Total Liabilities & Equity",62,0,13,1,DFONT,right		# amount
font "Total Liabilities & Equity",76,0,1,1,DFONT			# minus sign

[Profit and Loss]
detect 28,2,"Profit And Loss Statement"
const MAXCOLS=81
const MAXRCOLS=79
const MAXROWS=66
const LEFTCOL=.5
cols MAXCOLS
rows MAXROWS
pcopies 1

prepage {
	rptdate$=trim(get(1,1,20))
	rpttime$=trim(get(1,2,20))
	pageno$=trim(get(70,1,13))
	head1$=trim(get(20,1,50))
	head2$=trim(get(20,2,50))
	head3$=trim(get(20,3,50))
	head4$=trim(get(20,4,50))
	For i=6 to MAXROWS
		If pos("Total Income"=text$[i])>0 then \
			text$[i](1,20)="    Total Income"; \
			text$[i-1]=""
		If pos("Total Expense"=text$[i])>0 then \
			text$[i](1,20)="    Total Expense"; \
			text$[i-1]=""
		If pos("Profit/Loss"=text$[i])>0 then \
			text$[i](1,20)="    Profit/Loss"; \
			text$[i+1]=text$[i]; \
			text$[i]=""; text$[i-1]=""; \
			exitto exit_next
	Next i
exit_next:
}

# Heading section
const HFONT=univers,italic
cerase 1,1,MAXCOLS,5
box LEFTCOL,.1,MAXCOLS,4.5,3,20
text 1,1.25,{rptdate$},HFONT,10
text 1,2.25,{rpttime$},HFONT,10
text 1,1.25,{pageno$},HFONT,10,right,cols=MAXRCOLS
text 1,1.25,{head1$},HFONT,14,bold,center,cols=MAXCOLS
text 1,2.45,{head2$},HFONT,12,bold,center,cols=MAXCOLS
text 1,3.45,{head3$},HFONT,10,center,cols=MAXCOLS
text 1,4.45,{head4$},HFONT,10,center,cols=MAXCOLS
hline "---",erase

# body
const DFONT=cgtimes,12
const HFONT=univers,12
cmove 51,6,64,6,50,7
cfont 50,7,63,7,HFONT,right
cmove 69,6,80,6,68,7
cfont 68,7,79,7,HFONT,right
cfont 50,9,63,MAXROWS,DFONT,right				# ptd amount
cfont 64,9,64,MAXROWS,DFONT					# ptd minus sign
cfont 66,9,79,MAXROWS,DFONT,right				# ytd amount
cfont 80,9,80,MAXROWS,DFONT					# ytd minus sign
font "~^ ",0,0,48,1,HFONT					# acnt # & desc
font "~^[A-Z]",0,0,30,1,HFONT,bold				# section headers
box "  ----",2,0,31,1
font "  ----",4,1,12,1,DFONT,bold,right			# ptd tot amount
font "  ----",17,1,1,1,DFONT,bold				# ptd tot minus sign
font "  ----",20,1,12,1,DFONT,bold,right			# ytd tot amount
font "  ----",33,1,1,1,DFONT,bold				# ytd tot minus sign

# Total Income
const DFONT=cgtimes,12,bold
box "Total Income",-4.5,-1,MAXCOLS,2,4,10
font "Total Income",0,0,20,1,HFONT,12,bold
font "Total Income",47,0,12,1,DFONT,right			# ptd tot amount
font "Total Income",60,0,1,1,DFONT				# ptd tot minus sign
font "Total Income",63,0,12,1,DFONT,right			# ytd tot amount
font "Total Income",76,0,1,1,DFONT				# ytd tot minus sign

# Total Expense
box "Total Expense",-4.5,-1,MAXCOLS,2,4,10
font "Total Expense",0,0,40,1,HFONT,12,bold
font "Total Expense",47,0,12,1,DFONT,right		# ptd tot amount
font "Total Expense",60,0,1,1,DFONT				# ptd tot minus sign
font "Total Expense",63,0,12,1,DFONT,right		# ytd tot amount
font "Total Expense",76,0,1,1,DFONT				# ytd tot minus sign

# Profit/Loss
box "Profit/Loss",-4.5,-1,MAXCOLS,2,4,10
font "Profit/Loss",0,0,40,1,HFONT,12,bold
font "Profit/Loss",47,0,12,1,DFONT,right			# ptd tot amount
font "Profit/Loss",60,0,1,1,DFONT				# ptd tot minus sign
font "Profit/Loss",63,0,12,1,DFONT,right			# ytd tot amount
font "Profit/Loss",76,0,1,1,DFONT				# ytd tot minus sign

[Trial Balance 99 million max]
detect 0,2,"General Ledger Trial Balance"
detect 54,6,"Beginning Balance"
const MAXCOLS=132
const MAXRCOLS=131
const MAXROWS=60
const LEFTCOL=.5
cols MAXCOLS
rows MAXROWS
pcopies 1
landscape

prepage {
	rptdate$=trim(get(1,1,20))
	rpttime$=trim(get(1,2,20))
	pageno$=trim(get(120,1,13))
	head1$=trim(get(20,1,90))
	head2$=trim(get(20,2,90))
	head3$=trim(get(20,3,90))
	head4$=trim(get(20,4,90))
}

# Heading section
const HFONT=univers,italic
cerase 1,1,MAXCOLS,5
cbox LEFTCOL,.1,MAXCOLS,4.5,3,20
text 1,1.25,{rptdate$},HFONT,10
text 1,2.25,{rpttime$},HFONT,10
text 1,1.25,{pageno$},HFONT,10,right,cols=MAXRCOLS
text 1,1.25,{head1$},HFONT,14,bold,center,cols=MAXCOLS
text 1,2.45,{head2$},HFONT,12,bold,center,cols=MAXCOLS
text 1,3.45,{head3$},HFONT,10,center,cols=MAXCOLS
text 1,4.45,{head4$},HFONT,10,center,cols=MAXCOLS

# Detail heading section
const HFONT=univers,10
cbox LEFTCOL,5.25,MAXCOLS,7.5,1,10
cerase 41,6,MAXCOLS,7
cfont "Description@1,7,40,7",-2,0,1,7,HFONT,right
cfont "Description@1,7,40,7",0,0,48,7,HFONT
text 50,6,"Beginning Balance",HFONT,center,cols=27
text 78,6,"Period To Date",HFONT,center,cols=27
text 106,6,"Ending Balance",HFONT,center,cols=27
text 57,7,"Debit",HFONT,right,cols=5
text 70,7,"Credit",HFONT,right,cols=6
text 85,7,"Debit",HFONT,right,cols=5
text 98,7,"Credit",HFONT,right,cols=6
text 113,7,"Debit",HFONT,right,cols=5
text 126,7,"Credit",HFONT,right,cols=6

# body
const DFONT=cgtimes,11
cfont "Description@1,7,40,MAXROWS",-2,1,1,MAXROWS,DFONT,right	# account #
cfont "Description@1,7,40,MAXROWS,",0,1,48,MAXROWS,DFONT		# description
font "~\.[0-9][0-9]@50,8,MAXCOLS,MAXROWS",-9,0,12,1,DFONT,right	# amounts
font "~\.[0-9][0-9]-@50,8,MAXCOLS,MAXROWS",3,0,1,1,DFONT		# minus signs
font "~[A-Z]@1,8,1,MAXROWS",0,0,30,1,DFONT,bold				# section headers

# Total For ?????
const HFONT=univers,12,bold
const DFONT=cgtimes,12,bold
erase "Total For",-4.5,-1,MAXCOLS,1
box "Total For",-4.5,-1,131.5,1.5,2,10
font "Total For",0,0,30,1,HFONT
font "Total For",45,0,12,1,DFONT,right
font "Total For",59,0,12,1,DFONT,right
font "Total For",73,0,12,1,DFONT,right
font "Total For",87,0,12,1,DFONT,right
font "Total For",101,0,12,1,DFONT,right
font "Total For",115,0,12,1,DFONT,right

# Final Totals
font "Total Assets",0,0,20,1,DFONT,right
font "Total Assets",45,0,12,1,DFONT,right
font "Total Liabilities",0,0,20,1,DFONT,right
font "Total Liabilities",45,0,12,1,DFONT,right
font "Total Equity",0,0,20,1,DFONT,right
font "Total Equity",45,0,12,1,DFONT,right
font "Total Income",0,0,20,1,DFONT,right
font "Total Income",45,0,12,1,DFONT,right
font "Total Expenses",0,0,20,1,DFONT,right
font "Total Expenses",45,0,12,1,DFONT,right
erase "Net Income/(Loss)",0,-1,MAXCOLS,1
font "Net Income/(Loss)",0,0,20,1,DFONT,right
font "Net Income/(Loss)",45,0,12,1,DFONT,right

[Trial Balance 9 million max]
detect 0,2,"General Ledger Trial Balance"
detect 49,6,"Beginning Balance"
const MAXCOLS=132
const MAXRCOLS=131
const MAXROWS=60
const LEFTCOL=.5
cols MAXCOLS
rows MAXROWS
pcopies 1
landscape

prepage {
	rptdate$=trim(get(1,1,20))
	rpttime$=trim(get(1,2,20))
	pageno$=trim(get(120,1,13))
	head1$=trim(get(20,1,90))
	head2$=trim(get(20,2,90))
	head3$=trim(get(20,3,90))
	head4$=trim(get(20,4,90))
}

# Heading section
const HFONT=univers,italic
cerase 1,1,MAXCOLS,5
cbox LEFTCOL,.1,MAXCOLS,4.5,3,20
text 1,1.25,{rptdate$},HFONT,10
text 1,2.25,{rpttime$},HFONT,10
text 1,1.25,{pageno$},HFONT,10,right,cols=MAXRCOLS
text 1,1.25,{head1$},HFONT,14,bold,center,cols=MAXCOLS
text 1,2.45,{head2$},HFONT,12,bold,center,cols=MAXCOLS
text 1,3.45,{head3$},HFONT,10,center,cols=MAXCOLS
text 1,4.45,{head4$},HFONT,10,center,cols=MAXCOLS

# Detail heading section
const HFONT=univers,10
cbox LEFTCOL,5.25,MAXCOLS,7.5,1,10
cerase 41,6,MAXCOLS,7
cfont "Description@1,7,40,7",-2,0,1,7,HFONT,right
cfont "Description@1,7,40,7",0,0,48,7,HFONT
text 44,6,"Beginning Balance",HFONT,center,cols=29
text 74,6,"Period To Date",HFONT,center,cols=29
text 104,6,"Ending Balance",HFONT,center,cols=29
text 55,7,"Debit",HFONT,right,cols=5
text 66,7,"Credit",HFONT,right,cols=6
text 82,7,"Debit",HFONT,right,cols=5
text 96,7,"Credit",HFONT,right,cols=6
text 112,7,"Debit",HFONT,right,cols=5
text 126,7,"Credit",HFONT,right,cols=6

# body
const DFONT=cgtimes,11
cfont "Description@1,7,40,MAXROWS",-2,1,1,MAXROWS,DFONT,right	# account #
cfont "Description@1,7,40,MAXROWS,",0,1,43,MAXROWS,DFONT		# description
font "~\.[0-9][0-9]@50,8,MAXCOLS,MAXROWS",-10,0,13,1,DFONT,right	# amounts
font "~\.[0-9][0-9]-@50,8,MAXCOLS,MAXROWS",3,0,1,1,DFONT		# minus signs
font "~[A-Z]@1,8,1,MAXROWS",0,0,30,1,DFONT,bold				# section headers

# Total For ?????
const HFONT=univers,12,bold
const DFONT=cgtimes,12,bold
erase "Total For",-4.5,-1,MAXCOLS,1
box "Total For",-4.5,-1,131.5,1.5,2,10
font "Total For",0,0,30,1,HFONT
font "Total For",41,0,13,1,DFONT,right
font "Total For",56,0,13,1,DFONT,right
font "Total For",71,0,13,1,DFONT,right
font "Total For",86,0,13,1,DFONT,right
font "Total For",101,0,13,1,DFONT,right
font "Total For",116,0,13,1,DFONT,right

# Final Totals
font "Total Assets",0,0,20,1,DFONT,right
font "Total Assets",41,0,13,1,DFONT,right
font "Total Liabilities",0,0,20,1,DFONT,right
font "Total Liabilities",41,0,13,1,DFONT,right
font "Total Equity",0,0,20,1,DFONT,right
font "Total Equity",41,0,13,1,DFONT,right
font "Total Income",0,0,20,1,DFONT,right
font "Total Income",41,0,13,1,DFONT,right
font "Total Expenses",0,0,20,1,DFONT,right
font "Total Expenses",41,0,13,1,DFONT,right
erase "Net Income/(Loss)",0,-1,MAXCOLS,1
font "Net Income/(Loss)",0,0,20,1,DFONT,right
font "Net Income/(Loss)",41,0,13,1,DFONT,right

#####################
# Module: Inventory #
#####################

##########################
# Module: Purchase Order #
##########################

[Purchase Order form]
# NOTE: This version is used when the PO Parameters 
#       are set to "Plain Paper PO Forms = N"
# Tested with multi-page P/O's and long descriptions 10/10/2001
# cleaned up vendor codes and ship from codes - 10/10/2001
detect 50,6,"Purchase Order Number:"
detect 52,7,"Purchase Order Date:"
const MAXCOLS=81
const MAXRCOLS=80
const MAXROWS=66
const LEFTCOL=.5
cols MAXCOLS
rows MAXROWS

const VENDOR_COPY=1
const FILE_COPY=2
pcopies 2

prepage {
	pono$=trim(get(73,6,8))
	podate$=trim(get(73,7,8))
	pageno$=trim(get(73,8,8))
	cont$=""
	for i=50 to MAXROWS
		x=pos("(Continued)"=text$[i])
		if x then cont$="Continued"
	next i
	# find vendor code for better placement
	x=pos(" "=text$[12])
	vendor_code$=text$[12](1,x-1)
	x$=set(1,12,x," ")
	# find ship from code for better placement
	x$=trim(get(52,12,10))
	x=pos(" "=x$)
	if x then ship_from$=x$(1,x-1)
	if x then x$=set(52,12,x," ")
}

# Title area
cerase 1,1,MAXCOLS,8
text 1,2.25,"PURCHASE ORDER",univers,18,bold,right,cols=MAXRCOLS
LOGO_IMAGE 1,1,12,6,"COMP_LOGO"
text 1,2.25,"COMP_NAME",univers,15,bold,center,cols=MAXRCOLS
text 1,3.35,"COMP_ADDR1",univers,12,center,cols=MAXRCOLS
text 1,4.35,"COMP_ADDR2",univers,12,center,cols=MAXRCOLS
text 1,5.35,"COMP_PHONES",univers,12,center,cols=MAXRCOLS
hline "---",erase
vline "|",erase

# upper right info
const DFONT=cgtimes,10,bold
const HFONT=univers,10,italic
cbox 65,5,72,9,1,10
cbox 65,5,MAXCOLS,9
cbox 65,6.5,MAXCOLS,7.5
text 66,6,"PO #",HFONT
text 66,7,"PO Date",HFONT
text 66,8,"Page #",HFONT
text 73,6,{pono$},DFONT
text 73,7,{podate$},DFONT
text 73,8,{pageno$},DFONT

# Address section
cbox LEFTCOL,9,MAXCOLS,20
cbox LEFTCOL,9,12,11,1,10
cbox 41,9,41,20
cbox 41,9,54,11,1,10
cfont 1,10,8,10,HFONT
cfont 42,10,53,10,HFONT
text 7,10,{vendor_code$},DFONT
cfont 1,12,7,12,DFONT
cfont 1,12,40,19,DFONT
text 50,10,{ship_from$},DFONT
cfont 43,12,MAXCOLS,19,DFONT

# ribbon section
cbox LEFTCOL,20,MAXCOLS,22
cbox LEFTCOL,20,7,22,1,10
cbox 31,20,41,22,1,10
cbox 59,20,64,22,1,10
cbox LEFTCOL,22,32,24,1,10
cbox LEFTCOL,22,MAXCOLS,24
cfont 1,21,6,21,HFONT
cfont 8,21,30,21,DFONT
cfont 32,21,40,21,HFONT
cfont 42,21,58,21,DFONT
cfont 60,21,63,21,HFONT
cfont 65,21,MAXCOLS,21,DFONT
cfont 1,23,31,23,HFONT
cfont 33,23,MAXCOLS,23,DFONT

# Item detail
cbox LEFTCOL,24,MAXCOLS,26,1,10
cbox "Total@65,27,69,MAXROWS",-64.5,-1,MAXCOLS,24
cbox "Total@65,27,69,MAXROWS",-61,-1,4,24
cbox "Total@65,27,69,MAXROWS",-52,-1,13,24
cbox "Total@65,27,69,MAXROWS",-9,-1,56,24
cbox "Total@65,27,69,MAXROWS",2,-1,67,24
cbox "Total@65,27,69,MAXROWS",5,-1,70,24
cbox "Continued@61,27,69,MAXROWS",-60.5,-1,MAXCOLS,24
cbox "Continued@61,27,69,MAXROWS",-57,-1,4,24
cbox "Continued@61,27,69,MAXROWS",-48,-1,13,24
cbox "Continued@61,27,69,MAXROWS",-5,-1,56,24
cbox "Continued@61,27,69,MAXROWS",6,-1,67,24
cbox "Continued@61,27,69,MAXROWS",9,-1,70,24
cfont 1,25,3,25,HFONT,center			# seq
cfont 5,25,12,25,HFONT,right			# qty
cfont 14,25,43,25,HFONT				# part # & desc
cfont 45,25,55,25,HFONT,center		# date
cfont 57,25,66,25,HFONT,right			# cost
cfont 68,25,69,25,HFONT,center		# UM
cfont 71,25,MAXRCOLS,25,HFONT,right		# extension
PO_FONT "~\.[0-9][0-9]@77,27,79,57",-76,0,3,1,DFONT,center		# seq
PO_FONT "   @77,27,79,57",-76,0,3,1,DFONT,center		# seq for line remark
PO_FONT "~\.[0-9][0-9]@77,27,79,57",-72,0,8,1,DFONT,right		# qty
PO_FONT "~\.[0-9][0-9]@77,27,79,57",-63,0,30,1,DFONT			# part
PO_FONT "   @77,27,79,57",-63,0,50,1,DFONT				# desc
PO_FONT "~\.[0-9][0-9]@77,27,79,57",-31,0,11,1,DFONT,center		# date
PO_FONT "~\.[0-9][0-9]@77,27,79,57",-20,0,10,1,DFONT,right		# cost
PO_FONT "~\.[0-9][0-9]@77,27,79,57",-9,0,2,1,DFONT,center		# UM
PO_FONT "~\.[0-9][0-9]@77,27,79,57",-7,0,10,1,DFONT,right		# extension

# sub totals
erase "(Continued)@1,50,MAXCOLS,MAXROWS",0,0,11,1
box "Total@65,20,69,MAXROWS",-1,-1,6,2,1,10
box "Total@65,20,69,MAXROWS",-1,-1,17,2
font "Total@65,20,69,MAXROWS",0,0,5,1,HFONT,right,bold
font "Total@65,20,69,MAXROWS",7,0,9,1,DFONT,right

# approval line & message area
font "Total@65,20,69,MAXROWS",-64,0,47,1,DFONT
cfont "Total@65,20,69,MAXROWS",-64,1,47,MAXROWS,DFONT
cerase 48,58,MAXCOLS,59
cbox 62,63,MAXRCOLS,63
text 65.5,63.75,"Purchasing Agent",HFONT,10
if copy VENDOR_COPY
	text 1,65.5,"Vendor Copy",univers,12,bold,center,cols=MAXRCOLS
endif
if copy FILE_COPY
	text 1,65.5,"Accounting Copy",univers,12,bold,center,cols=MAXRCOLS
endif
text 1,65.5,{cont$},HFONT,bold,right,cols=MAXRCOLS

[Purchase Order plain]
# NOTE: This version is used when the PO Parameters 
#       are set to "Plain Paper PO Forms = Y"
# Tested with multi-page P/O's and long descriptions 10/16/2000
# cleaned up vendor codes and ship from codes - 10/10/2001
detect 50,4,"Purchase Order Number:"
detect 52,5,"Purchase Order Date:"
const MAXCOLS=81
const MAXRCOLS=80
const MAXROWS=66
const LEFTCOL=.5
cols MAXCOLS
rows MAXROWS

const VENDOR_COPY=1
const FILE_COPY=2
pcopies 2

prepage {
	pono$=trim(get(73,4,8))
	podate$=trim(get(73,5,8))
	pageno$=trim(get(73,6,8))
	cont$=""
	for i=50 to MAXROWS
		x=pos("(Continued)"=text$[i])
		if x then cont$="Continued"
	next i
	# find vendor code for better placement
	x=pos(" "=text$[10])
	vendor_code$=text$[10](1,x-1)
	x$=set(1,10,x," ")
	# find ship from code for better placement
	x$=trim(get(43,10,10))
	x=pos(" "=x$)
	if x then ship_from$=x$(1,x-1)
	if x then x$=set(43,10,x," ")
}

# Title area
cerase 1,1,MAXCOLS,7
text 1,2.25,"PURCHASE ORDER",univers,18,bold,right,cols=MAXRCOLS
LOGO_IMAGE 1,1,10,5,"COMP_LOGO"
text 1,2.25,"COMP_NAME",univers,15,bold,center,cols=MAXRCOLS
text 1,3.35,"COMP_ADDR1",univers,12,center,cols=MAXRCOLS
text 1,4.35,"COMP_ADDR2",univers,12,center,cols=MAXRCOLS
text 1,5.35,"COMP_PHONES",univers,12,center,cols=MAXRCOLS
hline "---",erase
vline "|",erase

# upper right info
const DFONT=cgtimes,10,bold
const HFONT=univers,10,italic
cbox 65,3,72,7,1,10
cbox 65,3,MAXCOLS,7
cbox 65,4.5,MAXCOLS,5.5
text 66,4,"PO #",HFONT
text 66,5,"PO Date",HFONT
text 66,6,"Page #",HFONT
text 73,4,{pono$},DFONT
text 73,5,{podate$},DFONT
text 73,6,{pageno$},DFONT

# Address section
cbox LEFTCOL,7,MAXCOLS,14
cbox LEFTCOL,7,12,9,1,10
cbox 41,7,41,14
cbox 41,7,54,9,1,10
cfont 1,8,8,8,HFONT
cfont 42,8,53,8,HFONT
text 7,8,{vendor_code$},DFONT
cfont 1,10,7,10,DFONT
cfont 1,10,40,14,DFONT
text 50,8,{ship_from$},DFONT
cfont 43,10,MAXCOLS,14,DFONT

# ribbon section
cbox LEFTCOL,14,MAXCOLS,16
cbox LEFTCOL,14,7,16,1,10
cbox 31,14,41,16,1,10
cbox 59,14,64,16,1,10
cbox LEFTCOL,16,32,18,1,10
cbox LEFTCOL,16,MAXCOLS,18
cfont 1,15,6,15,HFONT
cfont 8,15,30,15,DFONT
cfont 32,15,40,15,HFONT
cfont 42,15,58,15,DFONT
cfont 60,15,63,15,HFONT
cfont 65,15,MAXCOLS,15,DFONT
cfont 1,17,31,17,HFONT
cfont 33,17,MAXCOLS,17,DFONT

# Item detail
cbox LEFTCOL,18,MAXCOLS,20,1,10
cbox "Total@65,20,69,MAXROWS",-64.5,-1,MAXCOLS,18
cbox "Total@65,20,69,MAXROWS",-61,-1,4,18
cbox "Total@65,20,69,MAXROWS",-50,-1,15,18
cbox "Total@65,20,69,MAXROWS",-9,-1,56,18
cbox "Total@65,20,69,MAXROWS",2,-1,67,18
cbox "Total@65,20,69,MAXROWS",5,-1,70,18
cbox "Continued@63,20,71,MAXROWS",-62.5,-1,MAXCOLS,18
cbox "Continued@63,20,71,MAXROWS",-59,-1,4,18
cbox "Continued@63,20,71,MAXROWS",-48,-1,15,18
cbox "Continued@63,20,71,MAXROWS",-7,-1,56,18
cbox "Continued@63,20,71,MAXROWS",4,-1,67,18
cbox "Continued@63,20,71,MAXROWS",7,-1,70,18
cfont 1,19,3,19,HFONT,center			# seq
cfont 5,19,14,19,HFONT,right			# qty
cfont 16,19,43,19,HFONT				# part # & desc
cfont 45,19,55,19,HFONT,center		# date
cfont 57,19,66,19,HFONT,right			# cost
cfont 68,19,69,19,HFONT,center		# UM
cfont 71,19,MAXRCOLS,19,HFONT,right		# extension
PO_FONT "~\.[0-9][0-9]@77,20,79,57",-76,0,3,1,DFONT,center		# seq
PO_FONT "   @77,20,79,57",-76,0,3,1,DFONT,center		# seq for line remark
PO_FONT "~\.[0-9][0-9]@77,20,79,57",-72,0,10,1,DFONT,right		# qty
PO_FONT "~\.[0-9][0-9]@77,20,79,57",-61,0,30,1,DFONT			# part
PO_FONT "   @77,20,79,57",-61,0,50,1,DFONT				# desc
PO_FONT "~\.[0-9][0-9]@77,20,79,57",-31,0,11,1,DFONT,center		# date
PO_FONT "~\.[0-9][0-9]@77,20,79,57",-20,0,10,1,DFONT,right		# cost
PO_FONT "~\.[0-9][0-9]@77,20,79,57",-9,0,2,1,DFONT,center		# UM
PO_FONT "~\.[0-9][0-9]@77,20,79,57",-7,0,10,1,DFONT,right		# extension

# sub totals
erase "(Continued)@1,50,MAXCOLS,MAXROWS",0,0,11,1
box "Total@65,20,69,MAXROWS",-1,-1,6,2,1,10
box "Total@65,20,69,MAXROWS",-1,-1,17,2
font "Total@65,20,69,MAXROWS",0,0,5,1,HFONT,right,bold
font "Total@65,20,69,MAXROWS",7,0,9,1,DFONT,right

# approval line & message area
font "Total@65,20,69,MAXROWS",-64,0,47,1,DFONT
cfont "Total@65,20,69,MAXROWS",-64,1,47,MAXROWS,DFONT
cerase 48,58,MAXCOLS,59
cbox 62,63,MAXRCOLS,63
text 65.5,63.75,"Purchasing Agent",HFONT,10
if copy VENDOR_COPY
	text 1,65.5,"Vendor Copy",univers,12,bold,center,cols=MAXRCOLS
endif
if copy FILE_COPY
	text 1,65.5,"Accounting Copy",univers,12,bold,center,cols=MAXRCOLS
endif
text 1,65.5,{cont$},HFONT,bold,right,cols=MAXRCOLS

[Purchase Requisition]
detect 0,2,"P U R C H A S E   R E Q U I S I T I O N"
const MAXCOLS=81
const MAXRCOLS=80
const MAXROWS=66
const LEFTCOL=.5
cols MAXCOLS
rows MAXROWS

const PURCHASING_COPY=1
const REQUESTOR_COPY=2
pcopies 2

prepage {
	x$=trim(get(1,2,35))
	if x$="" then \
		comp_name$="COMP_NAME"; \
		comp_addr1$="COMP_ADDR1"; \
		comp_addr2$="COMP_ADDR2"; \
		comp_addr3$="COMP_ADDR3"; \
		comp_phones$="COMP_PHONES" \
	else \
		comp_name$=x$; \
		comp_addr1$=trim(get(1,3,35)); \
		comp_addr2$=trim(get(1,4,35)); \
		comp_addr3$=trim(get(1,5,35)); \
		comp_phones$=trim(get(1,6,35)) 
	if trim(comp_addr3$)="" then comp_addr3$=comp_phones$,comp_phones$=""
	reqno$=trim(get(73,5,8))
	reqdate$=trim(get(73,6,8))
	pageno$=trim(get(73,7,8))
}

# Title area
cerase 1,1,MAXCOLS,7
text 1,2.25,"Purchase Requisition",univers,17,bold,right,cols=MAXRCOLS
LOGO_IMAGE .1,.1,10,5,"COMP_LOGO"
text 1,2.25,{comp_name$},univers,14,bold,center,cols=MAXRCOLS
text 1,3.35,{comp_addr1$},univers,12,center,cols=MAXRCOLS
text 1,4.35,{comp_addr2$},univers,12,center,cols=MAXRCOLS
text 1,5.35,{comp_addr3$},univers,12,center,cols=MAXRCOLS
text 1,6.35,{comp_phones$},univers,12,center,cols=MAXRCOLS
hline "---",erase
vline "|",erase

# upper right info
const DFONT=cgtimes,10,bold
const HFONT=univers,10,italic
const TFONT=cgtimes,9,bold
cbox 62,3,72,7,1,10
cbox 62,3,MAXCOLS,7
cbox 62,4.5,MAXCOLS,5.5
text 63,4,"Requisition #",TFONT
text 63,5,"Requisition Date",TFONT
text 63,6,"Page #",TFONT
text 73,4,{reqno$},DFONT
text 73,5,{reqdate$},DFONT
text 73,6,{pageno$},DFONT

# Vendor address section
cbox LEFTCOL,7,MAXCOLS,14
cbox LEFTCOL,7,7,9,1,10
cfont 1,8,7,8,HFONT,center				# vendor
cfont 1,10,6,10,DFONT,center				# vendor id
cfont 8,10,42,10,DFONT					# vendor name
cfont 8,11,42,14,TFONT					# vendor address

# Ship from address section
cbox 42,7,42,14
cbox 42,7,54,9,1,10
cfont 43,8,53,8,HFONT					# ship from
cfont 43,10,44,10,DFONT,black				# ship from id
cfont 46,10,MAXCOLS,10,DFONT				# ship from name
cfont 46,11,MAXCOLS,14,TFONT				# ship from address

# ribbon section
cbox LEFTCOL,14,MAXCOLS,16
cbox LEFTCOL,14,7,16,1,10
cbox 31,14,41,16,1,10
cbox 59,14,64,16,1,10
cfont 1,15,6,15,HFONT,right				# terms title
cfont 8,15,30,15,DFONT					# terms
cfont 32,15,40,15,HFONT,right				# ship via title
cfont 42,15,58,15,DFONT					# ship via
cfont 60,15,63,15,HFONT,right				# fob title
cfont 65,15,MAXCOLS,15,DFONT				# fob

# ribbon 2 section
cbox LEFTCOL,16,32,18,1,10
cbox LEFTCOL,16,MAXCOLS,18
cfont 1,17,31,17,HFONT,right				# ack by title
cfont 33,17,MAXCOLS,17,DFONT				# ack by

# Item detail headers
cbox LEFTCOL,18,MAXCOLS,20
cbox LEFTCOL,18,MAXCOLS,20,1,10
cbox 4,18,4,20
cbox 15,18,15,20
cbox 56,18,56,20
cbox 67,18,67,20
cbox 70,18,70,20
cfont 1,19,3,19,HFONT,center				# seq
cfont 5,19,14,19,HFONT,right				# qty
cfont 16,19,43,19,HFONT					# part # & desc
cfont 45,19,55,19,HFONT,right				# date
cfont 57,19,66,19,HFONT,right				# cost
cfont 68,19,69,19,HFONT,center			# UM
cfont 71,19,MAXRCOLS,19,HFONT,right			# extension

# item detail
# lines based upon "continued"
cbox "(Continued)@62,21,72,MAXROWS",-61.5,-1,MAXCOLS,20
cbox "(Continued)@62,21,72,MAXROWS",-58,-1,4,20
cbox "(Continued)@62,21,72,MAXROWS",-47,-1,15,20
cbox "(Continued)@62,21,72,MAXROWS",-6,-1,56,20
cbox "(Continued)@62,21,72,MAXROWS",5,-1,67,20
cbox "(Continued)@62,21,72,MAXROWS",8,-1,70,20
# lines based upon "Total"
cbox "Total@65,21,69,MAXROWS",-64.5,-1,MAXCOLS,20
cbox "Total@65,21,69,MAXROWS",-61,-1,4,20
cbox "Total@65,21,69,MAXROWS",-50,-1,15,20
cbox "Total@65,21,69,MAXROWS",-9,-1,56,20
cbox "Total@65,21,69,MAXROWS",2,-1,67,20
cbox "Total@65,21,69,MAXROWS",5,-1,70,20
# base all fonting on whether an amount is in the cost field
PO_FONT "~\.[0-9][0-9]@63,21,65,MAXROWS",-62,0,4,1,DFONT,center		# seq
PO_FONT "~\.[0-9][0-9]@63,21,65,MAXROWS",-57,0,9,1,DFONT,right		# qty
PO_FONT "~\.[0-9][0-9]@63,21,65,MAXROWS",-47,0,25,1,DFONT			# part #
PO_FONT "~\.[0-9][0-9]@63,21,65,MAXROWS",-16,0,9,1,DFONT,right		# date
PO_FONT "~\.[0-9][0-9]@63,21,65,MAXROWS",-5,0,9,1,DFONT,right		# cost
PO_FONT "~\.[0-9][0-9]@63,21,65,MAXROWS",5,0,2,1,DFONT,center		# UM
PO_FONT "~\.[0-9][0-9]@63,21,65,MAXROWS",8,0,10,1,DFONT,right		# extension
PO_FONT "   @63,21,65,MAXROWS",-62,0,4,1,DFONT,center				# seq
PO_FONT "   @63,21,65,MAXROWS",-47,0,40,1,DFONT			# desc/line remarks

# Continued Box
box  "(Continued)@62,21,72,MAXROWS",-6,-1,25,2,1,10
font "(Continued)@62,21,72,MAXROWS",-6,0,25,1,HFONT,12,center

# totals
box  "Total@65,21,69,MAXROWS",-9,-1,14,2,1,10
box  "Total@65,21,69,MAXROWS",-9,-1,25,2
font "Total@65,21,69,MAXROWS",-9,0,14,1,HFONT,12,center,bold
font "Total@65,21,69,MAXROWS",6,0,10,1,DFONT,12,right

# approval line & message area
cfont "Total@65,21,69,MAXROWS",-64,0,55,65,DFONT
erase "Purchasing Agent@56,21,71,MAXROWS",-8,-1,35,2
cbox 57,64,MAXRCOLS,64
text 57,64.75,"Authorized Signature",HFONT,10,center,cols=24
if copy PURCHASING_COPY
	text 1,65.5,"Purchasing Copy",univers,12,bold,center,cols=MAXRCOLS
endif
if copy REQUESTOR_COPY
	text 1,65.5,"Requestor Copy",univers,12,bold,center,cols=MAXRCOLS
endif

############################
# Module: Order Processing #
############################

[Invoice Form]
# Invoice Printing used with OPR.CA for form #201
# Changed item detail area to better handle types of lines 05/24/01
detect 60,5,"~ DATEMASK  [0-9][0-9][0-9][0-9][0-9][0-9][0-9] [ 1-9][0-9]"
detect 1,21,"~[0-9][0-9][0-9][0-9][0-9][0-9][0-9] "		# order #
const MAXCOLS=81
const MAXRCOLS=80
const MAXROWS=66
const LEFTCOL=.5
cols MAXCOLS
rows MAXROWS

const CUSTOMER_COPY=1
const FILE_COPY=2
pcopies 2

prepage {
	invno$=trim(get(71,5,7))
	invdate$=trim(get(61,5,8))
	pageno$=trim(get(79,5,2))
	duplicate$=""
	for x=1 to 8
		if pos("DUPLICATE"=text$[x])>0 then duplicate$="DUPLICATE"
	next x
}

# Title area
cerase 1,1,MAXCOLS,8
text 1,.3,{duplicate$},univers,12,right,cols=MAXRCOLS
text 1,2.25,"INVOICE",univers,18,bold,right,cols=MAXRCOLS
LOGO_IMAGE 1,1,12,6,"COMP_LOGO"
text 1,2.25,"COMP_NAME",univers,15,bold,center,cols=MAXRCOLS
text 1,3.35,"COMP_ADDR1",univers,12,center,cols=MAXRCOLS
text 1,4.35,"COMP_ADDR2",univers,12,center,cols=MAXRCOLS
text 1,5.35,"COMP_PHONES",univers,12,center,cols=MAXRCOLS
hline "---",erase
vline "|",erase

# upper right info
const DFONT=cgtimes,10,bold
const HFONT=univers,10,italic
cbox 65,5,72,9,1,10
cbox 65,5,MAXCOLS,9
cbox 65,6.5,MAXCOLS,7.5
text 66,6,"Invoice #",HFONT
text 66,7,"Date",HFONT
text 66,8,"Page #",HFONT
text 73,6,{invno$},DFONT
text 73,7,{invdate$},DFONT
text 73,8,{pageno$},DFONT

# Address section
cbox LEFTCOL,10,MAXCOLS,18
cbox LEFTCOL,10,7,18,1,10
cbox 44,10,50,18,1,10
text 1,11,"Bill To:",HFONT
text 45,11,"Ship To:",HFONT
cfont 8,10,43,18,DFONT
cfont 51,10,MAXCOLS,18,DFONT

# ribbon section
cbox LEFTCOL,18,MAXCOLS,20,1,10
cbox LEFTCOL,20,MAXCOLS,23
cbox 9,18,9,23
cbox 18,18,18,23
cbox 25,18,25,23
cbox 29,18,42,21.5
cbox 42,18,42,23
cbox 56,18,56,23
cbox 65,18,65,23
text 1,19,"Order #",HFONT
text 10,19,"Order Date",HFONT,center,cols=8
text 19,19,"Customer",HFONT
text 26,19,"Sls",HFONT
text 30,19,"P/O #",HFONT
text 43,19,"Ship Via",HFONT
text 57,19,"Ship Date",HFONT,center,cols=8
text 66,19,"Terms",HFONT
cfont 1,21,8,22,DFONT
cfont 10,21,17,22,DFONT,center,cols=8
cfont 19,21,24,22,DFONT
cfont 26,21,28,21,DFONT
cfont 26,22,45,22,DFONT
cfont 30,21,41,21,DFONT
cfont 43,21,55,21,DFONT
cfont 57,21,64,22,DFONT,center,cols=8
cfont 66,21,MAXCOLS,22,DFONT

# Item detail
cbox LEFTCOL,23,MAXCOLS,56
cbox LEFTCOL,23,MAXCOLS,24.5,1,10
cbox 7,23,7,56
cbox 13,23,13,56
cbox 19,23,19,56
cbox 57,23,57,56
cbox 70,23,70,56
text 1,24,"Order",HFONT,right,cols=6
text 8,24,"Ship",HFONT,right,cols=5
text 14,24,"B/O",HFONT,right,cols=5
text 21,24,"Item #/Description",HFONT
text 53,24,"UM",HFONT,center,cols=3
text 61,24,"Cost",HFONT,right,cols=9
text 71,24,"Extended",HFONT,right,cols=10

OP_INV_CFONT 1,25,6,55,DFONT,right					# qty ordered
OP_INV_CFONT 8,25,12,55,DFONT,right					# qty shipped
OP_INV_CFONT 14,25,18,55,DFONT,right				# qty b/o
OP_INV_FONT "~[!-}]@20,25,20,55",0,0,40,1,DFONT			# description
OP_INV_FONT "~[0-9]@2,25,2,55",20,0,20,1,DFONT			# item #
OP_INV_FONT "   @20,25,22,55",0,0,60,1,DFONT			# line remarks
OP_INV_FONT " @20,25,20,55",33,0,2,1,DFONT			# uom
OP_INV_FONT "~[0-9]@2,25,2,55",54,0,14,1,DFONT,right		# cost
OP_INV_CFONT 71,25,MAXRCOLS,55,DFONT,right			# extended

# Continued
shade "~Continued *$",-0.5,-.5,11,3.5,100
font "~Continued *$",0,0,9,1,HFONT,shade 0

# totals
cbox LEFTCOL,56,MAXCOLS,MAXROWS
cbox 57,56,MAXCOLS,MAXROWS
cbox 57,56,70,MAXROWS,1,10
cbox 57,59.5,MAXCOLS,59.5
cbox 57,60.5,MAXCOLS,60.5
cbox 57,61.5,MAXCOLS,61.5
cbox 57,62.5,MAXCOLS,62.6
cfont 1,57,59,65,HFONT
text 58,58,"Sales Amount",HFONT
text 58,60,"Discount",HFONT
text 58,61,"Sales Tax",HFONT
text 58,62,"Freight",HFONT
text 58,64,"Total Due",HFONT,bold
# Get rid of printed "Discount" identifier
cerase 59,60,66,60
cfont 71,58,MAXRCOLS,64,DFONT,right

if copy CUSTOMER_COPY
	text 1,65.5,"Customer Copy",univers,12,bold,center,cols=MAXRCOLS
endif
if copy FILE_COPY
	text 1,65.5,"Accounting Copy",univers,12,bold,center,cols=MAXRCOLS
endif

[Invoice plain]
# Invoice Printing used with OPR.BA for plain paper
# Changed item detail area to better handle types of lines 05/24/01
detect 0,5,"Invoice Number:"
detect 0,6,"Date:"
const MAXCOLS=81
const MAXRCOLS=80
const MAXROWS=66
const LEFTCOL=.5
cols MAXCOLS
rows MAXROWS

const CUSTOMER_COPY=1
const FILE_COPY=2
pcopies 2

prepage {
	invno$=trim(get(71,5,7))
	invdate$=trim(get(71,6,8))
	pageno$=trim(get(79,5,2))
	historical$=""
	for x=1 to 8
		if pos("Historical"=text$[x])>0 then historical$="HISTORICAL"
	next x
}

# Title area
cerase 1,1,MAXCOLS,8
text 1,.3,{historical$},univers,12,right,cols=MAXRCOLS
text 1,2.25,"INVOICE",univers,18,bold,right,cols=MAXRCOLS
LOGO_IMAGE 1,1,12,6,"COMP_LOGO"
text 1,2.25,"COMP_NAME",univers,15,bold,center,cols=MAXRCOLS
text 1,3.35,"COMP_ADDR1",univers,12,center,cols=MAXRCOLS
text 1,4.35,"COMP_ADDR2",univers,12,center,cols=MAXRCOLS
text 1,5.35,"COMP_PHONES",univers,12,center,cols=MAXRCOLS
hline "---",erase
vline "|",erase

# upper right info
const DFONT=cgtimes,10,bold
const HFONT=univers,10,italic
cbox 65,4,72,8,1,10
cbox 65,4,MAXCOLS,8
cbox 65,5.5,MAXCOLS,6.5
text 66,5,"Invoice #",HFONT
text 66,6,"Date",HFONT
text 66,7,"Page #",HFONT
text 73,5,{invno$},DFONT
text 73,6,{invdate$},DFONT
text 73,7,{pageno$},DFONT

# Address section
cbox LEFTCOL,8,MAXCOLS,16
cbox LEFTCOL,8,7,16,1,10
cbox 44,8,50,16,1,10
cerase 1,9,9,9
cerase 46,9,53,9
text 1,9,"Bill To:",HFONT
text 45,9,"Ship To:",HFONT
cfont 8,9,43,16,DFONT
cfont 51,9,MAXCOLS,16,DFONT

# ribbon section
cbox LEFTCOL,16,MAXCOLS,18,1,10
cbox LEFTCOL,18,MAXCOLS,21
cbox 9,16,9,21
cbox 18,16,18,21
cbox 25,16,25,21
cbox 29,16,42,19.5
cbox 42,16,42,21
cbox 56,16,56,21
cbox 65,16,65,21
cfont 1,17,8,17,HFONT
cfont 10,17,17,17,HFONT,center,cols=8
cfont 19,17,24,17,HFONT
cfont 26,17,28,17,HFONT
cfont 30,17,41,17,HFONT
cfont 43,17,55,17,HFONT
cfont 57,17,64,18,HFONT,center,cols=7
cfont 66,17,MAXCOLS,17,HFONT
cfont 1,19,8,20,DFONT
cfont 10,19,17,20,DFONT,center,cols=8
cfont 19,19,24,20,DFONT
cfont 26,19,28,19,DFONT
cfont 26,20,41,20,DFONT
cfont 30,19,41,19,DFONT
cfont 43,19,55,20,DFONT
cfont 57,19,64,20,DFONT,center,cols=7
cfont 66,19,MAXCOLS,20,DFONT

# Item detail
cbox LEFTCOL,21,MAXCOLS,51
cbox LEFTCOL,21,MAXCOLS,24,1,10
cbox 7,21,7,51
cbox 13,21,13,51
cbox 19,21,19,51
cbox 57,21,57,51
cbox 70,21,70,51
cmove 13,22,15,23,14,22
cfont 1,22,6,23,HFONT,right,cols=6
cfont 8,22,12,23,HFONT,right,cols=5
cfont 14,22,18,23,HFONT,right,cols=5
cfont 20,22,51,23,HFONT
cfont 53,22,56,23,HFONT,center,cols=3
cfont 57,22,69,23,HFONT,right,cols=9
cfont 71,22,MAXRCOLS,23,HFONT,right,cols=10

OP_INV_CFONT 1,25,6,51,DFONT,right					# qty ordered
OP_INV_CFONT 8,25,12,51,DFONT,right					# qty shipped
OP_INV_CFONT 14,25,18,51,DFONT,right				# qty b/o
OP_INV_FONT "~[!-}]@20,25,20,51",0,0,40,1,DFONT			# description
OP_INV_FONT "~[0-9]@2,25,2,51",20,0,20,1,DFONT			# item #
OP_INV_FONT "   @20,25,22,51",0,0,60,1,DFONT			# line remarks
OP_INV_FONT " @20,25,20,51",33,0,2,1,DFONT			# uom
OP_INV_FONT "~[0-9]@2,25,2,51",54,0,14,1,DFONT,right		# cost
OP_INV_CFONT 71,25,MAXRCOLS,51,DFONT,right			# extended

# Continued
shade "~Continued *$",-0.5,-.5,11,3.5,100
font "~Continued *$",0,0,9,1,HFONT,shade 0

# totals
cbox LEFTCOL,51,MAXCOLS,MAXROWS
cbox 60,51,MAXCOLS,60
cbox 60,51,70,60,1,10
cbox 60,54.5,MAXCOLS,54.5
cbox 60,55.5,MAXCOLS,55.5
cbox 60,56.5,MAXCOLS,56.5
cbox 60,57.5,MAXCOLS,57.6
cfont 1,53,59,65,HFONT
cerase 49,53,70,59
text 61,53,"Sales Amount",HFONT
text 61,55,"Discount",HFONT
text 61,56,"Sales Tax",HFONT
text 61,57,"Freight",HFONT
text 61,59,"Total Due",HFONT,bold
cfont 71,53,MAXRCOLS,59,DFONT,right

if copy CUSTOMER_COPY
	text 1,65.5,"Customer Copy",univers,12,bold,center,cols=MAXRCOLS
endif
if copy FILE_COPY
	text 1,65.5,"Accounting Copy",univers,12,bold,center,cols=MAXRCOLS
endif

[Quote-Pick Slip]
# The text output is the same for plain paper AND form #203 (from OPR.PA)
# added copies 05/24/01
# Moved quote to separate rule set 05/24/01
# combined quote rule set and pick slip - both can appear on same run - 10/15/2001
detect 0,4,"Order Number"
const MAXCOLS=83
const MAXRCOLS=82
const MAXROWS=66
const LEFTCOL=.5
cols MAXCOLS
rows MAXROWS

# copy 1=customer copy quote, copy 2=file copy quote
# copy 3=pick slip
pcopies 3

prepage {
	ordno$=trim(get(71,4,8))
	orddate$=trim(get(71,5,8))
	if pos("Q U O T A T I O N"=text$[2]) then form$="QUOTATION" \
		else form$="PICKING LIST"
	reprint$=""
	for x=1 to 5
		if pos("R E P R I N T"=text$[x])>0 then \
			reprint$="* * * R E P R I N T * * *"
	next x
}

precopy {
	if form$="PICKING LIST" and copy<3 then skip=1
	if form$<>"PICKING LIST" and copy>2 then skip=1
}

# Title area
cerase 1,1,MAXCOLS,5
text 1,.3,{reprint$},univers,12,right,cols=MAXRCOLS
text 1,2.7,{form$},univers,18,bold,right,cols=MAXRCOLS
LOGO_IMAGE .5,.5,6,4,"COMP_LOGO"
text 1,1.5,"COMP_NAME",univers,12,bold,center,cols=MAXRCOLS
text 1,2.5,"COMP_ADDR1",univers,11,center,cols=MAXRCOLS
text 1,3.5,"COMP_ADDR2",univers,11,center,cols=MAXRCOLS
text 1,4.5,"COMP_PHONES",univers,11,center,cols=MAXRCOLS
hline "---",erase
vline "|",erase
hline "==================",erase

# upper right info
const DFONT=cgtimes,10,bold
const HFONT=univers,10,italic
cbox 65,3.5,73,5.5,1,10
cbox 65,3.5,MAXCOLS,5.5
cbox 65,4.5,MAXCOLS,4.5
text 66,4,"Order #",HFONT
text 66,5,"Order Date",HFONT
text 74,4,{ordno$},DFONT
text 74,5,{orddate$},DFONT

# Address section
cbox LEFTCOL,5.5,MAXCOLS,13
cbox LEFTCOL,5.5,12,13,1,10
cbox 49,5.5,MAXCOLS,13
cbox 45,5.5,49,13,1,10
cerase 50,6,60,6
cfont 1,6,11,6,HFONT
text 46,6,"Ship",HFONT,right,cols=3
text 46,7,"To:",HFONT,right,cols=3
cfont 13,6,44,13,DFONT
cfont 50,6,MAXCOLS,13,DFONT

# ribbon section
cbox LEFTCOL,13,MAXCOLS,15,1,10
cbox LEFTCOL,15,MAXCOLS,17
cbox 14,13,14,17
cbox 30,13,30,17
cbox 51,13,51,17
cbox 62,13,62,17
cbox 75,13,75,17
cfont 1,14,13,14,HFONT
cfont 15,14,29,14,HFONT
cfont 31,14,50,14,HFONT
cfont 52,14,61,14,HFONT
cfont 63,14,74,14,HFONT,center
cfont 76,14,MAXCOLS,14,HFONT
cfont 1,16,13,16,DFONT
cfont 15,16,29,16,DFONT
cfont 31,16,50,16,DFONT
cfont 52,16,61,16,DFONT
cfont 63,16,74,16,DFONT,center
cfont 76,16,MAXCOLS,16,DFONT

# Item detail
cbox LEFTCOL,17,MAXCOLS,20,1,10
cbox LEFTCOL,17,MAXCOLS,MAXROWS
cfont 1,18,4,19,HFONT			# line
cfont 6,18,11,19,HFONT			# order
cfont 15,18,19,19,HFONT			# ship
cfont 22,18,24,19,HFONT			# b/o
cfont 29,18,43,19,HFONT			# item # & desc
cfont 48,18,51,19,HFONT			# whse
cfont 53,18,60,19,HFONT			# location
cfont 75,18,MAXRCOLS,19,HFONT		# carton/Price

if copy 1,2
	erase "Lot: ",0,0,50,1
	erase "S/N: ",0,0,50,1
end if

# Bottom === line
box "==========@1,20,10,MAXROWS",0,0,MAXRCOLS,1,10
font "==========@1,20,10,MAXROWS",0,1,MAXRCOLS,1,HFONT,center

if copy 1,2
	# remove cartons stuff
	erase "Carton       1",0,0,70,6
end if
if copy 3
	# Carton box
	erase "Carton       1",6,1,60,5
	font "Carton       1",0,0,7,4,DFONT
	font "Carton       1",50,0,10,1,DFONT
	font "Carton       1",0,4,65,4,DFONT
	font "Carton       1",0,7,65,4,HFONT
	box  "Carton       1",9,1,48,4,3
	box  "Carton       1",17,1,1,4,3
	box  "Carton       1",25,1,1,4,3
	box  "Carton       1",33,1,1,4,3
	box  "Carton       1",41,1,1,4,3
	box  "Carton       1",49,1,1,4,3
end if

# totals
font "Continued",0,0,10,1,cgtimes,bold,14
font "Total:",0,0,6,1,cgtimes,bold,12
font "Total:",9,0,11,1,cgtimes,bold,12
erase "Total:",0,-2,20,2


if copy 1,3
	text 1,65.5,"Customer Copy",univers,12,bold,center,cols=MAXRCOLS
endif
if copy 2
	text 1,65.5,"Accounting Copy",univers,12,bold,center,cols=MAXRCOLS
endif

[Picking List]
# The text output is the same for plain paper AND form #203 (from OPR.PA)
# added copies 05/24/01
# Moved quote to separate rule set 05/24/01
detect 0,4,"Order Number"
const MAXCOLS=83
const MAXRCOLS=82
const MAXROWS=66
const LEFTCOL=.5
cols MAXCOLS
rows MAXROWS

const CUSTOMER_COPY=1
const FILE_COPY=2
pcopies 1

prepage {
	ordno$=trim(get(71,4,8))
	orddate$=trim(get(71,5,8))
	form$="PICKING LIST"
	reprint$=""
	for x=1 to 5
		if pos("R E P R I N T"=text$[x])>0 then \
			reprint$="* * * R E P R I N T * * *"
	next x
}

# Title area
cerase 1,1,MAXCOLS,5
text 1,.3,{reprint$},univers,12,right,cols=MAXRCOLS
text 1,2.7,{form$},univers,18,bold,right,cols=MAXRCOLS
LOGO_IMAGE .5,.5,7,4.3,"COMP_LOGO"
text 1,1.5,"COMP_NAME",univers,12,bold,center,cols=MAXRCOLS
text 1,2.5,"COMP_ADDR1",univers,11,center,cols=MAXRCOLS
text 1,3.5,"COMP_ADDR2",univers,11,center,cols=MAXRCOLS
text 1,4.5,"COMP_PHONES",univers,11,center,cols=MAXRCOLS
hline "---",erase
vline "|",erase
hline "==================",erase

# upper right info
const DFONT=cgtimes,10,bold
const HFONT=univers,10,italic
cbox 65,3.5,73,5.5,1,10
cbox 65,3.5,MAXCOLS,5.5
cbox 65,4.5,MAXCOLS,4.5
text 66,4,"Order #",HFONT
text 66,5,"Order Date",HFONT
text 74,4,{ordno$},DFONT
text 74,5,{orddate$},DFONT

# Address section
cbox LEFTCOL,5.5,MAXCOLS,13
cbox LEFTCOL,5.5,12,13,1,10
cbox 49,5.5,MAXCOLS,13
cbox 45,5.5,49,13,1,10
cerase 50,6,60,6
cfont 1,6,11,6,HFONT
text 46,6,"Ship",HFONT,right,cols=3
text 46,7,"To:",HFONT,right,cols=3
cfont 13,6,44,13,DFONT
cfont 50,6,MAXCOLS,13,DFONT

# ribbon section
cbox LEFTCOL,13,MAXCOLS,15,1,10
cbox LEFTCOL,15,MAXCOLS,17
cbox 14,13,14,17
cbox 30,13,30,17
cbox 51,13,51,17
cbox 62,13,62,17
cbox 75,13,75,17
cfont 1,14,13,14,HFONT
cfont 15,14,29,14,HFONT
cfont 31,14,50,14,HFONT
cfont 52,14,61,14,HFONT
cfont 63,14,74,14,HFONT,center
cfont 76,14,MAXCOLS,14,HFONT
cfont 1,16,13,16,DFONT
cfont 15,16,29,16,DFONT
cfont 31,16,50,16,DFONT
cfont 52,16,61,16,DFONT
cfont 63,16,74,16,DFONT,center
cfont 76,16,MAXCOLS,16,DFONT

# Item detail
cbox LEFTCOL,17,MAXCOLS,20,1,10
cbox LEFTCOL,17,MAXCOLS,MAXROWS
cfont 1,18,4,19,HFONT			# line
cfont 6,18,11,19,HFONT			# order
cfont 15,18,19,19,HFONT			# ship
cfont 22,18,24,19,HFONT			# b/o
cfont 29,18,43,19,HFONT			# item # & desc
cfont 48,18,51,19,HFONT			# whse
cfont 53,18,60,19,HFONT			# location
cfont 75,18,MAXRCOLS,19,HFONT		# carton/Price

# Bottom === line
box "==========@1,20,10,MAXROWS",0,0,MAXRCOLS,1,10
font "==========@1,20,10,MAXROWS",0,1,MAXRCOLS,1,HFONT,center

# Carton box
erase "Carton       1",6,1,60,5
font "Carton       1",0,0,7,4,DFONT
font "Carton       1",50,0,10,1,DFONT
font "Carton       1",0,4,65,4,DFONT
font "Carton       1",0,7,65,4,HFONT
box  "Carton       1",9,1,48,4,3
box  "Carton       1",17,1,1,4,3
box  "Carton       1",25,1,1,4,3
box  "Carton       1",33,1,1,4,3
box  "Carton       1",41,1,1,4,3
box  "Carton       1",49,1,1,4,3

# totals
font "Continued",0,0,10,1,cgtimes,bold,14
font "Total:",0,0,6,1,cgtimes,bold,12
font "Total:",9,0,11,1,cgtimes,bold,12
erase "Total:",0,-2,20,2

if copy CUSTOMER_COPY
	text 1,65.5,"Customer Copy",univers,12,bold,center,cols=MAXRCOLS
endif
if copy FILE_COPY
	text 1,65.5,"Accounting Copy",univers,12,bold,center,cols=MAXRCOLS
endif

###################
# Module: Payroll #
###################

[P/R Check]
# moved middle stub down two lines - 10/15/2001
# moved name & address down to better fit window envelopes - 10/15/2001
detect 0,2,"~ ...-..-...."
detect 0,2,"~ DATEMASK"
const MAXCOLS=81
const MAXRCOLS=80
const MAXROWS=66
cols MAXCOLS
page 42
rows MAXROWS

const ONE_STUB_COPY=1
const TWO_STUB_COPY=2
pcopies 2

Prepage {
	chkno$=trim(get(62,23,7))
	chkdate$=trim(get(60,26,8))
	chkamt$=trim(get(70,26,10))
	# move check to bottom
	for i=23 to 42
      	text$[i+24]=text$[i]
		text$[i]=""			# clear line
	next i

	# copy stub from top to middle
	for i=1 to 22
       	text$[i+23]=text$[i]
	next i
}

precopy {
	if copy=ONE_STUB_COPY and copy<>PR_NO_STUBS then skip=1
	if copy=ONE_STUB_COPY then \
		for i=1 to 21; \
			text$[i]=""; \
		next i
	if copy=TWO_STUB_COPY and copy<>PR_NO_STUBS then skip=1
}

########## Top Stub - Employer's

const LEFTCOL=.5
const TOPROW=.5
const SHFONT=univers,9,shade 0
const DFONT=cgtimes,12,bold
const HFONT=univers,10,italic
if copy TWO_STUB_COPY
	# top section
	cbox LEFTCOL,TOPROW,MAXCOLS,20.5
	cbox LEFTCOL,TOPROW,MAXCOLS,1.5,1,10
	cbox LEFTCOL,TOPROW,MAXCOLS,2.5
	cbox 9,TOPROW,9,2.5
	cbox 34,TOPROW,34,2.5
	cbox 46,TOPROW,46,2.5
	cbox 55,TOPROW,55,2.5
	cbox 64,TOPROW,64,2.5
	text 1,1,"Emp #",HFONT
	text 10,1,"Employee Name",HFONT
	text 35,1,"Social Security #",HFONT,center,cols=11
	text 47,1,"Period Begin",HFONT,center,cols=8
	text 56,1,"Period End",HFONT,center,cols=8
	text 65,1,"Check #",HFONT
	cfont 1,2,8,2,DFONT
	cfont 10,2,33,2,DFONT
	cfont 35,2,45,2,DFONT,center
	cfont 47,2,54,2,DFONT,center
	cfont 56,2,63,2,DFONT,center
	cfont 65,2,MAXCOLS,2,DFONT

	# detail
	cbox LEFTCOL,2.5,MAXCOLS,3.5,1,10
	cbox LEFTCOL,3.5,MAXCOLS,17
	cbox 16,2.5,16,17
	cbox 23,2.5,23,17
	cbox 33,2.5,33,17
	cbox 45,2.5,45,17,5
	cbox 63,2.5,63,17
	cbox 71,2.5,71,17
	text 1,3,"Earnings",HFONT
	text 17,3,"Hrs/Units",HFONT,right,cols=6
	text 24,3,"Current",HFONT,right,cols=9
	text 34,3,"Year-to-Date",HFONT,right,cols=10
	text 47,3,"Deductions",HFONT
	text 64,3,"Current",HFONT,right,cols=7
	text 72,3,"Year-to-Date",HFONT,right,cols=9
	cfont 1,4,15,16,HFONT
	cfont 17,4,22,16,DFONT,right
	cfont 24,4,32,16,DFONT,right
	cfont 34,4,43,16,DFONT,right
	cfont 47,4,62,16,HFONT
	cfont 64,4,70,16,DFONT,right
	cfont 72,4,MAXRCOLS,16,DFONT,right

	# totals
	cbox LEFTCOL,17,MAXCOLS,18.5
	cbox LEFTCOL,18.5,MAXCOLS,19.5,1,100
	cbox 12,17,12,19.5
	cbox 21,17,21,19.5
	cbox 33,17,33,19.5
	cbox 45,17,45,19.5,5
	cbox 59,17,59,19.5
	cbox 70,17,70,19.5
	cfont 1,18,11,18,DFONT,right
	cfont 13,18,20,18,DFONT,right
	cfont 22,18,32,18,DFONT,right
	cfont 34,18,43,18,DFONT,right
	cfont 47,18,58,18,DFONT,right
	cfont 60,18,69,18,DFONT,right
	cfont 71,18,MAXRCOLS,18,DFONT,right
	text 1,19,"Pay Rate",SHFONT,right,cols=11
	text 13,19,"Gross Pay",SHFONT,right,cols=8
	text 22,19,"Deductions",SHFONT,right,cols=11
	text 34,19,"Net Pay",SHFONT,right,cols=10
	text 47,19,"YTD Earnings",SHFONT,right,cols=12
	text 60,19,"YTD Deductions",SHFONT,right,cols=10
	text 71,19,"YTD Net Pay",SHFONT,right,cols=10

	text 1,20,"COMP_NAME",univers,10,bold
	text 26,20,"COMP_ADDR1",univers,6
	text 37,20,"COMP_ADDR2",univers,6
	text 48,20,"COMP_PHONES",univers,6

	text 1,20,"Employer's Copy",DFONT,right,cols=MAXRCOLS
endif

########### Middle Stub - Employee's

# top section
cbox LEFTCOL,23.5,MAXCOLS,43.5
cbox LEFTCOL,23.5,MAXCOLS,24.5,1,10
cbox LEFTCOL,23.5,MAXCOLS,25.5
cbox 9,23.5,9,25.5
cbox 34,23.5,34,25.5
cbox 46,23.5,46,25.5
cbox 55,23.5,55,25.5
cbox 64,23.5,64,25.5
text 1,24,"Emp #",HFONT
text 10,24,"Employee Name",HFONT
text 35,24,"Social Security #",HFONT,center,cols=11
text 47,24,"Period Begin",HFONT,center,cols=8
text 56,24,"Period End",HFONT,center,cols=8
text 65,24,"Check #",HFONT
cfont 1,25,8,25,DFONT
cfont 10,25,33,25,DFONT
cfont 35,25,45,25,DFONT,center
cfont 47,25,54,25,DFONT,center
cfont 56,25,63,25,DFONT,center
cfont 65,25,MAXCOLS,25,DFONT

# detail
cbox LEFTCOL,25.5,MAXCOLS,26.5,1,10
cbox LEFTCOL,26.5,MAXCOLS,40
cbox 16,25.5,16,40
cbox 23,25.5,23,40
cbox 33,25.5,33,40
cbox 45,25.5,45,40,5
cbox 63,25.5,63,40
cbox 71,25.5,71,40
text 1,26,"Earnings",HFONT
text 17,26,"Hrs/Units",HFONT,right,cols=6
text 24,26,"Current",HFONT,right,cols=9
text 34,26,"Year-to-Date",HFONT,right,cols=10
text 47,26,"Deductions",HFONT
text 64,26,"Current",HFONT,right,cols=7
text 72,26,"Year-to-Date",HFONT,right,cols=9
cfont 1,27,15,39,HFONT
cfont 17,27,22,39,DFONT,right
cfont 24,27,32,39,DFONT,right
cfont 34,27,43,39,DFONT,right
cfont 47,27,62,39,HFONT
cfont 64,27,70,39,DFONT,right
cfont 72,27,MAXRCOLS,39,DFONT,right

# totals
cbox LEFTCOL,40,MAXCOLS,41.5
cbox LEFTCOL,41.5,MAXCOLS,42.5,1,100
cbox 12,40,12,42.5
cbox 21,40,21,42.5
cbox 33,40,33,42.5
cbox 45,40,45,42.5,5
cbox 59,40,59,42.5
cbox 70,40,70,42.5
cfont 1,41,11,41,DFONT,right
cfont 13,41,20,41,DFONT,right
cfont 22,41,32,41,DFONT,right
cfont 34,41,43,41,DFONT,right
cfont 47,41,58,41,DFONT,right
cfont 60,41,69,41,DFONT,right
cfont 71,41,MAXRCOLS,41,DFONT,right
text 1,42,"Pay Rate",SHFONT,right,cols=11
text 13,42,"Gross Pay",SHFONT,right,cols=8
text 22,42,"Deductions",SHFONT,right,cols=11
text 34,42,"Net Pay",SHFONT,right,cols=10
text 47,42,"YTD Earnings",SHFONT,right,cols=12
text 60,42,"YTD Deductions",SHFONT,right,cols=10
text 71,42,"YTD Net Pay",SHFONT,right,cols=10

text 1,43,"COMP_NAME",univers,10,bold
text 26,43,"COMP_ADDR1",univers,6
text 37,43,"COMP_ADDR2",univers,6
text 48,43,"COMP_PHONES",univers,6

text 1,43,"Employee's Copy",DFONT,right,cols=MAXRCOLS

########### Check

cerase 1,45,MAXCOLS,50
cbox LEFTCOL,45,MAXCOLS,MAXROWS,4,10
LOGO_IMAGE 1,45,10,5,"COMP_LOGO"
text 15,46.25,"COMP_NAME",univers,15,bold
text 15,47.35,"COMP_ADDR1",univers,12
text 15,48.35,"COMP_ADDR2",univers,12

cbox 43,49.5,MAXCOLS,50.5,1,100
cbox 43,50.5,MAXCOLS,51.5
cbox 54,49.5,62,51.5
text 44,50,"Date",SHFONT,center,cols=10
text 44,51,{chkdate$},DFONT,center,cols=10
text 55,50,"Check #",SHFONT
text 55,51,{chkno$},DFONT
text 63,50,"Amount",SHFONT,right,cols=18
text 63,51,{chkamt$},DFONT,right,cols=18

cfont 1,53,MAXCOLS,53,DFONT,italic

cmove 8,56,MAXCOLS,62,8,60              ### DLA
text 2,60,"Pay",HFONT
text 2,61,"to the",HFONT
text 2,62,"Order",HFONT
text 2,63,"of",HFONT
cfont 8,60,MAXCOLS,63,DFONT

SIGNATURE_IMAGE 50,59,0,0,"SIGNATURE"
box 50,63.25,30,0,3
text 50,64,"Authorized Signature",HFONT,center,cols=30
AP_MICR 10,64.75,"AP_MICR_ACCOUNTNO",{chkno$}
text 62,46.0,"AP_BANK_NAME",cgtimes,10,bold
text 62,46.8,"AP_BANK_ADDR1",cgtimes,8
text 62,47.6,"AP_BANK_ADDR2",cgtimes,8

###################
# Generic reports #
###################

[Generic]
# This rule set will set columns & rows and enhance the heading for all other reports
# requires UnForm 4.1.05, rem out detect below if not this version or higher
detect 0,1,"~Page[ 1-9][ 0-9][ 0-9][0-9]"

cols 200					# temp value until setup in prepage
const MAXROWS=66
rows MAXROWS
pcopies 1

prepage {
	maxlen=80				# minimum # of columns is 80
	for i=1 to MAXROWS
		if len(cvs(text$[i],2))>maxlen then maxlen=len(cvs(text$[i],2))
	next i
	cols$=str(maxlen+1)
	# load row 1 variables
	rptdate$=trim(get(1,1,8))
	x=pos("Page"=text$[1])
	pageno$=trim(get(x,1,11))
	compname$=trim(get(11,1,x-1-10))
	x$=set(1,1,200,"")			# clear line 1
	# load row 2 variables
	time$=trim(get(1,2,8))
	x=pos("AUDIT"=text$[2])
	if x=0 then x=pos("Audit"=text$[2])
	if x then audit$=trim(get(x,2,15))
	if x=0 then x=200
	title$=trim(get(11,2,x-1-11))
	x$=set(1,2,200,"")			# clear line 2

	# Now draw box around header
	exec("cbox 1,.5,"+cols$+",2.75,3,20")
	# now place line 1 headers that need justification
	exec("text 1,1.25,"+$22$+compname$+$22$+ \
		",univers,15,bold,center,cols="+str(maxlen))
	exec("text 1,1.25,"+$22$+pageno$+$22$+ \
		",univers,9,bold,right,cols="+str(maxlen))
	# now place line 2 headers that need justification
	exec("text 1,2.25,"+$22$+title$+$22$+ \
		",univers,12,bold,center,cols="+str(maxlen))
	exec("text 1,2.25,"+$22$+audit$+$22$+ \
		",univers,9,bold,right,cols="+str(maxlen))
}

const HFONT=univers,9,bold
text 2,1,{rptdate$},HFONT
text 2,2,{time$},HFONT

[Generic1]
# This rule set will set columns & rows and 
# enhance the heading for all other reports
# Use this rule set if not version 4.1.05 or higher
detect 0,1,"~Page[ 1-9][ 0-9][ 0-9][0-9]"

cols 132
const MAXROWS=66
rows MAXROWS
# copy 1 is generic 80 column, copy 2 is generic 132 column
pcopies 2

prepage {
	maxlen=80
	for i=1 to MAXROWS
		if len(text$[i])>maxlen then maxlen=len(text$[i])
	next i
	rptdate$=trim(get(1,1,10))
	x=pos("Page"=text$[1])
	compname$=trim(get(11,1,x-1-10))
	pageno$=trim(get(x,1,11))
	# load row 2 variables
	time$=trim(get(1,2,8))
	x=pos("AUDIT"=text$[2])
	if x=0 then x=pos("Audit"=text$[2])
	if x then audit$=trim(get(x,2,15))
	if x=0 then x=200
	title$=trim(get(11,2,x-1-11))
}

precopy {
	if maxlen>132 then skip=1
	if copy=1 and maxlen>80 then skip=1
	if copy=2 and maxlen=80 then skip=1
}

# header
const HFONT=univers,9,bold
const LEFTCOL=.5
if copy 1
	const MAXCOLS=80
	const MAXRCOLS=79
	cols MAXCOLS
endif
if copy 2
	const MAXCOLS=132
	const MAXRCOLS=131
	cols MAXCOLS
endif

cerase 1,1,MAXCOLS,3
box LEFTCOL,.1,MAXCOLS,2.75,3,20
# line 1 headers
text 2,1.25,{rptdate$},HFONT
text 1,1.25,{compname$},univers,15,bold,center,cols=MAXCOLS
text 1,1.25,{pageno$},HFONT,right,cols=MAXRCOLS

# line 2 headers
text 2,2.25,{time$},HFONT
text 1,2.25,{title$},univers,12,bold,center,cols=MAXCOLS
text 1,2.25,{audit$},HFONT,right,cols=MAXRCOLS