# FACTS 6.6 rule sets
# All forms assume depth of 66 lines, N to pre-printed
# -------------------------------------------------------------
# To avoid problems associated with an upgrade overwriting
# this file in the future, you should copy this to a new
# name and reference that name in your printing configuration.
# -------------------------------------------------------------
# Also notice all forms are organized by module code

###########################################################################
# A/P forms ###############################################################
###########################################################################


###########################################################################
# A/R forms ###############################################################
###########################################################################

[A/R Dunning letter]
detect 34,3,"PAST DUE NOTICE"
detect 70,5,"PAGE"
cols 80
page 66

pcopies 3

precopy {
# looking for RECAP page for different format
if copy=1 then if cvs(get(29,38,24),3)<>"NOTICE OF PAST DUE ITEMS" then skip=1
if copy=1 then if cvs(get(31,57,5),3)<>"TOTAL" THEN SKIP=1
if copy=2 then if cvs(get(29,38,24),3)<>"NOTICE OF PAST DUE ITEMS" then skip=1
if copy=2 then if cvs(get(31,57,5),3)="TOTAL" THEN SKIP=1
if copy=3 then if cvs(get(29,38,24),3)="NOTICE OF PAST DUE ITEMS" then skip=1
}

prepage {
#get company info for better placement
compname$=cvs(get(20,5,40),3),x$=set(20,5,40,"")
addr1$=cvs(get(20,6,40),3),x$=set(20,6,40,"")
addr2$=cvs(get(20,7,40),3),x$=set(20,7,40,"")
phone$=cvs(get(20,8,40),3),x$=set(20,8,40,"")
}

# title
erase 30,3,30,1
text 30,2,"Past Due Notice",cgtimes,18,bold
const COMPPOS=10
text 2,4,"From:",cgtimes,9,light
text COMPPOS,4.1,{compname$},cgtimes,bold
text COMPPOS,5.2,{addr1$},cgtimes,bold
text COMPPOS,6.3,{addr2$},cgtimes,bold
text COMPPOS,7.5,{"Phone: "+phone$},cgtimes,bold

# page #
font 70,5,10,1,cgtimes,11,bold

# customer name & address
if copy=1,2
	text 2,15,"To:",cgtimes,9,light
	font 10,14,30,5,cgtimes,12,bold
	# date
	font 60,19,20,1,cgtimes,11,bold
endif

# letter text
if copy=1,2
	font 1,21,80,16,cgtimes,11
endif

# new headers
if copy=1
	erase 2,38,80,1
	text 28,38,"Notice of Past Due Items",cgtimes,12,bold
	erase 2,40,80,1
	text 18,40,"Invoice No",Cgtimes,11,bold
	text 33.5,40,"Date",Cgtimes,11,bold
	text 42,40,"Days Past",Cgtimes,11,bold
	text 57.5,40,"Amount",Cgtimes,11,bold
endif
if copy=2
	erase 2,38,80,1
	text 28,38,"Notice of Past Due Items",cgtimes,12,bold
	erase 2,40,80,1
	text 18,40,"Invoice No",Cgtimes,11,bold
	text 33.5,40,"Date",Cgtimes,11,bold
	text 42,40,"Days Past",Cgtimes,11,bold
	text 57.5,40,"Amount",Cgtimes,11,bold
endif
if copy=3
	erase 2,14,80,1
	text 28,14,"Notice of Past Due Items",cgtimes,12,bold
	erase 2,16,80,1
	text 18,16,"Invoice No",Cgtimes,11,bold
	text 33.5,16,"Date",Cgtimes,11,bold
	text 42,16,"Days Past",Cgtimes,11,bold
	text 57.5,16,"Amount",Cgtimes,11,bold
endif

# Totals
if copy=1
	erase 2,57,80,2
	text 32,57,"Total",Cgtimes,11,bold
	text 43,57,"Total",Cgtimes,11,bold
	text 31,58,"Balance",Cgtimes,11,bold
	text 42,58,"Past Due",Cgtimes,11,bold
endif
if copy=3
	erase 2,57,80,2
	text 32,57,"Total",Cgtimes,11,bold
	text 43,57,"Total",Cgtimes,11,bold
	text 31,58,"Balance",Cgtimes,11,bold
	text 42,58,"Past Due",Cgtimes,11,bold
endif
[A/R Invoice-w/cost]
# use invoice with cost, form depth 66
detect 40,2,"INVOICE"
detect 68,3,"NO."
detect 71,7,"~../../.."
detect 84,3,"NO."
cols 100
page 66

# customer & internal copies
 pcopies 2

prepage {
#get company info for better placement
compname$=cvs(get(20,3,40),3),x$=set(20,3,40,"")
addr1$=cvs(get(20,4,40),3),x$=set(20,4,40,"")
addr2$=cvs(get(20,5,40),3),x$=set(20,5,40,"")
phone$=cvs(get(20,6,40),3),x$=set(20,6,40,"")
invno$=cvs(get(88,3,6),3),x$=set(88,3,6,""),X$=set(72,3,6,"")
invpage$=cvs(get(77,5,3),3),x$=set(77,5,3,"")
invdate$=cvs(get(71,7,8),3),x$=set(71,7,8,"")
invreprint$=cvs(get(71,2,7),3),x$=set(71,2,7,"")

# remove single ! from line draw regions
top=16,bottom=20
clearregion:
for i=top to bottom
x=1
 while x>0
  x=pos("!"=text$[i]); if x>0 text$[i](x,1)=""
 wend
next i
if top=16 top=61,bottom=64; goto clearregion
}

precopy {
dim x$[2]
x$[1]="Customer Copy",x$[2]="Internal Copy"
if copies=2 then \
 x$=set(100-len(x$[copy]),65,len(x$[copy]),x$[copy])
}

# erase existing lines not removed by prepage{}
hline "==",erase
hline "--",erase
vline "!!",erase

# title
erase 40,2,8,1
text 36,3,"INVOICE",cgtimes,18,bold

const COMPPOS=2
text COMPPOS,2,"Please remit to:",cgtimes,9,light
text COMPPOS,3.1,{compname$},cgtimes,bold
text COMPPOS,4.2,{addr1$},cgtimes,bold
text COMPPOS,5.3,{addr2$},cgtimes,bold
text COMPPOS,6.5,{"Phone: "+phone$},cgtimes,bold
text 74,3,{invno$},cgtimes
text 93.5,3,{invno$},cgtimes
text 78,5,{invpage$},cgtimes
text 73,7,{invdate$},cgtimes
text 73,2,{invreprint$},cgtimes,11

# boxes
box 1,1,80,8
box 82,1,19,3
box 1,9,80,6
box 82,4,19,62
box 1,15,80,2
box 1,17,80,2
box 1,19,80,2
box 1,21,80,39
box 1,60,80,6
IF COPY=2
     box 82,19,19,2
     box 82,21,19,39
     box 82,60,19,6
ENDIF

# upper right
box 64,1,17,3
box 82,1,19,3
box 64,4,17,2
box 64,6,17,3
box 72,1,1,8
box 90,1,1,3
shade 65,2,7,7,10,extend
shade 83,2,7,2,10,extend
bold 66,2,15,1
erase 68,3,3,1
erase 84,3,3,1
erase 72,5,4,1
text 65,3,"Number",cgtimes,11,bold
text 83,3,"Number",Cgtimes,11,bold
text 65,5,"Page",Cgtimes,11,bold
text 65,7,"Date",Cgtimes,11,bold

# between sold/ship
box 7,9,1,6
box 42,9,1,6
box 48,9,1,6
shade 2,10,5,5,10,extend
shade 43,10,5,5,10,extend

erase 12,10,8,1
erase 49,10,8,1
text 2,10,"Bill",Cgtimes,11,bold
text 2,11,"To:",Cgtimes,11,bold
text 43,10,"Ship",Cgtimes,11,bold
text 43,11,"To:",Cgtimes,11,bold

# subhead connectors
box 17,15,1,4
box 26,15,1,4
box 32,15,1,4
box 48,15,1,4
box 57,15,1,4
box 62,15,1,4
box 22,19,1,41
box 68,19,1,41
shade 2,16,79,1,10,extend
shade 2,20,79,1,10,extend
IF COPY=2
     box 93,19,1,41
     shade 83,20,17.5,1,10,extend
ENDIF

# new headers
erase 2,16,80,1
text 2,16,"Reference No",Cgtimes,11,bold
text 18.5,16,"Invoiced",Cgtimes,11,bold
text 28,16,"Slsp",Cgtimes,11,bold
text 33,16,"Terms",Cgtimes,11,bold
text 49,16,"Tax Code",Cgtimes,11,bold
text 57.5,16,"Brnch",Cgtimes,11,bold

erase 2,20,80,1
erase 82,20,19,1
text 2,20,"Item Code",Cgtimes,11,bold
text 23,20,"Description",Cgtimes,11,bold
text 75.5,20,"Price",Cgtimes,11,bold
if copy=2
     text 89,20,"Cost",Cgtimes,11,bold
     text 94,20,"G.M.%",Cgtimes,11,bold
endif
if copy=1
     erase 82,21,20,41
endif

# totals
box 36,60,45,2
box 36,62,45,2
box 48,60,1,4
box 58,60,1,4
box 67,60,1,4
shade 37,61,44,1,10,extend
bold 37,61,44,1
IF COPY=2
     box 82,60,19,2
     box 82,62,19,2
     box 93,60,1,4
     shade 83,61,18,1,10,extend
     bold 83,61,18,1
ENDIF

erase 37,61,44,1
erase 82,61,19,1
text 41.5,61,"Amount",Cgtimes,11,bold
text 55,61,"Tax",Cgtimes,11,bold
text 61,61,"Freight",Cgtimes,11,bold
text 71.5,61,"Total Due",Cgtimes,11,bold
if copy=2
     text 84.5,61,"Total Cost",Cgtimes,11,bold
     text 94,61,"G.M.%",Cgtimes,11,bold
endif
if copy=1
     erase 82,60,19,1
     erase 82,62,19,1
     erase 82,63,19,1
endif

font 2,61,32,4,cgtimes,11
font 2,65,80,1,cgtimes
font 83,65,17,1,cgtimes,11,BOLD

[A/R Invoice-w/o cost]
# use w/o cost, form depth 66
detect 40,2,"INVOICE"
detect 68,3,"NO."
detect 71,7,"~../../.."
cols 81
page 66

# To generate customer/remittence copies, uncomment this line
# pcopies 2

prepage {
#get company info for better placement
compname$=cvs(get(20,3,40),3),x$=set(20,3,40,"")
addr1$=cvs(get(20,4,40),3),x$=set(20,4,40,"")
addr2$=cvs(get(20,5,40),3),x$=set(20,5,40,"")
phone$=cvs(get(20,6,40),3),x$=set(20,6,40,"")

# remove single ! from line draw regions
top=16,bottom=20
clearregion:
for i=top to bottom
x=1
 while x>0
  x=pos("!"=text$[i]); if x>0 text$[i](x,1)=""
 wend
next i
if top=16 top=61,bottom=64; goto clearregion
}

precopy {
dim x$[2]
x$[1]="Your Copy",x$[2]="Please return this copy with payment"
if copies=2 then \
 x$=set(41-int(len(x$[copy])/2),8,len(x$[copy]),x$[copy])
}

# erase existing lines not removed by prepage{}
hline "==",erase
hline "--",erase
vline "!!",erase

# title
erase 40,2,8,1
text 36,3,"INVOICE",cgtimes,18,bold

const COMPPOS=2
text COMPPOS,2,"Please remit to:",cgtimes,9,light
text COMPPOS,3.1,{compname$},cgtimes,bold
text COMPPOS,4.2,{addr1$},cgtimes,bold
text COMPPOS,5.3,{addr2$},cgtimes,bold
text COMPPOS,6.5,{"Phone: "+phone$},cgtimes,bold

# boxes
box 1,1,81,8
box 1,9,81,6
box 1,15,81,2
box 1,17,81,2
box 1,19,81,2
box 1,21,81,39
box 1,60,81,6

# upper right
box 63,1,19,3
box 63,4,19,2
box 63,6,19,3
box 70,1,1,8
shade 64,2,6,7,10,extend
bold 71,2,10,1
erase 68,3,3,1
erase 72,5,4,1
text 64,3,"Number",Cgtimes,11,bold
text 64,5,"Page",Cgtimes,11,bold
text 64,7,"Date",Cgtimes,11,bold

# between sold/ship
box 7,9,1,6
box 42,9,1,6
box 48,9,1,6
shade 2,10,5,5,10,extend
shade 43,10,5,5,10,extend

erase 12,10,8,1
erase 49,10,8,1
text 2,10,"Bill",Cgtimes,11,bold
text 2,11,"To:",Cgtimes,11,bold
text 43,10,"Ship",Cgtimes,11,bold
text 43,11,"To:",Cgtimes,11,bold

# subhead connectors
box 17,15,1,4
box 26,15,1,4
box 32,15,1,4
box 48,15,1,4
box 57,15,1,4
box 62,15,1,4
box 22,19,1,41
box 68,19,1,41

shade 2,16,80,1,10,extend
shade 2,20,80,1,10,extend

# new headers
erase 2,16,80,1
text 2,16,"Reference No",Cgtimes,11,bold
text 19,16,"Invoiced",Cgtimes,11,bold
text 28,16,"Slsp",Cgtimes,11,bold
text 33,16,"Terms",Cgtimes,11,bold
text 49,16,"Tax Code",Cgtimes,11,bold
text 57.5,16,"Branch",cgtimes,11,bold

erase 2,20,80,1
text 2,20,"Item Code",Cgtimes,11,bold
text 23,20,"Description",Cgtimes,11,bold
text 76.5,20,"Price",Cgtimes,11,bold

# totals
box 36,60,46,2
box 36,62,46,2
box 48,60,1,4
box 58,60,1,4
box 67,60,1,4

shade 37,61,45,1,10,extend
bold 37,61,45,1

erase 37,61,45,1
text 42.5,61,"Amount",Cgtimes,11,bold
text 55.25,61,"Tax",Cgtimes,11,bold
text 62,61,"Freight",Cgtimes,11,bold
text 73,61,"Total Due",Cgtimes,11,bold

font 2,61,30,4,cgtimes
font 2,65,80,1,cgtimes

[A/R Statement-w/tear off]
# form depth 66
detect 34,2,"STATEMENT"
detect 65,7,"~../../.."
detect 84,9,"~../../.."

page 66
cols 76
# Copy 1	Statement with aging totals
# Copy 2	Statement w/o  aging totals
# Copy 3	Recap page
# Copy 4	Statement with aging totals (tear-off)
# Copy 5	Statement w/o  aging totals (tear-off)
pcopies=5

prepage {
	compname$=cvs(get(24,4,30),3)
	addr1$=cvs(get(24,5,30),3)
	addr2$=cvs(get(24,6,30),3)
	pageno$=cvs(get(71,5,4),3)
	date$=cvs(get(65,7,10),3)
# remove single ! from line draw regions
	x=1
 	while x>0
  		x=pos("!"=text$[64]); if x>0 text$[64](x,1)=""
	wend
}

precopy {
	recap$=cvs(get(12,10,9),3)
	cont$=cvs(get(66,64,9),3)
	skip=1
	if copy=1 then if recap$<>"RECAP" and cont$<>"CONTINUED" then skip=0
	if copy=2 then if recap$<>"RECAP" and cont$="CONTINUED" then skip=0
	if copy=3 then if RECAP$="RECAP" then skip=0
	if copy=4 then if recap$<>"RECAP" and cont$<>"CONTINUED" then skip=0
	if copy=5 then if recap$<>"RECAP" and cont$="CONTINUED" then skip=0
}

# constants
const hdrattr=cgtimes,11,bold
const COMPPOS=3

# major boxes and lines
cbox 1,1,76,66
cbox 1,9,76,61
if copy 1,2,4,5
	cbox 1,15,76,17,1,10
endif
if copy 1,4
	cbox 1,17,76,56
	cbox 10,15,18,56
	cbox 27,15,39,56
	cbox 48,15,60,56
	cbox 63,15,63,56
endif
if copy 2,5
	cbox 10,15,18,61
	cbox 27,15,39,61
	cbox 48,15,60,61
	cbox 63,15,63,61
endif
if copy 1,3,4
	cbox 1,61,76,63,1,10
endif

#remove existing lines
hline "--",erase
hline "==",erase
vline "!!",erase
erase 24,4,30,3
erase 1,16,76,1

# header section
erase 34,2,9,1
text 33,2.5,"STATEMENT",cgtimes,18,bold
If copy=3
	text 37,4.5,"RECAP",cgtimes,14,bold
endif
text COMPPOS,3,"Please send payments to:",cgtimes,10,italic
text COMPPOS,4.25,{compname$},cgtimes,bold
text COMPPOS,5.35,{addr1$},cgtimes,bold
text COMPPOS,6.45,{addr2$},cgtimes,bold
cerase 59,5,76,8
text 64,5,"Page",hdrattr
text 64,7,"Date",hdrattr
text 69,5,{pageno$},hdrattr
text 69,7,{date$},hdrattr
cbox 63,1,68,9,1,10
cbox 63,1,76,9
cbox 63,6,76,6

# customer section
erase 2,10,3,1
if copy=1,2,4,5
	text 2,10,"To",hdrattr
	font 12,11,30,4,cgtimes,bold
	cbox 1,9,10,15,1,10
endif
if copy=3
	erase 12,10,10,1
endif

# detail header section
if copy=1,2,4,5
	text 4.5,16,"Date",hdrattr
	text 12.5,16,"Invoice",hdrattr
	text 20,16,"Due Date",hdrattr
	text 34,16,"Amount",hdrattr
	text 41,16,"Pmt Date",hdrattr
	text 52,16,"Pmt Amount",hdrattr
	text 61,16,"TP",hdrattr
	text 70,16,"Balance",hdrattr
endif

# remarks section
if copy 1,4
	font 2,57,70,4,cgtimes
endif
if copy 3
	erase 1,56,76,5
endif

# balance section
if copy 1,3,4
	box 14,61,1,5
	box 26,61,1,5
	box 38,61,1,5
	box 50,61,1,5
	box 62,61,1,5
	erase 2,62,74,1
	text 9,62,"Current",hdrattr
	text 19.75,62,"1-30 Days",hdrattr
	text 31,62,"31-60 Days",hdrattr
	text 43,62,"61-90 Days",hdrattr
	text 57,62,"Over 90",hdrattr
	text 68.5,62,"Total Due",hdrattr
endif
if copy 2,5
	erase 1,62,76,66
	text 65,65,"Continued . . .",hdrattr
endif
if copy 1,2
	text 33,66,"Customer Copy",cgtimes,12,bold
endif
if copy 4,5
	text 28.5,66,"Please return with remittance",cgtimes,12,bold
endif

[A/R Statement-w/o tear off]
# form depth 66
detect 34,2,"STATEMENT"
detect 65,7,"~../../.."

page 66
cols 75
# Copy 1	Statement with aging totals
# Copy 2	Statement w/o  aging totals
# Copy 3	Recap page
pcopies=3

prepage {
	compname$=cvs(get(24,4,30),3)
	addr1$=cvs(get(24,5,30),3)
	addr2$=cvs(get(24,6,30),3)
	pageno$=cvs(get(71,5,4),3)
	date$=cvs(get(65,7,10),3)
# remove single ! from line draw regions
	x=1
 	while x>0
  		x=pos("!"=text$[64]); if x>0 text$[64](x,1)=""
	wend
}

precopy {
	recap$=cvs(get(12,10,9),3)
	cont$=cvs(get(66,64,9),3)
	skip=1
	if copy=1 then if recap$<>"RECAP" and cont$<>"CONTINUED" then skip=0
	if copy=2 then if recap$<>"RECAP" and cont$="CONTINUED" then skip=0
	if copy=3 then if RECAP$="RECAP" then skip=0
}

# constants
const hdrattr=cgtimes,11,bold
const COMPPOS=3

# major boxes and lines
cbox 1,1,75,66
cbox 1,9,75,61
if copy 1,2
	cbox 1,15,75,17,1,10
endif
if copy 1
	cbox 1,17,75,56
	cbox 10,15,18,56
	cbox 27,15,39,56
	cbox 48,15,60,56
	cbox 63,15,63,56
endif
if copy 2
	cbox 10,15,18,61
	cbox 27,15,39,61
	cbox 48,15,60,61
	cbox 63,15,63,61
endif
if copy 1,3
	cbox 1,61,75,63,1,10
endif

#remove existing lines
hline "--",erase
hline "==",erase
vline "!!",erase
erase 24,4,30,3
erase 1,16,75,1

# header section
erase 34,2,9,1
text 33,2.5,"STATEMENT",cgtimes,18,bold
If copy=3
	text 37,4.5,"RECAP",cgtimes,14,bold
endif
text COMPPOS,3,"Please send payments to:",cgtimes,10,italic
text COMPPOS,4.25,{compname$},cgtimes,bold
text COMPPOS,5.35,{addr1$},cgtimes,bold
text COMPPOS,6.45,{addr2$},cgtimes,bold
cerase 59,5,75,8
text 64,5,"Page",hdrattr
text 64,7,"Date",hdrattr
text 69,5,{pageno$},hdrattr
text 69,7,{date$},hdrattr
cbox 63,1,68,9,1,10
cbox 63,1,75,9
cbox 63,6,75,6

# customer section
erase 2,10,3,1
if copy=1,2
	text 2,10,"To",hdrattr
	font 12,11,30,4,cgtimes,bold
	cbox 1,9,10,15,1,10
endif
if copy=3
	erase 12,10,10,1
endif

# detail header section
if copy=1,2
	text 4.5,16,"Date",hdrattr
	text 12.5,16,"Invoice",hdrattr
	text 20,16,"Due Date",hdrattr
	text 34,16,"Amount",hdrattr
	text 41,16,"Pmt Date",hdrattr
	text 52,16,"Pmt Amount",hdrattr
	text 61,16,"TP",hdrattr
	text 70,16,"Balance",hdrattr
endif

# remarks section
if copy 1
	font 2,57,70,4,cgtimes
endif
if copy 3
	erase 1,56,75,5
endif

# balance section
if copy 1,3
	box 14,61,1,5
	box 26,61,1,5
	box 38,61,1,5
	box 50,61,1,5
	box 62,61,1,5
	erase 2,62,74,1
	text 9,62,"Current",hdrattr
	text 19.75,62,"1-30 Days",hdrattr
	text 31,62,"31-60 Days",hdrattr
	text 43,62,"61-90 Days",hdrattr
	text 57,62,"Over 90",hdrattr
	text 68.5,62,"Total Due",hdrattr
endif
if copy 2
	erase 1,62,75,66
	text 65,65,"Continued . . .",hdrattr
endif

###########################################################################
# I/C Forms ###############################################################
###########################################################################

[I/C Transfer Ticket]
# use form depth 66
detect 33,2,"TRANSFER TICKET PRINT"
detect 74,3,"NO."
detect 76,7,"~../../.."
cols 86
page 66

# To generate 2 copies, uncomment this line
# pcopies 2

prepage {
#get company info for better placement
compname$=cvs(get(20,3,40),3),x$=set(20,3,40,"")
addr1$=cvs(get(20,4,40),3),x$=set(20,4,40,"")
addr2$=cvs(get(20,5,40),3),x$=set(20,5,40,"")
phone$=cvs(get(20,6,40),3),x$=set(20,6,40,"")

# remove single ! from line draw regions
top=16,bottom=20
clearregion:
for i=top to bottom
x=1
 while x>0
  x=pos("!"=text$[i]); if x>0 text$[i](x,1)=""
 wend
next i
if top=16 top=61,bottom=64; goto clearregion
}

precopy {
dim x$[2]
x$[1]="Copy #1",x$[2]="Copy #2"
if copies=2 then \
 x$=set(41-int(len(x$[copy])/2),8,len(x$[copy]),x$[copy])
}

# erase existing lines not removed by prepage{}
hline "==",erase
hline "--",erase
vline "!!",erase

# title
erase 33,2,25,1
text 32,3,"TRANSFER TICKET",cgtimes,18,bold

const COMPPOS=2
text COMPPOS,3.1,{compname$},cgtimes,bold
text COMPPOS,4.2,{addr1$},cgtimes,bold
text COMPPOS,5.3,{addr2$},cgtimes,bold
text COMPPOS,6.5,{"Phone: "+phone$},cgtimes,bold

# boxes
box 1,1,86,8
box 1,9,86,6
box 1,15,86,2
box 1,17,86,2
box 1,19,86,2
box 1,21,86,41
box 1,62,86,4

# upper right
box 68,1,19,3
box 68,4,19,2
box 68,6,19,3
box 75,1,1,8
shade 69,2,6,7,10,extend
bold 75,2,10,1
erase 74,3,3,1
erase 77,5,4,1
text 69,3,"Number",Cgtimes,11,bold
text 69,5,"Page",Cgtimes,11,bold
text 69,7,"Date",Cgtimes,11,bold

# between sold/ship
box 6,9,1,6
box 47,9,1,6
box 53,9,1,6
shade 2,10,4,5,10,extend
shade 48,10,5,5,10,extend

erase 7,10,8,1
erase 54,10,10,1
text 2,10,"Bill",Cgtimes,11,bold
text 2,11,"To:",Cgtimes,11,bold
text 48,10,"Ship",Cgtimes,11,bold
text 48,11,"To:",Cgtimes,11,bold

# subhead connectors
box 17,15,1,4
box 26,15,1,4
box 36,15,1,4
box 69,15,1,4
box 12,19,1,43
box 43,19,1,43
box 53,19,1,43
box 60,19,1,43
box 66,19,1,43
box 69,19,1,43
box 78,19,1,43

shade 2,16,85,1,10,extend
shade 2,20,85,1,10,extend

# new headers
erase 2,16,85,1
text 2,16,"Reference No",Cgtimes,11,bold
text 19,16,"Ordered",Cgtimes,11,bold
text 27.5,16,"Requested",Cgtimes,11,bold
text 70,16,"Ship Via",Cgtimes,11,bold

erase 2,20,85,1
text 2,20,"Item Code",Cgtimes,11,bold
text 13,20,"Description",Cgtimes,11,bold
text 47,20,"Ordered",cgtimes,11,bold
text 56.75,20,"Ship",Cgtimes,11,bold
text 62.5,20,"Back",cgtimes,11,bold
text 66.75,20,"UM",cgtimes,10,bold
text 73,20,"Weight",cgtimes,11,bold
text 82.25,20,"Loc",cgtimes,11,bold

# totals
box 53,62,25,2
box 69,62,1,2
shade 54,63,15,1,10,extend
bold 54,63,15,1

erase 54,63,15,1
text 54,63,"Total Weight:",Cgtimes,11,bold

###########################################################################
# J/C Forms ###############################################################
###########################################################################

[J/C Estimate-w/cost]
# use FACTS J/C estimate with cost, form depth 66
detect 34,2,"ESTIMATE PRINT"
detect 61,3,"ESTIMATE"
detect 70,7,"~../../.."
detect 83,3,"ESTIMATE"
cols 100
page 66

# customer & internal copies
 pcopies 2

prepage {
#get company info for better placement
compname$=cvs(get(20,3,40),3),x$=set(20,3,40,"")
addr1$=cvs(get(20,4,40),3),x$=set(20,4,40,"")
addr2$=cvs(get(20,5,40),3),x$=set(20,5,40,"")
phone$=cvs(get(20,6,40),3),x$=set(20,6,40,"")

# remove single ! from line draw regions
top=16,bottom=24
clearregion:
for i=top to bottom
x=1
 while x>0
  x=pos("!"=text$[i]); if x>0 text$[i](x,1)=""
 wend
next i
if top=16 top=65,bottom=66; goto clearregion
}

precopy {
dim x$[2]
x$[1]="Customer Copy",x$[2]="Internal Copy"
if copies=2 then \
 x$=set(100-len(x$[copy]),7,len(x$[copy]),x$[copy])
}

# erase existing lines not removed by prepage{}
hline "==",erase
hline "--",erase
vline "!!",erase

# title
erase 34,2,14,1
text 36,3,"ESTIMATE",cgtimes,18,bold
font 2,8,40,1,cgtimes,13,bold

const COMPPOS=2
text COMPPOS,3.1,{compname$},cgtimes,bold
text COMPPOS,4.2,{addr1$},cgtimes,bold
text COMPPOS,5.3,{addr2$},cgtimes,bold
text COMPPOS,6.5,{"Phone: "+phone$},cgtimes,bold

# boxes
box 1,1,80,8
box 1,9,80,6
box 1,15,80,2
box 82,1,19,65
box 1,17,80,2
box 1,19,80,2
box 1,21,80,2
box 1,23,80,2
box 1,25,80,39
box 1,64,80,2

# upper right
box 61,1,20,3
box 82,1,19,3
box 61,4,20,2
box 82,4,19,2
box 61,6,20,3
box 69,1,1,8
box 91,1,1,5
shade 62,2,7,7,10,extend
shade 83,2,8,4,10,extend
bold 70,2,15,1
erase 61,3,8,1
erase 83,3,8,1
erase 72,5,4,1
erase 84,5,4,1
text 62,3,"Number",cgtimes,11,bold
text 83,3,"Number",Cgtimes,11,bold
text 62,5,"Page",Cgtimes,11,bold
text 83,5,"Cust",Cgtimes,11,bold
text 62,7,"Date",Cgtimes,11,bold
bold 82,7,19,1

# between sold/ship
box 6,9,1,6
box 42,9,1,6
box 48,9,1,6
shade 2,10,4,5,10,extend
shade 43,10,5,5,10,extend

erase 7,10,9,1
erase 49,10,8,1
text 2,10,"Bill",Cgtimes,11,bold
text 2,11,"To:",Cgtimes,11,bold
text 43,10,"Ship",Cgtimes,11,bold
text 43,11,"To:",Cgtimes,11,bold

# subhead connectors
box 17,15,1,4
box 26,15,1,4
box 36,15,1,4
box 52,15,1,4
box 55,15,1,4
box 63,15,1,4
box 33,19,1,4
box 42,19,1,4
box 51,19,1,4
box 6,23,1,41
box 45,23,1,41
box 55,23,1,41
box 58,23,1,41
box 68,23,1,41
shade 2,16,79,1,10,extend
shade 2,20,79,1,10,extend
shade 2,24,79,1,10,extend
IF COPY=2
	box 82,23,19,2
	box 93,23,1,41
	shade 83,24,17.5,1,10,extend
ENDIF

# new headers
erase 2,16,80,1
text 2,16,"Reference #",cgtimes,11,bold
text 18,16,"Expires",cgtimes,11,bold
text 27,16,"Estimator",cgtimes,11,bold
text 37,16,"Terms",cgtimes,11,bold
text 52.75,16,"WH",cgtimes,10,bold
text 56,16,"Freight",cgtimes,11,bold
text 64,16,"Ship Via",cgtimes,11,bold
erase 2,20,80,1
text 2,20,"Billing",Cgtimes,11,bold
text 36,20,"Start",Cgtimes,11,bold
text 44.5,20,"Finish",Cgtimes,11,bold
text 52,20,"Units",Cgtimes,11,bold

erase 2,24,80,1
erase 82,24,19,1
text 2,24,"Code",cgtimes,11,bold
text 7,24,"Description",Cgtimes,11,bold
text 50.25,24,"Units",Cgtimes,11,bold
text 55.75,24,"UM",Cgtimes,10,bold
text 63.25,24,"Price",Cgtimes,11,bold
text 72.25,24,"Extension",Cgtimes,11,bold
if copy=2
     text 89,24,"Cost",Cgtimes,11,bold
     text 94,24,"G.M.%",Cgtimes,11,bold
endif
if copy=1
     erase 82,21,20,41
endif

# totals
box 9,64,72,2
box 18,64,1,2
box 30,64,1,2
box 38,64,1,2
box 47,64,1,2
box 51,64,1,2
box 61,64,1,2
box 67,64,1,2
IF COPY=2
     box 82,64,19,2
     box 93,64,1,2
ENDIF

erase 10,65,8,1
erase 31,65,7,1
erase 48,65,3,1
erase 62,65,5,1
text 10,65,"Subtotal",Cgtimes,11,bold
text 31,65,"Freight",Cgtimes,11,bold
text 48,65,"Tax",Cgtimes,11,bold
text 62,65,"Total",Cgtimes,11,bold
shade 10,65,8,1,10,extend
shade 31,65,7,1,10,extend
shade 48,65,3,1,10,extend
shade 62,65,5,1,10,extend
if copy=1
	erase 82,65,19,1
endif

[J/C Estimate-w/o cost]
# use FACTS J/C estimate without cost, form depth 66
detect 34,2,"ESTIMATE PRINT"
detect 61,3,"ESTIMATE"
detect 70,7,"~../../.."
cols 80
page 66

# customer & internal copies
# pcopies 2

prepage {
#get company info for better placement
compname$=cvs(get(20,3,40),3),x$=set(20,3,40,"")
addr1$=cvs(get(20,4,40),3),x$=set(20,4,40,"")
addr2$=cvs(get(20,5,40),3),x$=set(20,5,40,"")
phone$=cvs(get(20,6,40),3),x$=set(20,6,40,"")

# remove single ! from line draw regions
top=16,bottom=24
clearregion:
for i=top to bottom
x=1
 while x>0
  x=pos("!"=text$[i]); if x>0 text$[i](x,1)=""
 wend
next i
if top=16 top=65,bottom=66; goto clearregion
}

precopy {
dim x$[2]
x$[1]="Customer Copy",x$[2]="Internal Copy"
if copies=2 then \
 x$=set(40-len(x$[copy])/2,7,len(x$[copy]),x$[copy])
}

# erase existing lines not removed by prepage{}
hline "==",erase
hline "--",erase
vline "!!",erase

# title
erase 34,2,14,1
text 36,3,"ESTIMATE",cgtimes,18,bold
font 2,8,40,1,cgtimes,13,bold

const COMPPOS=2
text COMPPOS,3.1,{compname$},cgtimes,bold
text COMPPOS,4.2,{addr1$},cgtimes,bold
text COMPPOS,5.3,{addr2$},cgtimes,bold
text COMPPOS,6.5,{"Phone: "+phone$},cgtimes,bold

# boxes
box 1,1,80,8
box 1,9,80,6
box 1,15,80,2
box 1,17,80,2
box 1,19,80,2
box 1,21,80,2
box 1,23,80,2
box 1,25,80,39
box 1,64,80,2

# upper right
box 61,1,20,3
box 61,4,20,2
box 61,6,20,3
box 69,1,1,8
shade 62,2,7,7,10,extend
bold 70,2,15,1
erase 61,3,8,1
erase 72,5,4,1
text 62,3,"Number",cgtimes,11,bold
text 62,5,"Page",Cgtimes,11,bold
text 62,7,"Date",Cgtimes,11,bold

# between sold/ship
box 6,9,1,6
box 42,9,1,6
box 48,9,1,6
shade 2,10,4,5,10,extend
shade 43,10,5,5,10,extend

erase 7,10,9,1
erase 49,10,8,1
text 2,10,"Bill",Cgtimes,11,bold
text 2,11,"To:",Cgtimes,11,bold
text 43,10,"Ship",Cgtimes,11,bold
text 43,11,"To:",Cgtimes,11,bold

# subhead connectors
box 17,15,1,4
box 26,15,1,4
box 36,15,1,4
box 52,15,1,4
box 55,15,1,4
box 63,15,1,4
box 33,19,1,4
box 42,19,1,4
box 51,19,1,4
box 6,23,1,41
box 45,23,1,41
box 55,23,1,41
box 58,23,1,41
box 68,23,1,41
shade 2,16,79,1,10,extend
shade 2,20,79,1,10,extend
shade 2,24,79,1,10,extend

# new headers
erase 2,16,80,1
text 2,16,"Reference #",cgtimes,11,bold
text 18,16,"Expires",cgtimes,11,bold
text 27,16,"Estimator",cgtimes,11,bold
text 37,16,"Terms",cgtimes,11,bold
text 52.75,16,"WH",cgtimes,10,bold
text 56,16,"Freight",cgtimes,11,bold
text 64,16,"Ship Via",cgtimes,11,bold
erase 2,20,80,1
text 2,20,"Billing",Cgtimes,11,bold
text 36.5,20,"Start",Cgtimes,11,bold
text 45,20,"Finish",Cgtimes,11,bold
text 52,20,"Units",Cgtimes,11,bold

erase 2,24,80,1
text 2,24,"Code",cgtimes,11,bold
text 7,24,"Description",Cgtimes,11,bold
text 51,24,"Units",Cgtimes,11,bold
text 55.75,24,"UM",Cgtimes,10,bold
text 63.25,24,"Price",Cgtimes,11,bold
text 72.25,24,"Extension",Cgtimes,11,bold

# totals
box 9,64,72,2
box 18,64,1,2
box 30,64,1,2
box 38,64,1,2
box 47,64,1,2
box 51,64,1,2
box 61,64,1,2
box 67,64,1,2

erase 10,65,8,1
erase 31,65,7,1
erase 48,65,3,1
erase 62,65,5,1
text 10,65,"Subtotal",Cgtimes,11,bold
text 31,65,"Freight",Cgtimes,11,bold
text 48,65,"Tax",Cgtimes,11,bold
text 62,65,"Total",Cgtimes,11,bold
shade 10,65,8,1,10,extend
shade 31,65,7,1,10,extend
shade 48,65,3,1,10,extend
shade 62,65,5,1,10,extend

[J/C Invoice-w/cost]
# use FACTS J/C invoice with cost, form depth 66
detect 40,2,"INVOICE"
detect 63,3,"INVOICE"
detect 71,7,"~../../.."
detect 83,3,"INVOICE"
cols 100
page 66

# customer & internal copies
 pcopies 2

prepage {
#get company info for better placement
compname$=cvs(get(20,3,40),3),x$=set(20,3,40,"")
addr1$=cvs(get(20,4,40),3),x$=set(20,4,40,"")
addr2$=cvs(get(20,5,40),3),x$=set(20,5,40,"")
phone$=cvs(get(20,6,40),3),x$=set(20,6,40,"")

# remove single ! from line draw regions
top=16,bottom=23
clearregion:
for i=top to bottom
x=1
 while x>0
  x=pos("!"=text$[i]); if x>0 text$[i](x,1)=""
 wend
next i
if top=16 top=61,bottom=64; goto clearregion
}

precopy {
dim x$[2]
x$[1]="Customer Copy",x$[2]="Internal Copy"
if copies=2 then \
 x$=set(100-len(x$[copy]),65,len(x$[copy]),x$[copy])
}

# erase existing lines not removed by prepage{}
hline "==",erase
hline "--",erase
vline "!!",erase

# title
erase 40,2,8,1
text 36,3,"INVOICE",cgtimes,18,bold

const COMPPOS=2
text COMPPOS,2,"Please remit to:",cgtimes,9,light
text COMPPOS,3.1,{compname$},cgtimes,bold
text COMPPOS,4.2,{addr1$},cgtimes,bold
text COMPPOS,5.3,{addr2$},cgtimes,bold
text COMPPOS,6.5,{"Phone: "+phone$},cgtimes,bold

# boxes
box 1,1,80,8
box 1,9,80,6
box 1,15,80,2
box 82,1,19,65
box 1,17,80,2
box 1,19,80,2
box 1,21,80,2
box 1,23,80,2
box 1,25,80,35
box 1,60,80,6

# upper right
box 61,1,20,3
box 82,1,19,3
box 61,4,20,2
box 82,4,19,2
box 61,6,20,3
box 82,6,19,3
box 69,1,1,8
box 90,1,1,8
shade 62,2,7,7,10,extend
shade 83,2,7,7,10,extend
bold 70,2,15,1
erase 63,3,7,1
erase 83,3,7,1
erase 66,5,4,1
erase 86,5,4,1
erase 66,7,4,1
erase 84,7,4,1
text 62,3,"Number",cgtimes,11,bold
text 83,3,"Number",Cgtimes,11,bold
text 62,5,"Page",Cgtimes,11,bold
text 83,5,"Job #",Cgtimes,11,bold
text 62,7,"Date",Cgtimes,11,bold
text 83,7,"Cust",Cgtimes,11,bold

# between sold/ship
box 6,9,1,6
box 42,9,1,6
box 48,9,1,6
shade 2,10,4,5,10,extend
shade 43,10,5,5,10,extend

erase 7,10,9,1
erase 49,10,8,1
text 2,10,"Bill",Cgtimes,11,bold
text 2,11,"To:",Cgtimes,11,bold
text 43,10,"Ship",Cgtimes,11,bold
text 43,11,"To:",Cgtimes,11,bold

# subhead connectors
box 10,15,1,4
box 41,15,1,4
box 52,15,1,4
box 17,19,1,4
box 23,19,1,4
box 39,19,1,4
box 48,19,1,4
box 51,19,1,4
box 68,23,1,37
shade 2,16,79,1,10,extend
shade 2,20,79,1,10,extend
shade 2,24,79,1,10,extend
IF COPY=2
	box 82,23,19,2
	box 93,23,1,37
	shade 83,24,17.5,1,10,extend
ENDIF

# new headers
erase 2,16,80,1
text 2,16,"Job #",cgtimes,11,bold
text 11,16,"PPS Warehouse Improvement",cgtimes,11,bold
text 42,16,"Contract #",cgtimes,11,bold
text 53,16,"Manager",cgtimes,11,bold
erase 2,20,80,1
text 2,20,"Reference No",Cgtimes,11,bold
text 19,20,"Slsp",Cgtimes,11,bold
text 24,20,"Terms",Cgtimes,11,bold
text 40,20,"Tax Code",Cgtimes,11,bold
text 48.5,20,"WH",Cgtimes,10,bold
text 52,20,"Billing",cgtimes,11,bold

erase 2,24,80,1
erase 82,24,19,1
text 2,24,"Description",Cgtimes,11,bold
text 73.25,24,"Amount",Cgtimes,11,bold
if copy=2
     text 89,24,"Cost",Cgtimes,11,bold
     text 94,24,"G.M.%",Cgtimes,11,bold
endif
if copy=1
     erase 82,21,20,41
endif

# totals
box 36,60,45,2
box 36,62,45,2
box 48,60,1,4
box 57,60,1,4
box 67,60,1,4
shade 37,61,44,1,10,extend
bold 37,61,44,1
IF COPY=2
     box 82,60,19,2
     box 82,62,19,2
     box 93,60,1,4
     shade 83,61,18,1,10,extend
     bold 83,61,18,1
ENDIF

erase 37,61,44,1
erase 82,61,19,1
text 41.5,61,"Amount",Cgtimes,11,bold
text 51,61,"Freight",Cgtimes,11,bold
text 63.75,61,"Tax",Cgtimes,11,bold
text 71.75,61,"Total Due",Cgtimes,11,bold
if copy=2
     text 84.5,61,"Total Cost",Cgtimes,11,bold
     text 94,61,"G.M.%",Cgtimes,11,bold
endif
if copy=1
     erase 82,60,19,1
     erase 82,62,19,1
     erase 82,63,19,1
endif

font 2,61,32,4,cgtimes,11
font 2,65,80,1,cgtimes
font 83,65,17,1,cgtimes,11,BOLD

[J/C Invoice-w/o cost]
# use FACTS J/C invoice without cost, form depth 66
detect 40,2,"INVOICE"
detect 63,3,"INVOICE"
detect 71,7,"~../../.."
cols 80
page 66

# customer & internal copies
# pcopies 2

prepage {
#get company info for better placement
compname$=cvs(get(20,3,40),3),x$=set(20,3,40,"")
addr1$=cvs(get(20,4,40),3),x$=set(20,4,40,"")
addr2$=cvs(get(20,5,40),3),x$=set(20,5,40,"")
phone$=cvs(get(20,6,40),3),x$=set(20,6,40,"")

# remove single ! from line draw regions
top=16,bottom=24
clearregion:
for i=top to bottom
x=1
 while x>0
  x=pos("!"=text$[i]); if x>0 text$[i](x,1)=""
 wend
next i
if top=16 top=61,bottom=64; goto clearregion
}

precopy {
dim x$[2]
x$[1]="Customer Copy",x$[2]="Internal Copy"
if copies=2 then \
 x$=set(80-len(x$[copy]),65,len(x$[copy]),x$[copy])
}

# erase existing lines not removed by prepage{}
hline "==",erase
hline "--",erase
vline "!!",erase

# title
erase 40,2,8,1
text 36,3,"INVOICE",cgtimes,18,bold

const COMPPOS=2
text COMPPOS,2,"Please remit to:",cgtimes,9,light
text COMPPOS,3.1,{compname$},cgtimes,bold
text COMPPOS,4.2,{addr1$},cgtimes,bold
text COMPPOS,5.3,{addr2$},cgtimes,bold
text COMPPOS,6.5,{"Phone: "+phone$},cgtimes,bold

# boxes
box 1,1,80,8
box 1,9,80,6
box 1,15,80,2
box 1,17,80,2
box 1,19,80,2
box 1,21,80,2
box 1,23,80,2
box 1,25,80,35
box 1,60,80,6

# upper right
box 61,1,20,3
box 61,4,20,2
box 61,6,20,3
box 69,1,1,8
shade 62,2,7,7,10,extend
bold 70,2,15,1
erase 63,3,7,1
erase 66,5,4,1
erase 66,7,4,1
text 62,3,"Number",cgtimes,11,bold
text 62,5,"Page",Cgtimes,11,bold
text 62,7,"Date",Cgtimes,11,bold

# between sold/ship
box 6,9,1,6
box 42,9,1,6
box 48,9,1,6
shade 2,10,4,5,10,extend
shade 43,10,5,5,10,extend

erase 7,10,9,1
erase 49,10,8,1
text 2,10,"Bill",Cgtimes,11,bold
text 2,11,"To:",Cgtimes,11,bold
text 43,10,"Ship",Cgtimes,11,bold
text 43,11,"To:",Cgtimes,11,bold

# subhead connectors
box 10,15,1,4
box 41,15,1,4
box 52,15,1,4
box 17,19,1,4
box 23,19,1,4
box 39,19,1,4
box 48,19,1,4
box 51,19,1,4
box 68,23,1,37
shade 2,16,79,1,10,extend
shade 2,20,79,1,10,extend
shade 2,24,79,1,10,extend

# new headers
erase 2,16,80,1
text 2,16,"Job #",cgtimes,11,bold
text 11,16,"PPS Warehouse Improvement",cgtimes,11,bold
text 42,16,"Contract #",cgtimes,11,bold
text 53,16,"Manager",cgtimes,11,bold
erase 2,20,80,1
text 2,20,"Reference No",Cgtimes,11,bold
text 19,20,"Slsp",Cgtimes,11,bold
text 24,20,"Terms",Cgtimes,11,bold
text 40,20,"Tax Code",Cgtimes,11,bold
text 48.75,20,"WH",Cgtimes,10,bold
text 52,20,"Billing",cgtimes,11,bold

erase 2,24,80,1
text 2,24,"Description",Cgtimes,11,bold
text 74.5,24,"Amount",Cgtimes,11,bold

# totals
box 36,60,45,2
box 36,62,45,2
box 48,60,1,4
box 57,60,1,4
box 67,60,1,4
shade 37,61,44,1,10,extend
bold 37,61,44,1

erase 37,61,44,1
text 42.5,61,"Amount",Cgtimes,11,bold
text 52,61,"Freight",Cgtimes,11,bold
text 64.25,61,"Tax",Cgtimes,11,bold
text 73.25,61,"Total Due",Cgtimes,11,bold

font 2,61,32,4,cgtimes,11
font 2,65,80,1,cgtimes

###########################################################################
# O/A Forms ###############################################################
###########################################################################


###########################################################################
# P/O Forms ###############################################################
###########################################################################

[P/O Purchase Order-VI] 
# form depth 66
# item/vendor-item set to VI

detect 44,2,"PURCHASE ORDER"
detect 0,20,"VENDOR-ITEM"
detect 0,20,"ITEM"
page 66
cols 100

hline "--",erase
hline "==",erase
vline "!!",erase

prepage {
#get company info for better placement
compname$=cvs(get(30,3,40),3),x$=set(30,3,40,"")
addr1$=cvs(get(30,4,40),3),x$=set(30,4,40,"")
addr2$=cvs(get(30,5,40),3),x$=set(30,5,40,"")
phone$=cvs(get(30,6,40),3),x$=set(30,6,40,"")

# remove single ! from line draw regions
top=16,bottom=20
clearregion:
for i=top to bottom
x=1
 while x>0
  x=pos("!"=text$[i]); if x>0 text$[i](x,1)=""
 wend
next i
if top=16 top=61,bottom=64; goto clearregion
}

# outer boxes
box 1,1,100,8
box 1,9,100,6
box 1,15,100,2
box 1,17,100,2
box 1,19,100,2
box 1,21,100,39
box 1,60,100,6

# title
erase 44,2,14,1
text 36,2.5,"PURCHASE ORDER",18,cgtimes,bold

# company info - may add logo at 2,2 and shift COMPPOS right
const COMPPOS=2
text COMPPOS,3,{compname$},cgtimes,bold
text COMPPOS,4.1,{addr1$},cgtimes,bold
text COMPPOS,5.2,{addr2$},cgtimes,bold
text COMPPOS,6.3,{"Phone: "+phone$},cgtimes,bold

# upper right
bold 90,2,10,1
erase 88,3,3,1
erase 92,5,4,1
box 80,1,10,8
box 90,1,11,8
box 80,4,21,1
box 80,6,21,1
shade 81,2,9,7,10,extend
text 82,3,"Number",Cgtimes,11,bold
text 82,5,"Page",Cgtimes,11,bold
text 82,7,"Date",Cgtimes,11,bold

# vendor/shipto
box 1,9,10,6
shade 2,10,9,5,10,extend
text 2,10,"Vendor",Cgtimes,11,bold
erase 12,10,7,1

box 50,9,10,6
shade 51,10,9,5,10,extend
text 51,10,"Ship to",Cgtimes,11,bold
erase 61,10,8,1

# sub header
box 7,15,1,4
box 23,15,1,4
box 39,15,1,4
box 55,15,1,4
box 63,15,1,4
box 79,15,1,4
box 88,15,1,4
shade 2,16,99,1,10,extend
erase 2,16,99,1
text 2,16,"Buyer",Cgtimes,11,bold
text 8,16,"Terms",Cgtimes,11,bold
text 24,16,"Ship Via",Cgtimes,11,bold
text 40,16,"FOB",Cgtimes,11,bold
text 56,16,"Freight",Cgtimes,11,bold
text 64,16,"Ref No",Cgtimes,11,bold
text 80.5,16,"Expected",Cgtimes,11,bold
text 89,16,"Customer",Cgtimes,11,bold

# item header
box 22,19,1,41
box 33,19,1,41
box 63,19,1,41
box 73,19,1,41
box 76.5,19,1,41
box 86,19,1,41
box 89.5,19,1,41
shade 2,20,99,1,10,extend
erase 2,20,99,1
text 2,20,"Vendor Item",Cgtimes,11,bold
text 23,20,"Our Item",Cgtimes,11,bold
text 34,20,"Description",Cgtimes,11,bold
text 68.5,20,"Units",Cgtimes,11,bold
text 73.5,20,"UM",Cgtimes,11,bold
text 82.25,20,"Cost",Cgtimes,11,bold
text 86.5,20,"UM",Cgtimes,11,bold
text 92,20,"Extension",Cgtimes,11,bold

# totals
box 56,60,45,2
box 56,62,45,2
box 68,60,1,4
box 78,60,1,4
box 87,60,1,4
shade 57,61,44,1,10,extend
erase 57,61,44,1
text 61.25,61,"Amount",Cgtimes,11,bold
text 74.5,61,"Tax",Cgtimes,11,bold
text 81,61,"Freight",Cgtimes,11,bold
text 95.5,61,"Total",Cgtimes,11,bold

font 2,65,99,1,cgtimes

[P/O Purchase Order-V] 
# form depth 66
# item/vendor-item set to V

detect 44,2,"PURCHASE ORDER"
detect 0,20,"VENDOR-ITEM"
page 66
cols 100

hline "--",erase
hline "==",erase
vline "!!",erase

prepage {
#get company info for better placement
compname$=cvs(get(30,3,40),3),x$=set(30,3,40,"")
addr1$=cvs(get(30,4,40),3),x$=set(30,4,40,"")
addr2$=cvs(get(30,5,40),3),x$=set(30,5,40,"")
phone$=cvs(get(30,6,40),3),x$=set(30,6,40,"")

# remove single ! from line draw regions
top=16,bottom=20
clearregion:
for i=top to bottom
x=1
 while x>0
  x=pos("!"=text$[i]); if x>0 text$[i](x,1)=""
 wend
next i
if top=16 top=61,bottom=64; goto clearregion
}

# outer boxes
box 1,1,100,8
box 1,9,100,6
box 1,15,100,2
box 1,17,100,2
box 1,19,100,2
box 1,21,100,39
box 1,60,100,6

# title
erase 44,2,14,1
text 36,2.5,"PURCHASE ORDER",18,cgtimes,bold

# company info - may add logo at 2,2 and shift COMPPOS right
const COMPPOS=2
text COMPPOS,3,{compname$},cgtimes,bold
text COMPPOS,4.1,{addr1$},cgtimes,bold
text COMPPOS,5.2,{addr2$},cgtimes,bold
text COMPPOS,6.3,{"Phone: "+phone$},cgtimes,bold

# upper right
bold 90,2,10,1
erase 88,3,3,1
erase 92,5,4,1
box 80,1,10,8
box 90,1,11,8
box 80,4,21,1
box 80,6,21,1
shade 81,2,9,7,10,extend
text 82,3,"Number",Cgtimes,11,bold
text 82,5,"Page",Cgtimes,11,bold
text 82,7,"Date",Cgtimes,11,bold

# vendor/shipto
box 1,9,10,6
shade 2,10,9,5,10,extend
text 2,10,"Vendor",Cgtimes,11,bold
erase 12,10,7,1

box 50,9,10,6
shade 51,10,9,5,10,extend
text 51,10,"Ship to",Cgtimes,11,bold
erase 61,10,8,1

# sub header
box 7,15,1,4
box 23,15,1,4
box 39,15,1,4
box 55,15,1,4
box 63,15,1,4
box 79,15,1,4
box 88,15,1,4
shade 2,16,99,1,10,extend
erase 2,16,99,1
text 2,16,"Buyer",Cgtimes,11,bold
text 8,16,"Terms",Cgtimes,11,bold
text 24,16,"Ship Via",Cgtimes,11,bold
text 40,16,"FOB",Cgtimes,11,bold
text 56,16,"Freight",Cgtimes,11,bold
text 64,16,"Ref No",Cgtimes,11,bold
text 80.5,16,"Expected",Cgtimes,11,bold
text 89,16,"Customer",Cgtimes,11,bold

# item header
box 22,19,1,41
box 63,19,1,41
box 73,19,1,41
box 76.5,19,1,41
box 86,19,1,41
box 89.5,19,1,41
shade 2,20,99,1,10,extend
erase 2,20,99,1
text 2,20,"Vendor Item",Cgtimes,11,bold
text 23,20,"Description",Cgtimes,11,bold
text 68.5,20,"Units",Cgtimes,11,bold
text 73.5,20,"UM",Cgtimes,11,bold
text 82.25,20,"Cost",Cgtimes,11,bold
text 86.5,20,"UM",Cgtimes,11,bold
text 92,20,"Extension",Cgtimes,11,bold

# totals
box 56,60,45,2
box 56,62,45,2
box 68,60,1,4
box 78,60,1,4
box 87,60,1,4
shade 57,61,44,1,10,extend
erase 57,61,44,1
text 61.25,61,"Amount",Cgtimes,11,bold
text 74.5,61,"Tax",Cgtimes,11,bold
text 81,61,"Freight",Cgtimes,11,bold
text 95.5,61,"Total",Cgtimes,11,bold

font 2,65,99,1,cgtimes

[P/O Purchase Order-I] 
# form depth 66
# item/vendor-item set to I

detect 44,2,"PURCHASE ORDER"
detect 0,20,"ITEM"
page 66
cols 100

hline "--",erase
hline "==",erase
vline "!!",erase

prepage {
#get company info for better placement
compname$=cvs(get(30,3,40),3),x$=set(30,3,40,"")
addr1$=cvs(get(30,4,40),3),x$=set(30,4,40,"")
addr2$=cvs(get(30,5,40),3),x$=set(30,5,40,"")
phone$=cvs(get(30,6,40),3),x$=set(30,6,40,"")

# remove single ! from line draw regions
top=16,bottom=20
clearregion:
for i=top to bottom
x=1
 while x>0
  x=pos("!"=text$[i]); if x>0 text$[i](x,1)=""
 wend
next i
if top=16 top=61,bottom=64; goto clearregion
}

# outer boxes
box 1,1,100,8
box 1,9,100,6
box 1,15,100,2
box 1,17,100,2
box 1,19,100,2
box 1,21,100,39
box 1,60,100,6

# title
erase 44,2,14,1
text 36,2.5,"PURCHASE ORDER",18,cgtimes,bold

# company info - may add logo at 2,2 and shift COMPPOS right
const COMPPOS=2
text COMPPOS,3,{compname$},cgtimes,bold
text COMPPOS,4.1,{addr1$},cgtimes,bold
text COMPPOS,5.2,{addr2$},cgtimes,bold
text COMPPOS,6.3,{"Phone: "+phone$},cgtimes,bold

# upper right
bold 90,2,10,1
erase 88,3,3,1
erase 92,5,4,1
box 80,1,10,8
box 90,1,11,8
box 80,4,21,1
box 80,6,21,1
shade 81,2,9,7,10,extend
text 82,3,"Number",Cgtimes,11,bold
text 82,5,"Page",Cgtimes,11,bold
text 82,7,"Date",Cgtimes,11,bold

# vendor/shipto
box 1,9,10,6
shade 2,10,9,5,10,extend
text 2,10,"Vendor",Cgtimes,11,bold
erase 12,10,7,1

box 50,9,10,6
shade 51,10,9,5,10,extend
text 51,10,"Ship to",Cgtimes,11,bold
erase 61,10,8,1

# sub header
box 7,15,1,4
box 23,15,1,4
box 39,15,1,4
box 55,15,1,4
box 63,15,1,4
box 79,15,1,4
box 88,15,1,4
shade 2,16,99,1,10,extend
erase 2,16,99,1
text 2,16,"Buyer",Cgtimes,11,bold
text 8,16,"Terms",Cgtimes,11,bold
text 24,16,"Ship Via",Cgtimes,11,bold
text 40,16,"FOB",Cgtimes,11,bold
text 56,16,"Freight",Cgtimes,11,bold
text 64,16,"Ref No",Cgtimes,11,bold
text 80.5,16,"Expected",Cgtimes,11,bold
text 89,16,"Customer",Cgtimes,11,bold

# item header
box 12,19,1,41
box 63,19,1,41
box 73,19,1,41
box 76.5,19,1,41
box 86,19,1,41
box 89.5,19,1,41
shade 2,20,99,1,10,extend
erase 2,20,99,1
text 2,20,"Item Code",Cgtimes,11,bold
text 13,20,"Description",Cgtimes,11,bold
text 68.5,20,"Units",Cgtimes,11,bold
text 73.5,20,"UM",Cgtimes,11,bold
text 82.25,20,"Cost",Cgtimes,11,bold
text 86.5,20,"UM",Cgtimes,11,bold
text 92,20,"Extension",Cgtimes,11,bold

# totals
box 56,60,45,2
box 56,62,45,2
box 68,60,1,4
box 78,60,1,4
box 87,60,1,4
shade 57,61,44,1,10,extend
erase 57,61,44,1
text 61.25,61,"Amount",Cgtimes,11,bold
text 74.5,61,"Tax",Cgtimes,11,bold
text 81,61,"Freight",Cgtimes,11,bold
text 95.5,61,"Total",Cgtimes,11,bold

font 2,65,99,1,cgtimes

###########################################################################
# P/R forms ###############################################################
###########################################################################

###########################################################################
# S/O forms ###############################################################
###########################################################################

[S/O Invoice-G]
# use FACTS "short form w/gross margin tear-off", form depth 66
detect 0,2,"~(INVOICE)|(CREDIT MEMO)"
detect 70,3,"NO."
detect 72,7,"~../../.."
detect 86,3,"NO."
detect 88,7,"~../../.."
cols 100
page 66

# customer & internal copies
 pcopies 2

prepage {
#get company info for better placement
title$=cvs(get(36,2,20),3)
compname$=cvs(get(20,3,40),3),x$=set(20,3,40,"")
addr1$=cvs(get(20,4,40),3),x$=set(20,4,40,"")
addr2$=cvs(get(20,5,40),3),x$=set(20,5,40,"")
phone$=cvs(get(20,6,40),3),x$=set(20,6,40,"")
invno$=cvs(get(89,3,7),3),x$=set(89,3,7,""),x$=set(73,3,7,"")
invpage$=cvs(get(94,5,4),3),x$=set(94,5,4,""),x$=set(77,5,4,"")
invdate$=cvs(get(88,7,8),3),x$=set(88,7,8,""),x$=set(72,7,8,"")
invreprint$=cvs(get(72,2,9),3),x$=set(72,2,9,""),x$=set(88,2,9,"")

# remove single ! from line draw regions
top=16,bottom=20
clearregion:
for i=top to bottom
x=1
 while x>0
  x=pos("!"=text$[i]); if x>0 text$[i](x,1)=""
 wend
next i
if top=16 top=61,bottom=64; goto clearregion
}

precopy {
dim x$[2]
x$[1]="Customer Copy",x$[2]="Internal Copy"
if copies=2 then \
 x$=set(100-len(x$[copy]),65,len(x$[copy]),x$[copy])
}

# erase existing lines not removed by prepage{}
hline "==",erase
hline "--",erase
vline "!!",erase

# title
erase 36,2,15,1
text 36,3,{title$},cgtimes,18,bold

const COMPPOS=2
text COMPPOS,2,"Please remit to:",cgtimes,9,light
text COMPPOS,3.1,{compname$},cgtimes,bold
text COMPPOS,4.2,{addr1$},cgtimes,bold
text COMPPOS,5.3,{addr2$},cgtimes,bold
text COMPPOS,6.5,{"Phone: "+phone$},cgtimes,bold
text 73.5,2,{invreprint$},cgtimes,10,BOLD
text 92.25,2,{invreprint$},cgtimes,10,BOLD
text 74.75,3,{invno$},cgtimes
text 93.5,3,{invno$},cgtimes
text 78,5,{invpage$},cgtimes
text 95,5,{invpage$},cgtimes
text 73.25,7,{invdate$},cgtimes
text 92,7,{invdate$},cgtimes

# boxes
box 1,1,80,8
box 82,1,19,8
box 1,9,80,6
box 82,9,19,57
box 1,15,80,2
box 1,17,80,2
box 1,19,80,2
box 1,21,80,39
box 1,60,80,6
IF COPY=2
     box 82,19,19,2
     box 82,21,19,39
     box 82,60,19,6
ENDIF

# upper right
box 64,1,17,3
box 82,1,19,3
box 64,4,17,2
box 82,4,19,2
box 64,6,17,3
box 82,6,19,3
box 72,1,1,8
box 90,1,1,8
shade 65,2,7,7,10,extend
shade 83,2,7,7,10,extend
bold 66,2,15,1
bold 84,2,15,1
erase 70,3,3,1
erase 86,3,3,1
erase 73,5,4,1
erase 90,5,4,1
text 65,3,"Number",cgtimes,11,bold
text 83,3,"Number",Cgtimes,11,bold
text 65,5,"Page",Cgtimes,11,bold
text 83,5,"Page",Cgtimes,11,bold
text 65,7,"Date",Cgtimes,11,bold
text 83,7,"Date",Cgtimes,11,bold

# between sold/ship
box 7,9,1,6
box 42,9,1,6
box 48,9,1,6
shade 2,10,5,5,10,extend
shade 43,10,5,5,10,extend

erase 8,10,8,1
erase 50,10,8,1
text 2,10,"Bill",Cgtimes,11,bold
text 2,11,"To:",Cgtimes,11,bold
text 43,10,"Ship",Cgtimes,11,bold
text 43,11,"To:",Cgtimes,11,bold

# subhead connectors
box 17,15,1,4
box 26,15,1,4
box 30,15,1,4
box 46,15,1,4
box 55,15,1,4
box 62,15,1,4
box 65.25,15,1,4
box 12,19,1,41
box 43,19,1,41
box 53,19,1,41
box 56.25,19,1,41
box 65.75,19,1,41
box 69,19,1,41
shade 2,16,79,1,10,extend
shade 2,20,79,1,10,extend
IF COPY=2
     box 93,19,1,41
     shade 83,20,17.5,1,10,extend
ENDIF

# new headers
erase 2,16,80,1
text 2,16,"Reference No",Cgtimes,11,bold
text 19.5,16,"Shipped",Cgtimes,11,bold
text 26.75,16,"Slsp",Cgtimes,11,bold
text 31,16,"Terms",Cgtimes,11,bold
text 47,16,"Tax Code",Cgtimes,11,bold
text 56,16,"Doc No",Cgtimes,11,bold
text 62.75,16,"WH",Cgtimes,10,bold
text 66.25,16,"Ship Via",Cgtimes,11,bold

erase 2,20,80,1
erase 83,20,17,1
text 2,20,"Item Code",Cgtimes,11,bold
text 13,20,"Description",Cgtimes,11,bold
text 46,20,"Shipped",Cgtimes,11,bold
text 53.75,20,"UM",Cgtimes,10,bold
text 61.5,20,"Price",Cgtimes,11,bold
text 66.5,20,"UM",Cgtimes,10,bold
text 72.75,20,"Extension",Cgtimes,11,bold
if copy=2
     text 86,20,"Ext Cost",Cgtimes,11,bold
     text 94,20,"G.M.%",Cgtimes,11,bold
endif
if copy=1
     erase 83,22,17,41
endif

# totals
box 25,60,56,2
box 25,62,56,2
box 37,60,1,4
box 49,60,1,4
box 59,60,1,4
box 68,60,1,4

shade 26,61,55,1,10,extend
bold 26,61,56,1
IF COPY=2
     box 82,60,19,2
     box 82,62,19,2
     box 93,60,1,4
     shade 83,61,18,1,10,extend
     bold 83,61,18,1
ENDIF

erase 26,61,55,1
erase 83,61,18,1
text 26.5,61,"Merchandise",Cgtimes,11,bold
text 45,61,"Misc",Cgtimes,11,bold
text 56,61,"Tax",Cgtimes,11,bold
text 62,61,"Freight",Cgtimes,11,bold
text 73,61,"Total Due",Cgtimes,11,bold
if copy=2
     text 84.5,61,"Total Cost",Cgtimes,11,bold
     text 94,61,"G.M.%",Cgtimes,11,bold
endif
if copy=1
     erase 83,63,17,1
endif

font 2,61,23,4,cgtimes,11
font 2,65,80,1,cgtimes
font 83,65,17,1,cgtimes,11,BOLD

[S/O Invoice-L]
# use FACTS "long form", form depth 66
detect 0,2,"~(INVOICE)|(CREDIT MEMO)"
detect 89,3,"NO."
detect 91,7,"~../../.."
cols 100
page 66

# To generate customer/remittence copies, uncomment this line
# pcopies 2

prepage {
#get company info for better placement
title$=cvs(get(35,2,30),3)
compname$=cvs(get(30,3,40),3),x$=set(30,3,40,"")
addr1$=cvs(get(30,4,40),3),x$=set(30,4,40,"")
addr2$=cvs(get(30,5,40),3),x$=set(30,5,40,"")
phone$=cvs(get(30,6,40),3),x$=set(30,6,40,"")

# remove single ! from line draw regions
top=16,bottom=20
clearregion:
for i=top to bottom
x=1
 while x>0
  x=pos("!"=text$[i]); if x>0 text$[i](x,1)=""
 wend
next i
if top=16 top=61,bottom=64; goto clearregion
}

precopy {
dim x$[2]
x$[1]="Your Copy",x$[2]="Please return this copy with payment"
if copies=2 then \
 x$=set(50-int(len(x$[copy])/2),65,len(x$[copy]),x$[copy])
}

# erase existing lines not removed by prepage{}
hline "==",erase
hline "--",erase
vline "!!",erase

# title
erase 35,2,30,1
text 46,3,{title$},cgtimes,18,bold

const COMPPOS=2
text COMPPOS,2,"Please remit to:",cgtimes,9,light
text COMPPOS,3.1,{compname$},cgtimes,bold
text COMPPOS,4.2,{addr1$},cgtimes,bold
text COMPPOS,5.3,{addr2$},cgtimes,bold
text COMPPOS,6.5,{"Phone: "+phone$},cgtimes,bold

# boxes
box 1,1,100,8
box 1,9,100,6
box 1,15,100,2
box 1,17,100,2
box 1,19,100,2
box 1,21,100,39
box 1,60,100,6

# upper right
box 80,1,21,3
box 80,4,21,2
box 80,6,21,3
box 89,1,1,8
shade 81,2,8,7,10,extend
bold 90,2,10,1
erase 89,3,3,1
erase 92,5,4,1
text 81,3,"Number",Cgtimes,11,bold
text 81,5,"Page",Cgtimes,11,bold
text 81,7,"Date",Cgtimes,11,bold

# between sold/ship
box 6,9,1,6
box 55,9,1,6
box 60,9,1,6
shade 2,10,4,5,10,extend
shade 56,10,4,5,10,extend

erase 7,10,8,1
erase 62,10,8,1
text 2,10,"Bill",Cgtimes,11,bold
text 2,11,"To:",Cgtimes,11,bold
text 56,10,"Ship",Cgtimes,11,bold
text 56,11,"To:",Cgtimes,11,bold

# subhead connectors
box 17,15,1,4
box 26,15,1,4
box 41,15,1,4
box 57,15,1,4
box 66,15,1,4
box 73,15,1,4
box 76,15,1,4
box 84,15,1,4
box 12,19,1,41
box 43,19,1,41
box 53,19,1,41
box 63,19,1,41
box 73,19,1,41
box 76,19,1,41
box 86,19,1,41
box 89,19,1,41

shade 2,16,100,1,10,extend
shade 2,20,100,1,10,extend

# new headers
erase 2,16,100,1
text 2,16,"Reference No",Cgtimes,11,bold
text 19,16,"Shipped",Cgtimes,11,bold
text 27,16,"Salesperson",Cgtimes,11,bold
text 42,16,"Terms",Cgtimes,11,bold
text 58,16,"Tax Code",Cgtimes,11,bold
text 67,16,"Doc No",Cgtimes,11,bold
text 73.5,16,"WH",Cgtimes,10,bold
text 77,16,"Freight",cgtimes,11,bold
text 85,16,"Ship Via",Cgtimes,11,bold

erase 2,20,100,1
text 2,20,"Item Code",Cgtimes,11,bold
text 13,20,"Description",Cgtimes,11,bold
text 46,20,"Ordered",Cgtimes,11,bold
text 56.25,20,"Shipped",Cgtimes,11,bold
text 63.5,20,"BackOrdrd",Cgtimes,11,bold
text 73.75,20,"UM",Cgtimes,10,bold
text 81.75,20,"Price",Cgtimes,11,bold
text 86.75,20,"UM",Cgtimes,10,bold
text 92,20,"Extension",Cgtimes,11,bold

# totals
box 32,60,69,2
box 32,62,69,2
box 44,60,1,4
box 56,60,1,4
box 68,60,1,4
box 78,60,1,4
box 87,60,1,4

shade 33,61,67.5,1,10,extend
bold 33,61,67,1

erase 33,61,68,1
text 33.5,61,"Merchandise",Cgtimes,11,bold
text 52,61,"Misc",Cgtimes,11,bold
text 61,61,"Discount",cgtimes,11,bold
text 74.5,61,"Tax",Cgtimes,11,bold
text 81,61,"Freight",Cgtimes,11,bold
text 92,61,"Total Due",Cgtimes,11,bold

font 2,61,23,4,cgtimes
font 2,65,80,1,cgtimes

[S/O Invoice-S]
# use FACTS "short form", form depth 66
detect 0,2,"~(CREDIT MEMO)|(INVOICE)"
detect 70,3,"NO."
detect 72,7,"~../../.."
detect 8,20,"ITEM"
cols 81
page 66
font 1,1,80,40,font 0

# To generate customer/remittence copies, uncomment this line
# pcopies 2

prepage {
#get company info for better placement
title$=cvs(get(36,2,20),3)
compname$=cvs(get(20,3,40),3),x$=set(20,3,40,"")
addr1$=cvs(get(20,4,40),3),x$=set(20,4,40,"")
addr2$=cvs(get(20,5,40),3),x$=set(20,5,40,"")
phone$=cvs(get(20,6,40),3),x$=set(20,6,40,"")

# remove single ! from line draw regions
top=16,bottom=20
clearregion:
for i=top to bottom
x=1
 while x>0
  x=pos("!"=text$[i]); if x>0 text$[i](x,1)=""
 wend
next i
if top=16 top=61,bottom=64; goto clearregion
}

precopy {
dim x$[2]
x$[1]="Your Copy",x$[2]="Please return this copy with payment"
if copies=2 then \
 x$=set(41-int(len(x$[copy])/2),8,len(x$[copy]),x$[copy])
}

# erase existing lines not removed by prepage{}
hline "==",erase
hline "--",erase
vline "!!",erase

# title
erase 36,2,15,1
text 36,3,{title$},cgtimes,18,bold

const COMPPOS=2
text COMPPOS,2,"Please remit to:",cgtimes,9,light
text COMPPOS,3.1,{compname$},cgtimes,bold
text COMPPOS,4.2,{addr1$},cgtimes,bold
text COMPPOS,5.3,{addr2$},cgtimes,bold
text COMPPOS,6.5,{"Phone: "+phone$},cgtimes,bold

# boxes
box 1,1,81,8
box 1,9,81,6
box 1,15,81,2
box 1,17,81,2
box 1,19,81,2
box 1,21,81,39
box 1,60,81,6

# upper right
box 64,1,18,3
box 64,4,18,2
box 64,6,18,3
box 71,1,1,8
shade 65,2,6,7,10,extend
bold 66,2,15,1
erase 70,3,3,1
erase 73,5,4,1
text 65,3,"Number",Cgtimes,11,bold
text 65,5,"Page",Cgtimes,11,bold
text 65,7,"Date",Cgtimes,11,bold

# between sold/ship
box 7,9,1,6
box 42,9,1,6
box 48,9,1,6
shade 2,10,5,5,10,extend
shade 43,10,5,5,10,extend

erase 8,10,8,1
erase 50,10,8,1
text 2,10,"Bill",Cgtimes,11,bold
text 2,11,"To:",Cgtimes,11,bold
text 43,10,"Ship",Cgtimes,11,bold
text 43,11,"To:",Cgtimes,11,bold

# subhead connectors
box 17,15,1,4
box 26,15,1,4
box 30,15,1,4
box 46.25,15,1,4
box 56,15,1,4
box 62.25,15,1,4
box 65.75,15,1,4
box 12,19,1,41
box 43,19,1,41
box 53.25,19,1,41
box 56.5,19,1,41
box 66.5,19,1,41
box 69.5,19,1,41

shade 2,16,80,1,10,extend
shade 2,20,80,1,10,extend

# new headers
erase 2,16,80,1
text 2,16,"Reference No",Cgtimes,11,bold
text 19.5,16,"Shipped",Cgtimes,11,bold
text 27.25,16,"Slsp",Cgtimes,11,bold
text 31,16,"Terms",Cgtimes,11,bold
text 47.25,16,"Tax Code",Cgtimes,11,bold
text 57,16,"Doc No",Cgtimes,11,bold
text 63.25,16,"WH",Cgtimes,11,bold
text 67,16,"Ship Via",Cgtimes,11,bold

erase 2,20,80,1
text 2,20,"Item Code",Cgtimes,11,bold
text 13,20,"Description",Cgtimes,11,bold
text 48,20,"Shipped",Cgtimes,11,bold
text 54.25,20,"UM",Cgtimes,11,bold
text 63,20,"Price",Cgtimes,11,bold
text 67.25,20,"UM",Cgtimes,11,bold
text 75,20,"Extension",Cgtimes,11,bold

# totals
box 25,60,57,2
box 25,62,57,2
box 37,60,1,4
box 49,60,1,4
box 59,60,1,4
box 68,60,1,4

shade 26,61,56,1,10,extend
bold 26,61,56,1

erase 26,61,55,1
text 28.5,61,"Merchandise",Cgtimes,11,bold
text 45.5,61,"Misc",Cgtimes,11,bold
text 56.25,61,"Tax",Cgtimes,11,bold
text 63,61,"Freight",Cgtimes,11,bold
text 74.25,61,"Total Due",Cgtimes,11,bold

font 2,61,23,4,cgtimes
font 2,65,80,1,cgtimes

[S/O Counter Sale-S]
# use FACTS "short form", form depth 66
detect 0,2,"INVOICE"
detect 0,10,"INVOICE"
detect 71,14,"~../../.."
cols 81
page 66

# To generate customer/remittence copies, uncomment this line
# pcopies 2

prepage {
#get company info for better placement
compname$=cvs(get(20,3,40),3),x$=set(20,3,40,"")
addr1$=cvs(get(20,4,40),3),x$=set(20,4,40,"")
addr2$=cvs(get(20,5,40),3),x$=set(20,5,40,"")
phone$=cvs(get(20,6,40),3),x$=set(20,6,40,"")

# remove single ! from line draw regions
top=16,bottom=20
clearregion:
for i=top to bottom
x=1
 while x>0
  x=pos("!"=text$[i]); if x>0 text$[i](x,1)=""
 wend
next i
if top=16 top=61,bottom=64; goto clearregion
}

precopy {
dim x$[2]
x$[1]="Customer Copy",x$[2]="Internal Copy"
if copies=2 then \
 x$=set(41-int(len(x$[copy])/2),8,len(x$[copy]),x$[copy])
}

# erase existing lines not removed by prepage{}
hline "==",erase
hline "--",erase
vline "!!",erase

# title
erase 37,2,9,1
text 36,3,"INVOICE",cgtimes,18,bold

const COMPPOS=2
text COMPPOS,3.1,{compname$},cgtimes,bold
text COMPPOS,4.2,{addr1$},cgtimes,bold
text COMPPOS,5.3,{addr2$},cgtimes,bold
text COMPPOS,6.5,{"Phone: "+phone$},cgtimes,bold

# boxes
box 1,1,81,8
box 1,9,81,6
box 1,15,81,2
box 1,17,81,2
box 1,19,81,2
box 1,21,81,39
box 1,60,81,6

# upper right
box 61,9,21,2
box 61,11,21,2
box 61,13,21,2
box 70,9,1,6
shade 62,10,8,5,10,extend
bold 70,2,10,1
erase 62,10,7,1
erase 65,12,4,1
erase 65,14,4,1
text 62,10,"Number",Cgtimes,11,bold
text 62,12,"Page",Cgtimes,11,bold
text 62,14,"Date",Cgtimes,11,bold

# between sold/ship
box 5,9,1,6
shade 2,10,3,5,10,extend
erase 6,10,8,1
text 2,10,"Sold",Cgtimes,11,bold
text 2,11,"To:",Cgtimes,11,bold

# subhead connectors
box 6,15,1,4
box 22,15,1,4
box 43,15,1,4
box 49,15,1,4
box 52,15,1,4
box 68,15,1,4
box 12,19,1,41
box 43,19,1,41
box 53,19,1,41
box 56,19,1,41
box 66,19,1,41
box 69,19,1,41

shade 2,16,80,1,10,extend
shade 2,20,80,1,10,extend

# new headers
erase 2,16,80,1
text 2,16,"Slsp",Cgtimes,11,bold
text 7,16,"Terms",cgtimes,11,bold
text 23,16,"Check/Card #",Cgtimes,11,bold
text 44,16,"Tax %",Cgtimes,11,bold
text 49.65,16,"WH",Cgtimes,11,bold
text 53,16,"Reference No",Cgtimes,11,bold
text 69,16,"Receipt No",Cgtimes,11,bold

erase 2,20,80,1
text 2,20,"Item Code",Cgtimes,11,bold
text 13,20,"Description",Cgtimes,11,bold
text 47.15,20,"Quantity",Cgtimes,11,bold
text 53.75,20,"UM",Cgtimes,10,bold
text 62.5,20,"Price",Cgtimes,11,bold
text 66.75,20,"UM",Cgtimes,10,bold
text 73.5,20,"Extension",Cgtimes,11,bold

# totals
box 23,60,59,2
box 23,62,59,2
box 36,60,1,4
box 46,60,1,4
box 57,60,1,4
box 68,60,1,4

shade 24,61,58,1,10,extend
bold 24,61,58,1

erase 24,61,58,1
text 27.5,61,"Merchandise",Cgtimes,11,bold
text 43.25,61,"Tax",Cgtimes,11,bold
text 50.5,61,"Tendered",Cgtimes,11,bold
text 60.6,61,"Cash Back",Cgtimes,11,bold
text 76.25,61,"Total",Cgtimes,11,bold

font 2,65,80,1,cgtimes

[S/O Quote]
detect 35,2,"QUOTE PRINT"
page 66
cols 80

hline "--",erase
hline "==",erase
vline "!!",erase

prepage {
#get company info for better placement
compname$=cvs(get(19,3,40),3),x$=set(19,3,40,"")
addr1$=cvs(get(19,4,40),3),x$=set(19,4,40,"")
addr2$=cvs(get(19,5,40),3),x$=set(19,5,40,"")
phone$=cvs(get(19,6,40),3),x$=set(19,6,40,"")

# remove single ! from line draw regions
top=16,bottom=22
clearregion:
for i=top to bottom
x=1
 while x>0
  x=pos("!"=text$[i]); if x>0 text$[i](x,1)=""
 wend
x=1
 while x>0
  x=pos(":"=text$[i]); if x>0 text$[i](x,1)=""
 wend
next i
if top=16 top=61,bottom=64; goto clearregion
}


# outer boxes
box 1,1,80,8
box 1,9,80,6
box 1,15,80,2
box 1,17,80,2
box 1,19,80,2
box 1,21,80,2
box 1,23,80,37
box 1,60,80,6

# title
erase 35,2,11,1
text 37,2.5,"QUOTE",18,cgtimes,bold

const COMPPOS=2
text COMPPOS,3,{compname$},bold,cgtimes
text COMPPOS,4.1,{addr1$},bold,cgtimes
text COMPPOS,5.2,{addr2$},cgtimes,bold
text COMPPOS,6.3,{"Phone: "+phone$},cgtimes,bold

# upper right
bold 70,2,10,1
box 62,1,8,8
box 70,1,11,8
box 62,4,19,1
box 62,6,19,1
shade 63,2,7,7,10,extend
erase 69,3,3,1
erase 72,5,4,1
text 63,3,"No",Cgtimes,11,bold
text 63,5,"Page",Cgtimes,11,bold
text 63,7,"Date",Cgtimes,11,bold

# ship to/bill to
box 1,9,5,6
shade 2,10,4,5,10,extend
text 1.75,10,"Ship",Cgtimes,11,bold
text 1.75,11,"To:",Cgtimes,11,bold
erase 7,10,8,1
box 41,9,5,6
shade 42,10,4,5,10,extend
text 41.75,10,"Bill",Cgtimes,11,bold
text 41.75,11,"To:",Cgtimes,11,bold
erase 49,10,8,1

# sub header
box 17,15,1,6
box 27,15,1,6
box 32,15,1,4
box 48,15,1,4
box 52,15,1,4
box 60,15,1,4
shade 2,16,79,1,10,extend
erase 2,16,79,1
text 2,16,"Reference No",Cgtimes,11,bold
text 20,16,"Expires",Cgtimes,11,bold
text 28.5,16,"Slsp",Cgtimes,11,bold
text 33,16,"Terms",Cgtimes,11,bold
text 49,16,"Whs",Cgtimes,11,bold
text 53,16,"Freight",Cgtimes,11,bold
text 61,16,"Ship Via",Cgtimes,11,bold

box 11,19,1,2
box 27,19,1,2
shade 2,20,9,1,10,extend
shade 18,20,9,1,10,extend
erase 2,20,9,1
erase 18,20,9,1
text 2,20,"Quoted by",Cgtimes,11,bold
text 18,20,"Quoted to",Cgtimes,11,bold

# item lines
box 12,21,1,39
box 43,21,1,39
box 53,21,1,39
box 56.5,21,1,39
box 66,21,1,39
box 69.5,21,1,39
shade 2,22,79,1,10,extend
erase 2,22,79,1
text 2,22,"Item No",Cgtimes,11,bold
text 13,22,"Description",Cgtimes,11,bold
text 47.25,22,"Ordered",Cgtimes,11,bold
text 53.75,22,"UM",Cgtimes,11,bold
text 62.5,22,"Price",Cgtimes,11,bold
text 66.75,22,"UM",Cgtimes,11,bold
text 73.5,22,"Extension",Cgtimes,11,bold

# totals
box 24,60,57,2
box 24,62,57,2
box 36,60,1,4
box 48,60,1,4
box 58,60,1,4
box 67,60,1,4
shade 25,61,56,1,10,extend
erase 25,61,55,1
text 27.5,61,"Merchandise",Cgtimes,11,bold
text 44.75,61,"Misc",Cgtimes,11,bold
text 55.25,61,"Tax",Cgtimes,11,bold
text 62,61,"Freight",Cgtimes,11,bold
text 76.25,61,"Total",Cgtimes,11,bold

font 2,65,78,1,cgtimes

[S/O Pick Ticket]
# use FACTS form depth 66
detect 35,2,"PICK TICKET PRINT"
cols 86
page 66

# To generate customer/remittence copies, uncomment this line
# pcopies 2

prepage {
#get company info for better placement
compname$=cvs(get(20,3,40),3),x$=set(20,3,40,"")
addr1$=cvs(get(20,4,40),3),x$=set(20,4,40,"")
addr2$=cvs(get(20,5,40),3),x$=set(20,5,40,"")
phone$=cvs(get(20,6,40),3),x$=set(20,6,40,"")

# remove single ! from line draw regions
top=16,bottom=20
clearregion:
for i=top to bottom
x=1
 while x>0
  x=pos("!"=text$[i]); if x>0 text$[i](x,1)=""
 wend
next i
if top=16 top=61,bottom=64; goto clearregion
}

precopy {
dim x$[2]
x$[1]="Your Copy",x$[2]="Please return this copy with payment"
if copies=2 then \
 x$=set(41-int(len(x$[copy])/2),8,len(x$[copy]),x$[copy])
}

# erase existing lines not removed by prepage{}
hline "==",erase
hline "--",erase
vline "!!",erase

# title
erase 35,2,17,1
text 34,3,"PICK TICKET",cgtimes,18,bold

const COMPPOS=2
text COMPPOS,2,"Please remit to:",cgtimes,9,light
text COMPPOS,3.1,{compname$},cgtimes,bold
text COMPPOS,4.2,{addr1$},cgtimes,bold
text COMPPOS,5.3,{addr2$},cgtimes,bold
text COMPPOS,6.5,{"Phone: "+phone$},cgtimes,bold

# boxes
box 1,1,85,8
box 1,9,85,6
box 1,15,85,2
box 1,17,85,2
box 1,19,85,2
box 1,21,85,41
box 1,62,85,6

# upper right
box 68,1,18,3
box 68,4,18,2
box 68,6,18,3
box 75,1,1,8
shade 69,2,6,7,10,extend
bold 76,2,10,1
erase 74,3,3,1
erase 77,5,4,1
text 69,3,"Number",Cgtimes,11,bold
text 69,5,"Page",Cgtimes,11,bold
text 69,7,"Date",Cgtimes,11,bold

# between sold/ship
box 6,9,1,6
box 48,9,1,6
box 53,9,1,6
shade 2,10,4,5,10,extend
shade 49,10,4,5,10,extend
erase 7,10,8,1
erase 54,10,8,1
text 2,10,"Ship",Cgtimes,11,bold
text 2,11,"To:",Cgtimes,11,bold
text 49,10,"Bill",Cgtimes,11,bold
text 49,11,"To:",Cgtimes,11,bold

# subhead connectors
box 17,15,1,4
box 26,15,1,4
box 36,15,1,4
box 41,15,1,4
box 57,15,1,4
box 61,15,1,4
box 69,15,1,4
box 12,19,1,43
box 43,19,1,43
box 53,19,1,43
box 60,19,1,43
box 66,19,1,43
box 69,19,1,43
box 78,19,1,43

shade 2,16,84,1,10,extend
shade 2,20,84,1,10,extend

# new headers
erase 2,16,84,1
text 2,16,"Reference No",Cgtimes,11,bold
text 19,16,"Ordered",Cgtimes,11,bold
text 28,16,"Requested",cgtimes,11,bold
text 37.5,16,"Slsp",Cgtimes,11,bold
text 42,16,"Terms",Cgtimes,11,bold
text 58,16,"WH",Cgtimes,11,bold
text 62,16,"Freight",Cgtimes,11,bold
text 70,16,"Ship Via",Cgtimes,11,bold

erase 2,20,84,1
text 2,20,"Item Code",Cgtimes,11,bold
text 13,20,"Description",Cgtimes,11,bold
text 47,20,"Ordered",Cgtimes,11,bold
text 56.5,20,"Ship",Cgtimes,11,bold
text 62.5,20,"Back",Cgtimes,11,bold
text 66.75,20,"UM",Cgtimes,11,bold
text 72.5,20,"Weight",Cgtimes,11,bold
text 79,20,"Location",cgtimes,11,bold

# totals
box 53,62,25,2
box 69,62,1,2
shade 54,63,15,1,10,extend
erase 55,63,13,1
text 54,63,"Total Weight",Cgtimes,11,bold

font 2,64,85,1,cgtimes

[S/O Bill of Lading]
detect 0,2,"NOT NEGOTIABLE"
Detect 58,6,"DOCUMENT NO."
Detect 72,8,"~../../.."
cols 81
page 66

# To generate customer/remittence copies, uncomment this line
# pcopies 2

prepage {
#get company info for better placement
compname$=cvs(get(10,3,40),3),x$=set(10,3,40,"")
addr1$=cvs(get(10,4,40),3),x$=set(10,4,40,"")
addr2$=cvs(get(10,5,40),3),x$=set(10,5,40,"")
phone$=cvs(get(10,6,40),3),x$=set(10,6,40,"")

# remove single ! from line draw regions
top=18,bottom=22
clearregion:
for i=top to bottom
x=1
 while x>0
  x=pos("!"=text$[i]); if x>0 text$[i](x,1)=""
 wend
next i
}

precopy {
dim x$[2]
x$[1]="Your Copy",x$[2]="Please return this copy with payment"
if copies=2 then \
 x$=set(41-int(len(x$[copy])/2),8,len(x$[copy]),x$[copy])
}

# erase existing lines not removed by prepage{}
hline "==",erase
hline "--",erase
vline "!!",erase

# title
erase 56,1,25,2
text 25,2,"STRAIGHT BILL OF LADING",cgtimes,18,bold
text 26,4,"ORIGINAL-NOT NEGOTIABLE",cgtimes,16,bold

const COMPPOS=2
text COMPPOS,5,"From:",cgtimes,9,light
text COMPPOS,6.1,{compname$},cgtimes,bold
text COMPPOS,7.2,{addr1$},cgtimes,bold
text COMPPOS,8.3,{addr2$},cgtimes,bold
text COMPPOS,9.5,{"Phone: "+phone$},cgtimes,bold

# boxes
box 1,1,81,10
box 1,11,81,7
box 1,18,81,2
box 1,20,81,2
box 1,22,81,23
box 1,45,81,2
box 1,47,81,2
box 1,49,81,5
box 1,54,81,8
box 1,62,81,4

# upper right
box 57,5,25,2
box 57,7,25,2
box 57,9,25,2
box 70,5,1,4
box 62,9,1,2
shade 58,6,12,3,10,extend
shade 58,10,4,1,10,extend
erase 58,6,12,3
erase 58,10,4,1
bold 71,4,10,1
text 58,6,"Document No.",Cgtimes,11,bold
text 58,8,"Date",cgtimes,11,bold
text 58,10,"Page",Cgtimes,11,bold

# between sold/ship
box 9,11,1,7
shade 2,12,7,6,10,extend
erase 1,11,1,7
text 2,13,"Ship",Cgtimes,11,bold
text 2,14,"To:",Cgtimes,11,bold

# subhead connectors
box 8,18,1,2
box 31,18,1,2
box 34,18,1,2
box 38,18,1,2
box 44,18,1,2
box 7,20,1,25
box 11,20,1,25
box 66,20,1,25
box 75,20,1,25
shade 2,19,6,1,10,extend
shade 32,19,2,1,10,extend
shade 39,19,5,1,10,extend

# new headers
erase 1,19,7,1
erase 32,19,2,1
erase 39,19,5,1
text 2,19,"Carrier",cgtimes,11,bold
text 31.75,19,"WH",cgtimes,10,bold
text 39,19,"Notes",cgtimes,11,bold

erase 1,21,80,1
shade 2,21,80,1,10,extend
text 3.5,21,"Units",Cgtimes,11,bold
text 8.5,21,"HM",Cgtimes,11,bold
text 12,21,"Kind of Pkg, Desc Articles, Special Marks/Exceptions",Cgtimes,11,bold
text 70,21,"Weight",Cgtimes,11,bold
text 77,21,"Class",Cgtimes,11,bold

# totals
box 51,45,1,2
box 66,45,1,2
box 75,45,1,2
shade 52,46,14,1,10,extend
erase 52,46,14,1
text 52,46,"Total Weight:",Cgtimes,11,bold
box 9,47,1,2
box 28,47,1,2
erase 10,48,18,1
shade 10,48,18,1,10,extend
text 10,48,"Emergency Contact:",cgtimes,11,bold

font 2,50,80,5,cgtimes
font 2,55,80,7,cgtimes

box 45,62,1,4
erase 1,63,10,2
erase 46,63,17,2
erase 71,64,4,1
text 2,63,"Shipper",cgtimes,11,bold
text 2,64,"Signed",cgtimes,11,bold
text 46,63,"Receiving Company",cgtimes,11,bold
text 46,64,"Signed",cgtimes,11,bold
text 71,64,"Date",cgtimes,11,bold

###########################################################################
# S/R forms ###############################################################
###########################################################################

[S/R Invoice]
# form depth 66
detect 0,2,"INVOICE"
detect 70,3,"NO."
detect 72,7,"~../../.."
cols 85
page 66

# 2 "copies" because of multiple page invoices
pcopies 2

prepage {
#get company info for better placement
compname$=cvs(get(20,3,40),3)
addr1$=cvs(get(20,4,40),3)
addr2$=cvs(get(20,5,40),3)
phone$=cvs(get(20,6,40),3)
invno$=cvs(get(74,3,10),3)
pageno$=cvs(get(78,5,7),3)
date$=cvs(get(72,7,10),3)
reprint$=cvs(get(70,2,15),3)
# remove single ! from line draw regions
x=1
 while x>0
  x=pos("!"=text$[18]); if x>0 text$[18](x,1)=""
 wend
x=1
 while x>0
  x=pos("!"=text$[62]); if x>0 text$[62](x,1)=""
 wend
}

precopy {
if copy=1 and cvs(get(68,63,9),3)="CONTINUED" then skip=1
if copy=2 and cvs(get(68,63,9),3)<>"CONTINUED" then skip=1
}

# constants
const comppos=2
const hdrattr=cgtimes,11,bold

# draw major boxes and lines
cbox 1,1,85,66
cbox 1,1,85,9
cbox 1,9,85,15
cbox 1,15,85,17,1,10
cbox 1,17,85,19
cbox 1,19,85,60
cbox 1,60,85,66
cbox 69,1,85,9
cbox 69,1,76,9,1,10

# erase unwanted stuff
hline "==",erase
hline "--",erase
vline "!!",erase
cerase 1,1,85,8
cerase 1,10,20,10
cerase 50,10,60,10
cerase 1,16,85,16
cerase 25,61,85,61
cerase 25,64,85,64
erase 37,63,1,1
erase 49,63,1,1
erase 59,63,1,1
erase 68,63,1,1

# Invoice header section
text 36,3,"INVOICE",cgtimes,18,bold
text comppos,2,"Please remit to:",cgtimes,9,light
text comppos,3.1,{compname$},cgtimes,bold
text comppos,4.2,{addr1$},cgtimes,bold
text comppos,5.3,{addr2$},cgtimes,bold
text comppos,6.5,{"Phone: "+phone$},cgtimes,bold
cbox 69,4,85,4
cbox 69,6,85,6
text 77,2,{reprint$},hdrattr
text 70,3,"Number",hdrattr
text 77,3,{invno$},hdrattr
text 70,5,"Page",hdrattr
text 77,5,{pageno$},hdrattr
text 70,7,"Date",hdrattr
text 77,7,{date$},hdrattr

# customer section
cbox 1,9,7.25,15,1,10
cbox 41,9,48,15,1,10
text 2,11,"Bill To:",hdrattr
text 42,11,"Ship To:",hdrattr

# invoice subhead section
cbox 17,15,26,19
cbox 30,15,46,19
cbox 55,15,62,19
cbox 65,15,65,19
text 2,16,"Reference No",hdrattr
text 19.25,16,"Shipped",hdrattr
text 27.25,16,"Slsp",hdrattr
text 31,16,"Terms",hdrattr
text 47,16,"Tax Code",hdrattr
text 56.25,16,"Doc No",hdrattr
text 62.5,16,"WH",hdrattr
text 66,16,"Ship Via",hdrattr

# totals section
if copy 1
	cbox 25,60,85,62,1,10
	cbox 25,62,85,64
	cbox 37,60,49,64
	cbox 59,60,68,64
	text 28,61,"Merchandise",hdrattr
	text 45.5,61,"Misc",hdrattr
	text 56.25,61,"Tax",hdrattr
	text 63,61,"Freight",hdrattr
	text 77,61,"Total Due",hdrattr
end if
if copy 2
	cerase 68,63,85,63
	text 70,65,"Continued . . .",hdrattr
end if
cfont 1,61,24,64,cgtimes,10
cfont 1,65,85,65,cgtimes