11 lines
18 KiB
JSON
11 lines
18 KiB
JSON
{
|
|
"header": {
|
|
"version": 1,
|
|
"type": "record"
|
|
},
|
|
"body": {
|
|
"record1": {
|
|
"<1>": "declare function security_check, set_printer, get_printer, msg, fieldcount, Printer_Select\r\ndeclare function winexec, entid, repository, ex_vm_rem, send_event, obj_Install, Get_Property\r\ndeclare subroutine security_err_msg\r\n\r\n$insert security_rights_equ\r\n$insert oiprint_equates\r\n$insert msg_equates\r\n$insert quote_equ\r\n$insert quote_spec_equ\r\n$insert prod_spec_equ\r\n\r\n* text field equates\r\nequ InvoiceNo$ to 1\r\nequ BillToAttn$ to 2\r\nequ BillToCity$ to 3\r\nequ BillToState$ to 4\r\nequ BillToZip$ to 5\r\nequ ShipToAttn$ to 6\r\nequ ShipToCity$ to 7\r\nequ ShipToState$ to 8\r\nequ ShipToZip$ to 9\r\nequ CustNo$ to 10\r\nequ ShipDate$ to 11\r\nequ ShipperInfo$ to 12\r\nequ Terms$ to 13\r\nequ PO$ to 14\r\nequ InvoiceNotes$ to 15\r\nequ BillToCo$ to 16\r\nequ ShipToCo$ to 17\r\n*\r\nequ Item$ to 1\r\nequ QuoteNo$ to 2\r\nequ Wo$ to 4\r\nequ PartNum$ to 5\r\nequ LotNum$ to 6\r\nequ Quantity$ to 10\r\nequ Price$ to 13\r\nequ Amount$ to 14\r\nequ PSN$ to 15\r\nequ ODItemNo$\tto 17\r\nequ PNDesc$\t\tto 18\r\n*\r\nequ ChkNo$ to 1\r\nequ ChkDate$ to 2\r\nequ ChkAmount$ to 3\r\n*\r\nif ( @@window->qbflist <> '' ) and ( @@window->savewarn ) then\r\n\tMsgInfo = ''\r\n\tMsgInfo<mtext$> = 'You must save this invoice first...'\r\n\tMsgInfo<micon$> = 'H'\r\n\tVoid = msg( '', MsgInfo )\r\n\treturn 0\r\nend\r\nif security_check( 'Invoice', Print$ ) then\r\n PopupId = entid( @appid<1>, 'POPUP', '', 'INVOICE_PRINT_OPTS' )\r\n ChosenRows = repository( 'EXECUTE', PopupId, @window, '' )\r\n if ChosenRows else\r\n return 0 \r\n end\r\n PrePrint = ( index( ChosenRows, '1', 1 ) )\r\n PackList = ( index( ChosenRows, '2', 1 ) )\r\n if PackList then\r\n NumPrint = 2\r\n end else\r\n NumPrint = 1\r\n end\r\n QbfCnt = 1\r\n if @@window->qbflist <> '' then\r\n QbfCnt = fieldcount( @@window->qbflist, @fm )\r\n MsgInfo = ''\r\n MText = 'Do you want to print '\r\n if PackList then\r\n Mtext:= 'Packing Slips '\r\n end else\r\n MText:= 'Invoices '\r\n end\r\n MText:= ' for all these ':QbfCnt:' of these invoices?'\r\n MsgInfo<mtext$> = MText\r\n MsgInfo<micon$> = '?'\r\n MsgInfo<mtype$> = 'BNYC'\r\n Ans = msg( '', MsgInfo )\r\n convert char(27) to '' in Ans\r\n end\r\n if PrePrint then\r\n PopupId = entid( @appid<1>, 'POPUP', '', 'INVOICE_PRINT_OPTS2' )\r\n InvType = repository( 'EXECUTE', PopupId, @window, '' )\r\n if InvType = 1 or InvType = 2 else\r\n return 0 ;* USER CANCELLED\r\n end\r\n end else\r\n InvType = ''\r\n end\r\n for ZzZ = 1 to QbfCnt\t \r\n\t * pull off variables\r\n\t TextFields = 'INVOICE_NO/BILL_TO_ATTN/BILL_TO_CITY/BILL_TO_STATE/BILL_TO_ZIP/'\r\n\t TextFields:= 'SHIP_TO_ATTN/SHIP_TO_CITY/SHIP_TO_STATE/SHIP_TO_ZIP/'\r\n\t TextFields:= 'CUST_NO/SHIP_DATE/SHIPPERINFO/TERMS/PO/CUST_INVOICE_NOTES/'\r\n\t TextFields:= 'BILL_TO_COMPANY/SHIP_TO_COMPANY'\r\n\t \r\n\t swap '/' with @rm:@window:'.' in TextFields\r\n\t TextFields = @window:'.':TextFields\r\n\t TextFields = get_property( TextFields, 'TEXT' )\r\n\t convert @rm to @fm in TextFields\r\n\t \r\n\t InvNotes = TextFields<InvoiceNotes$>\r\n\t NotesOut = ''\r\n\t InvoiceBankNotes = xlate( 'CONFIG', 'INVOICE_BANK_NOTES', '', 'X' )\r\n\t if InvoiceBankNotes <> '' then\r\n\t InvNotes:= @fm:InvoiceBankNotes\r\n\t end\r\n\t swap char(13):char(10) with @fm in InvNotes\t \r\n\t Ncnt = fieldcount( InvNotes, @fm )\r\n\t for i = 1 to Ncnt\r\n\t if InvNotes<i> <> '' then\r\n\t ThisPara = fmt( InvNotes<i>, 'T#55' )\r\n\t convert @tm to @fm in ThisPara\r\n\t NotesOut := ThisPara:@fm\r\n\t end\r\n\t next i\r\n\t NotesOut[-1,1] = ''\r\n\t InvNotes = NotesOut\r\n\t NoteCnt = fieldcount( InvNotes, @fm )\r\n\t BillToAddress = .bill_to_addr->array\r\n\t ShipToAddress = .ship_to_addr->array\r\n\t LineItems = .invoice_detail->array\r\n\t FirstPSN = LineItems<PSN$,1>\r\n\t \r\n\t TotalShipAmount = .total_ship_amount->text\r\n\t TotalShipQty = .total_ship_quantity->text\r\n\t Balance = .balance->text\r\n\t \r\n\t OrderNo \t\t\t= Get_Property(@WINDOW:'.ORDER_NO','TEXT')\t\t\t\t\t;* 8/17/2005 by JCH - J.C. Henry & Co., Inc.\r\n\t VisionOrderNo \t= Get_Property(@WINDOW:'.VISION_ORDER_NO','TEXT')\t\t\t;* 8/17/2005 by JCH - J.C. Henry & Co., Inc.\r\n\t ShipNo\t\t\t= Get_Property(@WINDOW:'.SHIP_NO','TEXT')\t\t\t\t\t;* 8/17/2005 by JCH - J.C. Henry & Co., Inc.\r\n\t \t\r\n\t\tItems= LineItems<Item$>\r\n\t\tLcnt = fieldcount( Items, @vm )\r\n\t\t\r\n\t\tIF VisionOrderNo NE '' THEN\r\n\t\t\tODItems = LineItems<ODItemNo$>\t;* Order_Det item numbers\r\n\t\t\t\r\n\t\t\tFOR X = 1 TO Lcnt\r\n\t\t\tUNTIL Items<1,X> = ''\r\n\t\t\t\tVisionLineNo = XLATE('ORDER_DET',OrderNo:'*':ODItems<1,X>,18,'X')\r\n\t\t\t\tItems<1,X> = Items<1,X>:'/':VisionLineNo\r\n\t\t\tNEXT X\r\n\t\tEND\r\n\t\t\r\n\t\tMaxLines = 45\r\n\r\n\t if ( PrePrint and ZzZ = 1 ) then\r\n\t\t Pieces = int( Lcnt/MaxLines )\r\n\t\t Rnd = mod( Lcnt, MaxLines )\r\n\t\t Pieces += ( Rnd > 0 )\r\n\t\t MsgInfo = ''\r\n\t\t MsgInfo<mtext$> = 'Please insert ':(Pieces*QbfCnt):' piece(s) of preprinted invoice paper.'\r\n\t\t MsgInfo<micon$> = '!'\r\n\t\t Void = msg( '', MsgInfo )\r\n\t end\r\n\t \r\n\t\tWos\t\t\t= LineItems<Wo$>\r\n\t\tPartNums\t= LineItems<PartNum$>\r\n\t\tPNDescs\t\t= LineItems<PNDesc$>\r\n\t\tFOR I = 1 TO COUNT(PartNums,@VM) + (PartNums NE '')\r\n\t\t\tPNDesc = PNDescs<1,I>\r\n\t\t\tPartNum = PartNums<1,I>\r\n\t\t\tIF INDEX(PartNum,PNDesc,1) ELSE\r\n \t\t\t\r\n \t\t\t\tPartNums<1,I> = PartNum:PNDesc\r\n \t\t\tEND\r\n \t\tNEXT I\r\n \r\n\t LotNums = LineItems<LotNum$>\r\n\t QuoteNums = LineItems<QuoteNo$>\r\n\t if FirstPSN then\r\n\t PSNId = FirstPSN\r\n\t end else\r\n\t PSNId = xlate( 'QUOTE', QuoteNums<1,1>, quote_prod_spec_id$, 'X' ) \r\n\t end\r\n\t TSub = xlate( 'PROD_SPEC', PSNId, prod_spec_spec_substrate$, 'X' )\r\n\t WSize = TSub<1,QSSubWafersize$>\r\n\t Quantity = LineItems<Quantity$>\r\n\t Price = LineItems<Price$>\r\n\t Amount = LineItems<Amount$>\r\n\t PSNos\t = LineItems<PSN$>\r\n\t \r\n\t * New Style PDF printing (OI7.1) added 1/29/04 John C. Henry, J.C. Henry & Co.\r\n\r\n\t\tFileNameParms = 'Printing Invoice':@FM: '' :@FM:'':@FM: ''\r\n\t\tPrintSetup\t= ''\r\n\t\t\r\n\t\tIF QbfCnt > 1 THEN\t\r\n\t\t\tPrintSetup<1,1> = 0\t\t;* Print to printer\r\n\t\t\tPrintsetup<1,2> = 2\t\t;* Hide print setup\r\n\t\t\tPrintSetup<1,3> = 0\t\t;\r\n\t\t\t\r\n\t\t\t\r\n\t\tEND ELSE\r\n\t\t\tPrintSetup<1,1>\t= '2'\t;* Preview Normal\r\n\t\t\tPrintSetup<1,2> = '5'\t;* Display all buttons except Printer Setup\r\n\t\t\tPrintSetup<1,3>\t= '0'\t;* Display Printing Window\r\n\t\tEND\r\n\t\tPrintSetup<1,6> = '7'\t;* Preview window - keyboard and mouse support\r\n\r\n\t\tstat = Set_Printer( 'INIT', FileNameParms, 'Invoice','':@fm:'':@fm:0:@fm:.25,'' , PrintSetup)\r\n\t \r\n\t \r\n\t *\tStat = set_printer( 'INIT', '', '', '':@fm:'':@fm:0:@fm:.25, 0, 0, PrintPath )\r\n\r\n\t \r\n\t \r\n\t gosub CheckErr\r\n\t Font = \"Courier New,9,L,1\"\r\n\t convert ',' to @fm in Font\r\n\t Hf = Font\r\n\t Stat = set_printer( 'FONT', Font )\r\n\t gosub CheckErr\r\n\t gosub PrintToF\r\n\t * print body\r\n\t\r\n\t for Dup = ChosenRows<1,1> to NumPrint\r\n\t for i = 1 to 23\r\n\t Stat = set_printer( 'TEXT', '' )\r\n\t next i\r\n\t LinesPrinted = 0\r\n\t if Dup = 2 then ;* \r\n\t Tfon = Hf\r\n Tfon<2> = 12\r\n Tfon<4> = 0\r\n stat = set_printer( 'TEXTXY', obj_Install('Get_Prop','Company'), .43:@fm:0, Tfon, 1 )\r\n Tfon<4> = 1 \r\n stat = set_printer( 'TEXTXY', obj_Install('Get_Prop','Divison'), .31:@fm:.19, Tfon, 1 )\r\n stat = set_printer( 'TEXTXY', 'Packing List', 5.25:@fm:0, Tfon, 1 ) \r\n Tfon<2> = 8\r\n stat = set_printer( 'TEXTXY', 'Phone: ':obj_Install('Get_Prop','Phone'), .63:@fm:.38, Tfon, 1 )\r\n stat = set_printer( 'TEXTXY', obj_Install('Get_Prop','Address'), .51:@fm:.5, Tfon, 1 )\r\n stat = set_printer( 'TEXTXY', obj_Install('Get_Prop','CSZ'), .63:@fm:.63, Tfon, 1 )\t \r\n \r\n\t \r\n\t end\r\n\t\t for i = 1 to Lcnt\r\n\t\t LineOut = fmt( Quantity<1,i>, 'R#7' ):' '\r\n\t\t LineOut:= fmt( Items<1,i>, 'L#6' ):' '\r\n\t\t LineOut:= fmt( Wos<1,i>, 'L#7' ):' '\r\n\t\t LineOut:= fmt( PartNums<1,i>, 'L#15' ):' '\r\n\t\t LineOut:= fmt( LotNums<1,i>, 'L#15' ): ' '\r\n\t\t LineOut:= fmt( QuoteNums<1,i>, 'R#10' ):' '\r\n\t\t LineOut := fmt( PSNos<1,i>, 'R#8' ):' '\r\n\t\t if Dup = 1 then\r\n\t\t LineOut:= fmt( Price<1,i>, 'R#12'):' '\t;* was 12\r\n\t\t LineOut:= fmt( Amount<1,i>, 'R#12' )\t\t;* was 10\r\n\t\t end\r\n\t\t \r\n\t\t \r\n\t\t Stat = set_printer( 'TEXT', LineOut )\r\n\t\t LinesPrinted += 1\r\n\t\t\t if LinesPrinted = MaxLines then\r\n\t\t\t gosub PageBreak\r\n\t\t\t end\r\n\t\t next i\r\n\t if InvNotes then\r\n\t for k = 1 to 5\r\n\t \t\tIF k = 2 THEN\r\n\t \t\t\tStat = Set_Printer('TEXT',' Order No: ':OrderNo)\r\n\t \t\tEND\r\n\t \t\t\r\n\t \t\tIF k = 3 THEN\r\n\t \t\t\tStat = Set_Printer('TEXT','Vision Order No: ':VisionOrderNo)\r\n\t \t\tEND\r\n\t \t\t\r\n\t \t\tIF k = 4 THEN\r\n\t \t\t\tStat = Set_Printer('TEXT','Packing List No: ':ShipNo)\r\n\t \t\tEND\r\n\t \t\t\r\n\t \t\tIF k = 1 OR k = 5 THEN\r\n\t \t\tstat = set_printer( 'TEXT', '' )\r\n\t \tEND\r\n\t LinesPrinted += 1\r\n\t if LinesPrinted = MaxLines then\r\n\t gosub PageBreak\r\n\t end\r\n\t next k\r\n\t stat = set_printer( 'TEXT', space(13):'NOTE:' )\r\n\t LinesPrinted += 1\r\n\t if LinesPrinted = MaxLines then \r\n\t gosub PageBreak\r\n\t end\r\n\t for Nc = 1 to NoteCnt\r\n\t stat = set_printer( 'TEXT', space(23):InvNotes<Nc> )\r\n\t LinesPrinted += 1\r\n\t if LinesPrinted = MaxLines then\r\n\t gosub PageBreak\r\n\t end\r\n\t next Nc\r\n\t end\r\n\t if InvType = 2 then\r\n\t\t * CHECK FOR PAYMENT HISTORY AND THEN PRINT IT \r\n\t\t ChkArray = .check_detail->array\r\n\t\t DumCnt = fieldcount( ChkArray<1>, @vm )\r\n\t\t for i = DumCnt to 1 step -1\r\n\t\t if ChkArray<1,i> = '' and ChkArray<2,i> = '' and ChkArray<3,i> = '' then\r\n\t\t ChkArray = delete( ChkArray, 1, i, 0 )\r\n\t\t ChkArray = delete( ChkArray, 2, i, 0 )\r\n\t\t ChkArray = delete( ChkArray, 3, i, 0 )\t \r\n\t\t end\r\n\t\t next i\r\n\t\t ChkNos = ChkArray<ChkNo$>\r\n\t\t ChkDates = ChkArray<ChkDate$>\r\n\t\t ChkAmts = ChkArray<ChkAmount$>\r\n\t\t if ChkNos <> '' then\r\n\t\t * THERE IS ACTUALLY DATA\r\n\t\t Ccnt = fieldcount( ChkNos, @vm )\r\n\t\t CurLNeeded = Ccnt+3; * 1 FOR EXTRA LINE, 1 FOR HEADING, 1 FOR COLHEADINGS\r\n\t\t if MaxLines - LinesPrinted >= CurLNeeded else\r\n\t\t gosub PageBreak\r\n\t\t end\r\n\t\t Font<3> = 'C'\r\n\t\t Void = set_printer( 'FONT', Font )\r\n\t\t Void = set_printer( 'TEXT', '' )\r\n\t\t Void = set_printer( 'TEXT', 'Payment History:' )\r\n\t\t Font<3> = 'L'\r\n\t\t Void = set_printer( 'FONT', Font )\r\n\t\t CurLine = 'Check#':@vm:'Date':@vm:'Amount'\r\n\t\t x = Set_Printer(\"ADDTABLE\", \">+1440\":@VM: \"^+1440\":@VM: \">+2160\", '', CurLine, \"\", \"\", 0, TB_ALL:@FM:'C' )\r\n\t\t for i = 1 to Ccnt\r\n\t\t CurLine = ChkNos<1,i>:@vm:ChkDates<1,i>:@vm:ChkAmts<1,i>\r\n\t\t\t\t x = Set_Printer(\"ADDTABLE\", \">+1440\":@VM: \"^+1440\":@VM: \">+2160\", '', CurLine, \"\", \"\", 1, TB_ALL:@FM:'C' )\r\n\t\t next i\r\n\t\t end\r\n\t\t end\r\n\t if Dup = 1 then\r\n\t stat = set_printer( 'TEXTXY', fmt( TotalShipQty, 'R#7' ), 0:@fm:9.63, Hf, 0 )\t \r\n\t stat = set_printer( 'TEXTXY', fmt( TotalShipAmount, 'R#30' ), 5.31:@fm:9.63, Hf, 0 ) \r\n\t if InvType = 2 then\r\n\t stat = set_printer( 'TEXTXY', fmt( 'Balance due: ':Balance, 'R#30' ), 5.31:@fm:10.06, Hf, 0 )\r\n\t end\r\n\t end else\r\n\t Stat = set_printer( 'TEXTXY', 'Total Qty Shipped:':fmt( TotalShipQty, 'R#7' ), 0:@fm:9.63, Hf, 0 )\t \r\n\t if Maxlines - LinesPrinted >= 8 then\r\n\t for zz = 1 to MaxLines-(LinesPrinted+8) ;* 8 is number of lines needed\r\n\t Void = set_printer( 'TEXT', '' )\r\n\t next zz\r\n\t end else\r\n\t gosub PageBreak\r\n\t end \r\n\t TableColInfo = '<+2160':@vm:'<+2160':@vm:'<+2160':@vm:'<+2160':@vm:'<+2160'\r\n\t Table = ''\r\n\t Table<1> = 'Date Shipped,Checked by,Packed by,Total Pieces,Total WT'\r\n\t Table<2> = ',,,,'\r\n\t convert ',' to @vm in Table\r\n\t x = Set_Printer(\"ADDTABLE\", TableColInfo, '', Table, '', '', 1, TB_BOX_COLUMNS)\r\n\t Table = ''\r\n Table<1> = 'Box1':@vm:'Box2':@vm:'Box3':@vm:'Box4':@vm:'Box5'\r\n Table<2> = ',,,,'\r\n convert ',' to @vm in Table \r\n x = Set_Printer(\"ADDTABLE\", TableColInfo, '', Table, '', '', 1, TB_BOX_COLUMNS)\r\n Table = '' \r\n Table<1> = 'Box6':@vm:'Box7':@vm:'Box8':@vm:'Box9':@vm:'Box10'\r\n Table<2> = ',,,,'\r\n convert ',' to @vm in Table\r\n x = Set_Printer(\"ADDTABLE\", TableColInfo, '', Table, '', '', 1, TB_BOX_COLUMNS)\r\n\t end\r\n\t if Dup = 1 and PackList then\r\n\t\t stat = set_printer( 'PAGEBREAK' )\r\n\t\t Stat = set_printer( 'TEXTXY', 'QTY', .31:@fm:2.94, Hf, 1 )\r\n\t stat = set_printer( 'LINESTYLE', ps_solid:@fm:1 ) \r\n\t stat = set_printer( 'LINE', .31:@fm:3.06:@fm:.61:@fm:3.06, 1 )\r\n\t \t end\r\n\t next Dup\r\n\t stat = set_printer( 'TERM' ) \r\n\t gosub CheckErr\r\n\t if QbfCnt > 1 then\r\n\t Void = send_event( @window, 'QBFNEXT' )\r\n\t end\r\n next ZzZ \r\nend else\r\n security_err_msg( 'Invoice', Print$ )\r\nend\r\nRETURN 0\r\n*===========================================================================*\r\nPrintTof:\r\n stat = set_printer( 'TEXTXY', \"V\":TextFields<InvoiceNo$>, 6.75:@fm:0, Hf, 1 )\r\n stat = set_printer( 'TEXTXY', .entry_date->text, 6.38:@fm:.5, Hf, 1 )\r\n stat = set_printer( 'TEXTXY', TextFields<BillToAttn$>, .28:@fm:.94, Hf, 1 )\r\n stat = set_printer( 'TEXTXY', TextFields<ShipToAttn$>, 4.5:@fm:.94, Hf, 1 )\r\n stat = set_printer( 'TEXTXY', TextFields<BillToCo$>, .28:@fm:1.06, Hf, 1 )\r\n stat = set_printer( 'TEXTXY', TextFields<ShipToCo$>, 4.5:@fm:1.06, Hf, 1 )\r\n Ypos = 1.19\r\n for i = 1 to 4\r\n stat = set_printer( 'TEXTXY', BillToAddress<1,i>, .28:@fm:Ypos, Hf, 1 )\r\n stat = set_printer( 'TEXTXY', ShipToAddress<1,i>, 4.5:@fm:Ypos, Hf, 1 )\r\n Ypos += .13\r\n next i\r\n stat = set_printer( 'TEXTXY', TextFields<BillToCity$>, .28:@fm:1.63, Hf, 1 )\r\n stat = set_printer( 'TEXTXY', TextFields<ShipToCity$>, 4.5:@fm:1.63, Hf, 1 )\r\n stat = set_printer( 'TEXTXY', TextFields<BillToState$>, 2.25:@fm:1.63, Hf, 1 )\r\n stat = set_printer( 'TEXTXY', TextFields<ShipToState$>, 6.47:@fm:1.63, Hf, 1 )\r\n stat = set_printer( 'TEXTXY', TextFields<BillToZip$>, 2.56:@fm:1.63, Hf, 1 )\r\n stat = set_printer( 'TEXTXY', TextFields<ShipToZip$>, 6.78:@fm:1.63, Hf, 1 )\r\n stat = set_printer( 'TEXTXY', TextFields<CustNo$>, .13:@fm:2.19, Hf, 1 )\r\n stat = set_printer( 'TEXTXY', TextFields<ShipDate$>, .88:@fm:2.19, Hf, 1 )\r\n stat = set_printer( 'TEXTXY', TextFields<ShipperInfo$>, 1.75:@fm:2.19, Hf, 1 )\r\n stat = set_printer( 'TEXTXY', TextFields<Terms$>, 4.5:@fm:2.19, Hf, 1 )\r\n stat = set_printer( 'TEXTXY', TextFields<PO$>, 5.88:@fm:2.19, Hf, 1 )\r\n *\r\n stat = set_printer( 'TEXTXY', 'Qty', .25:@fm:2.94, Hf, 1 )\r\n stat = set_printer( 'TEXTXY', 'Itm/VLn', .65:@fm:2.94, Hf, 1 )\r\n stat = set_printer( 'TEXTXY', 'WO#', 1.23:@fm:2.94, Hf, 1 )\r\n stat = set_printer( 'TEXTXY', 'Part Number', 1.80:@fm:2.94, Hf, 1 )\r\n stat = set_printer( 'TEXTXY', 'Lot# ':WSize, 3.0:@fm:2.94, Hf, 1 )\r\n stat = set_printer( 'TEXTXY', 'Quote #', 4.57:@fm:2.94, Hf, 1 )\r\n stat = set_printer( 'TEXTXY', 'PSN', 5.195:@fm:2.94, Hf, 1)\r\n \r\n stat = set_printer( 'LINESTYLE', ps_solid:@fm:1 ) \r\n stat = set_printer( 'LINE', .25:@fm:3.06:@fm:.56:@fm:3.06, 1 ) \t\t;* Qty \r\n stat = set_printer( 'LINE', .65:@fm:3.06:@fm:.96:@fm:3.06, 1 )\t\t;* Item\r\n stat = set_printer( 'LINE', 1.23:@fm:3.06:@fm:1.6:@fm:3.06, 1 )\t\t;* WO Number\r\n stat = set_printer( 'LINE', 1.80:@fm:3.06:@fm:2.87:@fm:3.06, 1 )\t\t;* Part Number\r\n stat = set_printer( 'LINE', 3.0:@fm:3.06:@fm:4.44:@fm:3.06, 1 )\t\t;* Lot No\r\n stat = set_printer( 'LINE', 4.57:@fm:3.06:@fm:5.05:@fm:3.06, 1 )\t\t;* Quote No\r\n stat = set_printer( 'LINE', 5.195:@fm:3.06:@fm:5.695:@fm:3.06, 1)\t;* PSN\r\n \r\nreturn \r\n\r\n*===========================================================================*\r\nCheckErr:\r\n if stat < 0 then\r\n goto FatalExit\r\n end\r\nreturn \r\n\r\n*===========================================================================*\r\nFatalExit:\r\n Void = msg( '', Stat )\r\n Stat = set_printer( 'TERM' )\r\nreturn \r\n\r\n*===========================================================================*\r\nPageBreak:\r\n Stat = set_printer( 'PAGEBREAK' )\r\n\tLinesPrinted = 0\r\n for j = 1 to 22\r\n Stat = set_printer( 'TEXT', '' )\r\n next j\r\nreturn\r\n\r\n*===========================================================================*\r\n\r\n"
|
|
}
|
|
}
|
|
} |