11 lines
1.8 KiB
JSON
11 lines
1.8 KiB
JSON
{
|
|
"header": {
|
|
"version": 1,
|
|
"type": "record"
|
|
},
|
|
"body": {
|
|
"record1": {
|
|
"<1>": "declare function security_check, set_printer, get_printer, msg, fieldcount, send_event, Printer_Select\r\ndeclare subroutine security_err_msg, Print_Reactor_Maint_Todo\r\n$insert security_rights_equ\r\n$insert oiprint_equates\r\n$insert msg_equates\r\n\r\nVoid = send_event( @window:'.BUTTON_2', 'CLICK' )\r\nCurList = .list_1->list\r\nswap '1: ' with '' in CurList\r\nTvar = str( '-', 98 )\r\nswap Tvar with '' in CurList\r\nswap '2-2:' with '' in CurList\r\n\r\nPrintPath = Printer_Select('',1)\t\t;* Get default printer path\r\nStat = set_printer( 'INIT', '', '', '':@fm:'':@fm:0:@fm:'', '','',PrintPath )\r\n\r\ngosub CheckErr\r\nFont = \"Courier New,12,L,1\"\r\nconvert ',' to @fm in Font\r\nTfont = Font\r\nStat = set_printer( 'FONT', Font )\r\ngosub CheckErr\r\nVoid = set_printer( 'FONT', Font )\r\ngosub CheckErr\r\nVoid = set_printer( 'TEXT', '' )\r\nTable = ''\r\nTable = CurList\r\nColTableInfo = '<+11160'\r\nRCnt = fieldcount( CurList, @fm )\r\nfor i = 1 to RCnt\r\n Table = CurList<i>\r\n if len( Table ) > 3 then\r\n Type = TB_ALL\r\n end else\r\n Type = TB_NONE\r\n end\r\n\tx = Set_Printer(\"ADDTABLE\", ColTableInfo, '', Table, '', '', 1, Type)\r\nnext i\r\nstat = set_printer( 'TERM' ) \r\ngosub CheckErr \r\nRETURN 0\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*===========================================================================*"
|
|
}
|
|
}
|
|
} |