# ################################################################### # F75-6.rul rule file for standard Facts Accounting Software # # Based upon Facts 7.5.1 demo data - 66 line non-preprinted docs # # Requires, at least, UnForm version 6.0 # ################################################################### # 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. # ######################################################### # # # NOTE: SDSI has attempted to create rule sets that are generic enough that they cover # as many options as possible. # If you find situations that the rule set is not handling properly, do not # hesitate to contact us and provide us with a sample text file showing the problem. # We will be happy to provide the "correction" in a timely manner. # The above assumes that no modifications have been made to the application. # # Generic comments ###################################### # # # Make changes to all constants as needed. # # completed & approved # ap - Aging: Summary, Detail # ap - Vouchers, Checks # ap - Cash Req: Summary, Detail # ar - Aging: Summary, Detail, Transaction # ar - Dunning Letters, Invoices, Statements # gl - balance sheet: 850,852,854,856,880 # gl - profit/loss: 820,822,824,826,828,830,832,834,836,838,840,842,844,848 # gl - chart of accounts, trial balance # ic - transfer ticket, transfer fill report # jc - estimate, invoice # mc - production ticket, formulation production ticket # po - fill report, order # pr - checks: long stub, short stub # so - bill of lading, pick ticket, quote, counter sale # so - invoice: long form, short form, gross margin # so - rga: short form, long form # sr - long invoice, short invoice, work ticket # generic reports (row 1 contains either PAGE or Page) # # Modification history # # Last modified 06/28/2006 BCJ # # Global constants ####################################### # 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="Company Name: Edit rule file" const COMP_ADDR1="Address 1" const COMP_ADDR2="Address 2" const COMP_ADDR3="Address 3" const COMP_PHONES="###-###-#### Fax: ###-###-####" const COMP_EMAIL="" #"E-Mail: xxxx@xxxxxxxxxxxxxxx.com" const COMP_WEBSITE="" #"Website: www.xxxxxxxxxxxxxxx.com" # A/P check constants const AP_BANK_NAME="One Major Bank" const AP_BANK_ADDR1="1 Major Blvd" const AP_BANK_ADDR2="Major City CA 90123" const AP_ROUTING="12-345/6789" const AP_MICR_ACCOUNTNO=":123456789:9999-1234<34>" const AP_MICR="micr" # remove # to turn on const AP_NO_STUBS=2 # 1=vendor stub only # 2=vendor stub and payor stub # P/R check constants const PR_BANK_NAME="One Major Bank" const PR_BANK_ADDR1="1 Major Blvd" const PR_BANK_ADDR2="Major City CA 90123" const PR_ROUTING="12-345/6789" const PR_MICR_ACCOUNTNO=":123456789:9999-1234<34>" const PR_MICR="micr" # remove # to turn on const PR_NO_STUBS=2 # does not apply to long stub version # 1=employee stub only # 2=employee stub and employer stub # check signature on AP/PR checks, const SIGNATURE_IMAGE="#image" # remove # to turn on const SIGNATURE="" # insert signature file name # Logos const LOGO_IMAGE="image" # remove # to turn on const COMP_LOGO="sdsilogo.pcl" # change to your logo file name # watermarks const WATERMARK_SHADE=10 # adjust to desired darkness const WATERMARK="text" # remove # to turn on #Turn to "#gs on" only if you are running pre-version 6 of UnForm and #a pre-version 5 of ProvideX. const GSON="gs on" # What justification for ITEM column header const IJUST="right" # date mask for detects - 10/17/01 const DATEMASK="[0-1][0-9]/[0-3][0-9]/[0-9][0-9]" # US dt #const DATEMASK="[0-3][0-9]/[0-1][0-9]/[0-9][0-9]" # Can dt # main heading constants const HFONT= univers,11,fit const HLFONT= HFONT,left const HCFONT= HFONT,center const HRFONT= HFONT,right const HSHADE= 30 # bold const HBFONT= HFONT,bold const HBLFONT=HBFONT,left const HBCFONT=HBFONT,center const HBRFONT=HBFONT,right # internal heading font constants (ribbons, detail headers) const IFONT= univers,8,italic,fit const ILFONT= IFONT,left const ICFONT= IFONT,center const IRFONT= IFONT,right const ISHADE= 20 # bold const IBFONT= IFONT,bold const IBLFONT=IBFONT,left const IBCFONT=IBFONT,center const IBRFONT=IBFONT,right # detail data font constants const DFONT= cgtimes,9 const DLFONT= DFONT,left const DCFONT= DFONT,center const DRFONT= DFONT,right const DSHADE= 10 # bold const DBFONT= DFONT,bold const DBLFONT=DBFONT,left const DBCFONT=DBFONT,center const DBRFONT=DBFONT,right # default major section box size const MBOXSIZE=5 #*************************************************************** # Merge rule sets for the facts7-5 rule file * #*************************************************************** [Mrg 000] [Mrg get zip] shipzip$="" # Retrieve the zip code from either xrow or xrow-1 x=mask(left(text$[xrow],xcols),"[0-9][0-9][0-9][0-9][0-9]") if x>0 then shipzip$=trim(get(x,xrow,10)) if x=0 then x=mask(trim(left(text$[xrow-1],xcols)),"[0-9][0-9][0-9][0-9][0-9]") if shipzip$="" then if x>0 then shipzip$=trim(get(x,xrow-1,10)) shipzip$=sub(shipzip$,"-","") [Mrg find detail header] detrow=0 for row=3 to MAXROWS if mid(text$[row],dethdr_col,len(dethdr$))=dethdr$ then detrow=row;break next row [Mrg load row 1 variables] x$=text$[1] rptdate$=trim(left(x$,15)),x$=x$(16) x=pos("DATE"=rptdate$);if x then rptdate$(x,4)="Date" pageno$=trim(right(x$,20)) x=pos("PAGE"=pageno$);if x then pageno$(x,4)="Page" page=NUM(trim(right(x$,2))) compname$=proper(trim(left(x$,len(x$)-20))) x$=set(1,1,MAXCOLS,"") [Mrg load row 2 variables] x$=text$[2] user$=trim(left(x$,15)),x$=x$(16) x=pos("USER"=user$);if x then user$(x,4)="User" time$=trim(right(x$,15)) x=pos("TIME"=time$);if x then time$(x,4)="Time" doc_title$=proper(trim(left(x$,len(x$)-15))) x$=set(1,2,MAXCOLS,"") [Mrg report header] cerase 1,1,MAXCOLS,3 cbox LEFTCOL,.5,RIGHTCOL,3.25,MBOXSIZE,HSHADE text 2,1.5,{rptdate$},HBFONT text 1,1.5,{compname$},HBCFONT,14,cols=MAXCOLS text 1,1.5,{pageno$},HBRFONT,cols=MAXRCOLS text 2,2.75,{user$},HBFONT text 1,2.75,{doc_title$},HBCFONT,12,cols=MAXCOLS text 1,2.75,{time$},HBRFONT,cols=MAXRCOLS [Mrg trim colons] for row=1 to MAXROWS text$[row]=sub(text$[row],":"," ") next row [Mrg make all lower case] for row=3 to MAXROWS text$[row]=PROPER(text$[row]) next row [Mrg form header] LOGO_IMAGE 1,1,12,6,"COMP_LOGO" text 1,{tpos},{doc_title$},HBRFONT,16,cols=MAXRCOLS text 1,3.2,{reprint$},HRFONT,12,cols=MAXRCOLS text 1,2,{compname$},HBCFONT,14,cols=MAXRCOLS text 1,3.2,{addr1$},HCFONT,12,cols=MAXRCOLS text 1,4.3,{addr2$},HCFONT,12,cols=MAXRCOLS text 1,5.4,{addr3$},HCFONT,12,cols=MAXRCOLS text 1,6.5,{phone$},HCFONT,12,cols=MAXRCOLS text 1,7.5,"COMP_EMAIL",HCFONT,cols=MAXRCOLS text 1,8.5,"COMP_WEBSITE",HCFONT,cols=MAXRCOLS [Mrg get company info] # get comp info from page or constants? compname$=trim(get(xcol,xrow,xcols)) if compname$="" then compname$="COMP_NAME"; addr1$="COMP_ADDR1"; addr2$="COMP_ADDR2"; addr3$="COMP_ADDR3"; phone$="Phone: COMP_PHONES" else addr1$=trim(get(xcol,xrow+1,xcols)); addr2$=trim(get(xcol,xrow+2,xcols)); addr3$=trim(get(xcol,xrow+3,xcols)); phone$=trim(get(xcol,xrow+4,xcols)); if phone$="" then if addr3$="" or addr3$(1,1)>="A" then phone$="Phone: COMP_PHONES" else phone$="Phone: "+addr3$,addr3$="" else phone$="Phone: "+phone$ if addr3$="" then addr3$=phone$,phone$="" [Mrg get watermark text] wmlines=1,wdoc_title$="",xdoc_title$=trim(doc_title$) watermark_loop: x=pos(" "=xdoc_title$) if x=0 then if wdoc_title$="" then wdoc_title$=xdoc_title$ else wdoc_title$=wdoc_title$+$0a$+trim(xdoc_title$) fi; goto end_watermark_loop if wdoc_title$="" then wdoc_title$=trim(xdoc_title$(1,x)) else wdoc_title$=wdoc_title$+$0a$+trim(xdoc_title$(1,x)) xdoc_title$=trim(xdoc_title$(x+1)) wmlines=wmlines+1 goto watermark_loop end_watermark_loop: [Mrg get desc pos] desc_pos=pos("DESCRIPTION"=text$[xrow]) if desc_pos=0 then desc_pos=pos("Description"=text$[xrow]) [Mrg find detail bottom] # search for bottom of vertical lines in detail area # prepayment area should not have any vertical lines # detail lines will have many !, prepayment only 2 ! detail_bottom=yrow equal$=dim(xcols,"=") for row=xrow to yrow-1 if pos(equal$=text$[row])=2 then detail_bottom=row;break x=pos("!"=text$[row],1,0) # get # of ! if x=2 then detail_bottom=row-1; break next row [Mrg find memos] # find memo lines and mark them for enhancing later if xrow>=yrow-1 then goto end_find_memos serial_on=0 for row=xrow to yrow-1 # is it a blank line? if trim(get(desc_pos,row,20))="" then continue if trim(get(97,row,1))="." then continue # mje 082206 # if item # exists; must be item line x1$=trim(get(ipos,row,desc_pos-2-ipos)) x2$=trim(get(ipos,row,desc_pos-2-ipos)) if x1$<>"" and x2$<>"!" then serial_on=0;continue # is it a serial # line if get(desc_pos,row,5)="Ser# " or get(desc_pos,row,5)="Lot# " then x$=set(desc_pos-3,row,2,"sL"); serial_on=1; continue if get(desc_pos,row,5)=" " and serial_on then x$=set(desc_pos-3,row,2,"sL"); continue # must be memo line or 2nd desc line x$=set(desc_pos-3,row,2,"mL"); serial_on=0 next row end_find_memos: [Mrg find prepayment] if xrow>=yrow-1 then goto end_find_prepayment for i=xrow to yrow if pos("-----"=text$[i]) or pos("====="=text$[i]) then text$[i]=""; exec("cbox 15,"+str(i)+",42,"+str(i));continue if get(15,i,1)<>"" then x$=set(13,i,2,"pL") next i end_find_prepayment: [Mrg gl report prepage] prepage { x=pos("PAGE"=text$[1]) if x then text$[1](x,4)="Page" pageno$=trim(get(x-7,1,20)) # find line lineno=0 for i=3 to MAXROWS if mid(text$[i],1,3)="===" then lineno=i;exitto exit_loop next i exit_loop: } [Mrg gl find sub totals] prepage { # find sub total lines for row=lineno to 59 if trim(get(title_pos,row,6))="Total" and trim(get(first_value_pos,row,2))<>"" then exec("cbox "+STR((LEFTCOL))+","+STR((row-.5))+","+STR((RIGHTCOL))+","+STR((row+.5))+",1,DSHADE") if trim(get(title_pos,row,6))="Total" and trim(get(first_value_pos,row,2))="" then exec("cbox "+STR((LEFTCOL))+","+STR((row-.5))+","+STR((RIGHTCOL))+","+STR((row+1.5))+",1,DSHADE") next row } [Mrg gl find titles] prepage { # find title lines for row=lineno+1 to 59 if trim(get(desc_pos,row,3))<>"" then continue if trim(get(title_pos,row,6))="Total" then continue if trim(get(2,row,2))<>"" then continue x$=set(2,row,2,"tL") text$[row]=sub(text$[row],":","") next row } [Mrg gl report hdr] # header cfont 1,2,MAXCOLS,{lineno-dhdlns},HBCFONT,12,black font "AS OF",0,0,14,1,HBCFONT,12,black,proper cbox LEFTCOL,.5,RIGHTCOL,{LINENO-dhdlns-.6},1,HSHADE cerase 1,1,MAXCOLS,1 text 2,1.25,{trim(get(1,1,15))},HBFONT text 1,1.25,{pageno$},HBRFONT,cols=MAXRCOLS [Mrg gl title handler] # handle title lines font "tL@2,1,25,59",2,0,{MAXRCOLS-1},1,DBCFONT,11,proper # memo lines erase "tL@2,1,40,59",0,0,2,1 # spec chars [Mrg ZZZ] #*************************************************************** # Most frequently used rule sets * #*************************************************************** [Enhance-S/O_Invoice/RGA_Long_form] #dsn_sample "/u0/unform_test/infor/txt/SOrgalongform.txt" #dsn_sample "/u0/unform_test/infor/txt/SOinvoice2pagelongformlongnotes.txt" dsn_sample "/u0/unform_test/infor/txt/SOINVOICE2PAGELONGFORM.txt" detect 0,2,"^~(INVOICE)|(CREDIT MEMO)|(RETURN GOODS)" detect 0,16,"^SALESPERSON" detect 56,18,"!V" # set up document constants const MAXCOLS=100 # max cols to output const MAXRCOLS=99 # MAXCOLS-1 const LEFTCOL=1 # left vertical line const RIGHTCOL=100 # right vertical line const MAXROWS=66 # max rows to output cols MAXCOLS # max output columns rows MAXROWS # max output rows page MAXROWS # max input rows const CUSTOMER_COPY=1 const FILE_COPY=2 const MAX_COPIES=2 pcopies MAX_COPIES portrait dpi 600 # see global constant above GSON # graphical shading title "S/O Invoice" # view in pdf properties prejob { dim copy_title$[MAX_COPIES] if MAX_COPIES>=1 then copy_title$[CUSTOMER_COPY]="Customer Copy" if MAX_COPIES>=2 then copy_title$[FILE_COPY]="Accounting Copy" } prepage { # patch to handle RGA discrepancy x=pos("Ship-to:"=text$[10]) if x>62 then for i=10 to 14; text$[i](62)=text$[i](69,30); next i reprint$=trim(get(92,2,7)) doc_title$=trim(get(25,2,40)) if doc_title$(1,6)="RETURN" then doc_title$="RETURN GOODS ACKNOWLEDGEMENT" merge "Mrg get watermark text" if doc_title$(1,6)="RETURN" then doc_title$="RETURN GOODS"; if reprint$="" then reprint$="ACKNOWLEDGEMENT" else reprint$="ACKNOWLEDGEMENT "+reprint$ xcol=27,xrow=3,xcols=46,tpos=2 merge "Mrg get company info" xrow=20 merge "Mrg get desc pos" xrow=22,yrow=60,xcols=MAXCOLS-2 merge "Mrg find detail bottom" xrow=22,yrow=detail_bottom,ipos=2 merge "Mrg find memos" xrow=detail_bottom+1,yrow=59 merge "Mrg find prepayment" # sometimes invoice date is missing so copy in ship date if trim(get(91,7,8))="" then x$=trim(get(18,18,8)); x1$=set(91,7,8,x$) if get(89,63,9)<>"CONTINUED" then exec("cbox 31,60,RIGHTCOL,64,1,crows=62::HSHADE,ccols=44 56 68 78 87");cont$="" if get(89,63,9)="CONTINUED" then cont$="Continued on next page";x$=cut(89,63,9,"") xrow=14;xcols=40 merge "Mrg get zip" } # erase columns ! vline "!!",erase # erase rows - or = hline "==",erase hline "--",erase hline "^^" # default line enhancement const BROW=1 const EROW=60 cfont {desc_pos-2},BROW,2,EROW,DBFONT,IJUST,8 # item cfont {desc_pos},BROW,43,EROW,DFONT,8 # desc cfont 44,BROW,52,EROW,DBRFONT # ordered cfont 54,BROW,62,EROW,DBRFONT # shipped cfont 64,BROW,72,EROW,DBRFONT # backordered cfont 74,BROW,75,EROW,DBCFONT # uom cfont 77,BROW,85,EROW,DBRFONT # price cfont 87,BROW,88,EROW,DBCFONT # uom cfont 90,BROW,MAXRCOLS,EROW,DBRFONT # extension # header section cerase 1,1,MAXCOLS,10 cbox LEFTCOL,1,RIGHTCOL,MAXROWS,MBOXSIZE,crows=9:MBOXSIZE merge "Mrg form header" # handle copy title cbox 80,4.25,RIGHTCOL,5.75,1,100 text 81,5.1,{copy_title$[copy]},HBCFONT,12,cols=18,shade 0 # right header cbox 80,6,RIGHTCOL,9,1,ccols=90::ISHADE,crows=7 8 text 81,6.5,"Number",IFONT,cols=9 text 81,7.5,"Date",IFONT,cols=9 text 81,8.5,"Page",IFONT,cols=9 text 92,6.5,{trim(get(93,3,6))},DBFONT,cols=9 text 92,7.5,{trim(get(91,7,8))},DBFONT,cols=9 text 92,8.5,{trim(get(96,5,3))},DBFONT,cols=9 # bill to section cbox LEFTCOL,9,RIGHTCOL,15,MBOXSIZE,ccols=13::ISHADE 51 63::ISHADE text 2,10,"Bill To:",ICFONT,cols=11 text 2,11,{trim(get(16,10,25))},DBCFONT,cols=11 text 14,10,{mcut(7,11,35,4,"","Y","Y")},DBFONT,cols=35 barcode 14,13.25,{shipzip$},900,12.0,2 # ship to section text 52,10,"Ship To:",ICFONT,cols=11 text 52,11,{trim(get(70,10,15))},DBCFONT,cols=11 text 64,10,{mcut(62,11,35,4,"","Y","Y")},DBFONT,cols=35 # ribbon section cerase 17,15,17,19 cerase 26,15,26,19 cerase 41,15,41,19 cerase 57,15,57,19 cerase 66,15,66,19 cerase 73,15,73,19 cerase 76,15,76,19 cerase 84,15,84,19 cbox LEFTCOL,15,RIGHTCOL,19,MBOXSIZE,crows=17::ISHADE, ccols=17 26 41 57 66 73 76 84 cfont 2,16,16,16,ICFONT,proper # ref # cfont 18,16,25,16,ICFONT,proper # shipped dt cfont 27,16,40,16,ICFONT,proper # salesperson cfont 42,16,56,16,ICFONT,proper # terms cfont 58,16,65,16,ICFONT,proper,fit # tax code cfont 67,16,72,16,ICFONT,proper # doc # cfont 74,16,75,16,ICFONT,proper # whs cfont 77,16,83,16,ICFONT,proper,fit # frt cfont 85,16,MAXRCOLS,16,ICFONT,proper,fit # ship via text 2,18,{cut(2,18,15,"")},DBCFONT,cols=15 # ref # text 18,18,{cut(18,18,8,"")},DBCFONT,cols=8 # shipped dt text 27,18,{cut(27,18,14,"")},DBCFONT,cols=14 # salesperson text 42,18,{cut(42,18,15,"")},DBCFONT,cols=15 # terms text 58,18,{cut(58,18,8,"")},DBCFONT,cols=8 # tax code text 67,18,{cut(67,18,6,"")},DBCFONT,cols=6 # doc # text 74,18,{cut(74,18,2,"")},DBCFONT,cols=2 # whs text 77,18,{cut(77,18,7,"")},DBCFONT,cols=7 # frt text 85,18,{cut(85,18,15,"")},DBCFONT,cols=15 # ship via # detail erase "!@desc_pos-1,20,desc_pos-1,60",0,0,1,1 erase "!@43,20,43,60",0,0,1,1 erase "!@53,20,53,60",0,0,1,1 erase "!@63,20,63,60",0,0,1,1 erase "!@73,20,73,60",0,0,1,1 erase "!@76,20,76,60",0,0,1,1 erase "!@86,20,86,60",0,0,1,1 erase "!@89,20,89,60"0,0,1,1 cbox LEFTCOL,19,RIGHTCOL,{detail_bottom},MBOXSIZE, crows=21::DSHADE,ccols=43 53 63 73 76 86 89 cbox {desc_pos-1},19,{desc_pos-1},{detail_bottom} cbox 43,19,43,{detail_bottom} # detail headings cfont {desc_pos-2},20,2,20,IFONT,proper,IJUST # item code cfont {desc_pos},20,43,20,IFONT,proper # desc cfont 44,20,52,20,IRFONT,proper # ordered cfont 54,20,62,20,IRFONT,proper # shipped cfont 64,20,72,20,IRFONT,proper # backordered cfont 74,20,75,20,ICFONT # uom cfont 77,20,85,20,IRFONT,proper # price cfont 87,20,88,20,ICFONT # uom cfont 90,20,MAXRCOLS,20,IRFONT,proper # extension # handle ordered by lines font "Ordered By @2,22,25,59",0,0,40,1,DFONT # handle memo lines font "mL@2,22,25,59",3,0,80,1,DFONT # memo lines erase "mL@2,22,40,59",0,0,2,1 # spec chars # enhance serial # lines font "sL@2,22,25,59",3,0,4,1,DFONT # serial lines font "sL@2,22,25,59",8,0,30,1,DFONT # serial lines erase "sL@2,22,40,59",0,0,2,1 # spec chars # handle payment info font "pL@2,22,40,59",2,0,15,1,DFONT # pymt desc font "pL@2,22,40,59",17,0,13,1,DBRFONT # pymt amts font "pL@2,22,40,59",30,0,35,1,DFONT # pymt comment erase "pL@2,22,40,59",0,0,2,1 # spec chars # handle ship from warehouse lines font "*Whse:@2,22,7",0,0,6,1,IFONT font "*Whse:@2,22,7",8,0,30,1,DFONT font "*Ship Via:@43,22,52",0,0,10,1,IRFONT font "*Ship Via:@43,22,52",12,0,15,1,DBFONT font "*Freight:@70,22,78",0,0,9,1,IRFONT font "*Freight:@70,22,78",11,0,8,1,DBRFONT # watermark - large font with light shading WATERMARK 1,{59.25-5*(wmlines-1)},{wdoc_title$},cgtimes,120, shade=WATERMARK_SHADE,center,cols=MAXCOLS, fit,spacing=1 # footer cerase 32,62,100,62 cerase 32,64,100,64 cerase 32,61,32,63 cerase 44,61,44,63 cerase 56,61,56,63 cerase 68,61,68,63 cerase 78,61,78,63 cerase 87,61,87,63 cbox LEFTCOL,60,RIGHTCOL,MAXROWS,MBOXSIZE cfont 32,61,43,61,IBRFONT,proper # merchandise cfont 45,61,55,61,IBRFONT,proper # misc cfont 57,61,67,61,IBRFONT,proper # discount cfont 69,61,77,61,IBRFONT,proper # tax cfont 79,61,86,61,IBRFONT,proper # frt cfont 88,61,MAXRCOLS,61,IBRFONT,9,proper # tot due cfont 32,63,43,63,DBRFONT # merchandise cfont 45,63,55,63,DBRFONT # misc cfont 57,63,67,63,DBRFONT # discount cfont 69,63,77,63,DBRFONT # tax cfont 79,63,86,63,DBRFONT # frt cfont 88,63,MAXRCOLS,63,DBRFONT,10 # tot due cfont 2,61,31,64,DFONT cfont 2,65,MAXRCOLS,65,DFONT text MAXRCOLS,65,{cont$},DBRFONT [Enhance-S/O_Pick_Ticket] dsn_sample "/u0/unform_test/infor/txt/droppick.txt" #dsn_sample "/u0/unform_test/infor/txt/SOpicktest1.txt" #dsn_sample "/u0/unform_test/infor/txt/SOpickticket.txt" #dsn_sample "/u0/unform_test/infor/txt/SOPICKTICKET2PAGE.txt" #dsn_sample "/u0/unform_test/infor/txt/SOpickticketwithlongnote.txt" #dsn_sample "/u0/unform_test/infor/txt/SOpickticketwithnotes.txt" detect 0,2,"^PICK TICKET" detect 0,16,"^SLSP" # set up document constants const MAXCOLS=85 # max cols to output const MAXRCOLS=84 # MAXCOLS-1 const LEFTCOL=1 # left vertical line const RIGHTCOL=85 # right vertical line const MAXROWS=66 # max rows to output cols MAXCOLS # max output columns rows MAXROWS # max output rows page MAXROWS # max input rows const CUSTOMER_COPY=1 const FILE_COPY=2 const MAX_COPIES=2 pcopies MAX_COPIES portrait dpi 600 # see global constant above GSON # graphical shading title "S/O Pick Ticket" # view in pdf properties prejob { dim copy_title$[MAX_COPIES] if MAX_COPIES>=1 then copy_title$[CUSTOMER_COPY]="Customer Copy" if MAX_COPIES>=2 then copy_title$[FILE_COPY]="Accounting Copy" } prepage { reprint$=trim(get(77,2,7)) doc_title$=trim(get(35,2,11)) if doc_title$(1,6)="RETURN" then doc_title$="RETURN GOODS" merge "Mrg get watermark text" xcol=19,xrow=3,xcols=46,tpos=2 merge "Mrg get company info" xrow=20 merge "Mrg get desc pos" xrow=22,yrow=62,ipos=2 merge "Mrg find memos" cont$="" if get(75,63,9)="CONTINUED" then cont$="Continued on next page",x$=set(75,63,9,"") } # erase vertical & horizontal lines vline "!!",erase hline "--",erase hline "==",erase # default line enhancements const BROW=1 const EROW=62 cfont {desc_pos-2},BROW,2,EROW,DBFONT,IJUST # item cfont {desc_pos},BROW,42,EROW,DFONT # desc cfont 44,BROW,52,EROW,DBRFONT # ordered cfont 54,BROW,59,EROW,DBRFONT # shipped cfont 61,BROW,65,EROW,DBRFONT # backordered cfont 67,BROW,68,EROW,DBCFONT # uom cfont 70,BROW,77,EROW,DBRFONT # wt cfont 79,BROW,MAXRCOLS,EROW,DBCFONT # location # header section cerase 1,1,MAXCOLS,10 cbox LEFTCOL,1,RIGHTCOL,MAXROWS,MBOXSIZE,crows=10:MBOXSIZE merge "Mrg form header" # handle copy title cbox 68,3.75,RIGHTCOL,5.25,1,100 text 69,4.6,{copy_title$[copy]},HBCFONT,12,cols=15,shade 0 # right header cbox 68,5.5,RIGHTCOL,10,1,ccols=77::ISHADE,crows=7 8.5 text 69,6.25,"Number",IFONT,cols=9 text 69,7.75,"Date",IFONT,cols=9 text 69,9.25,"Page",IFONT,cols=9 text 78,6.25,{trim(get(78,3,6))},DBFONT,cols=6 text 78,7.75,{trim(get(76,7,8))},DBFONT,cols=8 text 78,9.25,{trim(get(82,5,3))},DBFONT,cols=6 # ship to section cbox LEFTCOL,10,RIGHTCOL,15,MBOXSIZE,ccols=11::ISHADE 42 52::ISHADE text 2,11,"Ship To:",ICFONT,cols=9 text 2,12,{trim(get(15,10,15))},DBCFONT,cols=9 text 12,11,{mcut(7,11,35,4,"","Y","Y")},DBFONT,cols=35 # bill to section text 43,11,"Bill To:",ICFONT,cols=9 text 43,12,{trim(get(62,10,20))},DBCFONT,cols=9 cfont 53,11,MAXRCOLS,14,DBFONT # bill to addr # ribbon 1 section cerase 17,15,17,19 cerase 26,15,26,19 cerase 36,15,36,19 cerase 41,15,41,19 cerase 57,15,57,19 cerase 61,15,61,19 cerase 69,15,69,19 cbox LEFTCOL,15,RIGHTCOL,19,MBOXSIZE,1,crows=17::ISHADE, ccols=17 26 36 41 57 61 69 cfont 2,16,16,16,ICFONT,proper # ref # cfont 18,16,25,16,ICFONT,proper # ordered cfont 27,16,35,16,ICFONT,proper # requested cfont 37,16,40,16,ICFONT,proper # salesperson cfont 42,16,56,16,ICFONT,proper # terms cfont 58,16,60,16,ICFONT,proper # whs cfont 62,16,68,16,ICFONT,proper # frt cfont 70,16,MAXRCOLS,16,ICFONT,proper # ship via cfont 2,18,16,18,DBCFONT # ref # cfont 18,18,25,18,DBCFONT # ordered cfont 27,18,35,18,DBCFONT # requested cfont 37,18,40,18,DBCFONT # salesperson cfont 42,18,56,18,DBCFONT # terms cfont 58,18,60,18,DBCFONT # whs cfont 62,18,68,18,DBCFONT # frt cfont 70,18,MAXRCOLS,18,DBCFONT # ship via # detail heading erase "!@6,20,22,20",0,0,1,1 erase "!@43,19,43,62",0,0,1,1 erase "!@53,19,53,62",0,0,1,1 erase "!@60,19,60,62",0,0,1,1 erase "!@66,19,66,62",0,0,1,1 erase "!@69,19,69,62",0,0,1,1 erase "!@78,19,78,62",0,0,1,1 cbox LEFTCOL,19,RIGHTCOL,62,MBOXSIZE,crows=21::DSHADE, ccols=43 53 60 66 69 78 cbox {desc_pos-1},19,{desc_pos-1},62 cfont 2,20,{desc_pos-2},20,IFONT,IJUST,proper # item cfont {desc_pos},20,43,20,IFONT,proper # desc cfont 44,20,52,20,IRFONT,proper # committed cfont 54,20,59,20,IRFONT,proper # shipped cfont 61,20,65,20,IRFONT,proper # backordered cfont 67,20,68,20,ICFONT # uom cfont 70,20,77,20,IRFONT,proper # wt cfont 79,20,MAXRCOLS,20,ICFONT,proper # location # handle order initiated lines font "Order @5,22,10,62",-3,0,35,1,DLFONT # handle ordered by lines font "Ordered By @2,22,25,62",0,0,40,1,DFONT # handle memo lines font "mL@2,22,25,62",3,0,80,1,DFONT # memo lines erase "mL@2,22,40,62",0,0,2,1 # spec chars # enhance serial # lines, mje 082206 from pick-ticket font "sL@2,22,25,59",3,0,4,1,DFONT # serial lines font "sL@2,22,25,59",8,0,30,1,DFONT # serial lines erase "sL@2,22,40,59",0,0,2,1 # spec chars # handle alternate location lines font "Alt Loc: ",0,0,8,1,DFONT # title font "Alt Loc: ",9,0,50,1,DBFONT # alt locs # handle price lines font "Price: ",0,0,6,1,DFONT # title font "Price: ",7,0,9,1,DBRFONT # price font "Price: ",17,0,5,1,DBFONT # uom # handle disc lines font "Disc: ",0,0,6,1,DFONT # title font "Disc: ",7,0,9,1,DBRFONT # price font "Disc: ",17,0,5,1,DBFONT # uom # handle ext lines font "Ext: ",0,0,4,1,DFONT # title font "Ext: ",5,0,11,1,DBRFONT # ext price # handle * memo lines erase {desc_pos-1},22,1,1 font " * @2,22,4,62",0,0,60,1,DLFONT # watermark - large font with light shading WATERMARK 1,{60-9*(wmlines-1)},{wdoc_title$},cgtimes,120, shade=WATERMARK_SHADE,center,cols=MAXCOLS, fit,spacing=1 # footer cbox LEFTCOL,62,RIGHTCOL,MAXROWS,MBOXSIZE cbox "~T[Oo][Tt][Aa][Ll] W[Ee][Ii][Gg][Hh][Tt]:@50,63,70,63",-2,-1,78,64,1,ccols=69::HSHADE cfont 54,63,67,63,IBRFONT,10,proper # wt cfont 69,63,77,63,DBRFONT,10 # wt font "CONTINUED@75,63,83,63",0,0,10,1,IRFONT,proper cfont 2,63,52,63,IFONT font "EXTENSION TOT: ",0,0,14,1,IFONT,proper # title font "~\.[0-9][0-9]@1,63,50,63",-9,0,12,1,DBFONT,10 # ext total font "~\.[0-9][0-9]@1,63,50,63",5,0,16,1,IFONT,proper cfont 2,64,MAXRCOLS,64,IFONT text 1,65,{cont$},DBRFONT,cols=MAXRCOLS [Enhance-S/O_Invoice_Gross_margin/Short_Form/short_RGA] #dsn_sample "/u0/unform_test/infor/txt/SOinvoice2pagegmtearlongnotes.txt" #dsn_sample "/u0/unform_test/infor/txt/SOINVOICE2PAGESHORTFORM.txt" #dsn_sample "/u0/unform_test/infor/txt/SOinvoice2pageshortformlongnotes.txt" dsn_sample "/u0/unform_test/infor/txt/SOinvoice2pageshorttearoff.txt" #dsn_sample "/u0/unform_test/infor/txt/SORGASHORT.txt" #dsn_sample "/u0/unform_test/infor/txt/SORGALONG.txt" #dsn_sample "/u0/unform_test/infor/txt/SOinvoiceprintfromDI.txt" detect 0,2,"^~(INVOICE)|(CREDIT MEMO)|(RETURN GOODS)" detect 0,16,"^~(SHIPPED)|(RETURNED)" detect 0,16,"^SLS" detect 56,18,"!V" # set up document constants const MAXCOLS=81 # max cols to output const MAXRCOLS=80 # MAXCOLS-1 const LEFTCOL=1 # left vertical line const RIGHTCOL=81 # right vertical line const MAXROWS=66 # max rows to output cols MAXCOLS # max output columns rows MAXROWS # max output rows page MAXROWS # max input rows const CUSTOMER_COPY=1 const FILE_COPY=2 const INTERNAL_COPY=3 const MAX_COPIES=3 pcopies MAX_COPIES portrait dpi 600 # see global constant above GSON # graphical shading title "S/O Invoice" # view in pdf properties prejob { dim copy_title$[MAX_COPIES] if MAX_COPIES>=1 then copy_title$[CUSTOMER_COPY]="Customer Copy" if MAX_COPIES>=2 then copy_title$[FILE_COPY]="Accounting Copy" if MAX_COPIES>=3 then copy_title$[INTERNAL_COPY]="Internal Copy" } prepage { reprint$=trim(get(73,2,7)) doc_title$=trim(get(20,2,40)) if doc_title$(1,6)="RETURN" then doc_title$="RETURN GOODS ACKNOWLEDGEMENT" merge "Mrg get watermark text" if doc_title$(1,6)="RETURN" then doc_title$="RETURN GOODS"; if reprint$="" then reprint$="ACKNOWLEDGEMENT" else reprint$="ACKNOWLEDGEMENT "+reprint$ xcol=20,xrow=3,xcols=46,tpos=2 merge "Mrg get company info" xrow=20 merge "Mrg get desc pos" xrow=22,yrow=60,xcols=MAXCOLS-2 merge "Mrg find detail bottom" xrow=22,yrow=detail_bottom,ipos=2 merge "Mrg find memos" xrow=detail_bottom+1,yrow=59 merge "Mrg find prepayment" if get(71,63,9)<>"CONTINUED" then exec("cbox 25,60,RIGHTCOL,64,1,CROWS=62::HSHADE,ccols=37 49 59 68");cont$="" if get(71,63,9)="CONTINUED" then cont$="Continued on next page";x$=cut(71,63,9,"") } precopy { if copy=INTERNAL_COPY then cols$="100" if trim(get(86,3,3))<>"NO." and copy=INTERNAL_COPY then skip=1 } # erase columns ! vline "!!",erase # erase rows - or = hline "==",erase hline "--",erase hline "^^" # erase cost section if not copy 3 if copy CUSTOMER_COPY,FILE_COPY cerase 81,1,102,MAXROWS end if # default line enhancement const BROW=22 const EROW=60 cfont 2,BROW,{desc_pos-2},EROW,DBFONT,IJUST,8 # item cfont {desc_pos},BROW,42,EROW,DFONT,8 # desc cfont 44,BROW,52,EROW,DBRFONT # shipped cfont 54,BROW,55,EROW,DBCFONT # uom cfont 57,BROW,65,EROW,DBRFONT # price cfont 67,BROW,68,EROW,DBCFONT # uom cfont 70,BROW,MAXRCOLS,EROW,DBRFONT # extension if copy INTERNAL_COPY cfont 82,BROW,92,EROW,DBRFONT # cost cfont 94,BROW,99,EROW,DBRFONT # gm end if # header section cerase 1,1,100,10 cbox LEFTCOL,1,RIGHTCOL,MAXROWS,MBOXSIZE,crows=10:MBOXSIZE if copy INTERNAL_COPY cbox 82,1,100,MAXROWS,MBOXSIZE end if merge "Mrg form header" # handle copy title cbox 64,3.75,RIGHTCOL,5.25,1,100 text 65,4.6,{copy_title$[copy]},HBCFONT,12,cols=15,shade 0 # right header cbox 64,5.5,RIGHTCOL,10,1,crows=7 8.5, ccols=72::ISHADE text 65,6.25,"Number",IFONT,cols=7 text 65,7.75,"Date",IFONT,cols=7 text 65,9.25,"Page",IFONT,cols=7 text 73,6.25,{trim(get(74,3,6))},DBFONT,cols=6 text 73,7.75,{trim(get(72,7,8))},DBFONT,cols=8 text 73,9.25,{trim(get(78,5,3))},DBFONT,cols=3 if copy INTERNAL_COPY cbox 82,1,100,8,crows=4 6,ccols=90::ISHADE text 83,3,"Number",IFONT,cols=7 text 83,5,"Page",IFONT,cols=7 text 83,7,"Date",IFONT,cols=7 text 91,3,{trim(get(74,3,6))},DBFONT,cols=6 text 91,5,{trim(get(72,7,8))},DBFONT,cols=8 text 91,7,{trim(get(78,5,3))},DBFONT,cols=3 end if # bill to section cbox LEFTCOL,10,RIGHTCOL,15,MBOXSIZE,1,ccols=10::ISHADE 41 50::ISHADE text 2,11,"Bill To:",ICFONT,cols=8 text 2,12,{trim(get(16,10,25))},DBCFONT,cols=8 text 11,11,{mcut(8,11,30,4,"","Y","Y")},DBFONT,cols=30 # ship to section text 42,11,"Ship To:",ICFONT,cols=8 text 42,12,{trim(get(58,10,15))},DBCFONT,cols=8 text 51,11,{mcut(50,11,30,4,"","Y","Y")},DBFONT,cols=30 # ribbon section cerase 17,16,17,18 cerase 26,16,26,18 cerase 30,16,30,18 cerase 46,16,46,18 cerase 55,16,55,18 cerase 62,16,62,18 cerase 65,16,65,18 cbox LEFTCOL,15,RIGHTCOL,19,MBOXSIZE,1,crows=17::ISHADE, ccols=17 26 30 46 55 62 65 cfont 2,16,16,16,ICFONT,proper # ref # cfont 18,16,25,16,ICFONT,proper # shipped dt cfont 27,16,29,16,ICFONT,proper # slsp cfont 31,16,45,16,ICFONT,proper # terms cfont 47,16,54,16,ICFONT,proper # tax code cfont 56,16,61,16,ICFONT,proper # doc # cfont 63,16,64,16,ICFONT,proper # whs cfont 66,16,MAXRCOLS,16,ICFONT,proper # ship via text 2,18,{cut(2,18,15,"")},DBCFONT,cols=15 # ref # text 18,18,{cut(18,18,8,"")},DBCFONT,cols=8 # shipped dt text 27,18,{cut(27,18,3,"")},DBCFONT,cols=3 # slsp text 31,18,{cut(31,18,15,"")},DBCFONT,cols=15 # terms text 47,18,{cut(47,18,8,"")},DBCFONT,cols=8 # tax code text 56,18,{cut(56,18,6,"")},DBCFONT,cols=6 # doc # text 63,18,{cut(63,18,2,"")},DBCFONT,cols=2 # whs text 66,18,{cut(66,18,15,"")},DBCFONT,cols=15 # ship via # detail erase "!@desc_pos-1,20,desc_pos-1,60",0,0,1,1 erase "!@43,20,43,60",0,0,1,1 erase "!@53,20,53,60",0,0,1,1 erase "!@56,20,56,60",0,0,1,1 erase "!@66,20,66,60",0,0,1,1 erase "!@69,20,69,60",0,0,1,1 cbox LEFTCOL,19,RIGHTCOL,{detail_bottom},MBOXSIZE, crows=21::DSHADE,ccols=43 53 56 66 69 cbox {desc_pos-1},19,{desc_pos-1},{detail_bottom} cfont 2,20,{desc_pos-2},20,IFONT,proper,IJUST # item code cfont {desc_pos},20,42,20,IFONT,proper # desc cfont 44,20,52,20,IRFONT,proper # shipped cfont 54,20,55,20,ICFONT # uom cfont 57,20,65,20,IRFONT,proper # price cfont 67,20,68,20,ICFONT # uom cfont 70,20,MAXRCOLS,20,IRFONT,proper # extension if copy INTERNAL_COPY cerase 93,20,93,60 cbox 82,19,100,60,MBOXSIZE,crows=21::DSHADE,ccols=93 cfont 82,20,92,20,IRFONT,proper # cost cfont 94,20,99,20,IRFONT,proper # gm end if # handle ordered by lines font "Ordered By @2,22,25,59",0,0,40,1,DFONT # handle memo lines font "mL@2,22,25,59",3,0,80,1,DFONT,8 # memo lines erase "mL@2,22,40,59",0,0,2,1 # spec chars # enhance serial # lines font "sL@2,22,25,59",3,0,4,1,DFONT # serial lines font "sL@2,22,25,59",8,0,15,1,DFONT # serial lines erase "sL@2,22,40,59",0,0,2,1 # spec chars # handle payment info font "pL@13,22,14,59",2,0,15,1,DFONT # pymt desc font "pL@13,22,14,59",17,0,13,1,DBRFONT # pymt amts font "pL@13,22,14,59",30,0,35,1,DFONT # pymt comment erase "pL@13,22,14,59",0,0,2,1 # spec chars font "BACKORDER",0,0,9,1,IFONT,proper font "BACKORDER",9,0,10,1,DBFONT # watermark - large font with light shading WATERMARK 1,{59.25-5*(wmlines-1)},{wdoc_title$},cgtimes,120, shade=WATERMARK_SHADE,center,cols=MAXCOLS, fit,spacing=1 # footer cerase 25,62,100,62 cerase 25,64,100,64 cerase 25,61,25,63 cerase 37,61,37,63 cerase 49,61,49,63 cerase 59,61,59,63 cerase 68,61,68,63 cerase 93,61,93,63 cbox LEFTCOL,60,RIGHTCOL,MAXROWS,MBOXSIZE #cbox 25,60,RIGHTCOL,64,1,CROWS=62::HSHADE,ccols=37 49 59 68 cfont 25,61,36,61,IBRFONT,proper # merchandise cfont 38,61,48,61,IBRFONT,proper # misc cfont 50,61,58,61,IBRFONT,proper # tax cfont 60,61,67,61,IBRFONT,proper # frt cfont 69,61,MAXRCOLS,61,IBRFONT,10,proper # tot due cfont 26,63,36,63,DBRFONT # merchandise cfont 38,63,48,63,DBRFONT # misc cfont 50,63,58,63,DBRFONT # tax cfont 60,63,67,63,DBRFONT # frt cfont 69,63,MAXRCOLS,63,DBRFONT,10 # tot due if copy INTERNAL_COPY cerase 83,61,92,61 cbox 82,60,100,64,1,crows=62::HSHADE,ccols=93 text 83,61,"Total Cost",IBRFONT,9,cols=9 # tot cost cfont 94,61,99,61,IBRFONT,proper # gm cfont 83,63,92,63,DBRFONT,9 # tot cost cfont 94,63,99,63,DBRFONT # gm end if cfont 2,61,24,64,DFONT cfont 2,65,MAXRCOLS,65,DFONT text MAXRCOLS,65,{cont$},DBRFONT [Enhance-S/R_Invoice_long] dsn_sample "/u0/unform_test/infor/txt/SRinvoice.txt" detect 0,2,"^~(INVOICE)|(CREDIT MEMO)" detect 0,16,"^CONTRACT" detect 0,16,"^EXPIRES" detect 56,18,"V" # set up document constants const MAXCOLS=81 # max cols to output const MAXRCOLS=80 # MAXCOLS-1 const LEFTCOL=1 # left vertical line const RIGHTCOL=81 # right vertical line const MAXROWS=66 # max rows to output cols MAXCOLS # max output columns rows MAXROWS # max output rows page MAXROWS # max input rows const CUSTOMER_COPY=1 const FILE_COPY=2 const MAX_COPIES=2 pcopies MAX_COPIES portrait dpi 600 # see global constant above GSON # graphical shading title "S/R Invoice" # view in pdf properties prejob { dim copy_title$[MAX_COPIES] if MAX_COPIES>=1 then copy_title$[CUSTOMER_COPY]="Customer Copy" if MAX_COPIES>=2 then copy_title$[FILE_COPY]="Accounting Copy" } prepage { reprint$=trim(get(71,2,7)) doc_title$=trim(get(20,2,40)) merge "Mrg get watermark text" xcol=20,xrow=3,xcols=46,tpos=2 merge "Mrg get company info" xrow=20 merge "Mrg get desc pos" xrow=22,yrow=60,xcols=MAXCOLS-2 merge "Mrg find detail bottom" xrow=22,yrow=detail_bottom,ipos=2 merge "Mrg find memos" xrow=detail_bottom+1,yrow=59 merge "Mrg find prepayment" xrow=13;xcols=40 merge "Mrg get zip" } # erase columns ! vline "!!",erase # erase rows - or = hline "==",erase hline "--",erase hline "^^" # default line enhancement const BROW=22 const EROW=60 cfont 2,BROW,{desc_pos-2},EROW,DBFONT,IJUST,8 # serial # cfont {desc_pos},BROW,67,EROW,DFONT,8 # desc cfont 69,BROW,MAXRCOLS,EROW,DBRFONT # price # header section cerase 1,1,100,10 cbox LEFTCOL,1,RIGHTCOL,MAXROWS,MBOXSIZE,crows=10:MBOXSIZE merge "Mrg form header" # handle copy title cbox 64,3.75,RIGHTCOL,5.25,1,100 text 65,4.6,{copy_title$[copy]},HBCFONT,12,cols=16,shade 0 # right header cbox 64,5.5,RIGHTCOL,10,1,crows=7 8.5, ccols=72::ISHADE text 65,6.25,"Number",IFONT,cols=7 text 65,7.75,"Date",IFONT,cols=7 text 65,9.25,"Page",IFONT,cols=7 text 73,6.25,{trim(get(74,3,6))},DBFONT,cols=6 text 73,7.75,{trim(get(72,7,8))},DBFONT,cols=8 text 73,9.25,{trim(get(77,5,2))},DBFONT,cols=3 # bill to section cbox LEFTCOL,10,RIGHTCOL,15,MBOXSIZE,ccols=10::ISHADE 46 55::ISHADE text 2,11,"Bill To:",ICFONT,cols=8 text 2,12,{trim(get(21,10,25))},DBCFONT,cols=8,fit text 11,11,{mcut(8,11,40,4,"","Y","Y")},DBFONT,cols=30 barcode 11,13.25,{shipzip$},900,12.0,2 # ship to section text 47,11,"Ship To:",ICFONT,cols=8 text 47,12,{trim(get(58,10,20))},DBCFONT,cols=8,fit text 56,11,{mcut(50,11,30,4,"","Y","Y")},DBFONT,cols=30 # ribbon section cerase 17,16,17,18 cerase 26,16,26,18 cerase 32,16,32,18 cerase 48,16,48,18 cerase 57,16,57,18 cerase 69,16,69,18 cbox LEFTCOL,15,RIGHTCOL,19,MBOXSIZE,1,crows=17::ISHADE,ccols=17 26 32 48 57 69 cfont 2,16,16,16,ICFONT,proper # ref # cfont 18,16,25,16,ICFONT,proper # inv dt cfont 27,16,31,16,ICFONT,proper # slsp cfont 33,16,47,16,ICFONT,proper # terms cfont 49,16,56,16,ICFONT,proper # tax code cfont 58,16,68,16,ICFONT,proper # contract cfont 70,16,MAXRCOLS,16,ICFONT,proper # expires text 2,18,{cut(2,18,15,"")},DBCFONT,cols=15 # ref # text 18,18,{cut(18,18,8,"")},DBCFONT,cols=8 # inv dt text 27,18,{cut(27,18,5,"")},DBCFONT,cols=5 # slsp text 33,18,{cut(33,18,15,"")},DBCFONT,cols=15 # terms text 49,18,{cut(49,18,8,"")},DBCFONT,cols=8 # tax code text 58,18,{cut(58,18,11,"")},DBCFONT,cols=11 # contract text 70,18,{cut(70,18,10,"")},DBCFONT,cols=11 # expires # detail erase "!@desc_pos-1,20,desc_pos-1,60",0,0,1,1 erase "!@68,20,68,60",0,0,1,1 cbox LEFTCOL,19,RIGHTCOL,{detail_bottom},MBOXSIZE,crows=21::DSHADE,ccols=69 cbox {desc_pos-1},19,{desc_pos-1},{detail_bottom} cfont 2,20,{desc_pos-2},20,IFONT,proper,IJUST # serial # cfont {desc_pos},20,67,20,IFONT,proper # desc cfont 69,20,MAXRCOLS,20,IRFONT,proper # price # handle memo lines font "mL@2,22,25,59",3,0,40,1,DFONT,8 # memo lines erase "mL@2,22,40,59",0,0,2,1 # spec chars # enhance serial # lines font "sL@2,22,25,59",3,0,4,1,DFONT # serial lines font "sL@2,22,25,59",10,0,15,1,DFONT # serial lines erase "sL@2,22,40,59",0,0,2,1 # spec chars # handle payment info font "pL@13,22,14,59",2,0,15,1,DFONT # pymt desc font "pL@13,22,14,59",17,0,13,1,DBRFONT # pymt amts font "pL@13,22,14,59",30,0,35,1,DFONT # pymt comment erase "pL@13,22,14,59",0,0,2,1 # spec chars # watermark - large font with light shading WATERMARK 1,{59.5-9*(wmlines-1)},{wdoc_title$},cgtimes,120, shade=WATERMARK_SHADE,center,cols=MAXCOLS, fit,spacing=1 # footer cerase 57,61,57,63 cerase 67,61,67,63 cbox LEFTCOL,60,RIGHTCOL,MAXROWS,MBOXSIZE cbox 45,60,RIGHTCOL,64,1,CROWS=62::HSHADE,ccols=57 67 cfont 46,61,56,61,IBRFONT,proper # amt cfont 58,61,66,61,IBRFONT,proper # tax cfont 68,61,MAXRCOLS,61,IBRFONT,10,proper # tot due cfont 46,63,56,63,DBRFONT # amt cfont 58,63,66,63,DBRFONT # tax cfont 68,63,MAXRCOLS,63,DBRFONT,10 # tot due cfont 2,61,44,64,DFONT cfont 2,65,MAXRCOLS,65,DFONT [Enhance-S/R_Invoice_short] dsn_sample "/u0/unform_test/infor/txt/ServInvShortMultiPage.txt" #dsn_sample "/u0/unform_test/infor/txt/SRinv_short.txt" detect 0,2,"^~(INVOICE)|(CREDIT MEMO)" detect 0,16,"^DOC #" detect 0,16,"^TAX CODE" detect 56,18,"V" # set up document constants const MAXCOLS=85 # max cols to output const MAXRCOLS=84 # MAXCOLS-1 const LEFTCOL=1 # left vertical line const RIGHTCOL=85 # right vertical line const MAXROWS=66 # max rows to output cols MAXCOLS # max output columns rows MAXROWS # max output rows page MAXROWS # max input rows const CUSTOMER_COPY=1 const FILE_COPY=2 const MAX_COPIES=2 pcopies MAX_COPIES portrait dpi 600 # see global constant above GSON # graphical shading title "S/R Invoice" # view in pdf properties prejob { dim copy_title$[MAX_COPIES] if MAX_COPIES>=1 then copy_title$[CUSTOMER_COPY]="Customer Copy" if MAX_COPIES>=2 then copy_title$[FILE_COPY]="Accounting Copy" # the following lines are to allow for sections to cross pages repair_on=0,labor_on=0 goto end_prejob enhance_repair: # print top/heading box if not section cross pages if srow>min_row then x$="cbox LEFTCOL,"+str(srow-1.5)+",RIGHTCOL,"+STR(srow-.5)+",MBOXSIZE,DSHADE,ccols=21 49 56 59 69 72";exec(x$) # print internal box with no top or bottom x$="cbox LEFTCOL,"+str(srow-.5)+",RIGHTCOL,"+STR(erow+.5)+",MBOXSIZE,ccols=21 49 56 59 69 72,top=0,bottom=0";exec(x$) # print bottom line if not cross over page if erowmin_row then x$="cbox LEFTCOL,"+str(srow-1.5)+",RIGHTCOL,"+STR(srow-.5)+",MBOXSIZE,DSHADE,ccols=62 72";exec(x$) # print internal box with no top or bottom x$="cbox LEFTCOL,"+str(srow-.5)+",RIGHTCOL,"+STR(erow+.5)+",MBOXSIZE,ccols=62 72,top=0,bottom=0";exec(x$) # print bottom line if not cross over page if erow=1 then copy_title$[VENDOR_COPY]="Vendor Copy" if MAX_COPIES>=2 then copy_title$[FILE_COPY]="Accounting Copy" } prepage { reprint$=trim(get(91,2,7)) doc_title$=trim(get(35,2,40)) merge "Mrg get watermark text" xcol=35,xrow=3,xcols=40,tpos=2 merge "Mrg get company info" xrow=20 merge "Mrg get desc pos" icol1=2,icol2=desc_pos-2 vcol1=2,vcol2=desc_pos-2 # check for vendor item & item x=pos("!"=text$[20],1,0) # x=9 means both if x=9 then x=pos("!"=text$[20],1,2),icol1=x+1,vcol2=x-1 xrow=22,yrow=60,ipos=2 merge "Mrg find memos" cust_code$="" shipto_code$=trim(get(69,10,20)) x=pos(" "=shipto_code$) if x then cust_code$=shipto_code$(x+1), shipto_code$=shipto_code$(1,x-1) if get(91,63,9)<>"CONTINUED" then exec("cbox 56,60,RIGHTCOL,64,1,CROWS=62::HSHADE,ccols=68 78 87");cont$="" if get(91,63,9)="CONTINUED" then cont$="Continued on next page";x$=cut(91,63,9,"") } # erase columns ! vline "!!",erase # erase rows - or = hline "==",erase hline "--",erase hline "^^" # default line enhancement const BROW=22 const EROW=59 cfont {vcol1},BROW,{vcol2},EROW,DBFONT,IJUST,8 # vndr-item cfont {icol1},BROW,{icol2},EROW,DBFONT,IJUST,8 # item cfont {desc_pos},BROW,63,EROW,DFONT,8 # desc cfont 64,BROW,72,EROW,DBRFONT # units cfont 74,BROW,75,EROW,DBCFONT # uom cfont 77,BROW,85,EROW,DBRFONT # cost cfont 87,BROW,88,EROW,DBCFONT # uom cfont 90,BROW,MAXRCOLS,EROW,DBRFONT # extension # header section cerase 1,1,MAXCOLS,10 cbox LEFTCOL,1,RIGHTCOL,MAXROWS,MBOXSIZE,crows=10:MBOXSIZE merge "Mrg form header" # handle Reprint cfont 91,2,99,2,DBRFONT,11 # handle copy title cbox 80,3.75,RIGHTCOL,5,1,100 text 80.5,4.5,{copy_title$[copy]},HBCFONT,12,cols=19,shade 0 # right header cbox 80,5.25,RIGHTCOL,8.75,1,crows=6.25 7.5,ccols=90::ISHADE text 81,5.75,"Number",IFONT,cols=9 text 81,7,"Date",IFONT,cols=9 text 81,8.25,"Page",IFONT,cols=9 text 91,5.75,{trim(get(92,3,6))},DBFONT,cols=6 text 91,7,{trim(get(91,7,8))},DBFONT,cols=8 text 91,8.25,{trim(get(97,5,3))},DBFONT,cols=3 text 81,9.25,{trim(cut(81,8,19,""))},DBRFONT,cols=19 # confirm text 81,10.25,{trim(cut(81,9,19,""))},DBRFONT,cols=19 # acknowledgement # vendor section cbox LEFTCOL,10,RIGHTCOL,15,MBOXSIZE,1,ccols=12::ISHADE 51 62::ISHADE text 2,11,"Vendor:",ICFONT,cols=10 text 2,12,{trim(get(19,10,25))},DBCFONT,cols=9,fit text 13,11,{mcut(12,11,30,4,"","Y","Y")},DBFONT,cols=30 # ship to section text 52,11,"Ship To:",ICFONT,cols=10 text 52,12,{shipto_code$},DBCFONT,cols=10,fit text 52,13,{cust_code$},DBCFONT,cols=10,fit text 63,11,{mcut(61,11,30,4,"","Y","Y")},DBFONT,cols=30 # ribbon section cerase 7,16,7,18 cerase 23,16,23,18 cerase 39,16,39,18 cerase 55,16,55,18 cerase 63,16,63,18 cerase 79,16,79,18 cerase 88,16,88,18 cbox LEFTCOL,15,RIGHTCOL,19,MBOXSIZE,1,crows=17::ISHADE,ccols=7 23 39 55 63 79 88 cfont 2,16,6,16,ICFONT,proper # buyer cfont 8,16,22,16,ICFONT,proper # terms cfont 24,16,38,16,ICFONT,proper # ship via cfont 40,16,54,16,ICFONT # fob cfont 56,16,62,16,ICFONT,proper # frt cfont 64,16,78,16,ICFONT,proper # ref # cfont 80,16,87,16,ICFONT,proper # expected dt cfont 89,16,MAXRCOLS,16,ICFONT,proper # customer text 2,18,{cut(2,18,5,"")},DBCFONT,cols=5 # buyer text 8,18,{cut(8,18,15,"")},DBCFONT,cols=15 # terms text 24,18,{cut(24,18,15,"")},DBCFONT,cols=15 # ship via text 40,18,{cut(40,18,15,"")},DBCFONT,cols=15 # fob text 56,18,{cut(56,18,7,"")},DBCFONT,cols=7 # frt text 64,18,{cut(64,18,15,"")},DBCFONT,cols=15 # ref # text 80,18,{cut(80,18,8,"")},DBCFONT,cols=8 # expected dt text 89,18,{cut(89,18,11,"")},DBCFONT,cols=11 # customer # detail erase "!@vcol2+1,20,vcol2+1,60",0,0,1,1 erase "!@desc_pos-1,20,desc_pos-1,60",0,0,1,1 erase "!@63,20,63,60",0,0,1,1 erase "!@73,20,73,60",0,0,1,1 erase "!@76,20,76,60",0,0,1,1 erase "!@86,20,86,60",0,0,1,1 erase "!@89,20,69,80",0,0,1,1 cbox LEFTCOL,19,RIGHTCOL,60,MBOXSIZE, crows=21::DSHADE,ccols=63 73 76 86 89 cbox {vcol2+1},19,{desc_pos-1},60 # detail headers cfont {vcol1},20,{vcol2},20,IFONT,IJUST,proper # vndr-item cfont {icol1},20,{icol2},20,IFONT,IJUST,proper # item cfont {desc_pos},20,63,20,IFONT,proper # desc cfont 64,20,72,20,IRFONT,proper # units cfont 74,20,75,20,ICFONT # uom cfont 77,20,85,20,IRFONT,proper # cost cfont 87,20,88,20,ICFONT # uom cfont 90,20,MAXRCOLS,20,IRFONT,proper # extension # handle line remarks font "mL@1,22,63,59",3,0,80,1,DFONT,8 # memo lines erase "mL@1,22,63,59",0,0,2,1 # spec chars # watermark - large font with light shading WATERMARK 1,{59-9*(wmlines-1)},{wdoc_title$},cgtimes,120, shade=WATERMARK_SHADE,center,cols=MAXCOLS, fit,spacing=1 # footer cerase 56,62,MAXCOLS,62 cerase 56,64,MAXCOLS,64 cerase 56,60,56,64 cerase 68,60,68,64 cerase 78,60,78,64 cerase 87,60,87,64 cbox LEFTCOL,60,RIGHTCOL,MAXROWS,MBOXSIZE cfont 57,61,67,61,IBRFONT,proper # amt cfont 69,61,77,61,IBRFONT,proper # tax cfont 79,61,86,61,IBRFONT,proper # frt cfont 88,61,MAXRCOLS,61,IBRFONT,9,proper # tot cfont 57,63,67,63,DBRFONT # amt cfont 69,63,77,63,DBRFONT # tax cfont 79,63,86,63,DBRFONT # frt cfont 88,63,MAXRCOLS,63,DBRFONT,9 # tot cfont 1,61,55,65,IFONT # comments cfont 57,65,MAXRCOLS,65,IFONT # resale license text MAXRCOLS,65,{cont$},DBRFONT [Enhance-S/O_Quote] #dsn_sample "/u0/unform_test/infor/txt/SOquoteprint1page.txt" #dsn_sample "/u0/unform_test/infor/txt/SOquoteprint2pagelongnotes.txt" dsn_sample "/u0/unform_test/infor/txt/SOquoteprint2pageregnotes.txt" detect 0,2,"^QUOTE" detect 0,16,"^EXPIRES" # set up document constants const MAXCOLS=80 const MAXRCOLS=79 const LEFTCOL=1 # left vertical line const RIGHTCOL=80 # right vertical line const MAXROWS=66 # max rows to output cols MAXCOLS # max output columns rows MAXROWS # max output rows page MAXROWS # max input rows const CUSTOMER_COPY=1 const FILE_COPY=2 const MAX_COPIES=2 pcopies MAX_COPIES portrait dpi 600 # see global constant above GSON # graphical shading title "S/O Quote" # view in pdf properties prejob { dim copy_title$[MAX_COPIES] if MAX_COPIES>=1 then copy_title$[CUSTOMER_COPY]="Customer Copy" if MAX_COPIES>=2 then copy_title$[FILE_COPY]="Accounting Copy" } prepage { # skip if extra page is created by extra lines if trim(get(72,3,8))="" then skip=1 reprint$=trim(get(72,2,7)) doc_title$=trim(get(35,2,5)) merge "Mrg get watermark text" xcol=20,xrow=3,xcols=46,tpos=2 merge "Mrg get company info" xrow=22 merge "Mrg get desc pos" xrow=22,yrow=60,ipos=2 merge "Mrg find memos" cont$="" if get(71,63,9)<>"CONTINUED" then exec("cbox 24,60,RIGHTCOL,64,1,crows=62::HSHADE,ccols=36 48 58 67") if get(71,63,9)="CONTINUED" then cont$="Continued on next page",x$=set(71,63,9,"") } # erase columns ! vline "!!",erase # erase rows - or = hline "==",erase hline "--",erase hline "^^" # default line enhancement const BROW=24 const EROW=60 cfont 2,BROW,{desc_pos-2},EROW,DBFONT,IJUST # item cfont {desc_pos},BROW,42,EROW,DFONT # desc cfont 44,BROW,52,EROW,DBRFONT # ordered cfont 54,BROW,55,EROW,DBCFONT # uom cfont 57,BROW,65,EROW,DBRFONT # price cfont 67,BROW,68,EROW,DBCFONT # uom cfont 70,BROW,MAXRCOLS,EROW,DBRFONT # extension # header section cerase 1,1,MAXCOLS,10 cbox LEFTCOL,1,RIGHTCOL,MAXROWS,MBOXSIZE,crows=10:MBOXSIZE merge "Mrg form header" # handle copy title cbox 65,3.75,RIGHTCOL,5.25,1,100 text 66,4.6,{copy_title$[copy]},HBCFONT,12,cols=13,shade 0 # right header cbox 65,5.5,RIGHTCOL,10,1,ccols=72::ISHADE,crows=7 8.5 text 66,6.25,"Number",IFONT,cols=9 text 66,7.75,"Date",IFONT,cols=9 text 66,9.25,"Page",IFONT,cols=9 text 73,6.25,{trim(get(72,3,8))},DBFONT,cols=8 text 73,7.75,{trim(get(71,7,8))},DBFONT,cols=8 text 73,9.25,{trim(get(77,5,3))},DBFONT,cols=3 # ship to section cbox LEFTCOL,10,RIGHTCOL,15,MBOXSIZE,ccols=10::ISHADE 41 50::ISHADE text 2,11,"Ship To:",ICFONT,cols=8 text 2,12,{trim(get(15,10,15))},DBCFONT,cols=8 text 11,11,{mcut(7,11,35,4,"","Y","Y")},DBFONT,cols=35 # bill to section text 42,11,"Bill To:",ICFONT,cols=8 text 42,12,{trim(get(57,10,23))},DBCFONT,cols=8 text 51,11,{mcut(49,11,31,4,"","Y","Y")},DBFONT,cols=30 # ribbon 1 section cerase 17,15,17,19 cerase 27,15,27,19 cerase 32,15,32,19 cerase 48,15,48,19 cerase 52,15,52,19 cerase 60,15,60,19 cbox LEFTCOL,15,RIGHTCOL,21,MBOXSIZE cbox LEFTCOL,15,RIGHTCOL,19,1,crows=17::ISHADE, ccols=17 27 32 48 52 60 cfont 2,16,16,16,ICFONT,proper # ref # cfont 18,16,26,16,ICFONT,proper # expires cfont 28,16,31,16,ICFONT,proper # salesperson cfont 33,16,47,16,ICFONT,proper # terms cfont 49,16,51,16,ICFONT,proper # whs cfont 53,16,59,16,ICFONT,proper # frt cfont 61,16,MAXRCOLS,16,ICFONT,proper # ship via cfont 2,18,16,18,DBCFONT # ref # cfont 18,18,26,18,DBCFONT # expires cfont 28,18,31,18,DBCFONT # salesperson cfont 33,18,47,18,DBCFONT # terms cfont 49,18,51,18,DBCFONT # whs cfont 53,18,59,18,DBCFONT # frt cfont 61,18,MAXRCOLS,18,DBCFONT # ship via # ribbon 2 section cbox LEFTCOL,19,RIGHTCOL,21,1,ccols=12::ISHADE 17 27::ISHADE cfont 2,20,11,20,IRFONT,proper cfont 13,20,16,20,DBFONT # quoted by cmove 18,20,27,20,17,20 cfont 17,20,26,20,IRFONT,proper # quoted to cfont 28,20,MAXRCOLS,20,DBFONT # detail heading cerase {desc_pos-1},21,{desc_pos-1},60 erase "!@43,22,43,60",0,0,1,1 erase "!@53,22,53,60",0,0,1,1 erase "!@56,22,56,60",0,0,1,1 erase "!@66,22,66,60",0,0,1,1 erase "!@69,22,69,60",0,0,1,1 cbox LEFTCOL,21,RIGHTCOL,60,MBOXSIZE,crows=23::DSHADE, ccols=43 53 56 66 69 cbox {desc_pos-1},21,{desc_pos-1},60 cfont 2,22,{desc_pos-2},22,IFONT,IJUST,proper # item cfont {desc_pos},22,42,22,IFONT,proper # desc cfont 44,22,52,22,IRFONT,proper # ordered cfont 54,22,55,22,ICFONT # uom cfont 57,22,65,22,IRFONT,proper # price cfont 67,22,68,22,ICFONT # uom cfont 70,22,MAXRCOLS,22,IRFONT,proper # extension # handle memo lines font "mL@2,24,25,62",3,0,80,1,DFONT # memo lines erase "mL@2,24,40,62",0,0,2,1 # spec chars # watermark - large font with light shading WATERMARK 1,{58-9*(wmlines-1)},{wdoc_title$},cgtimes,120, shade=WATERMARK_SHADE,center,cols=MAXCOLS, fit,spacing=1 # footer cerase 24,60,24,64 cerase 36,60,36,64 cerase 48,60,48,64 cerase 58,60,58,64 cerase 67,60,67,64 cbox LEFTCOL,60,RIGHTCOL,MAXROWS,MBOXSIZE cfont 25,61,35,61,IBRFONT,proper # merch cfont 37,61,47,61,IBRFONT,proper # misc cfont 49,61,57,61,IBRFONT,proper # tax cfont 59,61,66,61,IBRFONT,proper # frt cfont 68,61,MAXRCOLS,61,IBRFONT,10,proper # tot cfont 25,63,35,63,DBRFONT # merchandise cfont 37,63,47,63,DBRFONT # misc cfont 49,63,57,63,DBRFONT # tax cfont 59,63,66,63,DBRFONT # frt cfont 68,63,MAXRCOLS,63,DBRFONT,10 # tot cfont 2,65,60,65,DFONT text 1,65,{cont$},DBRFONT,cols=MAXRCOLS [Enhance-A/R_Statement] #dsn_sample "/u0/unform_test/infor/txt/ARStatement1pagenorecap.txt" #dsn_sample "/u0/unform_test/infor/txt/ARStatement1pagerecap.txt" #dsn_sample "/u0/unform_test/infor/txt/ARStatement1pagesortbushipto.txt" dsn_sample "/u0/unform_test/infor/txt/ARStatement2pageNotearoff.txt" #dsn_sample "/u0/unform_test/infor/txt/ARStatement2pageRecap.txt" #dsn_sample "/u0/unform_test/infor/txt/ARStatement2pagesortbyship.txt" detect 0,2,"^statement" detect 0,16,"^pymt dte" # set up document constants const MAXCOLS=75 # max cols to output const MAXRCOLS=74 # MAXCOLS-1 const LEFTCOL=1 # left vertical line const RIGHTCOL=75 # right vertical line const MAXROWS=66 # max rows to output cols MAXCOLS # max output columns rows MAXROWS # max output rows page MAXROWS # max input rows const CUSTOMER_COPY=1 const REMITTANCE_COPY=2 const FILE_COPY=3 const RECAP_COPY=4 const MAX_COPIES=4 pcopies MAX_COPIES portrait dpi 600 # see global constant above GSON # graphical shading title "A/R Statement" # view in pdf properties prejob { dim copy_title$[MAX_COPIES] if MAX_COPIES>=1 then copy_title$[CUSTOMER_COPY]="Customer Copy" if MAX_COPIES>=2 then copy_title$[REMITTANCE_COPY]="Remittance Copy" if MAX_COPIES>=3 then copy_title$[FILE_COPY]="Accounting Copy" if MAX_COPIES>=4 then copy_title$[RECAP_COPY]="Recap Copy" } prepage { xcol=20,xrow=4,xcols=38,tpos=2 merge "Mrg get company info" cust_code$=trim(get(5,10,25)) msg_row=61 # look for remark lines for i=18 to 61 if mid(text$[i],1,3)="!==" or mid(text$[i],1,3)="!--" then msg_row=i;exitto end_look next i end_look: } precopy { if copy=RECAP_COPY and cust_code$<>"RECAP" then skip=1 if copy<>RECAP_COPY and cust_code$="RECAP" then skip=1 doc_title$="STATEMENT" if copy=RECAP_COPY then doc_title$="STATEMENT RECAP" merge "Mrg get watermark text" doc_title$="STATEMENT" } # erase columns ! vline "!!",erase # erase rows - or = hline "==",erase hline "--",erase hline "^^" # erase tearoff section cerase 76,1,98,MAXROWS # header section cerase 1,1,MAXCOLS,10 cbox LEFTCOL,1,RIGHTCOL,MAXROWS,MBOXSIZE,crows=10:MBOXSIZE merge "Mrg form header" # handle copy title cbox 62,3.75,RIGHTCOL,5.25,1,100 text 63,4.6,{copy_title$[copy]},HBCFONT,12,cols=11,shade 0 # right header cbox 62,7,RIGHTCOL,10,crows=8.5,ccols=68::ISHADE text 63,7.75,"Date",IFONT,cols=5 text 63,9.25,"Page",IFONT,cols=5 text 69,7.75,{trim(get(65,7,8))},DBFONT,cols=7 text 69,9.25,{trim(get(71,5,3))},DBFONT,cols=7 # to section if copy CUSTOMER_COPY,REMITTANCE_COPY,FILE_COPY cbox LEFTCOL,10,RIGHTCOL,15,MBOXSIZE,ccols=11::ISHADE text 2,11,"To:",ICFONT,cols=9 text 2,12,{cust_code$},DBCFONT,cols=9 cfont 12,11,51,14,DBFONT # to addr endif # detail erase "!@1,16,MAXCOLS,16",0,0,1,1 if copy REMITTANCE_COPY cbox 28,15,28,{msg_row} text 24,15.5,"Mark for",ICFONT,cols=4 text 24,16.5,"Payment",ICFONT,cols=4 endif if copy CUSTOMER_COPY,REMITTANCE_COPY,FILE_COPY cbox LEFTCOL,15,MAXCOLS,{msg_row},MBOXSIZE,crows=17::DSHADE,ccols=10 18 23 39 48 60 63 75 cfont 2,16,9,16,ICFONT,proper # dt cfont 11,16,17,16,ICFONT,proper # inv # cfont 19,16,26,16,IFONT,proper # due dt cfont 28,16,38,16,IRFONT,proper # amt cfont 40,16,47,16,ICFONT,proper # pymt dt cfont 49,16,59,16,IRFONT,proper # pymt amt cfont 61,16,62,16,ICFONT,proper # type cfont 64,16,74,16,IBRFONT,proper # bal # default detail line cfont 2,18,9,60,DBCFONT # dt cfont 11,18,17,60,DCFONT # inv # cfont 19,18,26,60,DFONT # duedt cfont 28,18,38,60,DBRFONT # amt cfont 40,18,47,60,DCFONT # dt cfont 49,18,59,60,DBRFONT # amt cfont 61,18,62,60,DCFONT # type cfont 64,18,74,60,DBRFONT # bal # handle ship-to header font "Ship-to@3,18,9,60",-1,0,8,1,DBCFONT font "Ship-to@3,18,9,60",9,0,40,1,DBFONT # handle ship-to totals erase "SHIP-TO TOTAL@50,18,62,60",13,-1,13,1 box "SHIP-TO TOTAL@50,18,62,60",-2,-.75,27,1.5,1,DSHADE font "SHIP-TO TOTAL@50,18,62,60",-1,0,14,1,DBFONT font "SHIP-TO TOTAL@50,18,62,60",13,0,12,1,DBRFONT,10 end if if copy RECAP_COPY cerase 1,9,MAXCOLS,60 text 1,58,"TOTAL DUE RECAP",HBCFONT,14,cols=MAXCOLS text 1,60,{proper(trim(get(12,11,30)))},HBCFONT,12,cols=MAXCOLS end if # watermark - large font with light shading WATERMARK 1,{msg_row-1-9*(wmlines-1)},{wdoc_title$},cgtimes,120, shade=WATERMARK_SHADE,center,cols=MAXCOLS, fit,spacing=1 # message area if copy CUSTOMER_COPY,REMITTANCE_COPY,FILE_COPY cbox LEFTCOL,{msg_row},RIGHTCOL,61 cfont 2,{msg_row},62,61,IFONT,black end if # footer erase "!@1,62,MAXCOLS,62",0,0,1,1 erase "!@1,64,MAXCOLS,64",0,0,1,1 cbox "!=CONTINUED@66,64,74,64",-65,-3,75,65, crows=63::HSHADE,ccols=14 26 38 50 62 cfont 3,62,13,62,IBRFONT,proper cfont 15,62,25,62,IBRFONT,proper cfont 27,62,37,62,IBRFONT,proper cfont 39,62,49,62,IBRFONT,proper cfont 51,62,61,62,IBRFONT,proper cfont 63,62,74,62,IBRFONT,11,proper cfont 3,64,13,64,DBRFONT cfont 15,64,25,64,DBRFONT cfont 27,64,37,64,DBRFONT cfont 39,64,49,64,DBRFONT cfont 51,64,61,64,DBRFONT cfont 63,64,74,64,DBRFONT,12 erase "CONTINUED@66,64",0,-2,9,1 font "CONTINUED@66,64",0,0,9,1,IBFONT,12 [Enhance-I/C_transfer_ticket] #dsn_sample "/u0/unform_test/infor/txt/ICtransferticket1page.txt" dsn_sample "/u0/unform_test/infor/txt/ICtransferticket2pagenotes30.txt" #dsn_sample "/u0/unform_test/infor/txt/ICtransferticket2pagepagenotes.txt" detect 0,2,"^TRANSFER TICKET PRINT" # set up document constants const MAXCOLS=85 const MAXRCOLS=84 const LEFTCOL=1 # left vertical line const RIGHTCOL=85 # right vertical line const MAXROWS=66 # max rows to output cols MAXCOLS # max output columns rows MAXROWS # max output rows page MAXROWS # max input rows const WAREHOUSE_COPY=1 const FILE_COPY=2 const MAX_COPIES=2 pcopies MAX_COPIES portrait dpi 600 # see global constant above GSON # graphical shading title "I/C Transfer Ticket" # view in pdf properties prejob { dim copy_title$[MAX_COPIES] if MAX_COPIES>=1 then copy_title$[WAREHOUSE_COPY]="Warehouse Copy" if MAX_COPIES>=2 then copy_title$[FILE_COPY]="Accounting Copy" } prepage { reprint$=trim(get(77,2,7)) doc_title$=trim(get(33,2,15)) merge "Mrg get watermark text" xcol=20,xrow=3,xcols=46,tpos=2 merge "Mrg get company info" xrow=20 merge "Mrg get desc pos" xrow=22,yrow=62,ipos=2 merge "Mrg find memos" cont$="" if get(75,63,9)="CONTINUED" then cont$="Continued on next page";s$=cut(75,63,9,"") } # erase columns ! vline "!!",erase # erase rows - or = hline "==",erase hline "--",erase hline "^^" # default line enhancement const BROW=22 const EROW=61 cfont 2,BROW,{desc_pos-2},EROW,DBFONT,IJUST # item cfont {desc_pos},BROW,42,EROW,DFONT # desc cfont 44,BROW,52,EROW,DBRFONT # ordered cfont 54,BROW,59,EROW,DBRFONT # ship cfont 61,BROW,65,EROW,DBRFONT # back cfont 67,BROW,68,EROW,DBCFONT # uom cfont 70,BROW,77,EROW,DBRFONT # wt cfont 79,BROW,MAXRCOLS,EROW,DBRFONT # loc # header section cerase 1,1,MAXCOLS,10 cbox LEFTCOL,1,RIGHTCOL,MAXROWS,MBOXSIZE,crows=10:MBOXSIZE merge "Mrg form header" # handle copy title cbox 67,3.75,RIGHTCOL,5.25,1,100 text 68,4.6,{copy_title$[copy]},HBCFONT,12,cols=16,shade 0 # right header cbox 67,5.5,RIGHTCOL,10,1,ccols=75::ISHADE,crows=7 8.5 text 68,6.25,"Number",IFONT,cols=7 text 68,7.75,"Date",IFONT,cols=7 text 68,9.25,"Page",IFONT,cols=7 text 76,6.25,{trim(get(78,3,6))},DBFONT,cols=6 text 76,7.75,{trim(get(76,7,8))},DBFONT,cols=8 text 76,9.25,{trim(get(82,5,3))},DBFONT,cols=3 # to whse section cbox LEFTCOL,10,RIGHTCOL,15,MBOXSIZE,ccols=6::ISHADE 48 53::ISHADE text 2,11,"To",ICFONT,cols=4 text 2,12,"Whse:",ICFONT,cols=4 text 2,13,{trim(get(16,10,15))},DBCFONT,cols=4 text 7,11,{mcut(7,11,35,4,"","Y","Y")},DBFONT,cols=35 # ship to section text 49,11,"From",ICFONT,cols=4 text 49,12,"Whse:",ICFONT,cols=4 text 49,13,{trim(get(65,10,15))},DBCFONT,cols=4 text 54,11,{mcut(54,11,31,4,"","Y","Y")},DBFONT,cols=31 # ribbon 1 section cerase 17,16,17,18 cerase 26,16,26,18 cerase 36,16,36,18 cerase 69,16,69,18 cbox LEFTCOL,15,RIGHTCOL,19,MBOXSIZE,crows=17::ISHADE, ccols=17 26 36 69 cfont 2,16,16,16,ICFONT,proper # ref # cfont 18,16,25,16,ICFONT,proper # ordered dt cfont 27,16,35,16,ICFONT,proper # requested dt cfont 70,16,MAXRCOLS,16,ICFONT,proper # ship via cfont 2,18,16,18,DBCFONT # ref # cfont 18,18,25,18,DBCFONT # ordered dt cfont 27,18,35,18,DBCFONT # requested dt cfont 70,18,MAXRCOLS,18,DBCFONT # ship via # detail heading cerase {desc_pos-1},20,{desc_pos-1},61 erase "!@43,20,43,61",0,0,1,1 erase "!@53,20,53,61",0,0,1,1 erase "!@60,20,60,61",0,0,1,1 erase "!@66,20,66,61",0,0,1,1 erase "!@69,20,69,61",0,0,1,1 erase "!@78,20,78,61",0,0,1,1 cbox LEFTCOL,19,RIGHTCOL,62,MBOXSIZE,crows=21::DSHADE, ccols=46 53 60 66 69 78 cbox {desc_pos-1},19,{desc_pos-1},62 cfont 2,20,{desc_pos-2},20,IFONT,IJUST,proper # item cfont {desc_pos},20,42,20,IFONT,proper # desc cfont 44,20,52,20,IRFONT,proper # ordered cfont 54,20,59,20,IRFONT,proper # ship cfont 61,20,65,20,IRFONT,proper # back cfont 67,20,68,20,ICFONT # uom cfont 70,20,77,20,IRFONT,proper # wt cfont 79,20,MAXRCOLS,20,IRFONT,proper # loc # handle memo lines font "mL@2,22,25,61",3,0,80,1,DFONT # memo lns erase "mL@2,22,40,61",0,0,2,1 # spc chars # handle alternate location lines font "Alt Loc: ",0,0,8,1,DFONT # title font "Alt Loc: ",9,0,60,1,DBFONT # alt locs # watermark - large font with light shading WATERMARK 1,{60.5-9*(wmlines-1)},{wdoc_title$},cgtimes,120, shade=WATERMARK_SHADE,center,cols=MAXCOLS, fit,spacing=1 # footer cbox LEFTCOL,62,RIGHTCOL,MAXROWS,MBOXSIZE box "TOTAL WEIGHT",-2,-1,25,2,1,icols=16::HSHADE font "TOTAL WEIGHT",0,0,14,1,IBRFONT,10,PROPER # title font "TOTAL WEIGHT",15,0,8,1,DBRFONT,10 # tot wt cfont 2,63,53,64,DFONT cfont 2,65,MAXRCOLS,65,DFONT text MAXCOLS,{MAXROWS-1},{cont$},DRFONT [Enhance-I/C_transfer_fill_report] dsn_sample "/u0/unform_test/infor/txt/ICtransferfillreport.txt" detect 0,2,"^DOCUMENT FILL REPORT - TRANSFERS" # set up document constants const MAXCOLS=134 const MAXRCOLS=133 const LEFTCOL=1 # left vertical line const RIGHTCOL=134 # right vertical line const MAXROWS=62 # max rows to output cols MAXCOLS # max output columns rows MAXROWS # max output rows page MAXROWS # max input rows const MAX_COPIES=1 pcopies MAX_COPIES landscape dpi 600 # see global constant above GSON # graphical shading title "I/C Transfer Fill Report" # view in pdf properties prepage { merge "Mrg load row 1 variables" merge "Mrg load row 2 variables" if trim(get(20,7,20))="DESCRIPTION" then erow=7 if trim(get(20,5,20))="DESCRIPTION" then erow=5 } cmove 1,1,MAXCOLS,MAXROWS,2,1 # default enhancement line cfont 2,1,21,MAXROWS,DBRFONT # item # cfont 23,1,53,MAXROWS,DFONT # desc cfont 55,1,62,MAXROWS,DBRFONT # rcvd cfont 64,1,65,MAXROWS,DBCFONT # um cfont 67,1,72,MAXROWS,DBRFONT # order # cfont 74,1,76,MAXROWS,DBFONT # ln # cfont 78,1,79,MAXROWS,DBCFONT # p cfont 81,1,86,MAXROWS,DBCFONT # bin loc cfont 88,1,95,MAXROWS,DBCFONT # req date cfont 97,1,119,MAXROWS,DFONT # customer cfont 120,1,130,MAXROWS,DBRFONT # B/O + comm cfont 132,1,133,MAXROWS,DBCFONT # um # header merge "Mrg report header" # subheader cfont "~^[A-Z]@2,4,2,5",0,0,MAXRCOLS,1,IFONT # detail heading cfont 2,{erow-1},21,{erow},IRFONT,7,proper # item # cfont 23,{erow-1},53,{erow},IFONT,7,proper # desc cfont 55,{erow-1},62,{erow},IRFONT,7,proper # rcvd cfont 64,{erow-1},65,{erow},ICFONT,7,proper # um cfont 67,{erow-1},72,{erow},IRFONT,7,proper # order # cfont 74,{erow-1},76,{erow},IFONT,7,proper # ln # cfont 78,{erow-1},79,{erow},ICFONT,7,proper # p cfont 81,{erow-1},86,{erow},IFONT,7,proper # bin loc cfont 88,{erow-1},95,{erow},ICFONT,7,proper # req date cfont 97,{erow-1},119,{erow},IFONT,7,proper # customer cfont 120,{erow-1},130,{erow},IRFONT,7,black,proper # B/O + comm cfont 132,{erow-1},133,{erow},ICFONT,7,proper # um hline "==",extend # Ticket# line font "Ticket#:@1,7,MAXCOLS,MAXROWS",0,0,8,1,DFONT # ticket title font "Ticket#:@1,7,MAXCOLS,MAXROWS",9,0,7,1,DBFONT # ticket # font "Whse:@1,7,MAXCOLS,MAXROWS",0,0,5,1,DFONT # whse title font "Whse:@1,7,MAXCOLS,MAXROWS",6,0,30,1,DBFONT # whse font "From Whse:@1,7,MAXCOLS,MAXROWS",0,0,10,1,DRFONT # from whse title font "From Whse:@1,7,MAXCOLS,MAXROWS",11,0,3,1,DBFONT # from whse # ship# line font "SHIP #:@1,7,MAXCOLS,MAXROWS",0,0,7,1,DRFONT,proper # from whse title font "SHIP #:@1,7,MAXCOLS,MAXROWS",8,0,6,1,DBFONT # from whse # footer font "ITEMS:",0,-2,MAXCOLS,1,IBFONT font "ITEMS:",0,0,20,1,IBFONT,proper font "End of Report",0,0,13,1,IBRFONT [Enhance-S/O_Counter] #dsn_sample "/u0/unform_test/infor/txt/SOcountersales2pagelongnotes.txt" #dsn_sample "/u0/unform_test/infor/txt/SOcountersales2pagelongnotes.txt" #dsn_sample "/u0/unform_test/infor/txt/SOcountersale2pageshortnotes.txt" detect 0,2,"^INVOICE" detect 0,16,"^CHECK/CARD#" # set up document constants const MAXCOLS=80 const MAXRCOLS=79 const LEFTCOL=1 # left vertical line const RIGHTCOL=80 # right vertical line const MAXROWS=66 # max rows to output cols MAXCOLS # max output columns rows MAXROWS # max output rows page MAXROWS # max input rows const CUSTOMER_COPY=1 const FILE_COPY=2 const MAX_COPIES=2 pcopies MAX_COPIES portrait dpi 600 # see global constant above GSON # graphical shading title "S/O Counter Invoice" # view in pdf properties prejob { dim copy_title$[MAX_COPIES] if MAX_COPIES>=1 then copy_title$[CUSTOMER_COPY]="Customer Copy" if MAX_COPIES>=2 then copy_title$[FILE_COPY]="Accounting Copy" } prepage { if trim(get(37,2,8))="INVOICE" then goto nomove for row=1 to 66 text$[row] = text$[row+1] next row if trim(get(37,2,8))<>"INVOICE" then skip=1 nomove: reprint$=trim(get(71,2,8)) doc_title$=trim(get(37,2,8)) merge "Mrg get watermark text" xcol=20,xrow=3,xcols=46,tpos=2 merge "Mrg get company info" xrow=20 merge "Mrg get desc pos" xrow=22,yrow=61,xcols=MAXCOLS-2 merge "Mrg find detail bottom" xrow=22,yrow=detail_bottom,ipos=2 merge "Mrg find memos" xrow=detail_bottom+1,yrow=59 merge "Mrg find prepayment" if trim(get(71,61,5))="TOTAL" then exec("cbox LEFTCOL,60,RIGHTCOL,MAXROWS,MBOXSIZE");exec("cbox 23,60,RIGHTCOL,64,1,crows=62::HSHADE, ccols=36 46 57 68") cont$="" if get(71,63,9)="CONTINUED" then cont$="Continued on next page",x$=set(71,63,9,"") if get(71,64,9)="CONTINUED" then cont$="Continued on next page",x$=set(71,64,9,"") } # erase columns ! vline "!!",erase # erase rows - or = hline "==",erase hline "--",erase hline "^^" # default line enhancement const BROW=22 const EROW=60 cfont 2,BROW,{desc_pos-2},EROW,DBFONT,IJUST # item cfont {desc_pos},BROW,42,EROW,DFONT # desc cfont 44,BROW,52,EROW,DBRFONT # quantity cfont 54,BROW,55,EROW,DBRFONT # uom cfont 57,BROW,65,EROW,DBRFONT # price cfont 67,BROW,68,EROW,DBCFONT # uom cfont 70,BROW,MAXRCOLS,EROW,DBRFONT # extension # header section cerase 1,1,MAXCOLS,10 cbox LEFTCOL,1,RIGHTCOL,MAXROWS,MBOXSIZE,crows=10:MBOXSIZE merge "Mrg form header" # handle copy title cbox 64,3.75,RIGHTCOL,5.25,1,100 text 65,4.6,{copy_title$[copy]},HBCFONT,12,cols=15,shade 0 # right header cerase 60,10,MAXCOLS,15 cbox 64,5.5,RIGHTCOL,10,1,ccols=72::ISHADE,crows=7 8.5 text 65,6.25,"Number",IFONT,cols=7 text 65,7.75,"Date",IFONT,cols=7 text 65,9.25,"Page",IFONT,cols=7 text 73,6.25,{trim(get(71,10,8))},DBFONT,cols=8 text 73,7.75,{trim(get(71,14,8))},DBFONT,cols=8 text 73,9.25,{trim(get(71,12,8))},DBFONT,cols=8 # sold to section cbox LEFTCOL,10,RIGHTCOL,15,MBOXSIZE,ccols=10::ISHADE text 2,11,"Sold To:",IFONT,cols=8 text 2,12,{trim(get(14,10,25))},DBFONT,cols=8 cmove 6,11,41,14,11,11 cfont 11,11,41,14,DBFONT # sold to addr # ribbon 1 section cerase 69,16,75,16 cerase 6,15,6,19 cerase 22,15,22,19 cerase 43,15,43,19 cerase 49,15,49,19 cerase 52,15,52,19 cerase 68,15,68,19 cbox LEFTCOL,15,RIGHTCOL,19,MBOXSIZE,crows=17::ISHADE, ccols=6 22 43 49 52 68 cfont 1,16,5,16,ICFONT,proper # salesperson cfont 7,16,21,16,ICFONT,proper # terms cfont 23,16,42,16,ICFONT,proper # check/card # cfont 44,16,48,16,ICFONT,proper # tax % cfont 50,16,51,16,ICFONT,proper # whs cfont 53,16,67,16,ICFONT,proper # ref # text 69,16,"Receipt #",ICFONT,cols=11 # receipt # cfont 1,18,5,18,DBCFONT # salesperson cfont 7,18,21,18,DBCFONT # terms cfont 23,18,42,18,DBCFONT # check/card # cfont 44,18,48,18,DBCFONT # tax % cfont 50,18,51,18,DBCFONT # whs cfont 53,18,67,18,DBCFONT # ref # cfont 69,18,MAXRCOLS,18,DBCFONT # receipt # # detail heading cerase {desc_pos-1},20,{desc_pos-1},{detail_bottom} erase "!@43,20,43,61",0,0,1,1 erase "!@53,20,53,61",0,0,1,1 erase "!@56,20,56,61",0,0,1,1 erase "!@66,20,66,61",0,0,1,1 erase "!@69,20,69,61",0,0,1,1 cbox LEFTCOL,19,RIGHTCOL,{detail_bottom},MBOXSIZE,crows=21::DSHADE, ccols=43 53 56 66 69 cbox {desc_pos-1},19,{desc_pos-1},{detail_bottom} cfont 2,20,{desc_pos-2},20,IFONT,IJUST,proper # item cfont {desc_pos},20,42,20,IFONT,proper # desc cfont 44,20,52,20,IRFONT,proper # quantity cfont 54,20,55,20,ICFONT # uom cfont 57,20,65,20,IRFONT,proper # price cfont 67,20,68,20,ICFONT # uom cfont 70,20,MAXRCOLS,20,IRFONT,proper # extension # enhance memo lines font "mL@2,22,25,60",3,0,70,1,DFONT # memo lines erase "mL@2,22,40,60",0,0,2,1 # spec chars # enhance serial # lines font "sL@2,22,25,60",3,0,4,1,DFONT # serial lines font "sL@2,22,25,60",8,0,20,1,DFONT # serial lines erase "sL@2,22,40,60",0,0,2,1 # spec chars # handle payment info font "pL@13,22,14,60",2,0,14,1,DFONT # pymt desc font "pL@13,22,14,60",17,0,12,1,DBRFONT # pymt amts font "pL@13,22,14,60",30,0,35,1,DFONT # pymt comment erase "pL@13,22,14,60",0,0,2,1 # spec chars # watermark - large font with light shading WATERMARK 1,{59.5-9*(wmlines-1)},{wdoc_title$},cgtimes,120, shade=WATERMARK_SHADE,center,cols=MAXCOLS, fit,spacing=1 # footer cerase 36,60,36,63 cerase 46,60,46,63 cerase 57,60,57,63 cerase 68,60,68,63 cfont 24,61,35,61,IBRFONT,proper # merchandise cfont 37,61,45,61,IBRFONT,proper # tax cfont 47,61,56,61,IBRFONT,proper # tendered cfont 58,61,67,61,IBRFONT,proper # cash back cfont 69,61,MAXRCOLS,61,IBRFONT,10,proper # tot due cfont 24,63,35,63,DBRFONT # merchandise cfont 37,63,45,63,DBRFONT # tax cfont 47,63,56,63,DBRFONT # tendered cfont 58,63,67,63,DBRFONT # cash back cfont 69,63,MAXRCOLS,63,DBRFONT,10 # tot due cfont 2,61,23,64,DFONT cfont 2,65,MAXRCOLS,65,DFONT text 1,65,{cont$},DBRFONT,cols=MAXRCOLS [Enhance-A/P_Check] dsn_sample "/u0/unform_test/infor/txt/APCheck.txt" detect 41,5,"~DATEMASK.." detect 60,5,"~([0-9][0-9][0-9][0-9][0-9][0-9])|(XXXXXX)" # Check # # set up document constants const MAXCOLS=84 # max cols to output const MAXRCOLS=83 # MAXCOLS-1 const LEFTCOL=1 # left vertical line const RIGHTCOL=84 # right vertical line const MAXROWS=66 # max rows to output cols MAXCOLS # max output columns rows MAXROWS # max output rows page 42 # max input rows const ONE_STUB_COPY=1 const TWO_STUB_COPY=2 const MAX_COPIES=2 pcopies MAX_COPIES portrait dpi 600 # see global constant above GSON # graphical shading title "A/P Check" # view in pdf properties prepage { # the following moves will leave a space between # the top two stubs # 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+24]=text$[i] next i chkno$=trim(get(60,5,6)) chk_amt_words$=trim(get(1,56,67))+" "+trim(get(1,57,67)) # get comp info from constants? addr3$="COMP_ADDR3" save_addr3$=addr3$ phone$="Phone: COMP_PHONES" if trim(phone$)="Phone:" then phone$="" if addr3$="" then addr3$=phone$,phone$="" } 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) if copy TWO_STUB_COPY # top section cbox 40,1.5,RIGHTCOL,5.5,1,crows=2.5::ISHADE 3.5 4.5::ISHADE,ccols=53 cbox 70,3.5,70,5.5 text 2,2,"COMP_NAME",HBFONT text 2,2.9,"COMP_ADDR1",HFONT text 2,3.8,"COMP_ADDR2",HFONT text 2,4.7,{addr3$},HFONT text 2,5.6,{phone$},HFONT text 41,2,"Vendor #",ICFONT,cols=12 text 54,2,"Vendor Name",ICFONT,cols=29 cfont 41,3,52,3,DBCFONT # vendor # cfont 54,3,MAXRCOLS,3,DBCFONT # vendor name text 41,4,"Check Date",ICFONT,cols=12 text 54,4,"Check #",ICFONT,cols=16 text 71,4,"Page #",ICFONT,cols=12 cfont 41,5,52,5,DBCFONT # check dt cfont 54,5,69,5,DBCFONT # check # cfont 71,5,MAXRCOLS,5,DBCFONT # page # # detail cbox LEFTCOL,6.5,RIGHTCOL,20.5,1,crows=7.5::DSHADE, ccols=11 22 34 46 58 text 1,7,"Inv Date",ICFONT,cols=10 text 12,7,"Invoice #",ICFONT,cols=10 text 23,7,"Amount",IRFONT,cols=11 text 35,7,"Discount",IRFONT,cols=11 text 47,7,"Amount Paid",IRFONT,cols=11 text 59,7,"Memo",IFONT,cols=20 cfont 1,8,10,20,DBCFONT # inv dt cfont 12,8,21,20,DBCFONT # inv # cfont 23,8,33,20,DBRFONT # inv amt cfont 35,8,45,20,DBRFONT # discount cfont 47,8,57,20,DBRFONT # paid amt cfont 59,8,MAXCOLS,20,IFONT # memo # footer cbox 11,20.5,58,21.5,1,ccols=22::100 34 46 text 12,21,"Totals",IBFONT,shade 0 cfont 23,21,33,21,DBRFONT # inv amt cfont 35,21,45,21,DBRFONT # discount cfont 47,21,57,21,DBRFONT # paid amt text 1,21.5,"Payor's Copy",IBRFONT,cols=MAXRCOLS cbox LEFTCOL,23.5,RIGHTCOL,23.5 endif ########### Vendor Stub # top section cbox 40,25.5,RIGHTCOL,29.5,1,crows=26.5::ISHADE 27.5 28.5::ISHADE,ccols=53 cbox 70,27.5,70,29.5 text 2,26,"COMP_NAME",HBFONT text 2,26.9,"COMP_ADDR1",HFONT text 2,27.8,"COMP_ADDR2",HFONT text 2,28.7,{ADDR3$},HFONT text 2,29.6,{phone$},HFONT text 41,26,"Vendor #",ICFONT,cols=12 text 54,26,"Vendor Name",ICFONT,cols=29 cfont 40,27,52,27,DBCFONT # vendor # cfont 54,27,MAXRCOLS,27,DBCFONT # vendor name text 41,28,"Check Date",ICFONT,cols=12 text 54,28,"Check #",ICFONT,cols=16 text 71,28,"Page #",ICFONT,cols=12 cfont 41,29,52,29,DBCFONT # check dt cfont 54,29,69,29,DBCFONT # check # cfont 71,29,MAXRCOLS,29,DBCFONT # page # # detail cbox LEFTCOL,30.5,RIGHTCOL,44.5,1,crows=31.5::DSHADE, ccols=11 22 34 46 58 text 1,31,"Inv Date",ICFONT,cols=10 text 12,31,"Invoice #",ICFONT,cols=10 text 23,31,"Amount",IRFONT,cols=11 text 35,31,"Discount",IRFONT,cols=11 text 47,31,"Amount Paid",IRFONT,cols=11 text 59,31,"Memo",IFONT,cols=20 cfont 1,32,10,44,DBCFONT # inv dt cfont 12,32,21,44,DBCFONT # inv # cfont 23,32,33,44,DBRFONT # inv amt cfont 35,32,45,44,DBRFONT # discount cfont 47,32,57,44,DBRFONT # paid amt cfont 59,32,MAXCOLS,44,IFONT # memo # footer cbox 11,44.5,58,45.5,1,ccols=22::100 34 46 text 12,45,"Totals",IBFONT,shade 0,cols=6 cfont 23,45,33,45,DBRFONT # inv amt cfont 35,45,45,45,DBRFONT # discount cfont 47,45,57,45,DBRFONT # paid amt text 1,45.5,"Vendor's Copy",IBRFONT,cols=MAXRCOLS cbox LEFTCOL,46.5,RIGHTCOL,46.5 ########### Check cbox LEFTCOL,47,RIGHTCOL,64.5,MBOXSIZE LOGO_IMAGE 1,47,10,5,"COMP_LOGO" text 15,48.25,"COMP_NAME",HBFONT,14 text 15,49.35,"COMP_ADDR1",HFONT,12 text 15,50.35,"COMP_ADDR2",HFONT,12 text 15,51.35,"COMP_ADDR3",HFONT,12 text 49,48.25,"AP_BANK_NAME",DBFONT text 49,49.05,"AP_BANK_ADDR1",DFONT text 49,49.85,"AP_BANK_ADDR2",DFONT text 70,49.35,"AP_ROUTING",DBFONT # rtg # cmove 44,52,63,52,49,52 cbox 48,50.5,81,52.5,1,crows=51.5::100,ccols=57 69 text 49,51,"Check #",ICFONT,shade 0,cols=8 cfont 49,52,56,52,DBCFONT # chk # text 58,51,"Date",ICFONT,shade 0,cols=11 cfont 58,52,68,52,DBCFONT # chk dt cmove 69,56,79,56,70,52 # chk amt text 70,51,"Amount",IRFONT,shade 0,cols=11 cfont 70,52,80,52,DBRFONT # chk amt cerase 1,56,MAXCOLS,57 text 2,56,"Pay",IFONT,14 text 6.5,56,{chk_amt_words$},IBFONT,10,fit,cols=70 cmove 14,60,43,64,9,60 text 2,60,"Pay",IFONT text 2,61,"to the",IFONT text 2,62,"Order",IFONT text 2,63,"of",IFONT cfont 9,60,MAXRCOLS,63,DBFONT text 50,59.50,"Check Void After 180 Days",ICFONT,cols=30 SIGNATURE_IMAGE 50,61,0,0,"SIGNATURE" box 50,62.0,30,1,3 text 50,62.75,"Authorized Signature",ICFONT,cols=30 #AP_MICR 15,65.50,"AP_MICR_ACCOUNTNO",{chkno$} [Enhance-A/P_Vouchers] dsn_sample "/u0/unform_test/infor/txt/APVouchers.txt" detect 0,1,"^APP310" detect 0,2,"^check voucher" # set up document constants const MAXCOLS=80 # max cols to output const MAXRCOLS=79 # MAXCOLS-1 const LEFTCOL=1 # left vertical line const RIGHTCOL=80 # right vertical line const MAXROWS=66 # max rows to output cols MAXCOLS # max output columns rows MAXROWS # max output rows const MAX_COPIES=1 pcopies MAX_COPIES portrait dpi 600 # see global constant above GSON # graphical shading title "A/P Voucher" # view in pdf properties prepage { doc_title$=trim(get(1,2,MAXCOLS)) } # default line enhancements cfont 1,1,8,MAXROWS,DBCFONT # date cfont 10,1,19,MAXROWS,DCFONT # inv # cfont 21,1,30,MAXROWS,DBRFONT # amt cfont 32,1,41,MAXROWS,DBRFONT # disc cfont 43,1,52,MAXROWS,DBRFONT # paid amt cfont 54,1,MAXRCOLS,MAXROWS,DFONT # comments # header cerase 1,1,MAXCOLS,2 cbox LEFTCOL,.5,RIGHTCOL,2.75,MBOXSIZE,HSHADE text 2,1.25,{trim(get(1,1,15))},HBFONT text 1,1.25,{trim(get(16,1,50))},HBCFONT,14,cols=MAXCOLS text 1,1.25,{trim(get(75,1,6))},HBRFONT,cols=MAXRCOLS text 1,2.25,{doc_title$},HBCFONT,12,cols=MAXCOLS # ribbon info cfont 1,4,6,4,IRFONT,proper # check # title cfont 8,4,13,4,DBFONT # check # cfont 16,4,22,4,IFONT,proper # vendor cfont 24,4,MAXRCOLS,4,DBFONT # name & code # detail headings cerase 1,7,MAXCOLS,7 cbox LEFTCOL,5.5,RIGHTCOL,6.5,1,DSHADE cfont 1,6,8,6,ICFONT,proper # date cfont 10,6,19,6,ICFONT,proper # inv # cfont 21,6,30,6,IRFONT,proper # amt cfont 32,6,41,6,IRFONT,proper # disc cfont 43,6,52,6,IRFONT,proper # paid amt cfont 54,6,MAXRCOLS,6,IFONT,proper # comments # footer hline "---",erase box " ---------",2,0.5,32,1.01,1,HSHADE [Enhance-P/R_Check_long_stub] dsn_sample "/u0/unform_test/infor/txt/PRchecklong.txt" detect 51,2,"~ [0-9][0-9][0-9]-[0-9][0-9]-[0-9][0-9][0-9][0-9]" detect 66,49,"~ DATEMASK.." # set up document constants const MAXCOLS=83 # max cols to output const MAXRCOLS=82 # MAXCOLS-1 const LEFTCOL=1 # left vertical line const RIGHTCOL=83 # right vertical line const MAXROWS=66 # max rows to output cols MAXCOLS # max output columns rows MAXROWS # max output rows page 63 # max input rows const MAX_COPIES=1 pcopies MAX_COPIES portrait dpi 600 # see global constant above GSON # graphical shading title "P/R Check" # view in pdf properties prepage { chk_date$=trim(get(67,49,8)) # if stub date is missing, place check date there if trim(get(65,2,8))="" then x$=set(65,2,8,chk_date$) } # stub # header text 2,1,"COMP_NAME",HBFONT,14 text 35,1,"COMP_ADDR1",HBFONT,12 text 55,1,"COMP_ADDR2",HBFONT,12 # ribbon move 1,1,84,41,1,2 # dn 1 row cbox LEFTCOL,1.5,RIGHTCOL,3.5,MBOXSIZE,crows=2.5::ISHADE, ccols=16 50 64 74 text 2,2,"Dept",ICFONT,cols=13 text 17,2,"Employee name",ICFONT,cols=33 text 51,2,"Social Security #",ICFONT,cols=13 text 65,2,"Date",ICFONT,cols=9 text 75,2,"Check #",ICFONT,cols=8 cfont 2,3,14,3,DBCFONT # Department cfont 17,3,49,3,DBCFONT # Empl name cfont 51,3,63,3,DBCFONT # SSN cfont 65,3,73,3,DBCFONT # dt cfont 75,3,82,3,DBCFONT # check # # detail cbox LEFTCOL,3.5,RIGHTCOL,40.5,MBOXSIZE,crows=4.5::DSHADE, ccols=19 26 37 48:3 62 73 text 2,4,"Description",IFONT text 20,4,"Hours",IRFONT,cols=6 text 27,4,"Gross",IRFONT,cols=10 text 38,4,"YTD Gross",IRFONT,cols=10 text 49,4,"Deductions",IFONT text 63,4,"Deduct",IRFONT,cols=10 text 74,4,"Gross ded",IRFONT,cols=9 cfont 2,5,18,40,IFONT # desc cfont 20,5,25,40,DBRFONT # hours cfont 27,5,36,40,DBRFONT # gross cfont 38,5,47,40,DBRFONT # ytd gross cfont 49,5,61,40,IFONT # deductions cfont 63,5,72,40,DBRFONT # deduct cfont 74,5,82,40,DBRFONT # gross ded # footer cbox LEFTCOL,40.5,48,42.5,MBOXSIZE,ccols=26::100 37 cbox 62,40.5,RIGHTCOL,42.5,MBOXSIZE,ccols=73 text 2,41,"Gross totals",IBFONT,shade 0 text 2,42,"Net totals",IBFONT,shade 0 cfont 27,41,35,42,DBRFONT # gross cfont 37,41,47,42,DBRFONT # ytd gross cfont 63,41,72,42,DBRFONT # deduct cfont 74,41,82,42,DBRFONT # gross ded # check # header cbox 1,46,83,64.5,MBOXSIZE # check LOGO_IMAGE 1,46.5,10,5,"COMP_LOGO" text 15,48.25,"COMP_NAME",HBFONT,14 text 15,49.35,"COMP_ADDR1",HFONT,12 text 15,50.35,"COMP_ADDR2",HFONT,12 text 15,51.35,"COMP_ADDR3",HFONT,12 text 70,49.35,"PR_ROUTING",DFONT,cols=10 # rtg# text 49,48.25,"PR_BANK_NAME",DBFONT,cols=30 text 49,49.05,"PR_BANK_ADDR1",DFONT,cols=30 text 49,49.85,"PR_BANK_ADDR2",DFONT,cols=30 # ribbon cerase 1,47,84,51 cbox 48,50.5,81,52.5,1,crows=51.5::100,ccols=57 69 text 49,51,"Check #",ICFONT,shade 0,cols=8 text 58,51,"Date",ICFONT,shade 0,cols=11 text 70,51,"Amount",IRFONT,shade 0,cols=11 text 49,52,{trim(get(65,47,15))},DBCFONT,cols=8 text 58,52,{chk_date$},DBCFONT,cols=11 text 70,52,{trim(get(67,51,11))},DBRFONT,cols=11 # check amt in words cerase 2,51,MAXCOLS,51 # amt in words text 2,56,"Pay",HFONT,14 text 7,56,{trim(get(8,51,58))},IBFONT # pay to cmove 13,55,47,58,9,60 # payee and addr text 2,60,"Pay\nto the\nOrder\nof",HFONT cfont 9,60,MAXRCOLS,63,DBFONT # payee and addr # Bottom text 48,59.5,"Check Void After 180 Days",ICFONT,cols=30 SIGNATURE_IMAGE 50,61,0,0,"SIGNATURE" box 47,62.0,30,1,3 # signature line text 47,62.75,"Authorized Signature",ICFONT,cols=30 PR_MICR 15,65.5,"PR_MICR_ACCOUNTNO",{trim(get(65,47,15))} [Enhance-P/R Check_short_stub_1/2] dsn_sample "/u0/unform_test/infor/txt/PRcheckshort.txt" detect 51,2,"~ [0-9][0-9][0-9]-[0-9][0-9]-[0-9][0-9][0-9][0-9]" detect 66,28,"~ DATEMASK.." # set up document constants const MAXCOLS=83 # max cols to output const MAXRCOLS=82 # MAXCOLS-1 const LEFTCOL=1 # left vertical line const RIGHTCOL=83 # right vertical line const MAXROWS=66 # max rows to output cols MAXCOLS # max output columns rows MAXROWS # max output rows page 42 # max input rows const ONE_STUB_COPY=1 const TWO_STUB_COPY=2 const MAX_COPIES=2 pcopies MAX_COPIES portrait dpi 600 # see global constant above GSON # graphical shading title "P/R Check" # view in pdf properties prepage { if pagenum>1 then skip=1 chk_date$=trim(get(67,28,8)) # if stub date is missing, place check date there if trim(get(65,2,8))="" then x$=set(65,2,8,chk_date$) # the following moves will leave a space between the # top two stubs # 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+24]=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 } #employer stub if copy TWO_STUB_COPY # header text 2,2,"COMP_NAME",HBFONT,14 text 35,2,"COMP_ADDR1",HBFONT,12 text 55,2,"COMP_ADDR2",HBFONT,12 # ribbon move 1,1,83,23,1,3 # dn 2 lns cbox 1,2.5,RIGHTCOL,4.5,MBOXSIZE,crows=3.5::ISHADE, ccols=16 50 64 74 text 2,3,"Dept",ICFONT,cols=13 text 17,3,"Employee name",ICFONT,cols=33 text 51,3,"Social Security #",ICFONT,cols=13 text 65,3,"Date",ICFONT,cols=9 text 75,3,"Check #",ICFONT,cols=8 cfont 2,4,14,4,DBCFONT # department cfont 17,4,49,4,DBCFONT # empl name cfont 51,4,63,4,DBCFONT # ssn cfont 65,4,73,4,DBCFONT # dt cfont 75,4,82,4,DBCFONT # check # # detail cbox 1,4.5,RIGHTCOL,20.5,MBOXSIZE,crows=5.5::DSHADE, ccols=18 27 36 48:3 63 73 text 2,5,"Description",IFONT text 19,5,"Hours",IRFONT,cols=8 text 28,5,"Gross",IRFONT,cols=8 text 37,5,"YTD Gross",IRFONT,cols=11 text 49,5,"Deductions",IFONT text 64,5,"Deduct",IRFONT,cols=9 text 74,5,"Gross ded",IRFONT,cols=9 cfont 2,5,17,20,IFONT # desc cfont 19,5,26,20,DBRFONT # hours cfont 28,5,35,20,DBRFONT # gross cfont 37,5,47,20,DBRFONT # ytd gross cfont 49,5,62,20,IFONT # deductions cfont 64,5,72,20,DBRFONT # deduct cfont 74,5,82,20,DBRFONT # gross ded # footer cbox 1,20.5,48,22.5,MBOXSIZE,ccols=27::100 36 cbox 63,20.5,RIGHTCOL,22.5,MBOXSIZE,ccols=73 text 2,21,"Gross totals",IBFONT,shade 0 text 2,22,"Net totals",IBFONT,shade 0 cfont 28,21,35,22,DBRFONT # gross cfont 37,21,47,22,DBRFONT # ytd gross cfont 64,21,72,22,DBRFONT # deduct cfont 74,21,82,22,DBRFONT # gross ded endif # employee stub # header text 2,24,"COMP_NAME",HBFONT,14 text 35,24,"COMP_ADDR1",HBFONT,12 text 55,24,"COMP_ADDR2",HBFONT,12 # ribbon cbox 1,24.5,RIGHTCOL,26.5,MBOXSIZE,crows=25.5::ISHADE, ccols=16 50 64 74 text 2,25,"Dept",ICFONT,cols=13 text 17,25,"Employee name",ICFONT,cols=33 text 51,25,"Social Security #",ICFONT,cols=13 text 65,25,"Date",ICFONT,cols=9 text 75,25,"Check #",ICFONT,cols=8 cfont 2,26,14,26,DBCFONT # Department cfont 17,26,49,26,DBCFONT # Employee name cfont 51,26,63,26,DBCFONT # SS# cfont 65,26,73,26,DBCFONT # dt cfont 75,26,82,26,DBCFONT # check # # detail cbox 1,26.5,RIGHTCOL,42.5,MBOXSIZE,crows=27.5::DSHADE, ccols=18 27 36 48:3 63 73 text 2,27,"Description",IFONT text 19,27,"Hours",IRFONT,cols=8 text 28,27,"Gross",IRFONT,cols=8 text 37,27,"YTD Gross",IRFONT,cols=11 text 49,27,"Deductions",IFONT text 64,27,"Deduct",IRFONT,cols=9 text 74,27,"Gross ded",IRFONT,cols=9 cfont 2,27,17,45,IFONT # desc cfont 19,27,26,45,DBRFONT # hours cfont 28,27,35,45,DBRFONT # gross cfont 37,27,47,45,DBRFONT # ytd gross cfont 49,27,62,45,IFONT # deductions cfont 64,27,72,45,DBRFONT # deduct cfont 74,27,82,45,DBRFONT # gross ded # footer cbox 1,42.5,48,44.5,MBOXSIZE,ccols=27::100 36 cbox 63,42.5,RIGHTCOL,44.5,MBOXSIZE,ccols=73 text 2,43,"Gross totals",IBFONT,shade 0 text 2,44,"Net totals",IBFONT,shade 0 cfont 28,27,35,45,DBRFONT # gross cfont 37,27,47,45,DBRFONT # ytd gross cfont 64,27,72,45,DBRFONT # deduct cfont 74,27,82,45,DBRFONT # gross ded # check # header cbox 1,46,83,64.5,MBOXSIZE # check LOGO_IMAGE 1,47,10,5,"COMP_LOGO" text 15,48.25,"COMP_NAME",HBFONT,14 text 15,49.35,"COMP_ADDR1",HFONT,12 text 15,50.35,"COMP_ADDR2",HFONT,12 text 15,51.35,"COMP_ADDR3",HFONT,12 text 70,49.35,"PR_ROUTING",DFONT # rtg# text 49,48.25,"PR_BANK_NAME",DBFONT text 49,49.05,"PR_BANK_ADDR1",DFONT text 49,49.85,"PR_BANK_ADDR2",DFONT # ribbon move 65,50,15,1,49,52 # check # move 67,52,15,1,58,52 # dt up move 67,54,15,1,70,52 # numeric $ amt cbox 48,50.5,81,52.5,1,crows=51.5::100,ccols=57 69 text 49,51,"Check #",ICFONT,shade 0,cols=8 text 58,51,"Date",ICFONT,shade 0,cols=11 text 70,51,"Amount",IRFONT,shade 0,cols=11 cfont 49,51,56,52,DBCFONT # check # cfont 58,51,68,52,DBCFONT # dt cfont 70,51,80,52,DBRFONT # amt # check amt in words cerase 2,54,MAXCOLS,57 # amt in words text 2,56,"Pay",HFONT,14 text 7,56,{trim(get(8,54,58))},IBFONT,cols=70 # pay to cmove 13,58,47,61,9,60 # payee and addr text 2,60,"Pay",HFONT text 2,61,"to the",HFONT text 2,62,"Order",HFONT text 2,63,"of",HFONT cfont 9,60,MAXRCOLS,63,DBFONT # payee and addr # Bottom text 48,59.5,"Check Void After 180 Days",ICFONT,cols=30 SIGNATURE_IMAGE 50,61,0,0,"SIGNATURE" box 47,62.0,30,1,3 # signature line text 47,62.75,"Authorized Signature",ICFONT,cols=30 PR_MICR 15,65.5,"PR_MICR_ACCOUNTNO",{trim(get(65,50,15))} [Enhance-A/R_Dunning_letter] dsn_sample "/u0/unform_test/infor/txt/ARDunningLetter.txt" detect 0,3,"^past due notice" detect 0,5,"^page" # set up document constants const MAXCOLS=80 # max cols to output const MAXRCOLS=79 # MAXCOLS-1 const LEFTCOL=1 # left vertical line const RIGHTCOL=80 # right vertical line const MAXROWS=66 # max rows to output cols MAXCOLS # max output columns rows MAXROWS # max output rows page MAXROWS # max input rows const CUSTOMER_COPY=1 const FILE_COPY=2 const MAX_COPIES=2 copies MAX_COPIES portrait dpi 600 # see global constant above GSON # graphical shading title "Dunning Letter" # view in pdf properties prejob { dim copy_title$[MAX_COPIES] if MAX_COPIES>=1 then copy_title$[CUSTOMER_COPY]="Customer Copy" if MAX_COPIES>=2 then copy_title$[FILE_COPY]="Accounting Copy" doc_title$="Past Due Notice" date$="" } prepage { xcol=20,xrow=5,xcols=40,tpos=2 merge "Mrg get company info" # locate start of notice of past due items for i=1 to 66 x=pos("NOTICE OF PAST DUE ITEMS"=text$[i]) if x then nrow=i,ncol=x;break next i to$="",cust_code$="",cust_info$="",srow=0,lrow=0 if nrow>14 then to$="To:";cust_code$=trim(cut(10,14,20,""));cust_info$=mcut(10,15,40,5,"","Y","Y");date$=trim(cut(64,19,8,""));srow=21,lrow=nrow-1 } # default line const BROW=1 const EROW=MAXROWS cfont 19,BROW,24,EROW,DCFONT # inv # cfont 31,BROW,38,EROW,DBCFONT # date cfont 41,BROW,49,EROW,DCFONT # days past cfont 51,BROW,62,EROW,DBRFONT # amount # header section cerase 1,1,MAXCOLS,8 merge "Mrg form header" text 1,4.1,{trim(get(70,5,10))},HRFONT,cols=MAXRCOLS text 1,6.1,{date$},HBRFONT,cols=MAXRCOLS # customer name & addr text 2,15,{to$},IRFONT,light,cols=6 text 10,14,{cust_code$},DBFONT text 10,15,{cust_info$},DBFONT # letter text cfont 7,{srow},MAXRCOLS,{lrow},IFONT # new headers cfont 1,{nrow},MAXCOLS,{nrow},IBCFONT font {ncol-13},{nrow+2},12,1,ICFONT font {ncol+4},{nrow+2},4,1,ICFONT font {ncol+12},{nrow+2},9,1,ICFONT font {ncol+28},{nrow+2},6,1,IRFONT # footer cfont 26,56,36,57,IBRFONT cfont 38,56,48,57,IBRFONT cfont 26,59,36,59,HBRFONT cfont 38,59,48,59,HBRFONT text 1,65,{copy_title$[copy]},HBCFONT,12,cols=MAXCOLS [Enhance-J/C_Estimate] #dsn_sample "/u0/unform_test/infor/txt/JCestimate.txt" #dsn_sample "/u0/unform_test/infor/txt/JCESTIMATE2PAGE.txt" detect 0,2,"^ESTIMATE" detect 0,7,"~DATEMASK" # set up document constants const MAXCOLS=80 # max cols to output const MAXRCOLS=79 # MAXCOLS-1 const LEFTCOL=1 # left vertical line const RIGHTCOL=80 # right vertical line const MAXROWS=66 # max rows to output cols MAXCOLS # max output columns rows MAXROWS # max output rows page MAXROWS # max input rows const CUSTOMER_COPY=1 const FILE_COPY=2 const INTERNAL_COPY=3 const MAX_COPIES=3 pcopies MAX_COPIES portrait dpi 600 # see global constant above GSON # graphical shading title "J/C Estimate" # view in pdf properties prejob { dim copy_title$[MAX_COPIES] if MAX_COPIES>=1 then copy_title$[CUSTOMER_COPY]="Customer Copy" if MAX_COPIES>=2 then copy_title$[FILE_COPY]="Accounting Copy" if MAX_COPIES>=3 then copy_title$[INTERNAL_COPY]="Internal Copy" } prepage { #get header info for better placement doc_title$=trim(get(34,2,8)) merge "Mrg get watermark text" reprint$=trim(get(72,2,7)) xcol=20,xrow=3,xcols=40,tpos=2 merge "Mrg get company info" continued$="" continued$=trim(cut(71,65,9,"")) if continued$<>"CONTINUED" then exec("cbox LEFTCOL,64,RIGHTCOL,MAXROWS,MBOXSIZE, ccols=13 20::HSHADE 32 38::HSHADE 47 51::HSHADE 62 68::HSHADE") if continued$="CONTINUED" then continued$="Continued on next page..." } precopy { if copy=INTERNAL_COPY then cols$="100" if trim(get(83,3,8))<>"ESTIMATE" and copy=INTERNAL_COPY then skip=1 } # erase columns ! vline "!!",erase # erase rows - or = hline "==",erase hline "--",erase hline "^^" # erase cost section if not copy 3 if copy CUSTOMER_COPY,FILE_COPY cerase 81,1,100,MAXROWS end if # default line const BROW=26 const EROW=63 cfont 2,BROW,5,EROW,DBCFONT # code cfont 7,BROW,44,EROW,DFONT # desc cfont 46,BROW,54,EROW,DBRFONT # units cfont 56,BROW,57,EROW,DBCFONT # uom cfont 59,BROW,67,EROW,DBRFONT # price cfont 69,BROW,MAXRCOLS,EROW,DBRFONT # extension if copy INTERNAL_COPY cfont 82,BROW,92,EROW,DBRFONT # cost cfont 94,BROW,99,EROW,DBRFONT # gm end if # header section cerase 1,1,100,10 cbox LEFTCOL,1,RIGHTCOL,MAXROWS,MBOXSIZE,crows=10:MBOXSIZE if copy INTERNAL_COPY cbox 81,1,100,MAXROWS,MBOXSIZE end if merge "Mrg form header" # handle copy title cbox 64,3.75,RIGHTCOL,5.25,1,100 text 65,4.6,{copy_title$[copy]},HBCFONT,12,cols=14,shade 0 text 1,9.5,{"Job: "+trim(get(8,8,40))},HCFONT,12,cols=MAXRCOLS # right header cbox 64,5.5,RIGHTCOL,10,1,ccols=72::ISHADE,crows=7 8.5 text 65,6.25,"Number",IFONT,cols=7 text 65,7.75,"Date",IFONT,cols=7 text 65,9.25,"Page",IFONT,cols=7 text 73,6.25,{trim(get(70,3,8))},DBFONT,cols=7 text 73,7.75,{trim(get(70,7,8))},DBFONT,cols=7 text 73,9.25,{trim(get(77,5,3))},DBFONT,cols=7 if copy INTERNAL_COPY cbox 81,1,100,6,1,ccols=90::ISHADE,crows=4 text 82,3,"Number",IFONT,cols=8 text 82,5,"Customer",IFONT,cols=8 text 92,3,{trim(get(70,3,8))},DBFONT,cols=7 text 92,5,{trim(get(58,10,20))},DBFONT,cols=7 end if # ship to section cbox LEFTCOL,10,RIGHTCOL,15,MBOXSIZE,ccols=10::ISHADE 41 50::ISHADE text 2,11,"Ship To:",ICFONT,cols=8 cmove 7,11,41,14,11,11 text 2,12,{trim(get(15,10,15))},DBCFONT,cols=8 cfont 11,11,41,14,DBFONT # ship to addr # bill to section text 42,11,"Bill To:",ICFONT,cols=8 cmove 49,11,MAXRCOLS,14,51,11 text 42,12,{trim(get(58,10,20))},DBCFONT,cols=8 cfont 51,11,MAXRCOLS,14,DBFONT # bill to addr # ribbon 1 section cerase 17,16,17,18 cerase 26,16,26,18 cerase 36,16,36,18 cerase 52,16,52,18 cerase 55,16,55,18 cerase 63,16,63,18 cbox LEFTCOL,15,RIGHTCOL,23,MBOXSIZE cbox LEFTCOL,15,RIGHTCOL,19,1,crows=17::ISHADE, ccols=17 26 36 52 55 63 cfont 2,16,16,16,ICFONT,proper # ref no cfont 18,16,25,16,ICFONT,proper # expires cfont 27,16,35,16,ICFONT,proper # estimator cfont 37,16,51,16,ICFONT,proper # terms cfont 53,16,54,16,ICFONT,proper # whs cfont 56,16,62,16,ICFONT,proper # frt cfont 64,16,MAXRCOLS,16,ICFONT,proper # ship via cfont 2,18,16,18,DBCFONT # ref # cfont 18,18,25,18,DBCFONT # expires cfont 27,18,35,18,DBCFONT # estimator cfont 37,18,51,18,DBCFONT # terms cfont 53,18,54,18,DBCFONT # whs cfont 56,18,62,18,DBCFONT # frt cfont 64,18,MAXRCOLS,18,DBCFONT # ship via # ribbon 2 section cerase 33,20,33,22 cerase 42,20,42,22 cerase 51,20,51,22 cbox LEFTCOL,19,RIGHTCOL,23,1,crows=21::ISHADE, ccols=33 42 51 cfont 2,20,32,20,ICFONT,proper # billing cfont 34,20,41,20,ICFONT,proper # start cfont 43,20,50,20,ICFONT,proper # finish cfont 52,20,MAXRCOLS,20,ICFONT,proper # units cfont 2,22,32,22,DBCFONT # billing cfont 34,22,41,22,DBCFONT # start cfont 43,22,50,22,DBCFONT # finish cfont 52,22,MAXRCOLS,22,DBCFONT # units # detail cerase 6,24,6,63 cerase 45,24,45,63 cerase 55,24,55,63 cerase 58,24,58,63 cerase 68,24,68,63 cerase 83,24,83,63 cerase 93,24,93,63 cbox LEFTCOL,23,RIGHTCOL,64,MBOXSIZE,crows=25::DSHADE, ccols=6 45 55 58 68 cfont 2,24,5,24,ICFONT,proper # code cfont 7,24,44,24,IFONT,proper # desc cfont 46,24,54,24,IRFONT,proper # units cfont 56,24,57,24,ICFONT # uom cfont 59,24,67,24,IRFONT,proper # price cfont 69,24,MAXRCOLS,24,IRFONT,proper # extension if copy INTERNAL_COPY cbox 81,23,100,64,MBOXSIZE,crows=25::DSHADE,ccols=93 cfont 82,24,92,24,IRFONT,proper # cost cfont 94,24,99,24,IRFONT,proper # gm end if # watermark - large font with light shading WATERMARK 1,{63-9*(wmlines-1)},{wdoc_title$},cgtimes,120, shade=WATERMARK_SHADE,center,cols=MAXCOLS, fit,spacing=1 # footer cerase LEFTCOL,64,100,64 cerase 9,64,9,MAXROWS cerase 30,64,30,MAXROWS cerase 47,64,47,MAXROWS cerase 61,64,61,MAXROWS cerase 93,64,93,MAXROWS cfont 10,65,19,65,IBRFONT,proper # subtot cfont 31,65,37,65,IBRFONT,proper # frt cfont 48,65,50,65,IBRFONT,proper # tax cfont 62,65,67,65,IBRFONT,10,proper # tot cfont 21,65,29,65,DBLFONT # subtot cfont 39,65,46,65,DBLFONT # frt cfont 52,65,60,65,DBLFONT # tax text RIGHTCOL,65,{continued$},DBRFONT,10 if copy INTERNAL_COPY cbox 81,64,100,MAXROWS,MBOXSIZE,ccols=93 cfont 82,65,92,65,DBRFONT,9 # tot cost cfont 94,63,99,65,DBRFONT # gm end if [Enhance-J/C_Invoice] #dsn_sample "/u0/unform_test/infor/txt/JCINVOICE.txt" detect 0,2,"^INVOICE" detect 0,16,"^JOB#" # set up document constants const MAXCOLS=80 # max cols to output const MAXRCOLS=79 # MAXCOLS-1 const LEFTCOL=1 # left vertical line const RIGHTCOL=80 # right vertical line const MAXROWS=66 # max rows to output cols MAXCOLS # max output columns rows MAXROWS # max output rows page MAXROWS # max input rows const CUSTOMER_COPY=1 const FILE_COPY=2 const INTERNAL_COPY=3 const MAX_COPIES=3 pcopies MAX_COPIES portrait dpi 600 # see global constant above GSON # graphical shading title "J/C Invoice" # view in pdf properties prejob { dim copy_title$[MAX_COPIES] if MAX_COPIES>=1 then copy_title$[CUSTOMER_COPY]="Customer Copy" if MAX_COPIES>=2 then copy_title$[FILE_COPY]="Accounting Copy" if MAX_COPIES>=3 then copy_title$[INTERNAL_COPY]="Internal Copy" } prepage { doc_title$=trim(get(40,2,7)) merge "Mrg get watermark text" reprint$=trim(get(70,2,7)) xcol=20,xrow=3,xcols=40,tpos=2 merge "Mrg get company info" continued$="" continued$=trim(cut(71,63,9,"")) if continued$<>"CONTINUED" then exec("cbox 36,60,RIGHTCOL,64,1,crows=62::HSHADE,ccols=48 57 67") if continued$="CONTINUED" then continued$="Continued on next page..." } precopy { if copy=INTERNAL_COPY then cols$="100" if trim(get(83,3,7))<>"INVOICE" and copy=INTERNAL_COPY then skip=1 } # erase columns ! vline "!!",erase # erase rows - or = hline "==",erase hline "--",erase hline "^^" # erase cost section if not copy 3 if copy CUSTOMER_COPY,FILE_COPY cerase 81,1,100,MAXROWS end if # default line const BROW=26 const EROW=60 cfont 2,BROW,67,EROW,DFONT # desc cfont 69,BROW,MAXRCOLS,EROW,DBRFONT # amt if copy INTERNAL_COPY cfont 82,26,92,63,DBRFONT # cost cfont 94,26,99,63,DBRFONT # gm end if # header section cerase 1,1,100,10 cbox LEFTCOL,1,RIGHTCOL,MAXROWS,MBOXSIZE,crows=10:MBOXSIZE if copy INTERNAL_COPY cbox 81,1,100,MAXROWS,MBOXSIZE end if merge "Mrg form header" # handle copy title cbox 64,3.75,RIGHTCOL,5.25,1,100 text 65,4.6,{copy_title$[copy]},HBCFONT,12,cols=14,shade 0 # right header cbox 64,5.5,RIGHTCOL,10,1,crows=7 8.5,ccols=72::ISHADE text 65,6.25,"Number",IFONT,cols=7 text 65,7.75,"Date",IFONT,cols=7 text 65,9.25,"Page",IFONT,cols=7 text 73,6.25,{trim(get(70,3,8))},DBFONT,cols=8 text 73,7.75,{trim(get(71,7,8))},DBFONT,cols=8 text 73,9.25,{trim(get(70,5,3))},DBFONT,cols=3 if copy INTERNAL_COPY cbox 81,1,100,8,1,crows=4 6,ccols=90::ISHADE text 82,3,"Invoice #",IFONT,cols=8 text 82,5,"Job #",IFONT,cols=8 text 82,7,"Customer",IFONT,cols=8 text 92,3,{trim(get(70,3,8))},DBFONT,cols=8 text 92,5,{trim(get(91,5,8))},DBFONT,cols=8 text 92,7,{trim(get(16,10,25))},DBFONT,cols=25 end if # bill to section cbox LEFTCOL,10,RIGHTCOL,15,MBOXSIZE,ccols=10::ISHADE 41 50::ISHADE text 2,11,"Bill To:",ICFONT,cols=8 text 2,12,{trim(get(16,10,25))},DBCFONT,cols=8 cmove 7,11,41,14,11,11 cfont 11,11,40,14,DBFONT # bill to addr # ship to section text 42,11,"Ship To:",ICFONT,cols=8 text 42,12,{trim(get(57,10,15))},DBCFONT,cols=8 cmove 49,11,MAXRCOLS,14,51,11 cfont 51,11,MAXRCOLS,14,DBFONT # ship to addr # ribbon 1 section cerase 10,15,10,19 cerase 41,15,41,19 cerase 52,15,52,19 cbox LEFTCOL,15,RIGHTCOL,23,MBOXSIZE cbox LEFTCOL,15,RIGHTCOL,19,crows=17::ISHADE, ccols=10 41 52 cfont 2,16,9,16,ICFONT,proper # job # cfont 11,16,40,16,ICFONT,proper # name cfont 42,16,51,16,ICFONT,proper # contract # cfont 53,16,MAXRCOLS,16,ICFONT,proper # manager cfont 2,18,9,18,DBCFONT # job # cfont 11,18,40,18,DBCFONT # name cfont 42,18,51,18,DBCFONT # contract # cfont 53,18,MAXRCOLS,18,DBCFONT # manager # ribbon 2 section cerase 17,20,17,22 cerase 23,20,23,22 cerase 39,20,39,22 cerase 48,20,48,22 cerase 51,20,51,22 cbox LEFTCOL,19,RIGHTCOL,23,crows=21::ISHADE, ccols=17 23 39 48 51 cfont 2,20,16,20,ICFONT,proper # ref # cfont 18,20,22,20,ICFONT,proper # salesperson cfont 24,20,38,20,ICFONT,proper # terms cfont 40,20,47,20,ICFONT,proper # tax code cfont 49,20,50,20,ICFONT,proper # whs cfont 52,20,MAXRCOLS,20,ICFONT,proper # billing cfont 2,22,16,22,DBCFONT # ref # cfont 18,22,22,22,DBCFONT # salesperson cfont 24,22,38,22,DBCFONT # terms cfont 40,22,47,22,DBCFONT # tax code cfont 49,22,50,22,DBCFONT # whs cfont 52,22,MAXRCOLS,22,DBCFONT # billing # detail cerase 68,24,68,60 cerase 83,24,83,60 cerase 93,24,93,60 cbox LEFTCOL,23,RIGHTCOL,60,MBOXSIZE,crows=25::DSHADE,ccols=68 cfont 2,24,67,24,IFONT,proper # desc cfont 69,24,MAXRCOLS,24,IRFONT,proper # amt if copy INTERNAL_COPY cbox 81,23,100,60,MBOXSIZE,crows=25::DSHADE,ccols=93 cfont 82,24,92,24,IRFONT,proper # cost cfont 94,24,99,24,IRFONT,proper # gm end if # watermark - large font with light shading WATERMARK 1,{59-9*(wmlines-1)},{wdoc_title$},cgtimes,120, shade=WATERMARK_SHADE,center,cols=MAXCOLS, fit,spacing=1 # footer cerase 36,62,100,62 cerase 36,64,100,64 cerase 36,61,36,64 cerase 48,61,48,63 cerase 57,61,57,63 cerase 67,61,67,63 cerase 93,61,93,63 cbox LEFTCOL,60,RIGHTCOL,MAXROWS,MBOXSIZE cfont 37,61,47,61,IBRFONT,proper # amt cfont 50,61,56,61,IBRFONT,proper # frt cfont 58,61,66,61,IBRFONT,proper # tax cfont 68,61,MAXRCOLS,61,IBRFONT,10,proper # tot due cfont 37,63,47,63,DBRFONT # amt cfont 50,63,56,63,DBRFONT # frt cfont 58,63,66,63,DBRFONT # tax text RIGHTCOL,63,{continued$},DBRFONT,10 if copy INTERNAL_COPY cbox 81,60,100,MAXROWS,MBOXSIZE cbox 81,60,100,64,1,crows=62::HSHADE,ccols=93 cfont 82,61,92,61,IBRFONT,9,proper # tot cost cfont 94,61,99,61,IBRFONT,proper # gm cfont 82,63,92,63,DBRFONT,9 # tot cost cfont 94,63,99,63,DBRFONT # gm end if cfont 2,61,35,64,DFONT cfont 2,65,MAXRCOLS,65,DFONT [Enhance-M/C_Formulation_Production_Ticket] dsn_sample "/u0/unform_test/infor/txt/MCformulationproductionticket.txt" detect 0,3,"^FORMULATION PRODUCTION TICKET" # set up document constants const MAXCOLS=80 # max cols to output const MAXRCOLS=79 # MAXCOLS-1 const LEFTCOL=1 # left vertical line const RIGHTCOL=80 # right vertical line const MAXROWS=66 # max rows to output cols MAXCOLS # max output columns rows MAXROWS # max output rows page MAXROWS # max input rows const WHSE_COPY=1 const FILE_COPY=2 const MAX_COPIES=2 pcopies MAX_COPIES portrait dpi 600 # see global constant above GSON # graphical shading title "M/C Production Ticket" # view in pdf properties prejob { dim copy_title$[MAX_COPIES] if MAX_COPIES>=1 then copy_title$[WHSE_COPY]="Warehouse Copy" if MAX_COPIES>=2 then copy_title$[FILE_COPY]="Accounting Copy" } prepage { #get header info for better placement doc_title$=trim(get(20,3,40)) merge "Mrg get watermark text" xrow=10 merge "Mrg get desc pos" xrow=12,yrow=62,ipos=6 merge "Mrg find memos" } # erase columns ! vline "!!",erase # erase rows - or = hline "==",erase hline "--",erase hline "^^" # default detail line const BROW=12 const EROW=61 cfont 2,BROW,4,EROW,DCFONT # line # cfont 6,BROW,{desc_pos-2},EROW,DBFONT,IJUST # item cfont {desc_pos},BROW,42,EROW,DFONT # desc cfont 44,BROW,52,EROW,DBRFONT # units cfont 54,BROW,55,EROW,DBCFONT # um cfont 57,BROW,MAXRCOLS,EROW,DFONT # memo # header section cerase 1,1,MAXCOLS,5 cbox LEFTCOL,1,RIGHTCOL,MAXROWS,MBOXSIZE,crows=9:MBOXSIZE text 1,2,{doc_title$},HBCFONT,16,cols=MAXRCOLS text 1,4,{trim(get(20,2,40))},HBCFONT,14,cols=MAXRCOLS cfont 2,6,MAXRCOLS,6,IBFONT cfont 2,8,MAXRCOLS,8,IBFONT # handle copy title cbox 65,1.75,RIGHTCOL,3,1,100 text 66,2.5,{copy_title$[copy]},HBCFONT,12,cols=13,shade 0 # right header cbox 65,3.5,RIGHTCOL,8,crows=5 6.5,ccols=73::ISHADE text 66,4.25,"Number",IFONT,cols=7 text 66,5.75,"Date",IFONT,cols=7 text 66,7.25,"Whse",IFONT,cols=7 text 74,4.25,{trim(get(70,2,6))},DBFONT,cols=6 text 74,5.75,{trim(get(70,3,8))},DBFONT,cols=8 text 74,7.25,{trim(get(70,4,2))},DBFONT,cols=2 # detail heading cbox LEFTCOL,9,RIGHTCOL,61,MBOXSIZE,crows=11::DSHADE,ccols=5 43 53 56 cbox {desc_pos-1},9,{desc_pos-1},61 text 2,10,"Ln#",ICFONT,cols=3 cfont 6,10,{desc_pos-2},10,IFONT,IJUST,proper # item cfont {desc_pos},10,42,10,IFONT,proper # desc cfont 44,10,52,10,IRFONT,proper # units cfont 54,10,55,10,ICFONT # um cfont 57,10,MAXRCOLS,10,IFONT,proper # memo # detail exceptions font "mL@1,12,27,61",3,0,60,1,DFONT,black # memo lines erase "mL@1,12,27,61",0,0,2,1 # spec chars # finished item section font "Finished Item:",0,0,14,1,DBFONT font "Finished Item:",15,0,60,1,DFONT font "Produce:",0,0,8,1,DBFONT font "Produce:",9,0,12,1,DFONT font "Formula Required:",0,0,17,1,DBFONT font "Formula Required:",18,0,12,1,DFONT font "Memo:",0,0,5,1,DBFONT font "Memo:",6,0,60,1,DFONT # watermark - large font with light shading WATERMARK 1,{65-9*(wmlines-1)},{wdoc_title$},DFONT,120,fit,shade=WATERMARK_SHADE,center,cols=MAXCOLS,spacing=1 # footer cbox LEFTCOL,61,RIGHTCOL,MAXROWS,MBOXSIZE cfont 1,64,MAXRCOLS,64,DRFONT cerase 1,63,MAXCOLS,MAXROWS text 3,64,"Date:",DBFONT cbox 7,64.5,36,64.5,MBOXSIZE text 40,64,"Initials:",DBFONT cbox 45,64.5,76,64.5,MBOXSIZE [Enhance-M/C_Production_Ticket] dsn_sample "/u0/unform_test/infor/txt/MCproductionticket.txt" detect 0,3,"^PRODUCTION TICKET" # set up document constants const MAXCOLS=80 # max cols to output const MAXRCOLS=79 # MAXCOLS-1 const LEFTCOL=1 # left vertical line const RIGHTCOL=80 # right vertical line const MAXROWS=66 # max rows to output cols MAXCOLS # max output columns rows MAXROWS # max output rows page MAXROWS # max input rows const WHSE_COPY=1 const FILE_COPY=2 const MAX_COPIES=2 pcopies MAX_COPIES portrait dpi 600 # see global constant above GSON # graphical shading title "M/C Production Ticket" # view in pdf properties prejob { dim copy_title$[MAX_COPIES] if MAX_COPIES>=1 then copy_title$[WHSE_COPY]="Warehouse Copy" if MAX_COPIES>=2 then copy_title$[FILE_COPY]="Accounting Copy" } prepage { #get header info for better placement doc_title$=trim(get(20,3,40)) merge "Mrg get watermark text" xrow=10 merge "Mrg get desc pos" xrow=12,yrow=62,ipos=6 merge "Mrg find memos" } # erase columns ! vline "!!",erase # erase rows - or = hline "==",erase hline "--",erase hline "^^" # default detail line const BROW=12 const EROW=61 cfont 2,BROW,4,EROW,DCFONT # line # cfont 6,BROW,{desc_pos-2},EROW,DBFONT,IJUST # item cfont {desc_pos},BROW,42,EROW,DFONT # desc cfont 44,BROW,52,EROW,DBRFONT # units cfont 54,BROW,55,EROW,DBCFONT # um cfont 57,BROW,MAXRCOLS,EROW,DFONT # memo # header section cerase 1,1,MAXCOLS,5 cbox LEFTCOL,1,RIGHTCOL,MAXROWS,MBOXSIZE,crows=9:MBOXSIZE text 1,2,{doc_title$},HBCFONT,16,cols=MAXRCOLS text 1,4,{trim(get(20,2,40))},HBCFONT,14,cols=MAXRCOLS cfont 2,6,MAXRCOLS,6,IBFONT cfont 2,8,MAXRCOLS,8,IBFONT # handle copy title cbox 65,1.75,RIGHTCOL,3,1,100 text 66,2.5,{copy_title$[copy]},HBCFONT,12,cols=13,shade 0 # right header cbox 65,3.5,RIGHTCOL,8,crows=5 6.5,ccols=73::ISHADE text 66,4.25,"Number",IFONT,cols=7 text 66,5.75,"Date",IFONT,cols=7 text 66,7.25,"Whse",IFONT,cols=7 text 74,4.25,{trim(get(70,2,6))},DBFONT,cols=6 text 74,5.75,{trim(get(70,3,8))},DBFONT,cols=8 text 74,7.25,{trim(get(70,4,2))},DBFONT,cols=2 # detail heading cbox LEFTCOL,9,RIGHTCOL,61,MBOXSIZE,crows=11::DSHADE, ccols=5 43 53 56 cbox {desc_pos-1},9,{desc_pos-1},61 text 2,10,"Ln#",ICFONT,cols=3 cfont 6,10,{desc_pos-2},10,IFONT,IJUST,proper # item cfont {desc_pos},10,42,10,IFONT,proper # desc cfont 44,10,52,10,IRFONT,proper # units cfont 54,10,55,10,ICFONT # um cfont 57,10,MAXRCOLS,10,IFONT,proper # memo # detail exceptions font "mL@1,12,27,61",3,0,60,1,DFONT,black # memo lines erase "mL@1,12,27,61",0,0,2,1 # spec chars # watermark - large font with light shading WATERMARK 1,{61-9*(wmlines-1)},{wdoc_title$},cgtimes,120, shade=WATERMARK_SHADE,center,cols=MAXCOLS, fit,spacing=1 # footer cbox LEFTCOL,61,RIGHTCOL,MAXROWS,MBOXSIZE cfont 1,64,MAXRCOLS,64,DRFONT cerase 1,63,MAXCOLS,MAXROWS text 3,64,"Date:",DBFONT cbox 7,64.5,36,64.5,MBOXSIZE text 40,64,"Initials:",DBFONT cbox 45,64.5,76,64.5,MBOXSIZE [Enhance-S/O_Bill_of_Lading] dsn_sample "/u0/unform_test/infor/txt/SOBOL2PAGE.txt" #dsn_sample "/u0/unform_test/infor/txt/SOBOLALLWIEGHT.txt" #dsn_sample "/u0/unform_test/infor/txt/SOBOLHAZONLYWEIGHTS.txt" detect 0,1,"^STRAIGHT BILL OF LADING" # set up document constants const MAXCOLS=81 # max cols to output const MAXRCOLS=80 # MAXCOLS-1 const LEFTCOL=1 # left vertical line const RIGHTCOL=81 # right vertical line const MAXROWS=66 # max rows to output cols MAXCOLS # max output columns rows MAXROWS # max output rows page MAXROWS const CUSTOMER_COPY=1 const FILE_COPY=2 const MAX_COPIES=2 pcopies MAX_COPIES portrait dpi 600 # see global constant above GSON # graphical shading title "S/O Bill of Lading" # view in pdf properties prejob { dim copy_title$[MAX_COPIES] if MAX_COPIES>=1 then copy_title$[CUSTOMER_COPY]="Customer Copy" if MAX_COPIES>=2 then copy_title$[FILE_COPY]="Accounting Copy" } prepage { #get header info for better placement doc_title$=trim(get(56,1,24)) reprint$=trim(get(71,4,7)) xcol=10,xrow=3,xcols=40,tpos=1.1 merge "Mrg get company info" xrow=15;xcols=40 merge "Mrg get zip" } # erase rows - or = hline "==",erase hline "--",erase hline "^^" # header section cerase 1,1,MAXCOLS,12 merge "Mrg form header" text 1,2.1,{trim(get(56,2,24))},HBRFONT,12,cols=MAXRCOLS # handle copy title cbox 64,3.75,RIGHTCOL,5.25,1,100 text 65,4.6,{copy_title$[copy]},HBCFONT,12,cols=15,shade 0 # right header cbox 64,5.5,RIGHTCOL,10,ccols=64 72::ISHADE, crows=7 8.5 text 65,6.25,"Number",IFONT,cols=7 text 65,7.75,"Date",IFONT,cols=7 text 65,9.25,"Page",IFONT,cols=7 text 73,6.25,{trim(get(74,6,6))},DBFONT,cols=6 text 73,7.75,{trim(get(72,8,8))},DBFONT,cols=8 text 73,9.25,{trim(get(63,10,3))},DBFONT,cols=3 text 75,9.25,"of ___",IFONT,cols=7 # ship to section cerase 1,13,1,17 cbox LEFTCOL,12,RIGHTCOL,18,MBOXSIZE,ccols=11::ISHADE text 2,13,"Ship To:",ICFONT,cols=9 text 2,14,{trim(get(10,12,15))},DBCFONT,cols=9 cmove 10,13,50,17,12,13 cfont 12,13,41,17,DBFONT # ship to addr barcode 13,15.75,{shipzip$},900,12.0,2 # ribbon 1 section cerase 8,18,8,20 cerase 31,18,31,20 cerase 34,18,34,20 cerase 38,18,38,20 cerase 44,18,44,20 cbox LEFTCOL,18,RIGHTCOL,20,MBOXSIZE, ccols=8::ISHADE 31 34::ISHADE 38 44::ISHADE cfont 1,19,7,19,IRFONT,proper # carrier cfont 32,19,33,19,IRFONT,proper # whs cfont 39,19,43,19,IRFONT,proper # notes cfont 9,19,30,19,DBFONT # carrier cfont 35,19,37,19,DBFONT # whs cfont 45,19,MAXRCOLS,19,DFONT # notes # detail cerase 7,20,7,45 cerase 11,20,11,45 cerase 66,20,66,45 cerase 75,20,75,45 cbox LEFTCOL,20,RIGHTCOL,45,MBOXSIZE,crows=22::DSHADE, ccols=7 11 66 75 cfont 1,21,6,21,IRFONT,proper # units cfont 8,21,10,21,ICFONT,proper # hm ?? cfont 12,21,65,21,IFONT,proper # desc cfont 67,21,74,21,IRFONT,proper # wt cfont 76,21,MAXRCOLS,21,ICFONT,proper # class cfont 1,23,6,45,DBRFONT # units cfont 8,23,10,45,DBCFONT # hm ?? cfont 12,23,65,45,DFONT # desc cfont 67,23,74,45,DBRFONT # wt cfont 76,23,MAXRCOLS,45,DBCFONT # class # continued cbox LEFTCOL,45,RIGHTCOL,47,MBOXSIZE,ISHADE cfont LEFTCOL,46,MAXRCOLS,46,IBRFONT,proper # emergency contact cbox LEFTCOL,47,RIGHTCOL,49,MBOXSIZE,ccols=27::DSHADE cerase 27,48,27,48 cfont LEFTCOL,48,26,48,IRFONT,proper # emer contact cfont 28,48,MAXRCOLS,48,DBFONT # emer contact # rules cbox LEFTCOL,49,RIGHTCOL,62,MBOXSIZE,crows=54 cfont LEFTCOL,50,MAXRCOLS,53,DBCFONT cfont LEFTCOL,55,MAXRCOLS,61,DBCFONT # shipper cerase 71,64,MAXCOLS,64 cbox LEFTCOL,62,RIGHTCOL,66,MBOXSIZE,ccols=8::ISHADE 45 64::ISHADE cfont 1,63,7,63,IRFONT,proper # shipper cfont 1,64,7,64,IRFONT,proper # signed cfont 9,63,44,63,DBFONT cfont 46,63,63,63,IRFONT,proper # rcv company cfont 46,64,63,64,IRFONT,proper # signed text 1,65,"Date",IRFONT,cols=63 # dt text 10,65,"___________________________",DFONT # signed shipper text 66,64,"__________________",DFONT # signed rcv text 66,65,"__________________",DFONT # dt [Enhance-S/R_Work_Ticket] dsn_sample "/u0/unform_test/infor/txt/SRworkticket.txt" detect 0,2,"^WORK TICKET PRINT" # set up document constants const MAXCOLS=85 # max cols to output const MAXRCOLS=84 # MAXCOLS-1 const LEFTCOL=1 # left vertical line const RIGHTCOL=85 # right vertical line const MAXROWS=66 # max rows to output cols MAXCOLS # max output columns rows MAXROWS # max output rows page MAXROWS # max input rows const CUSTOMER_COPY=1 const FILE_COPY=2 const SERVICE_COPY=3 const MAX_COPIES=3 pcopies MAX_COPIES portrait dpi 600 # see global constant above GSON # graphical shading title "S/R Work Ticket" # view in pdf properties prejob { dim copy_title$[MAX_COPIES] if MAX_COPIES>=1 then copy_title$[CUSTOMER_COPY]="Customer Copy" if MAX_COPIES>=2 then copy_title$[FILE_COPY]="Accounting Copy" if MAX_COPIES>=3 then copy_title$[SERVICE_COPY]="Service Copy" } prepage { #get header info for better placement doc_title$=trim(get(35,2,11)) merge "Mrg get watermark text" xcol=20,xrow=3,xcols=40,tpos=2 merge "Mrg get company info" problem_top=0 parts_top=0 work_top=0 tech_top=0 problem_bottom=0 parts_bottom=0 work_bottom=0 tech_bottom=0 for row=20 to 61 # find top of each section if get(6,row,19)="Problem Description" then problem_top=row if get(6,row,12)="Repair Parts" then parts_top=row if get(6,row,20)="Work To Be Performed" then work_top=row if get(6,row,6)="Tech #" then tech_top=row # find bottom of each section for row2=row+1 to 62 if problem_bottom=0 and get(6,row,19)="Problem Description" and get(6,row2,3)="---" then problem_bottom=row2;continue if parts_bottom=0 and get(6,row,12)="Repair Parts" and get(6,row2,3)="---" then parts_bottom=row2;continue if work_bottom=0 and get(6,row,20)="Work To Be Performed" and get(6,row2,3)="---" then work_bottom=row2;continue if tech_bottom=0 and get(6,row,6)="Tech #" and get(6,row2,3)="===" then tech_bottom=row2;continue next row2 next row if problem_top>0 and problem_bottom=0 then problem_bottom=61;continue if parts_top>0 and parts_bottom=0 then parts_bottom=61;continue if work_top>0 and work_bottom=0 then work_bottom=61;continue if tech_top>0 and tech_bottom=0 then tech_bottom=61;continue } # erase columns ! vline "!!",erase # erase rows - or = hline "==",erase hline "--",erase hline "^^" # header section cerase 1,1,MAXCOLS,10 cbox LEFTCOL,1,RIGHTCOL,MAXROWS,MBOXSIZE,crows=10:MBOXSIZE merge "Mrg form header" # handle copy title cbox 64,3.75,RIGHTCOL,5.25,1,100 text 65,4.6,{copy_title$[copy]},HBCFONT,12,cols=20,shade 0 # right header cbox 64,5.5,RIGHTCOL,10 cbox 64,5.5,72,10,1,ISHADE cbox 64,7,RIGHTCOL,7 cbox 64,8.5,RIGHTCOL,8.5 text 65,6.25,"Number",IFONT,cols=7 text 65,7.75,"Date",IFONT,cols=7 text 65,9.25,"Page",IFONT,cols=7 text 73,6.25,{trim(get(78,3,7))},DBFONT,cols=7 text 73,7.75,{trim(get(76,7,8))},DBFONT,cols=8 text 73,9.25,{trim(get(82,5,3))},DBFONT,cols=3 # bill to section cbox LEFTCOL,10,RIGHTCOL,15,MBOXSIZE,ccols=10::ISHADE 41 50::ISHADE text 2,11,"Bill To:",ICFONT,cols=8 text 2,12,{trim(get(17,10,23))},DBCFONT,cols=8 cmove 7,11,41,14,11,11 cfont 11,11,40,14,DBFONT # ship to addr # location section text 42,11,"Location:",ICFONT,cols=8 text 42,12,{trim(get(64,10,15))},DBCFONT,cols=8 cmove 49,11,MAXRCOLS,14,51,11 cfont 51,11,MAXRCOLS,14,DBLFONT # bill to addr # ribbon 1 section cerase 17,15,17,19 cerase 26,15,26,19 cerase 36,15,36,19 cerase 41,15,41,19 cerase 57,15,57,19 cerase 61,15,61,19 cerase 69,15,69,19 cbox LEFTCOL,15,RIGHTCOL,19,MBOXSIZE,crows=17::ISHADE, ccols=17 26 36 41 57 61 69 cfont 2,16,16,16,ICFONT,proper # ref # cfont 18,16,25,16,ICFONT,proper # order date cfont 27,16,35,16,ICFONT,proper # requested cfont 37,16,40,16,ICFONT,proper # slsp cfont 42,16,56,16,ICFONT,proper # terms cfont 58,16,60,16,ICFONT,proper # whs cfont 62,16,68,16,ICFONT,proper # freight cfont 70,16,MAXRCOLS,16,ICFONT,proper # ship via cfont 2,18,16,18,DBCFONT # ref # cfont 18,18,25,18,DBCFONT # order date cfont 27,18,35,18,DBCFONT # requested cfont 37,18,40,18,DBCFONT # slsp cfont 42,18,56,18,DBCFONT # terms cfont 58,18,60,18,DBCFONT # whs cfont 62,18,68,18,DBCFONT # freight cfont 70,18,MAXRCOLS,18,DBCFONT # ship via # detail cbox LEFTCOL,19,RIGHTCOL,62,MBOXSIZE font "Equipment:",-4,0,3,1,DBFONT font "Equipment:",0,0,10,1,IRFONT font "Equipment:",11,0,30,1,DBLFONT font "Item/Model:",0,0,11,1,IRFONT font "Item/Model:",12,0,30,1,DBLFONT font "Serial #:",0,0,9,1,IRFONT font "Serial #:",10,0,30,2,DBLFONT font "Contact:",0,0,8,1,IRFONT font "Contact:",9,0,30,1,DBLFONT font "Phone #:",0,0,8,1,IRFONT font "Phone #:",9,0,30,1,DBLFONT font "Priority:",0,0,9,1,IRFONT font "Priority:",10,0,20,1,DBLFONT font "Status:",0,0,7,1,IRFONT font "Status:",8,0,20,1,DBLFONT font "Technician:",0,0,11,1,IRFONT font "Technician:",12,0,20,1,DBLFONT font "Symptom:",0,0,8,1,IRFONT font "Symptom:",9,0,20,1,DBLFONT font "Scheduled:",0,0,10,1,IRFONT font "Scheduled:",11,0,20,1,DBLFONT font "Estimated:",0,0,10,1,IRFONT font "Estimated:",11,0,20,1,DBLFONT cfont 6,{problem_top},25,{problem_top},IFONT cfont 27,{problem_top},MAXRCOLS,{problem_bottom},DFONT cfont 6,{parts_top},20,{parts_top},IFONT # repair parts cfont 22,{parts_top},46,{parts_top},IFONT # description cfont 48,{parts_top},54,{parts_top},ICFONT # ordered cfont 59,{parts_top},64,{parts_top},ICFONT # issued cfont 66,{parts_top},74,{parts_top},ICFONT # bko'd cfont 76,{parts_top},77,{parts_top},ICFONT # um cfont 82,{parts_top},84,{parts_top},IFONT # loc cfont 6,{parts_top+1},20,{parts_bottom},DFONT # repair parts cfont 22,{parts_top+1},46,{parts_bottom},DFONT # description cfont 48,{parts_top+1},54,{parts_bottom},DCFONT # ordered cfont 59,{parts_top+1},64,{parts_bottom},DCFONT # issued cfont 66,{parts_top+1},74,{parts_bottom},DCFONT # bko'd cfont 76,{parts_top+1},77,{parts_bottom},DCFONT # um cfont 82,{parts_top+1},84,{parts_bottom},DFONT # loc cfont 6,{work_top},MAXRCOLS,{work_top},IFONT cfont 12,{work_top+1},15,{work_bottom},DFONT cfont 17,{work_top+1},MAXRCOLS,{work_bottom},DBFONT cfont 6,{tech_top},13,{tech_top},IFONT # tech # cfont 15,{tech_top},37,{tech_top},IFONT # name cfont 39,{tech_top},54,{tech_top},ICFONT # date cfont 56,{tech_top},63,{tech_top},IRFONT # begin cfont 65,{tech_top},72,{tech_top},IRFONT # end cfont 74,{tech_top},83,{tech_top},IRFONT # hours cfont 6,{tech_top+1},13,{tech_bottom},DFONT # tech # cfont 15,{tech_top+1},37,{tech_bottom},DFONT # name cfont 39,{tech_top+1},54,{tech_bottom},DCFONT # date cfont 56,{tech_top+1},63,{tech_bottom},DRFONT # begin cfont 65,{tech_top+1},72,{tech_bottom},DRFONT # end cfont 74,{tech_top+1},83,{tech_bottom},DRFONT # hours # watermark - large font with light shading WATERMARK 1,{60-9*(wmlines-1)},{wdoc_title$},cgtimes,120, shade=WATERMARK_SHADE,center,cols=MAXCOLS, fit,spacing=1 # footer cbox LEFTCOL,62,RIGHTCOL,MAXROWS,MBOXSIZE cfont 2,63,MAXRCOLS,65,DFONT [Enhance-A/R_Invoice] #dsn_sample "/u0/unform_test/infor/txt/ARINVOICE.txt" #dsn_sample "/u0/unform_test/infor/txt/ARINVOICE2PAGE.txt" dsn_sample "/u0/unform_test/infor/txt/ARINVOICE2PAGECOSTTEAROFF.txt" #dsn_sample "/u0/unform_test/infor/txt/ARINVOICECOSTTEAROFF.txt" detect 0,2,"^~(invoice)|(credit memo)" detect 0,16,"^invoiced" # set up document constants const MAXCOLS=80 # max cols to output const MAXRCOLS=79 # MAXCOLS-1 const LEFTCOL=1 # left vertical line const RIGHTCOL=80 # right vertical line const MAXROWS=66 # max rows to output cols MAXCOLS # max output columns rows MAXROWS # max output rows page MAXROWS # max input rows const CUSTOMER_COPY=1 const FILE_COPY=2 const INTERNAL_COPY=3 const MAX_COPIES=3 pcopies MAX_COPIES portrait dpi 600 # see global constant above GSON # graphical shading title "A/R Invoice" # view in pdf properties prejob { dim copy_title$[MAX_COPIES] if MAX_COPIES>=1 then copy_title$[CUSTOMER_COPY]="Customer Copy" if MAX_COPIES>=2 then copy_title$[FILE_COPY]="Accounting Copy" if MAX_COPIES>=3 then copy_title$[INTERNAL_COPY]="Internal Copy" } prepage { #get header info for better placement doc_title$=trim(get(40,2,10)) merge "Mrg get watermark text" reprint$=trim(get(71,2,7)) xcol=20,xrow=3,xcols=40,tpos=2 merge "Mrg get company info" xrow=20,ipos=2 merge "Mrg get desc pos" # check for continued cont$="" if mid(text$[63],71,9)="CONTINUED" then cont$="Continued on next page",x$=set(71,63,9,"") if cont$="" then x$="cbox 36,60,RIGHTCOL,64,1,crows=62::HSHADE,ccols=48 58 67";exec(x$) } precopy { if copy=INTERNAL_COPY then cols$="100" if trim(get(84,3,3))<>"NO." and copy=INTERNAL_COPY then skip=1 if copy=INTERNAL_COPY and cont$="" then x$="cbox 81,60,100,66,MBOXSIZE,crows=62::HSHADE 64,ccols=93";exec(x$) } # erase columns ! vline "!!",erase # erase rows - or = hline "==",erase hline "--",erase hline "^^" # erase cost section if not copy 3 if copy CUSTOMER_COPY,FILE_COPY cerase 81,1,100,MAXROWS end if # default line enhancement const BROW=22 const EROW=60 cfont {desc_pos-2},BROW,2,EROW,DBFONT,IJUST # item cfont {desc_pos},BROW,67,EROW,DFONT # desc cfont 69,BROW,MAXRCOLS,EROW,DBRFONT # price if copy INTERNAL_COPY cfont 82,22,92,60,DBRFONT # cost cfont 94,22,99,60,DBRFONT # gm end if # header section cerase 1,1,100,10 cbox LEFTCOL,1,RIGHTCOL,MAXROWS,MBOXSIZE,crows=10:MBOXSIZE if copy INTERNAL_COPY cbox 81,1,100,MAXROWS,MBOXSIZE end if merge "Mrg form header" # handle copy title cbox 64,3.75,RIGHTCOL,5.25,1,100 text 64,4.6,{copy_title$[copy]},HBCFONT,12,cols=16,shade 0 # right header cbox 64,5.5,RIGHTCOL,10,1,ccols=72::ISHADE,crows=7 8.5 if copy INTERNAL_COPY cbox 81,1,100,4,1,ccols=90::ISHADE end if text 65,6.25,"Number",IFONT,9 text 65,7.75,"Date",IFONT,9 text 65,9.25,"Page",IFONT,9 if copy INTERNAL_COPY text 82,3,"Number",IFONT,9 end if text 73,6.25,{trim(get(72,3,6))},DBFONT text 73,7.75,{trim(get(71,7,8))},DBFONT text 73,9.25,{trim(get(77,5,3))},DBFONT if copy INTERNAL_COPY text 93.5,3,{trim(get(72,3,6))},DBFONT end if # bill to section cbox LEFTCOL,10,RIGHTCOL,15,MBOXSIZE,ccols=10::ISHADE 41 50::ISHADE text 2,11,"Bill to:",ICFONT,9,cols=8 text 2,12,{trim(get(20,10,20))},DBCFONT,cols=8 cmove 12,11,41,14,11,11 cfont 11,11,40,14,DBFONT # bill to addr # ship to section text 42,11,"Ship to:",ICFONT,9,cols=8 text 42,12,{trim(get(57,10,15))},DBCFONT,cols=8 cmove 49,11,MAXRCOLS,14,51,11 cfont 51,11,MAXCOLS,14,DBFONT # ship to addr # ribbon section cerase 17,16,17,18 cerase 26,16,26,18 cerase 32,16,32,18 cerase 48,16,48,18 cerase 57,16,57,18 cerase 62,16,62,18 cbox LEFTCOL,15,RIGHTCOL,19,MBOXSIZE,CROWS=17::ISHADE, ccols=17 26 32 48 57 62 cfont 2,16,16,16,ICFONT,9,proper # ref # cfont 18,16,25,16,ICFONT,9,proper # inv dt cfont 27,16,31,16,ICFONT,9,proper # slsp cfont 33,16,47,16,ICFONT,9,proper # terms cfont 49,16,56,16,ICFONT,9,proper # tax code cfont 58,16,61,16,ICFONT,9,proper # branch cfont 2,18,16,18,DBCFONT # ref # cfont 18,18,25,18,DBCFONT # inv dt cfont 27,18,31,18,DBCFONT # slsp cfont 33,18,47,18,DBCFONT # terms cfont 49,18,56,18,DBCFONT # tax code cfont 58,18,61,18,DBCFONT # branch # detail erase "!@desc_pos-1,20,desc_pos-1,60",0,0,1,1 erase "!@68,20,68,60",0,0,1,1 if copy INTERNAL_COPY erase "!@93,20,93,60",0,0,1,1 end if cbox LEFTCOL,19,RIGHTCOL,60,MBOXSIZE,crows=21::ISHADE,ccols=68 cbox {desc_pos-1},19,{desc_pos-1},60 if copy INTERNAL_COPY cbox 81,19,100,60,MBOXSIZE,crows=21::DSHADE,ccols=93 end if cfont {desc_pos-2},20,2,20,IFONT,9,proper,IJUST # item code cfont {desc_pos},20,67,20,IFONT,9,proper # desc cfont 69,20,MAXRCOLS,20,IRFONT,9,proper # price if copy INTERNAL_COPY cfont 82,20,92,20,IRFONT,9,proper # cost cfont 94,20,99,20,IRFONT,9,proper # gm end if # watermark - large font with light shading WATERMARK 1,{59-9*(wmlines-1)},{wdoc_title$},cgtimes,120,shade=WATERMARK_SHADE,center,cols=MAXCOLS,fit,spacing=1 # footer cerase 36,61,36,64 cerase 48,61,48,63 cerase 58,61,58,63 cerase 67,61,67,63 cerase 93,61,93,63 cbox LEFTCOL,60,RIGHTCOL,MAXROWS,MBOXSIZE cfont 37,61,47,61,IBRFONT,9,proper # amt cfont 49,61,57,61,IBRFONT,9,proper # tax cfont 59,61,66,61,IBRFONT,9,proper # frt cfont 68,61,MAXRCOLS,61,IBRFONT,10,proper # tot due if copy INTERNAL_COPY cfont 82,61,92,61,IBRFONT,10,proper # tot cost cfont 94,61,99,61,IRFONT,9,proper # gm end if cfont 37,63,47,63,DBRFONT # amt cfont 49,63,57,63,DBRFONT # tax cfont 59,63,66,63,DBRFONT # frt cfont 68,63,MAXRCOLS,63,DBRFONT,10 # tot due if copy INTERNAL_COPY cfont 82,63,92,63,DBRFONT,10 # tot cost cfont 94,63,99,63,DBRFONT # gm end if cfont 2,61,35,64,DFONT cfont 2,65,MAXRCOLS,65,DFONT text 1,65,{cont$},HRFONT,cols=MAXRCOLS #*************************************************************** # Less frequently used rule sets * #*************************************************************** [Enhance-A/P_Aging_Detail] #dsn_sample "/u0/unform_test/infor/txt/APAgedpayablesclassdetail.txt" #dsn_sample "/u0/unform_test/infor/txt/APAgedPayablesVendorDetail.txt" detect 0,1,"^APR730" detect 0,2,"^aged payables" detect 0,2,"^detail" # set up document constants const MAXCOLS=133 # max cols to output const MAXRCOLS=132 # MAXCOLS-1 const LEFTCOL=1 # left vertical line const RIGHTCOL=133 # right vertical line const MAXROWS=62 # max rows to output cols MAXCOLS # max output columns rows MAXROWS # max output rows const MAX_COPIES=1 pcopies MAX_COPIES landscape dpi 600 # see global constant above GSON # graphical shading title "A/P Detail Aging" # view in pdf properties prepage { merge "Mrg load row 1 variables" merge "Mrg load row 2 variables" # find detail header dethdr$="Vendor",dethdr_col=6 merge "Mrg find detail header" if detrow=0 then detrow=5 else detrow=detrow-1 } # leave first and last columns empty cmove 1,1,MAXCOLS,MAXROWS,2,1 # header merge "Mrg report header" # subheader cfont 2,3,MAXCOLS,{detrow-1},IFONT # rpt opts # detail line cerase 1,{detrow},MAXCOLS,{detrow+2} cbox LEFTCOL,{detrow-.5},RIGHTCOL,{detrow+2},1,DSHADE text 1,{detrow+1},"Vendor ID",IRFONT,cols=12 text 14,{detrow+1},"Name",IFONT text 23,{detrow},"Date Last\nPayment",ICFONT,cols=8 text 32,{detrow+1},"Document",ICFONT,cols=10 text 43,{detrow},"Doc\nGrp",ICFONT,cols=3 text 47,{detrow},"Entry\nDate",ICFONT,cols=8 text 56,{detrow},"Due\nDate",ICFONT,cols=5 text 62,{detrow+1},"Balance",IRFONT,cols=11 text 74,{detrow+1},"Current",IRFONT,cols=11 text 86,{detrow+1},"1-30",IRFONT,cols=11 text 98,{detrow+1},"31-60",IRFONT,cols=11 text 110,{detrow+1},"61-90",IRFONT,cols=11 text 122,{detrow+1},"Over90",IRFONT,cols=11 cfont 1,{detrow+3},12,MAXROWS,DRFONT # vendor code cfont 23,{detrow+3},30,MAXROWS,DBCFONT # pymt date cfont 32,{detrow+3},41,MAXROWS,DCFONT # doc cfont 43,{detrow+3},45,MAXROWS,DCFONT # doc grp cfont 47,{detrow+3},54,MAXROWS,DCFONT # entry date cfont 56,{detrow+3},60,MAXROWS,DCFONT # due date cfont 62,{detrow+3},72,MAXROWS,DRFONT # balance cfont 74,{detrow+3},84,MAXROWS,DRFONT # current cfont 86,{detrow+3},96,MAXROWS,DRFONT # 1-30 cfont 98,{detrow+3},108,MAXROWS,DRFONT # 31-60 cfont 110,{detrow+3},120,MAXROWS,DRFONT # 61-90 cfont 122,{detrow+3},132,MAXROWS,DRFONT # over 90 # vendor line font " @46,8,53,MAXROWS",-32,0,40,1,DBFONT,10 # class line font "Class@1,8,6,MAXROWS",0,0,5,1,IBFONT,10 font "Class@1,8,6,MAXROWS",6,0,MAXCOLS,1,DBFONT,10 # vendor tots erase "Vendor Total",0,-1,MAXCOLS,1 box "Vendor Total",-1,-.75,85,1.25,1,DSHADE box "Vendor Total",-48,.5,47,1 font "Vendor Total",0,0,12,1,IBFONT bold "Vendor Total",0,0,85,1 # class tots erase "Class Total",0,-1,MAXCOLS,1 box "Class Total",-2,-.75,85,1.25,1,ISHADE box "Class Total",-49,.5,47,1 font "Class Total",-1,0,12,1,IBLFONT bold "Class Total",0,0,85,1 # report tots erase "Report Total",0,-1,MAXCOLS,1 box "Report Total",-48,-1,MAXRCOLS,2,1,HSHADE font "Report Total",0,0,12,1,IBFONT bold "Report Total",0,0,86,1 # footer font "Document Count:",0,0,30,1,IBFONT font "End of Report",0,0,13,1,IBRFONT [Enhance-A/P_Aging_Summary] #dsn_sample "/u0/unform_test/infor/txt/APAgedPayablesAlphaSummary.txt" #dsn_sample "/u0/unform_test/infor/txt/APAgedPayablesClassSummary.txt" dsn_sample "/u0/unform_test/infor/txt/APAgedpayablesvendorsummary.txt" detect 0,1,"^APR730" detect 0,2,"^aged payables" detect 0,2,"^summary" # set up document constants const MAXCOLS=132 # max cols to output const MAXRCOLS=131 # MAXCOLS-1 const LEFTCOL=1 # left vertical line const RIGHTCOL=132 # right vertical line const MAXROWS=62 # max rows to output cols MAXCOLS # max output columns rows MAXROWS # max output rows const MAX_COPIES=1 pcopies MAX_COPIES landscape dpi 600 # see global constant above GSON # graphical shading title "A/P Summary Aging" # view in pdf properties prepage { merge "Mrg load row 1 variables" merge "Mrg load row 2 variables" # find detail header dethdr$="Vendor",dethdr_col=6 merge "Mrg find detail header" if detrow=0 then detrow=5 else detrow=detrow-1 } # leave first and last columns empty cmove 1,1,MAXCOLS,MAXROWS,2,1 # header merge "Mrg report header" # subheader cfont 2,3,MAXCOLS,{detrow-1},IFONT # rpt opts # detail line cerase 1,{detrow},MAXCOLS,{detrow} cerase 1,{detrow+2},MAXCOLS,{detrow+2} cbox LEFTCOL,{detrow},RIGHTCOL,{detrow+2},1,DSHADE cfont 1,{detrow+1},12,{detrow+1},IRFONT # vendor cfont 14,{detrow+1},46,{detrow+1},IFONT # name cfont 48,{detrow+1},59,{detrow+1},IFONT # total line header cfont 61,{detrow+1},71,{detrow+1},IRFONT,10 # bal cfont 73,{detrow+1},83,{detrow+1},IRFONT # current cfont 85,{detrow+1},95,{detrow+1},IRFONT # 1-60 cfont 97,{detrow+1},107,{detrow+1},IRFONT # 31-60 cfont 109,{detrow+1},119,{detrow+1},IRFONT # 61-90 cfont 121,{detrow+1},MAXRCOLS,{detrow+1},IRFONT # over 90 cfont 1,{detrow+3},12,MAXROWS,DRFONT # vendor cfont 14,{detrow+3},46,MAXROWS,DBFONT # name cfont 48,{detrow+3},59,MAXROWS,DBFONT,10 # total line header cfont 61,{detrow+3},71,MAXROWS,DBRFONT,10 # bal cfont 73,{detrow+3},83,MAXROWS,DRFONT # current cfont 85,{detrow+3},95,MAXROWS,DRFONT # 1-60 cfont 97,{detrow+3},107,MAXROWS,DRFONT # 31-60 cfont 109,{detrow+3},119,MAXROWS,DRFONT # 61-90 cfont 121,{detrow+3},MAXRCOLS,MAXROWS,DRFONT # over 90 # class line font "Class@1,8,6,MAXROWS",0,0,5,1,IBFONT,10 font "Class@1,8,6,MAXROWS",6,0,MAXCOLS,1,DBFONT,10 # class tots erase "Class Total",0,-1,MAXCOLS,1 box "Class Total",-2,-.75,85,1.25,1,ISHADE box "Class Total",-48,.5,46,1 font "Class Total",-1,0,12,1,IBLFONT bold "Class Total",0,0,85,1 # report tots erase "Report Total",0,-1,MAXCOLS,1 box "Report Total",-47,-1,MAXRCOLS,2,1,HSHADE font "Report Total",0,0,12,1,IBFONT bold "Report Total",0,0,86,1 # footer font "Vendor Count:",0,0,20,1,IBFONT font "End of Report",0,0,13,1,IBRFONT [Enhance-A/P_Cash_Requirements_Detail] dsn_sample "/u0/unform_test/infor/txt/APCashAlphaOrder.txt" #dsn_sample "/u0/unform_test/infor/txt/APCashClassOrder.txt" #dsn_sample "/u0/unform_test/infor/txt/APCashVendor.txt" detect 0,1,"^APR710" detect 0,2,"^cash requirements report" detect 3,3-62,"^document" # set up document constants const MAXCOLS=132 # max cols to output const MAXRCOLS=131 # MAXCOLS-1 const LEFTCOL=1 # left vertical line const RIGHTCOL=132 # right vertical line const MAXROWS=62 # max rows to output cols MAXCOLS # max output columns rows MAXROWS # max output rows const MAX_COPIES=1 pcopies MAX_COPIES landscape dpi 600 # see global constant above GSON # graphical shading title "A/P Cash Requirements Detail" # view in pdf properties prepage { merge "Mrg load row 1 variables" merge "Mrg load row 2 variables" # find detail header dethdr$="DOCUMENT",dethdr_col=3 merge "Mrg find detail header" if detrow=0 then detrow=4 else detrow=detrow-1 } # leave first and last columns empty cmove 1,1,MAXCOLS,MAXROWS,2,1 # header merge "Mrg report header" # subheader cfont 2,3,MAXCOLS,{detrow-1},IFONT # rpt opts # detail cerase 1,{detrow},MAXCOLS,{detrow} cerase 1,{detrow+2},MAXCOLS,{detrow+2} cbox LEFTCOL,{detrow},RIGHTCOL,{detrow+2},1,ISHADE cfont 2,{detrow+1},11,{detrow+1},ICFONT,proper # doc cfont 13,{detrow+1},20,{detrow+1},ICFONT,proper # due date cfont 22,{detrow+1},29,{detrow+1},ICFONT,proper # disc date cfont 31,{detrow+1},41,{detrow+1},IRFONT,proper # amount cfont 43,{detrow+1},53,{detrow+1},IRFONT,proper # discount cfont 55,{detrow+1},66,{detrow+1},IRFONT,proper # 1st date cfont 68,{detrow+1},79,{detrow+1},IRFONT,proper # 2nd date cfont 81,{detrow+1},92,{detrow+1},IRFONT,proper # 3rd date cfont 94,{detrow+1},105,{detrow+1},IRFONT,proper # 4th date cfont 107,{detrow+1},118,{detrow+1},IRFONT,proper # 5th date cfont 120,{detrow+1},MAXRCOLS,{detrow+1},IRFONT,proper # 6th date cfont 2,{detrow+3},11,MAXROWS,DCFONT # doc cfont 13,{detrow+3},20,MAXROWS,DBCFONT # due date cfont 22,{detrow+3},29,MAXROWS,DBCFONT # disc date cfont 31,{detrow+3},41,MAXROWS,DBRFONT # amount cfont 43,{detrow+3},53,MAXROWS,DBRFONT # discount cfont 55,{detrow+3},66,MAXROWS,DRFONT # 1st date cfont 68,{detrow+3},79,MAXROWS,DRFONT # 2nd date cfont 81,{detrow+3},92,MAXROWS,DRFONT # 3rd date cfont 94,{detrow+3},105,MAXROWS,DRFONT # 4th date cfont 107,{detrow+3},118,MAXROWS,DRFONT # 5th date cfont 120,{detrow+3},MAXRCOLS,MAXROWS,DRFONT # 6th date # vendor header font "Vendor@1,4,7,MAXROWS",0,0,6,1,IFONT,10 font "Vendor@1,4,7,MAXROWS",7,0,MAXCOLS,1,DBFONT,10,black # class line font "Class@1,8,6,MAXROWS",0,0,5,1,IBFONT,10 font "Class@1,8,6,MAXROWS",6,0,MAXCOLS,1,DBFONT,10 # vendor tots erase "VENDOR TOTAL",0,-1,MAXCOLS,1 box "VENDOR TOTAL",-1,-.75,115,1.25,1,DSHADE box "VENDOR TOTAL",-17,.5,16,1 font "VENDOR TOTAL",0,0,12,1,IBFONT,PROPER bold "VENDOR TOTAL",0,0,85,1 # class tots erase "CLASS TOTAL",0,-1,MAXCOLS,1 box "CLASS TOTAL",-2,-.75,115,1.25,1,ISHADE box "CLASS TOTAL",-18,.5,17,1 font "CLASS TOTAL",-1,0,12,1,IBLFONT,proper bold "CLASS TOTAL",0,0,104,1 # footer erase "REPORT TOTAL",0,-1,MAXCOLS,1 box "REPORT TOTAL",-17,-1,MAXRCOLS,2,1,HSHADE font "REPORT TOTAL",0,0,12,1,IBFONT,proper bold "REPORT TOTAL",13,0,MAXCOLS,1 # totals # footer font "VENDORS:",0,0,20,1,IBFONT,proper font "End of Report",0,0,13,1,IBRFONT [Enhance-A/P_Cash_Requirements_Summary] #dsn_sample "/u0/unform_test/infor/txt/APCashAlphaSummar.txt" #dsn_sample "/u0/unform_test/infor/txt/APCashClassSummary.txt" dsn_sample "/u0/unform_test/infor/txt/APCashVendorSummary.txt" detect 0,1,"^APR710" detect 0,2,"^cash requirements report" detect 5,3-62,"^vendor" # set up document constants const MAXCOLS=133 # max cols to output const MAXRCOLS=132 # MAXCOLS-1 const LEFTCOL=1 # left vertical line const RIGHTCOL=133 # right vertical line const MAXROWS=62 # max rows to output cols MAXCOLS # max output columns rows MAXROWS # max output rows const MAX_COPIES=1 pcopies MAX_COPIES landscape dpi 600 # see global constant above GSON # graphical shading title "A/P Cash Requirements Summary" # view in pdf properties prepage { merge "Mrg load row 1 variables" merge "Mrg load row 2 variables" # find detail header dethdr$="VENDOR",dethdr_col=5 merge "Mrg find detail header" if detrow=0 then detrow=4 else detrow=detrow-1 } # leave first and last columns empty cmove 1,1,MAXCOLS,MAXROWS,2,1 # header merge "Mrg report header" # subheader cfont 2,3,MAXCOLS,{detrow-1},IFONT # rpt opts # detail cerase 1,{detrow},MAXCOLS,{detrow} cerase 1,{detrow+2},MAXCOLS,{detrow+2} cbox LEFTCOL,{detrow},RIGHTCOL,{detrow+2},1,ISHADE cfont 2,{detrow+1},11,{detrow+1},IRFONT,proper # code cfont 13,{detrow+1},42,{detrow+1},IFONT,proper # name cfont 44,{detrow+1},54,{detrow+1},IRFONT,proper # balance cfont 57,{detrow+1},67,{detrow+1},IRFONT,proper # 1st date cfont 70,{detrow+1},80,{detrow+1},IRFONT,proper # 2nd date cfont 83,{detrow+1},93,{detrow+1},IRFONT,proper # 3rd date cfont 96,{detrow+1},106,{detrow+1},IRFONT,proper # 4th date cfont 109,{detrow+1},119,{detrow+1},IRFONT,proper # 5th date cfont 122,{detrow+1},132,{detrow+1},IRFONT,proper # 6th date cfont 2,{detrow+3},11,MAXROWS,DRFONT # code cfont 13,{detrow+3},42,MAXROWS,DBFONT # name cfont 44,{detrow+3},54,MAXROWS,DBRFONT # balance cfont 57,{detrow+3},67,MAXROWS,DRFONT # 1st date cfont 70,{detrow+3},80,MAXROWS,DRFONT # 2nd date cfont 83,{detrow+3},93,MAXROWS,DRFONT # 3rd date cfont 96,{detrow+3},106,MAXROWS,DRFONT # 4th date cfont 109,{detrow+3},119,MAXROWS,DRFONT # 5th date cfont 122,{detrow+3},132,MAXROWS,DRFONT # 6th date # class line font "Class@1,8,6,MAXROWS",0,0,5,1,IBFONT,10 font "Class@1,8,6,MAXROWS",6,0,MAXCOLS,1,DBFONT,10 # class tots erase "CLASS TOTAL",0,-1,MAXCOLS,1 box "CLASS TOTAL",-2,-.75,104,1.25,1,ISHADE box "CLASS TOTAL",-30,.5,29,1 font "CLASS TOTAL",-1,0,12,1,IBLFONT,proper bold "CLASS TOTAL",0,0,104,1 # footer erase "REPORT TOTAL",0,-1,MAXCOLS,1 box "REPORT TOTAL",-29,-1,MAXRCOLS,2,1,HSHADE font "REPORT TOTAL",0,0,12,1,IBFONT,proper bold "REPORT TOTAL",13,0,MAXCOLS,1 # totals # footer font "VENDORS:",0,0,20,1,IBFONT,proper font "End of Report",0,0,13,1,IBRFONT [Enhance-A/R_Aged_Trial_Balance_Detail] #dsn_sample "/u0/unform_test/infor/txt/ARATBDetailAlphaOrder.txt" #dsn_sample "/u0/unform_test/infor/txt/ARATBDetailClassOrder.txt" #dsn_sample "/u0/unform_test/infor/txt/ARATBDetailCustOrder.txt" dsn_sample "/u0/unform_test/infor/txt/ARATBDetailSlspOrder.txt" detect 0,1,"^arr715" detect 0,2,"^aged trial balance - detail " # set up document constants const MAXCOLS=134 # max cols to output const MAXRCOLS=133 # MAXCOLS-1 const LEFTCOL=1 # left vertical line const RIGHTCOL=134 # right vertical line const MAXROWS=62 # max rows to output cols MAXCOLS # max output columns rows MAXROWS # max output rows const MAX_COPIES=1 pcopies MAX_COPIES landscape dpi 600 # see global constant above GSON # graphical shading title "A/R Detail Aging" # view in pdf properties prepage { merge "Mrg load row 1 variables" merge "Mrg load row 2 variables" # find detail header dethdr$="Customer",dethdr_col=3 merge "Mrg find detail header" if detrow=0 then detrow=5 else detrow=detrow-1 # tag memos for row=detrow+3 to MAXROWS if left(text$[row],10)<>" " then continue if mid(text$[row],12,5)=" " then continue x$=set(1,row,2,"mL") next row } # leave first and last columns empty cmove 1,1,MAXCOLS,MAXROWS,2,1 # header merge "Mrg report header" # subheader cfont 2,3,MAXCOLS,{detrow-1},IFONT # rpt opts # detail section cerase 1,{detrow+2},MAXCOLS,{detrow+2} cbox LEFTCOL,{detrow-.5},RIGHTCOL,{detrow+1.5},1,ISHADE cfont 1,{detrow},11,{detrow+1},IRFONT # customer cfont 13,{detrow},37,{detrow+1},IFONT # name cfont 39,{detrow},46,{detrow+1},ICFONT # lst Pymt dt cfont 48,{detrow},53,{detrow+1},IRFONT # doc # cfont 55,{detrow},55,{detrow+1},ICFONT # type cfont 57,{detrow},58,{detrow+1},ICFONT # type cfont 60,{detrow},67,{detrow+1},ICFONT # entry dt cfont 69,{detrow},73,{detrow+1},ICFONT # due dt cfont 75,{detrow},86,{detrow+1},IRFONT,proper # current cfont 88,{detrow},98,{detrow+1},IRFONT # 1-60 cfont 100,{detrow},110,{detrow+1},IRFONT # 31-60 cfont 112,{detrow},122,{detrow+1},IRFONT # 61-90 cfont 124,{detrow},MAXRCOLS,{detrow+1},IRFONT,proper cfont 1,{detrow+3},11,MAXROWS,DRFONT # customer cfont 13,{detrow+3},37,MAXROWS,DBFONT # name cfont 39,{detrow+3},46,MAXROWS,DCFONT # lst Pymt dt cfont 48,{detrow+3},53,MAXROWS,DRFONT # doc # cfont 55,{detrow+3},55,MAXROWS,DCFONT # type cfont 57,{detrow+3},58,MAXROWS,DCFONT # type cfont 60,{detrow+3},67,MAXROWS,DCFONT # entry dt cfont 69,{detrow+3},73,MAXROWS,DCFONT # due dt cfont 75,{detrow+3},86,MAXROWS,DRFONT # current cfont 88,{detrow+3},98,MAXROWS,DRFONT # 1-60 cfont 100,{detrow+3},110,MAXROWS,DRFONT # 31-60 cfont 112,{detrow+3},122,MAXROWS,DRFONT # 61-90 cfont 124,{detrow+3},MAXRCOLS,MAXROWS,DRFONT # over 90 # special memos font "mL@1,5,3,MAXROWS",11,0,MAXCOLS,1,IFONT erase "mL@1,5,3,MAXROWS",0,0,2,1 # customer tots erase "Cust Total",0,-1,MAXCOLS,1 font "Cust Total",0,0,11,1,IBFONT,proper bold "Cust Total",0,0,84,1 font "Cust Total",12,0,12,1,DBRFONT,10 # bal # class line font "Class@1,5,6,MAXROWS",0,0,5,1,IBFONT,10 font "Class@1,5,6,MAXROWS",6,0,MAXCOLS,1,DBFONT,10 # class tots erase "Class Total",0,-1,MAXCOLS,1 box "Class Total",-5,-.75,88.5,1.25,1,ISHADE box "Class Total",-50,.5,49,1 font "Class Total",-4,0,15,1,IBLFONT,proper bold "Class Total",0,0,104,1 font "Class Total",12,0,12,1,DBRFONT # slsp/terr line font "Slsp/Terr@1,5,9,MAXROWS",0,0,9,1,IBFONT,10 font "Slsp/Terr@1,5,9,MAXROWS",10,0,MAXCOLS,1,DBFONT,10 # slsp/terr tots erase "Slsp/Terr Total",0,-1,MAXCOLS,1 box "Slsp/Terr Total",-1,-.75,88.5,1.25,1,ISHADE box "Slsp/Terr Total",-50,.5,49,1 font "Slsp/Terr Total",0,0,15,1,IBLFONT,proper bold "Slsp/Terr Total",0,0,104,1 font "Slsp/Terr Total",17,0,11,1,DBRFONT # report tots erase "Report Total",0,-1,MAXCOLS,1 box "Report Total",-49,-1,MAXRCOLS,2,1,HSHADE font "Report Total",-3,0,15,1,IBLFONT,proper bold "Report Total",0,0,88,1 font "Report Total",14,0,11,1,DBRFONT,10 # bal # footer font "Customer Count:",0,0,50,2,IBFONT font "End of Report",0,0,13,1,IBRFONT [Enhance-A/R_Aged_Trial_Balance_Summary] #dsn_sample "/u0/unform_test/infor/txt/ARATBSummaryAlphaOrder.txt" #dsn_sample "/u0/unform_test/infor/txt/ARATBSummaryClassOrder.txt" #dsn_sample "/u0/unform_test/infor/txt/ARATBSummaryCustOrder.txt" dsn_sample "/u0/unform_test/infor/txt/ARATBSummarySlspOrder.txt" detect 0,1,"^arr715" detect 0,2,"^aged trial balance - summary" # set up document constants const MAXCOLS=134 # max cols to output const MAXRCOLS=133 # MAXCOLS-1 const LEFTCOL=1 # left vertical line const RIGHTCOL=134 # right vertical line const MAXROWS=62 # max rows to output cols MAXCOLS # max output columns rows MAXROWS # max output rows const MAX_COPIES=1 pcopies MAX_COPIES landscape dpi 600 # see global constant above GSON # graphical shading title "A/R Summary Aging" # view in pdf properties prepage { merge "Mrg load row 1 variables" merge "Mrg load row 2 variables" # find detail header dethdr$="Customer",dethdr_col=3 merge "Mrg find detail header" if detrow=0 then detrow=5 else detrow=detrow-1 # tag memos for row=detrow+3 to MAXROWS if left(text$[row],10)<>" " then continue if mid(text$[row],12,5)=" " then continue x$=set(1,row,2,"mL") next row } # leave first and last columns empty cmove 1,1,MAXCOLS,MAXROWS,2,1 # header merge "Mrg report header" # subheader cfont 2,3,MAXCOLS,{detrow-1},IFONT # rpt opts # detail section cerase 1,{detrow+2},MAXCOLS,{detrow+2} cbox LEFTCOL,{detrow-.5},RIGHTCOL,{detrow+2},1,ISHADE cfont 1,{detrow},11,{detrow+1},IRFONT # customer cfont 13,{detrow},42,{detrow+1},IFONT # name cfont 44,{detrow},51,{detrow+1},ICFONT # lst pymt dt cfont 53,{detrow},60,{detrow+1},ICFONT # lst sale dt cfont 62,{detrow},73,{detrow+1},IRFONT # bal cfont 75,{detrow},85,{detrow+1},IRFONT,proper # current cfont 87,{detrow},97,{detrow+1},IRFONT # 1-60 cfont 99,{detrow},109,{detrow+1},IRFONT # 31-60 cfont 111,{detrow},121,{detrow+1},IRFONT # 61-90 cfont 123,{detrow},MAXRCOLS,{detrow+1},IRFONT,proper cfont 1,{detrow+3},11,MAXROWS,DRFONT # customer cfont 13,{detrow+3},42,MAXROWS,DBFONT # name cfont 44,{detrow+3},51,MAXROWS,DCFONT # lst pymt dt cfont 53,{detrow+3},60,MAXROWS,DCFONT # lst sale dt cfont 62,{detrow+3},73,MAXROWS,DBRFONT # bal cfont 75,{detrow+3},85,MAXROWS,DRFONT # current cfont 87,{detrow+3},97,MAXROWS,DRFONT # 1-60 cfont 99,{detrow+3},109,MAXROWS,DRFONT # 31-60 cfont 111,{detrow+3},121,MAXROWS,DRFONT # 61-90 cfont 123,{detrow+3},MAXRCOLS,MAXROWS,DRFONT # over 90 # special memos font "mL@1,5,3,MAXROWS",11,0,MAXCOLS,1,IFONT erase "mL@1,5,3,MAXROWS",0,0,2,1 # class line font "Class@1,5,6,MAXROWS",0,0,5,1,IBFONT,10 font "Class@1,5,6,MAXROWS",6,0,MAXCOLS,1,DBFONT,10 # class tots erase "Class Total",0,-1,MAXCOLS,1 box "Class Total",-6,-.75,90,1.25,1,ISHADE box "Class Total",-49,.5,43,1 font "Class Total",-5,0,16,1,IBLFONT,proper bold "Class Total",0,0,104,1 # slsp/terr line font "Slsp/Terr@1,5,9,MAXROWS",0,0,9,1,IBFONT,10 font "Slsp/Terr@1,5,9,MAXROWS",10,0,MAXCOLS,1,DBFONT,10 # slsp/terr tots erase "Slsp/Terr Total",0,-1,MAXCOLS,1 box "Slsp/Terr Total",-2,-.75,90,1.25,1,ISHADE box "Slsp/Terr Total",-45,.5,43,1 font "Slsp/Terr Total",-1,0,16,1,IBLFONT,proper bold "Slsp/Terr Total",0,0,104,1 # report totals erase "Report Total",0,-1,MAXCOLS,1 box "Report Total",-48,-1,MAXRCOLS,2,1,HSHADE font "Report Total",-4,0,16,1,IBLFONT,proper bold "Report Total",0,0,85,1 font "Report Total",14,0,11,1,DBRFONT,10 # bal # footer font "Customer Count:",0,0,30,1,IBFONT font "End of Report",0,0,13,1,IBRFONT [Enhance-A/R_Aged_Trial_Balance_Transactions] #dsn_sample "/u0/unform_test/infor/txt/ARATBTransactionAlphaOrder.txt" dsn_sample "/u0/unform_test/infor/txt/ARATBTransactionClassOrder.txt" #dsn_sample "/u0/unform_test/infor/txt/ARATBTransactionCustOrder.txt" #dsn_sample "/u0/unform_test/infor/txt/ARATBTransactionSlspOrder.txt" detect 0,1,"^arr715" detect 0,2,"^aged trial balance-detail/trx" # set up document constants const MAXCOLS=134 # max cols to output const MAXRCOLS=133 # MAXCOLS-1 const LEFTCOL=1 # left vertical line const RIGHTCOL=134 # right vertical line const MAXROWS=62 # max rows to output cols MAXCOLS # max output columns rows MAXROWS # max output rows const MAX_COPIES=1 pcopies MAX_COPIES landscape dpi 600 # see global constant above GSON # graphical shading title "A/R Detail Aging-Trx" # view in pdf properties prepage { merge "Mrg load row 1 variables" merge "Mrg load row 2 variables" # find detail header dethdr$="Doc# D TY",dethdr_col=3 merge "Mrg find detail header" if detrow=0 then detrow=5 else detrow=detrow-1 # tag memos for row=detrow+3 to MAXROWS if trim(text$[row])="" then continue if left(text$[row],6)<>" " then continue if mid(text$[row],43,8)<>" " then continue if mid(text$[row],60,8)<>" " then continue x$=set(1,row,2,"mL") next row } # leave first and last columns empty cmove 1,1,MAXCOLS,MAXROWS,2,1 # header merge "Mrg report header" # subheader cfont 2,3,MAXCOLS,{detrow-1},IFONT # rpt opts # detail section cerase 1,{detrow+2},MAXCOLS,{detrow+2} cerase 43,{detrow},68,{detrow} cbox LEFTCOL,{detrow-.5},RIGHTCOL,{detrow+2},1,ISHADE cfont 1,{detrow},7,{detrow+1},IRFONT # doc # cfont 9,{detrow},9,{detrow+1},ICFONT # type cfont 11,{detrow},12,{detrow+1},ICFONT # type cfont 14,{detrow},21,{detrow+1},ICFONT # entry dt cfont 23,{detrow},30,{detrow+1},ICFONT # due dt cfont 32,{detrow},42,{detrow+1},IRFONT # orig amt cfont 44,{detrow},51,{detrow+1},ICFONT # trs dt cfont 53,{detrow},56,{detrow+1},ICFONT # trs type cfont 58,{detrow},68,{detrow+1},IRFONT # trs amt cfont 70,{detrow},85,{detrow+1},IRFONT,proper # current cfont 87,{detrow},97,{detrow+1},IRFONT # 1-60 cfont 99,{detrow},109,{detrow+1},IRFONT # 31-60 cfont 111,{detrow},121,{detrow+1},IRFONT # 61-90 cfont 123,{detrow},MAXRCOLS,{detrow+1},IRFONT,proper cfont 1,{detrow+3},7,MAXROWS,DRFONT # doc # cfont 9,{detrow+3},9,MAXROWS,DCFONT # type cfont 11,{detrow+3},12,MAXROWS,DCFONT # type cfont 14,{detrow+3},21,MAXROWS,DCFONT # entry dt cfont 23,{detrow+3},30,MAXROWS,DCFONT # due dt cfont 32,{detrow+3},42,MAXROWS,DRFONT # orig amt cfont 44,{detrow+3},51,MAXROWS,DCFONT # trs dt cfont 53,{detrow+3},56,MAXROWS,DCFONT # trs type cfont 58,{detrow+3},68,MAXROWS,DRFONT # trs amt cfont 70,{detrow+3},85,MAXROWS,DRFONT # current cfont 87,{detrow+3},97,MAXROWS,DRFONT # 1-60 cfont 99,{detrow+3},109,MAXROWS,DRFONT # 31-60 cfont 111,{detrow+3},121,MAXROWS,DRFONT # 61-90 cfont 123,{detrow+3},MAXRCOLS,MAXROWS,DRFONT # over 90 # special memos font "mL@1,5,3,MAXROWS",6,0,MAXCOLS,1,IFONT erase "mL@1,5,3,MAXROWS",0,0,2,1 # Customer line font "Customer:",0,0,10,1,DFONT font "Customer:",10,0,10,1,DRFONT font "Customer:",21,0,30,1,DBFONT font "Customer:",21,1,30,1,DFONT font "Customer:",53,0,18,1,DFONT bold "Customer:",73,0,61,1 # class line font "Class@1,5,6,MAXROWS",0,0,5,1,IBFONT,10 font "Class@1,5,6,MAXROWS",6,0,MAXCOLS,1,DBFONT,10 # class tots erase "Class Total",0,-1,MAXCOLS,1 box "Class Total",-6,-.75,78,1.25,1,ISHADE box "Class Total",-61,.5,59,1 font "Class Total",-5,0,16,1,IBLFONT,proper bold "Class Total",0,0,104,1 # slsp/terr line font "Slsp/Terr@1,5,10,MAXROWS",0,0,9,1,IFONT,10 font "Slsp/Terr@1,5,10,MAXROWS",10,0,MAXCOLS,1,DBFONT,10 # slsp/terr tots erase "Slsp/Terr Total",0,-1,MAXCOLS,1 box "Slsp/Terr Total",-2,-.75,78,1.25,1,ISHADE box "Slsp/Terr Total",-57,.5,55,1 font "Slsp/Terr Total",-1,0,16,1,IBLFONT,proper bold "Slsp/Terr Total",0,0,104,1 # report totals erase "Report Total",0,-1,MAXCOLS,1 box "Report Total",-60,-1,MAXRCOLS,2,1,HSHADE font "Report Total",-4,0,16,1,IBLFONT,proper bold "Report Total",0,0,85,1 # footer font "Customer Count:",0,0,40,2,IBFONT font "End of Report",0,0,13,1,IBRFONT [Enhance-G/L_Profit_&_Loss_820/828] dsn_sample "/u0/unform_test/infor/txt/GLglr820.txt" #dsn_sample "/u0/unform_test/infor/txt/GLglr828.txt" detect 0,1,"^~(GLR820)|(GLR828)" # set up document constants const MAXCOLS=134 # max cols to output const MAXRCOLS=133 # MAXCOLS-1 const LEFTCOL=1 # left vertical line const RIGHTCOL=134 # right vertical line const MAXROWS=58 # max rows to output cols MAXCOLS # max output columns rows MAXROWS # max output rows const MAX_COPIES=1 pcopies MAX_COPIES landscape dpi 600 # see global constant above GSON # graphical shading title "G/L Profit & Loss" # view in pdf properties prepage { dhdlns=2 title_pos=52 first_value_pos=14 desc_pos=21 } merge "Mrg gl report prepage" merge "Mrg gl find sub totals" merge "Mrg gl find titles" # leave first and last columns empty cmove 1,1,MAXCOLS,MAXROWS,2,1 # default detail line cfont 1,1,17,MAXROWS,DRFONT # period end cfont 19,1,26,MAXROWS,DRFONT # % cfont 28,1,42,MAXROWS,DRFONT # period end cfont 44,1,51,MAXROWS,DRFONT # % cfont 53,1,82,MAXROWS,DBFONT # desc cfont 84,1,98,MAXROWS,DRFONT # ytd cfont 100,1,108,MAXROWS,DRFONT # % cfont 110,1,124,MAXROWS,DRFONT # ytd cfont 126,1,MAXRCOLS,MAXROWS,DRFONT # % merge "Mrg gl report hdr" # detail heading cerase 1,{lineno},MAXCOLS,{lineno} cbox LEFTCOL,{lineno-2.5},RIGHTCOL,{lineno-.5},1,DSHADE cfont 1,{lineno-2},17,{lineno-1},IRFONT,proper # period end cfont 19,{lineno-2},26,{lineno-1},IRFONT,proper # % cfont 28,{lineno-2},42,{lineno-1},IRFONT,proper # period end cfont 44,{lineno-2},51,{lineno-1},IRFONT,proper # % cfont 53,{lineno-2},82,{lineno-1},IBFONT,proper # desc cfont 84,{lineno-2},98,{lineno-1},IRFONT,proper # ytd cfont 100,{lineno-2},108,{lineno-1},IRFONT,proper # % cfont 110,{lineno-2},124,{lineno-1},IRFONT,proper # ytd cfont 126,{lineno-2},MAXRCOLS,{lineno-1},IRFONT,proper # % merge "Mrg gl title handler" # footer erase "-----",0,0,MAXCOLS,1 bold "-----",0,1,MAXCOLS,2 box "Gross Profit",-52,-.6,133,1.1,1,ISHADE box "Net Profit or Loss",-52,-.6,133,1.1,1,HSHADE [Enhance-G/L_Profit_&_Loss_822/824/826/834/836/842] #dsn_sample "/u0/unform_test/infor/txt/GLglr842.txt" #dsn_sample "/u0/unform_test/infor/txt/GLglr836.txt" #dsn_sample "/u0/unform_test/infor/txt/GLglr834.txt" #dsn_sample "/u0/unform_test/infor/txt/GLglr826.txt" #dsn_sample "/u0/unform_test/infor/txt/GLglr824.txt" #dsn_sample "/u0/unform_test/infor/txt/GLglr822.txt" #dsn_sample "/u0/unform_test/infor/txt/GLProfitLoss34.txt" detect 0,1,"^~(GLR822)|(GLR824)|(GLR826)|(GLR834)|(GLR836)|(GLR842)" # set up document constants const MAXCOLS=107 # max cols to output const MAXRCOLS=106 # MAXCOLS-1 const LEFTCOL=1 # left vertical line const RIGHTCOL=107 # right vertical line const MAXROWS=58 # max rows to output cols MAXCOLS # max output columns rows MAXROWS # max output rows const MAX_COPIES=1 pcopies MAX_COPIES landscape dpi 600 # see global constant above GSON # graphical shading title "G/L Profit & Loss" # view in pdf properties prepage { dhdlns=2 title_pos=1 first_value_pos=44 desc_pos=2 } merge "Mrg gl report prepage" merge "Mrg gl find sub totals" merge "Mrg gl find titles" # leave first and last columns empty cmove 1,1,MAXCOLS,MAXROWS,2,1 # erase lines hline "--",erase # default detail line cfont 2,1,32,MAXROWS,DBFONT # desc cfont 33,1,47,MAXROWS,DRFONT # period end cfont 49,1,56,MAXROWS,DRFONT # % cfont 58,1,72,MAXROWS,DRFONT # period end last yr cfont 74,1,81,MAXROWS,DRFONT # % cfont 83,1,97,MAXROWS,DRFONT # var amt cfont 99,1,106,MAXROWS,DRFONT # var pct merge "Mrg gl report hdr" # detail heading cerase 1,{lineno},MAXCOLS,{lineno} cbox LEFTCOL,{lineno-2.5},RIGHTCOL,{lineno-.5},1,DSHADE cfont 1,{lineno-2},30,{lineno-1},IBFONT,proper # desc cfont 32,{lineno-2},47,{lineno-1},IRFONT,proper # period end cfont 49,{lineno-2},56,{lineno-1},IRFONT,proper,black # % cfont 58,{lineno-2},72,{lineno-1},IRFONT,proper # period end last yr cfont 74,{lineno-2},81,{lineno-1},IRFONT,proper,black # % cfont 83,{lineno-1},97,{lineno-1},IRFONT,proper # var amt cfont 99,{lineno-1},106,{lineno-1},IRFONT,proper # var pct cfont 93,{lineno-2},106,{lineno-2},ICFONT,proper # var amt/pct merge "Mrg gl title handler" # footer erase "~^(Total)|(Gross Profit)|(Net Profit)",0,-1,MAXCOLS,1 bold "~^(Total)|(Gross Profit)|(Net Profit)",0,0,MAXCOLS,2 box "Gross Profit",-1,-.6,106,1.1,1,ISHADE box "Net Profit",-1,-.6,106,1.1,1,HSHADE [Enhance-G/L_Profit_&_Loss_830] #dsn_sample "/u0/unform_test/infor/txt/GLglr830.txt" detect 0,1,"^GLR830" # set up document constants const MAXCOLS=134 # max cols to output const MAXRCOLS=133 # MAXCOLS-1 const LEFTCOL=1 # left vertical line const RIGHTCOL=134 # right vertical line const MAXROWS=58 # max rows to output cols MAXCOLS # max output columns rows MAXROWS # max output rows const MAX_COPIES=1 pcopies MAX_COPIES landscape dpi 600 # see global constant above GSON # graphical shading title "G/L Profit & Loss" # view in pdf properties prepage { dhdlns=2 title_pos=52 first_value_pos=11 desc_pos=10 } merge "Mrg gl report prepage" merge "Mrg gl find sub totals" merge "Mrg gl find titles" # leave first and last columns empty cmove 1,1,MAXCOLS,MAXROWS,2,1 # default detail line cfont 1,1,13,MAXROWS,DRFONT # period end cfont 15,1,27,MAXROWS,DRFONT # budget cfont 29,1,42,MAXROWS,DRFONT # var amt cfont 44,1,51,MAXROWS,DRFONT # var % cfont 53,1,82,MAXROWS,DBFONT # desc cfont 84,1,95,MAXROWS,DRFONT # ytd cfont 97,1,109,MAXROWS,DRFONT # budget ytd cfont 111,1,124,MAXROWS,DRFONT # var amt cfont 126,1,MAXRCOLS,MAXROWS,DRFONT # var % merge "Mrg gl report hdr" # detail heading cerase 1,{lineno},MAXCOLS,{lineno} cbox LEFTCOL,{lineno-2.5},RIGHTCOL,{lineno-.5},1,DSHADE cfont 1,{lineno-2},13,{lineno-1},IRFONT,proper # period end cfont 15,{lineno-2},27,{lineno-1},IRFONT,proper # budget cfont 29,{lineno-1},42,{lineno-1},IRFONT,proper # var amt cfont 44,{lineno-1},51,{lineno-1},IRFONT,proper # var % cfont 35,{lineno-2},50,{lineno-2},ICFONT,proper # var amt/% cfont 53,{lineno-2},81,{lineno-1},IBFONT,proper # desc cfont 83,{lineno-2},95,{lineno-1},IRFONT,proper # ytd cfont 97,{lineno-2},109,{lineno-1},IRFONT,proper # budget ytd cfont 111,{lineno-1},124,{lineno-1},IRFONT,proper # var amt cfont 126,{lineno-1},MAXRCOLS,{lineno-1},IRFONT,proper # var % cfont 117,{lineno-2},MAXRCOLS,{lineno-2},ICFONT,proper # var amt/% merge "Mrg gl title handler" # footer erase "-----",0,0,MAXCOLS,1 bold "-----",0,1,MAXCOLS,2 box "Gross Profit",-52,-.6,133,1.1,1,ISHADE box "Net Profit or Loss",-52,-.6,133,1.1,1,HSHADE [Enhance-G/L_Profit_&_Loss_832] #dsn_sample "/u0/unform_test/infor/txt/GLglr832.txt" detect 0,1,"^GLR832" # set up document constants const MAXCOLS=101 # max cols to output const MAXRCOLS=100 # MAXCOLS-1 const LEFTCOL=1 # left vertical line const RIGHTCOL=101 # right vertical line const MAXROWS=58 # max rows to output cols MAXCOLS # max output columns rows MAXROWS # max output rows const MAX_COPIES=1 pcopies MAX_COPIES landscape dpi 600 # see global constant above GSON # graphical shading title "G/L Profit & Loss" # view in pdf properties prepage { dhdlns=2 title_pos=36 first_value_pos=14 desc_pos=13 } merge "Mrg gl report prepage" merge "Mrg gl find sub totals" merge "Mrg gl find titles" # leave first and last columns empty cmove 1,1,MAXCOLS,MAXROWS,2,1 # default detail line cfont 1,1,16,MAXROWS,DRFONT # period end cfont 18,1,33,MAXROWS,DRFONT # prev period end cfont 36,1,66,MAXROWS,DBFONT # desc cfont 68,1,83,MAXROWS,DRFONT # ytd cfont 85,1,100,MAXROWS,DRFONT # prev ytd merge "Mrg gl report hdr" # detail heading cerase 1,{lineno},MAXCOLS,{lineno} cbox LEFTCOL,{lineno-2.5},RIGHTCOL,{lineno-.5},1,DSHADE cfont 1,{lineno-2},16,{lineno-1},IRFONT,proper # period end cfont 18,{lineno-2},33,{lineno-1},IRFONT,proper # prev period end cfont 36,{lineno-2},67,{lineno-1},IBFONT,proper # desc cfont 69,{lineno-2},83,{lineno-1},IRFONT,proper # ytd cfont 85,{lineno-2},100,{lineno-1},IRFONT,proper # prev ytd merge "Mrg gl title handler" # footer erase "-----",0,0,MAXCOLS,1 bold "-----",0,1,MAXCOLS,2 box "Gross Profit",-36,-.6,100,1.1,1,ISHADE box "Net Profit or Loss",-36,-.6,100,1.1,1,HSHADE [Enhance-G/L_Profit_&_Loss_838] #dsn_sample "/u0/unform_test/infor/txt/GLglr838.txt" #dsn_sample "/u0/unform_test/infor/txt/GLProfitLoss38.txt" detect 0,1,"^GLR838" # set up document constants const MAXCOLS=88 # max cols to output const MAXRCOLS=87 # MAXCOLS-1 const LEFTCOL=1 # left vertical line const RIGHTCOL=88 # right vertical line const MAXROWS=66 # max rows to output cols MAXCOLS # max output columns rows MAXROWS # max output rows const MAX_COPIES=1 pcopies MAX_COPIES portrait dpi 600 # see global constant above GSON # graphical shading title "G/L Profit & Loss" # view in pdf properties prepage { dhdlns=2 title_pos=29 first_value_pos=14 desc_pos=13 } merge "Mrg gl report prepage" merge "Mrg gl find sub totals" merge "Mrg gl find titles" # leave first and last columns empty cmove 1,1,MAXCOLS,MAXROWS,2,1 # default detail line cfont 1,1,16,MAXROWS,DRFONT # period end cfont 18,1,27,MAXROWS,DRFONT # % cfont 29,1,59,MAXROWS,DBFONT # desc cfont 60,1,76,MAXROWS,DRFONT # ytd cfont 78,1,87,MAXROWS,DRFONT # % merge "Mrg gl report hdr" # detail heading cerase 1,{lineno},MAXCOLS,{lineno} cbox LEFTCOL,{lineno-2.5},RIGHTCOL,{lineno-.5},1,DSHADE cfont 1,{lineno-2},16,{lineno-1},IRFONT,proper # period end cfont 18,{lineno-2},27,{lineno-1},IRFONT,proper # % cfont 60,{lineno-2},76,{lineno-1},IRFONT,proper # ytd cfont 78,{lineno-2},87,{lineno-1},IRFONT,proper # % merge "Mrg gl title handler" # footer box "~G[Rr][Oo][Ss][Ss] @29,11,35,59",-29,-.6,87,1.1,1,ISHADE box "~N[Ee][tT] @29,11,33,59",-29,-.6,87,1.1,1,HSHADE erase "~^ -----",0,0,MAXCOLS,1 bold "~^ -----",0,1,MAXCOLS,2 [Enhance-G/L_Profit_&_Loss_840/848] #dsn_sample "/u0/unform_test/infor/txt/GLglr848.txt" #dsn_sample "/u0/unform_test/infor/txt/GLglr840.txt" detect 0,1,"^~(GLR840)|(GLR848)" # set up document constants const MAXCOLS=133 # max cols to output const MAXRCOLS=132 # MAXCOLS-1 const LEFTCOL=1 # left vertical line const RIGHTCOL=133 # right vertical line const MAXROWS=59 # max rows to output cols MAXCOLS # max output columns rows MAXROWS # max output rows const MAX_COPIES=1 pcopies MAX_COPIES landscape dpi 600 # see global constant above GSON # graphical shading title "G/L Profit & Loss" # view in pdf properties prepage { dhdlns=2 desc_pos=8 } merge "Mrg gl report prepage" merge "Mrg gl find titles" # leave first and last columns empty cmove 1,1,MAXCOLS,MAXROWS,2,1 # default detail line cfont 2,1,11,MAXROWS,DRFONT # 1st period cfont 13,1,22,MAXROWS,DRFONT # 2nd period cfont 24,1,33,MAXROWS,DRFONT # 3rd period cfont 35,1,44,MAXROWS,DRFONT # 4th period cfont 46,1,55,MAXROWS,DRFONT # 5th period cfont 57,1,66,MAXROWS,DRFONT # 6th period cfont 68,1,77,MAXROWS,DRFONT # 7th period cfont 79,1,88,MAXROWS,DRFONT # 8th period cfont 90,1,99,MAXROWS,DRFONT # 9th period cfont 101,1,110,MAXROWS,DRFONT # 10th period cfont 112,1,121,MAXROWS,DRFONT # 11th period cfont 123,1,132,MAXROWS,DRFONT # 12th period merge "Mrg gl report hdr" # detail heading cerase 1,{lineno},MAXCOLS,{lineno} cbox LEFTCOL,{lineno-1.5},RIGHTCOL,{lineno-.5},1,DSHADE cfont 2,{lineno-1},11,{lineno-1},IRFONT,proper # 1st period cfont 13,{lineno-1},22,{lineno-1},IRFONT,proper # 2nd period cfont 24,{lineno-1},33,{lineno-1},IRFONT,proper # 3rd period cfont 35,{lineno-1},44,{lineno-1},IRFONT,proper # 4th period cfont 46,{lineno-1},55,{lineno-1},IRFONT,proper # 5th period cfont 57,{lineno-1},66,{lineno-1},IRFONT,proper # 6th period cfont 68,{lineno-1},77,{lineno-1},IRFONT,proper # 7th period cfont 79,{lineno-1},88,{lineno-1},IRFONT,proper # 8th period cfont 90,{lineno-1},99,{lineno-1},IRFONT,proper # 9th period cfont 101,{lineno-1},110,{lineno-1},IRFONT,proper # 10th period cfont 112,{lineno-1},121,{lineno-1},IRFONT,proper # 11th period cfont 123,{lineno-1},132,{lineno-1},IRFONT,proper # 12th period merge "Mrg gl title handler" # detail font "~^[A-Z0-9]@1,6",0,0,MAXCOLS,1,DBFONT # acnt desc font "~[A-Z0-9]@2,3,2,58",0,0,MAXCOLS,1,DBFONT # footer erase "-----",0,0,MAXCOLS,1 bold "-----",0,1,MAXCOLS,2 box "Total",-1.5,-.8,RIGHTCOL,2.4,1,DSHADE box "Gross Profit",-1.5,-.8,RIGHTCOL,2.4,1,ISHADE box "Net Profit",-1.5,-.8,RIGHTCOL,2.4,1,HSHADE [Enhance-G/L_Profit_&_Loss_844] dsn_sample "/u0/unform_test/infor/txt/GLglr844.txt" detect 0,1,"^GLR844" # set up document constants const MAXCOLS=134 # max cols to output const MAXRCOLS=133 # MAXCOLS-1 const LEFTCOL=1 # left vertical line const RIGHTCOL=134 # right vertical line const MAXROWS=58 # max rows to output cols MAXCOLS # max output columns rows MAXROWS # max output rows const MAX_COPIES=1 pcopies MAX_COPIES landscape dpi 600 # see global constant above GSON # graphical shading title "G/L Profit & Loss" # view in pdf properties prepage { dhdlns=2 title_pos=1 first_value_pos=26 desc_pos=8 } merge "Mrg gl report prepage" merge "Mrg gl find sub totals" merge "Mrg gl find titles" # leave first and last columns empty cmove 1,1,MAXCOLS,MAXROWS,2,1 # default detail line cfont 2,1,18,MAXROWS,DBFONT # desc cfont 20,1,28,MAXROWS,DRFONT # 1st period cfont 30,1,37,MAXROWS,DRFONT # % cfont 39,1,47,MAXROWS,DRFONT # 2nd period cfont 49,1,57,MAXROWS,DRFONT # % cfont 59,1,67,MAXROWS,DRFONT # 3rd period cfont 69,1,76,MAXROWS,DRFONT # % cfont 78,1,86,MAXROWS,DRFONT # 4th period cfont 88,1,95,MAXROWS,DRFONT # % cfont 97,1,105,MAXROWS,DRFONT # 5th period cfont 107,1,114,MAXROWS,DRFONT # % cfont 116,1,124,MAXROWS,DRFONT # 6th period cfont 126,1,133,MAXROWS,DRFONT # % merge "Mrg gl report hdr" # detail heading cerase 1,{lineno},MAXCOLS,{lineno} cbox LEFTCOL,{lineno-1.5},RIGHTCOL,{lineno-.5},1,DSHADE cfont 2,{lineno-1},18,{lineno-1},IBFONT,proper # desc cfont 20,{lineno-1},28,{lineno-1},IRFONT,proper # 1st period cfont 30,{lineno-1},37,{lineno-1},IRFONT,proper # % cfont 39,{lineno-1},47,{lineno-1},IRFONT,proper # 2nd period cfont 49,{lineno-1},57,{lineno-1},IRFONT,proper # % cfont 59,{lineno-1},67,{lineno-1},IRFONT,proper # 3rd period cfont 69,{lineno-1},76,{lineno-1},IRFONT,proper # % cfont 78,{lineno-1},86,{lineno-1},IRFONT,proper # 4th period cfont 88,{lineno-1},95,{lineno-1},IRFONT,proper # % cfont 97,{lineno-1},105,{lineno-1},IRFONT,proper # 5th period cfont 107,{lineno-1},114,{lineno-1},IRFONT,proper # % cfont 116,{lineno-1},124,{lineno-1},IRFONT,proper # 6th period cfont 126,{lineno-1},133,{lineno-1},IRFONT,proper # % merge "Mrg gl title handler" # footer erase "-----",0,0,MAXCOLS,1 bold "-----",0,1,MAXCOLS,2 erase "~^(Total)|(Gross Profit)|(Net Profit)",0,-1,MAXCOLS,1 bold "~^(Total)|(Gross Profit)|(Net Profit)",0,0,MAXCOLS,2 box "Gross Profit",-1,-.6,133,1.1,1,ISHADE box "Net Profit or Los",-1,-.6,133,1.1,1,HSHADE [Enhance-G/L_Balance_Sheet_850] dsn_sample "/u0/unform_test/infor/txt/GLglr850.txt" detect 0,1,"^GLR850" # document options const MAXCOLS=80 const MAXRCOLS=79 const MAXROWS=66 const LEFTCOL=1 const RIGHTCOL=80 cols MAXCOLS rows MAXROWS prepage { dhdlns=0 desc_pos=21 } merge "Mrg gl report prepage" merge "Mrg gl find titles" # default line enhancements cfont 21,1,50,MAXROWS,DFONT # desc cfont 52,1,66,MAXROWS,DRFONT # amt merge "Mrg gl report hdr" # detail cerase 1,{lineno},MAXCOLS,{lineno} merge "Mrg gl title handler" # footer erase "Total",0,-1,MAXCOLS,1 bold "Total",0,0,MAXCOLS,1 # tot lines box "Total",-1.5,-.5,48,1.01,1,DSHADE box "Total Assets",-1.5,-.5,48,1.01,1,ISHADE box "Total Liabilities & Equity",-1.5,-.5,48,1.01,1,ISHADE [Enhance-G/L_Balance_Sheet_852] #dsn_sample "/u0/unform_test/infor/txt/GLglr852.txt" detect 0,1,"^GLR852" # set up document constants const MAXCOLS=81 # max cols to output const MAXRCOLS=80 # MAXCOLS-1 const LEFTCOL=1 # left vertical line const RIGHTCOL=81 # right vertical line const MAXROWS=66 # max rows to output cols MAXCOLS # max output columns rows MAXROWS # max output rows const MAX_COPIES=1 pcopies MAX_COPIES portrait dpi 600 # see global constant above GSON # graphical shading title "G/L Balance Sheet" # view in pdf properties prepage { dhdlns=1 desc_pos=13 } merge "Mrg gl report prepage" merge "Mrg gl find titles" # leave first and last columns empty cmove 1,1,MAXCOLS,MAXROWS,2,1 # default line enhancements cfont 13,1,42,MAXROWS,DFONT # desc cfont 44,1,58,MAXROWS,DRFONT # current amt cfont 60,1,76,MAXROWS,DRFONT # prev amt merge "Mrg gl report hdr" # detail header cerase 1,{lineno},MAXCOLS,{lineno} cbox LEFTCOL,{lineno-1.5},RIGHTCOL,{lineno-.5},1,DSHADE cfont 44,{lineno-1},59,{lineno-1},IRFONT cfont 61,{lineno-1},77,{lineno-1},IRFONT merge "Mrg gl title handler" # footer erase "Total",0,-1,MAXCOLS,1 bold "Total",0,0,MAXCOLS,1 # tot lines box "Total",-1,-.5,65,1.01,1,DSHADE box "Total Assets",-1,-.5,65,1.01,1,ISHADE box "Total Liabilities & Equity",-1,-.5,65,1.01,1,ISHADE [Enhance-G/L_Balance_Sheet_854] #dsn_sample "/u0/unform_test/infor/txt/GLglr854.txt" detect 0,1,"^GLR854" # set up document constants const MAXCOLS=133 # max cols to output const MAXRCOLS=132 # MAXCOLS-1 const LEFTCOL=1 # left vertical line const RIGHTCOL=133 # right vertical line const MAXROWS=58 # max rows to output cols MAXCOLS # max output columns rows MAXROWS # max output rows const MAX_COPIES=1 pcopies MAX_COPIES landscape dpi 600 # see global constant above GSON # graphical shading title "G/L Balance Sheet" # view in pdf properties prepage { dhdlns=1 desc_pos=19 } merge "Mrg gl report prepage" merge "Mrg gl find titles" # leave first and last columns empty cmove 1,1,MAXCOLS,MAXROWS,2,1 # default line enhancements cfont 13,1,22,MAXROWS,DRFONT # 1st period cfont 24,1,32,MAXROWS,DRFONT # 2nd period cfont 34,1,42,MAXROWS,DRFONT # 3rd period cfont 44,1,52,MAXROWS,DRFONT # 4th period cfont 54,1,62,MAXROWS,DRFONT # 5th period cfont 64,1,72,MAXROWS,DRFONT # 6th period cfont 74,1,82,MAXROWS,DRFONT # 7th period cfont 84,1,92,MAXROWS,DRFONT # 8th period cfont 94,1,102,MAXROWS,DRFONT # 9th period cfont 104,1,112,MAXROWS,DRFONT # 10th period cfont 114,1,122,MAXROWS,DRFONT # 11th period cfont 124,1,132,MAXROWS,DRFONT # 12th period merge "Mrg gl report hdr" # detail heading cerase 1,{lineno},MAXCOLS,{lineno} cbox LEFTCOL,{lineno-1.5},RIGHTCOL,{lineno-.5},1,DSHADE cfont 13,{lineno-1},22,{lineno-1},IRFONT,proper # 1st period cfont 24,{lineno-1},32,{lineno-1},IRFONT,proper # 2nd period cfont 34,{lineno-1},42,{lineno-1},IRFONT,proper # 3rd period cfont 44,{lineno-1},52,{lineno-1},IRFONT,proper # 4th period cfont 54,{lineno-1},62,{lineno-1},IRFONT,proper # 5th period cfont 64,{lineno-1},72,{lineno-1},IRFONT,proper # 6th period cfont 74,{lineno-1},82,{lineno-1},IRFONT,proper # 7th period cfont 84,{lineno-1},92,{lineno-1},IRFONT,proper # 8th period cfont 94,{lineno-1},102,{lineno-1},IRFONT,proper # 9th period cfont 104,{lineno-1},112,{lineno-1},IRFONT,proper # 10th period cfont 114,{lineno-1},122,{lineno-1},IRFONT,proper # 11th period cfont 124,{lineno-1},132,{lineno-1},IRFONT,proper # 12th period merge "Mrg gl title handler" # detail font "~^[A-Z0-9]@1,6",0,0,MAXCOLS,1,DBFONT # acnt desc font "~[A-Z0-9]@2,3,2,58",0,0,MAXCOLS,1,DBFONT # footer erase "Total",0,-1,MAXCOLS,1 bold "Total",0,0,MAXCOLS,2 # tot lines box "Total",-1.5,-.8,MAXCOLS,2.4,1,DSHADE box "Total Assets",-1.5,-.8,MAXCOLS,2.4,1,ISHADE box "Total Liabilities & Equity",-1.5,-.8,MAXCOLS,2.4,1,ISHADE [Enhance-G/L_Balance_Sheet_856] dsn_sample "/u0/unform_test/infor/txt/GLglr856.txt" detect 0,1,"^GLR856" # set up document constants const MAXCOLS=133 # max cols to output const MAXRCOLS=132 # MAXCOLS-1 const LEFTCOL=1 # left vertical line const RIGHTCOL=133 # right vertical line const MAXROWS=58 # max rows to output cols MAXCOLS # max output columns rows MAXROWS # max output rows const MAX_COPIES=1 pcopies MAX_COPIES landscape dpi 600 # see global constant above GSON # graphical shading title "G/L Balance Sheet" # view in pdf properties prepage { dhdlns=1 desc_pos=19 } merge "Mrg gl report prepage" merge "Mrg gl find titles" # leave first and last columns empty cmove 1,1,MAXCOLS,MAXROWS,2,1 # default line enhancements cfont 1,1,30,MAXROWS,DFONT # desc cfont 32,1,46,MAXROWS,DRFONT # 1nd period cfont 48,1,63,MAXROWS,DRFONT # 2rd period cfont 65,1,80,MAXROWS,DRFONT # 3th period cfont 82,1,97,MAXROWS,DRFONT # 4th period cfont 99,1,114,MAXROWS,DRFONT # 5th period cfont 116,1,131,MAXROWS,DRFONT # 6th period merge "Mrg gl report hdr" # detail heading cerase 1,{lineno},MAXCOLS,{lineno} cbox LEFTCOL,{lineno-1.5},RIGHTCOL,{lineno-.5},1,DSHADE cfont 1,{lineno-1},30,{lineno-1},IFONT,proper # desc cfont 32,{lineno-1},46,{lineno-1},IRFONT,proper # 1nd period cfont 48,{lineno-1},63,{lineno-1},IRFONT,proper # 2rd period cfont 65,{lineno-1},80,{lineno-1},IRFONT,proper # 3th period cfont 82,{lineno-1},97,{lineno-1},IRFONT,proper # 4th period cfont 99,{lineno-1},114,{lineno-1},IRFONT,proper # 5th period cfont 116,{lineno-1},131,{lineno-1},IRFONT,proper # 6th period merge "Mrg gl title handler" # footer erase "Total",0,-1,MAXCOLS,1 bold "Total",0,0,MAXCOLS,2 # tot lines box "Total",-1.5,-.7,MAXCOLS,1.2,1,DSHADE box "Total Assets",-1.5,-.7,MAXCOLS,1.2,1,ISHADE box "Total Liabilities & Equity",-1.5,-.7,MAXCOLS,1.2,1,ISHADE [Enhance-G/L_Balance_Sheet_880] #dsn_sample "/u0/unform_test/infor/txt/GLglr880.txt" detect 0,1,"^GLR880" # set up document constants const MAXCOLS=81 # max cols to output const MAXRCOLS=80 # MAXCOLS-1 const LEFTCOL=1 # left vertical line const RIGHTCOL=81 # right vertical line const MAXROWS=66 # max rows to output cols MAXCOLS # max output columns rows MAXROWS # max output rows const MAX_COPIES=1 pcopies MAX_COPIES portrait dpi 600 # see global constant above GSON # graphical shading title "G/L Balance Sheet" # view in pdf properties merge "Mrg gl report prepage" prepage { dhdlns=1 for row=3 to MAXROWS if get(39,row,3)<>"GRP" then text$[row]=sub(text$[row],":"," ") next row merge "Mrg make all lower case" } # leave first and last columns empty cmove 1,1,MAXCOLS,MAXROWS,2,1 # default line enhancements cfont 1,1,5,MAXROWS,DCFONT # line # cfont 7,1,7,MAXROWS,DCFONT # T cfont 9,1,38,MAXROWS,DFONT # desc cfont 40,1,53,MAXROWS,DFONT # g/l # cfont 55,1,MAXRCOLS,MAXROWS,DFONT # acnt desc merge "Mrg gl report hdr" # detail heading cerase 1,{lineno},MAXCOLS,{lineno} cbox LEFTCOL,{lineno-1.5},RIGHTCOL,{lineno-.5},1,DSHADE cfont 1,{lineno-1},5,{lineno-1},ICFONT,proper # line # cfont 7,{lineno-1},7,{lineno-1},ICFONT,proper # T cfont 9,{lineno-1},38,{lineno-1},IFONT,proper # desc cfont 40,{lineno-1},53,{lineno-1},IFONT,proper # g/l # cfont 55,{lineno-1},MAXRCOLS,{lineno-1},IFONT,proper # acnt desc # detail hline "---",erase font "Grp:",0,0,MAXCOLS,1,DFONT font "Unused",0,0,36,1,DFONT,proper # footer font "Total Unused",0,0,32,1,DFONT,proper # unused tot title font "Total Unused",39,0,3,1,DBFONT # unused [Enhance-G/L_Chart_of_Accounts] #dsn_sample "/u0/unform_test/infor/txt/GLT1chartwsummary.txt" #dsn_sample "/u0/unform_test/infor/txt/GLchartnosummary.txt" detect 0,2,"^CHART OF ACCOUNTS" # set up document constants const MAXCOLS=82 # max cols to output const MAXRCOLS=81 # MAXCOLS-1 const LEFTCOL=1 # left vertical line const RIGHTCOL=82 # right vertical line const MAXROWS=66 # max rows to output cols MAXCOLS # max output columns rows MAXROWS # max output rows const MAX_COPIES=1 pcopies MAX_COPIES portrait dpi 600 # see global constant above GSON # graphical shading title "G/L Chart of Accounts" # view in pdf properties prepage { merge "Mrg load row 1 variables" merge "Mrg load row 2 variables" # load sub-title subtitle$="" if page=1 then subtitle$=trim(cut(1,4,MAXCOLS,"")) # erase headers if pageno=1 then end_row=4 else end_row=2 for i=1 to end_row x$=set(1,i,MAXCOLS,"") next i } # leave first and last columns empty cmove 1,1,MAXCOLS,MAXROWS,2,1 # default line enhancements cfont 2,1,14,MAXROWS,DBFONT cfont 16,1,45,MAXROWS,DFONT cfont 47,1,68,MAXROWS,DBFONT,proper cfont 70,1,MAXRCOLS,MAXROWS,DBFONT,proper # header merge "Mrg report header" text 2,4,{PROPER(subtitle$)},IFONT,11 # detail heading cfont 2,5,8,6,IFONT,proper cfont 16,5,27,6,IFONT,proper cfont 47,4,54,6,IFONT,proper cfont 70,4,79,6,IFONT,proper hline "==" # footer font "ACCOUNTS:",0,0,20,1,IBFONT,proper font "End of Report",0,0,13,1,IBFONT,proper [Enhance-G/L_Trial_Balance] dsn_sample "/u0/unform_test/infor/txt/GLtrialbalance.txt" detect 0,2,"^TRIAL BALANCE" detect 0,0,"^BALANCE ACTIVITY BALANCE" # set up document constants const MAXCOLS=82 # max cols to output const MAXRCOLS=81 # MAXCOLS-1 const LEFTCOL=1 # left vertical line const RIGHTCOL=82 # right vertical line const MAXROWS=66 # max rows to output cols MAXCOLS # max output columns rows MAXROWS # max output rows const MAX_COPIES=1 pcopies MAX_COPIES portrait dpi 600 # see global constant above GSON # graphical shading title "G/L Trial Balance" # view in pdf properties prepage { # load row 1 variables rptdate$=trim(get(1,1,15)) x=pos("Page"=text$[1]) pageno$=trim(get(x-7,1,20)) compname$=trim(get(16,1,x-8-16)) # load row 2 variables user$=trim(get(1,2,15)) x=pos("Time"=text$[2]) time$=trim(get(x,2,15)) doc_title$=trim(get(16,2,x-16)) # load row 4 variables period_date$=trim(get(1,4,MAXCOLS)) } # leave first and last columns empty cmove 1,1,MAXCOLS,MAXROWS,2,1 # default line enhancements cfont "G/L # @1,5,8,11",0,2,14,MAXROWS,DBFONT # g/l # cfont "G/L # @1,5,8,11",15,2,45,MAXROWS,DFONT # desc font "~\.[0-9][0-9]@1,8",-8,0,12,1,DBRFONT # amts # header cerase 1,1,MAXCOLS,4 cbox LEFTCOL,.5,RIGHTCOL,3.75,3,HSHADE text 2,1.25,{rptdate$},HBFONT text 1,1.25,{compname$},HBCFONT,14,cols=MAXCOLS text 1,1.25,{pageno$},HBRFONT,cols=MAXRCOLS text 2,2.25,{user$},HBFONT text 1,2.25,{doc_title$},HBCFONT,12,cols=MAXCOLS text 1,2.25,{time$},HBRFONT,cols=MAXRCOLS text 1,3.25,{period_date$},HBCFONT,cols=MAXCOLS # subheader font "~G/L # [A-Z0-9]@1,6,8,6",0,0,MAXCOLS,1,IFONT # opts # detail heading erase "G/L # @1,5,8,11",0,1,MAXCOLS,1 box "G/L # @1,5,8,11",-.5,-1.5,80.5,2,1,DSHADE font "G/L # @1,5,8,11",0,0,5,1,IFONT,proper # g/l # font "G/L # @1,5,8,11",15,0,11,1,IFONT,proper # desc font "G/L # @1,5,8,11",39,-1,13,1,IRFONT,proper # begin font "G/L # @1,5,8,11",39,0,13,1,IRFONT,proper # begin font "G/L # @1,5,8,11",56,0,10,1,IRFONT,proper # act font "G/L # @1,5,8,11",73,-1,7,1,IRFONT,proper # ending font "G/L # @1,5,8,11",73,0,7,1,IRFONT,proper # ending # footer erase "Total@62,5,67,MAXROWS",0,-1,MAXCOLS,1 box "Total@61,5,66,MAXROWS",7,-1,12,1 box "Total@62,5,67,MAXROWS",6,-1,12,1 font "Total@61,5,66,MAXROWS",-50,0,56,1,IBCFONT,10,proper font "Total@62,5,67,MAXROWS",-50,0,55,1,IBCFONT,10,proper font "Total@61,5,66,MAXROWS",7,0,12,1,DBRFONT,10 font "Total@62,5,67,MAXROWS",6,0,12,1,DBRFONT,10 font "Total@61,5,66,MAXROWS",19,0,1,1,DBRFONT,10 font "Total@62,5,67,MAXROWS",18,0,1,1,DBRFONT,10 # footer font "!~ [0-9G ]@1,5,3,MAXROWS",-3,0,60,1,IBFONT font "GL Number Count",0,0,40,1,IBFONT font "End of Report",0,0,13,1,IBRFONT [Enhance-P/O_Fill_Report] #dsn_sample "/u0/unform_test/infor/txt/POfillreport.txt" detect 0,2,"^DOCUMENT FILL REPORT - PURCHASE ORDERS" # set up document constants const MAXCOLS=134 # max cols to output const MAXRCOLS=133 # MAXCOLS-1 const LEFTCOL=1 # left vertical line const RIGHTCOL=134 # right vertical line const MAXROWS=62 # max rows to output cols MAXCOLS # max output columns rows MAXROWS # max output rows const MAX_COPIES=1 pcopies MAX_COPIES landscape dpi 600 # see global constant above GSON # graphical shading title "P/O Fill Report" # view in pdf properties prepage { merge "Mrg load row 1 variables" merge "Mrg load row 2 variables" if trim(get(20,7,20))="DESCRIPTION" then erow=7 if trim(get(20,5,20))="DESCRIPTION" then erow=5 } cmove 1,1,MAXCOLS,MAXROWS,2,1 # default enhancement line cfont 2,1,21,MAXROWS,DBRFONT # item # cfont 23,1,53,MAXROWS,DFONT # desc cfont 55,1,62,MAXROWS,DBRFONT # rcvd cfont 64,1,65,MAXROWS,DBCFONT # um cfont 67,1,72,MAXROWS,DBRFONT # order # cfont 74,1,76,MAXROWS,DBFONT # ln # cfont 78,1,79,MAXROWS,DBCFONT # p cfont 81,1,86,MAXROWS,DBCFONT # bin loc cfont 88,1,95,MAXROWS,DBCFONT # req date cfont 97,1,119,MAXROWS,DFONT # customer cfont 120,1,130,MAXROWS,DBRFONT # B/O + comm cfont 132,1,133,MAXROWS,DBCFONT # um # header merge "Mrg report header" # subheader cfont "~^[A-Z]@2,4,2,5",0,0,MAXRCOLS,1,IFONT # detail heading cfont 2,{erow-1},21,{erow},IRFONT,7,proper # item # cfont 23,{erow-1},53,{erow},IFONT,7,proper # desc cfont 55,{erow-1},62,{erow},IRFONT,7,proper # rcvd cfont 64,{erow-1},65,{erow},ICFONT,7,proper # um cfont 67,{erow-1},72,{erow},IRFONT,7,proper # order # cfont 74,{erow-1},76,{erow},IFONT,7,proper # ln # cfont 78,{erow-1},79,{erow},ICFONT,7,proper # p cfont 81,{erow-1},86,{erow},IFONT,7,proper # bin loc cfont 88,{erow-1},95,{erow},ICFONT,7,proper # req date cfont 97,{erow-1},119,{erow},IFONT,7,proper # customer cfont 120,{erow-1},130,{erow},IRFONT,7,black,proper # B/O + comm cfont 132,{erow-1},133,{erow},ICFONT,7,proper # um hline "==",extend # PO# line font "PO#:@1,1,MAXCOLS,MAXROWS",0,0,4,1,DFONT # po title font "PO#:@1,1,MAXCOLS,MAXROWS",5,0,7,1,DBFONT # po # font "Vendor:@1,1,MAXCOLS,MAXROWS",0,0,7,1,DRFONT # vndr title font "Vendor:@1,1,MAXCOLS,MAXROWS",8,0,45,1,DBFONT # vndr font "Whse:@1,1,MAXCOLS" " then shifted=1;break next row if shifted=1 then exec("cmove 1,1,MAXCOLS,MAXROWS,2,1") maxlen=80 # min 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) if shifted=1 then cols$=STR(NUM(cols$)+1) # load row 1 variables rptdate$=proper(trim(get(1,1,15))) x=pos("page"=lcs(text$[1])) pageno$=proper(trim(get(x,1,10))) pgmname$=trim(get(x-7,1,6)) compname$=trim(get(16,1,x-8-16)) x$=set(1,1,200,"") # load row 2 variables user$=trim(get(1,2,15)) if len(user$)>4 then user$(1,4)=proper(user$(1,4)) x=pos("time"=lcs(text$[2])) if x>0 then time$=trim(get(x,2,15)) if len(time$)>4 then time$(1,4)=proper(time$(1,4)) if x>16 then doc_title$=trim(get(16,2,x-16)) x$=set(1,2,200,"") # Now draw box around header exec("cbox 1,1,"+cols$+",3.5,MBOXSIZE,HSHADE") # now place line 1 headers that need justification x$="text 1,2,"+$22$+compname$+$22$+",HBCFONT,14,cols="+str(maxlen) exec(x$) x$="text 1,2,"+$22$+pgmname$+" "+pageno$+$22$+",HBRFONT,cols="+str(maxlen) exec(x$) # now place line 2 headers that need justification x$="text 1,3,"+$22$+doc_title$+$22$+",HBCFONT,12,cols="+str(maxlen) exec(x$) x$="text 1,3,"+$22$+time$+$22$+",HBRFONT,cols="+str(maxlen) exec(x$) for row=4 to 66 if pos("End of Report"=text$[row]) then exec("cfont 2,"+STR(row)+","+STR(pos(":"=text$[row])+1)+","+STR(row)+","+"IBFONT") if pos("End of Report"=text$[row]) then exec("cfont "+STR(pos(":"=text$[row])+2)+","+STR(row)+","+STR(pos(":"=text$[row])+10)+","+STR(row)+","+"DBLFONT");break next row } text 2,2,{rptdate$},HBFONT text 2,3,{user$},HBFONT font "~(End of Report)|(END OF REPORT)",0,0,13,1,IBRFONT #*************************************************************** # Inactive or testing rule sets * #***************************************************************