pre cutover push
This commit is contained in:
Infineon\StieberD
@ -5,7 +5,7 @@
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "DECLARE FUNCTION RowExists, Send_Event\r\nDECLARE SUBROUTINE ErrMsg\r\n\r\n$insert lsl_common\r\n$insert logical\r\n\r\nIF @USERNAME = 'BRYCE_BARB' THEN DEBUG\r\n\r\nif rowexists( 'NOTES', .seq->text ) then\r\n\r\n\tErrMsg('Contact FI immediately. Your are looking at the bug in the eMail system.')\r\n\t\r\n\t@@window->savewarn = 0\r\n\tVoid = send_event( @window, 'CLEAR', 0, 1, 1, '' )\r\n\tvoid = send_event( @window, 'CLOSE' )\r\n\tMisc@<CenterWindow$> = false$\r\n\treturn 0\r\nend else\r\n return 1\r\nend\r\n"
|
||||
"<1>": "DECLARE FUNCTION RowExists, Send_Event\r\nDECLARE SUBROUTINE ErrMsg\r\n\r\n$insert lsl_common\r\n$insert logical\r\n\r\nif rowexists( 'NOTES', .seq->text ) then\r\n\r\n\tErrMsg('Contact FI immediately. Your are looking at the bug in the eMail system.')\r\n\t\r\n\t@@window->savewarn = 0\r\n\tVoid = send_event( @window, 'CLEAR', 0, 1, 1, '' )\r\n\tvoid = send_event( @window, 'CLOSE' )\r\n\tMisc@<CenterWindow$> = false$\r\n\treturn 0\r\nend else\r\n return 1\r\nend\r\n"
|
||||
}
|
||||
}
|
||||
}
|
||||
File diff suppressed because one or more lines are too long
@ -5,7 +5,7 @@
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine btree.extract, update_index, rlist, end_dialog\r\ndeclare function msg, key_sort, utility, ex_vm_rem\r\n\r\n$insert lsl_users_equ\r\n$insert msg_equates\r\n\r\n\r\nopen 'DICT.PROD_SPEC' to DictProdSpecTable else\r\n Void = msg( '', 'Unable to open DICT.PROD_SPEC...' )\r\n return 0\r\nend\r\n\r\nSearchStr = ''\r\nCustIds\t\t= .customer_info->array<1>\r\nPartNums\t= .part_nums->array\r\nActive\t\t= .active_check->check\r\nInactive\t= .inactive_check->check\r\nHold\t\t= Get_Property(@WINDOW:'.HOLD_CHECK','CHECK')\r\n\r\n*\r\nPreProd = .preprod->check\r\nProd = .prod->check\r\nQual = .qual->check\r\nPreQual = .prequal->check\r\n*\r\nSiGe = .rt_sige->check\r\nEpsilon = .rt_epsilon->check\r\nASMPlus\t= .rt_asm_plus->check\r\nEpiPro = .rt_epipro->check\r\nHTR = .rt_htr->check\r\n*\r\nIf @User4 EQ 'DAN_CR' OR @UserName EQ 'DAN_CR' then debug\r\nCustIds = ex_vm_rem(CustIds)\r\nPartNums = ex_vm_rem(PartNums)\r\nif CustIds then\r\n *SearchStr<-1> = 'CUST_NO_USAGE':@vm:CustIds\r\n SearchStr<-1> = 'PROD_VER_CUST_NO':@vm:CustIds\t\t;* Changed from 'CUST_NO' on 12/18/2014 jch\r\nend\r\nif PartNums then\r\n SearchStr<-1> = 'CUST_PART_NO':@vm:PartNums\r\nend\r\nStatusVar = ''\r\nif Active then\r\n StatusVar<1,-1> = 'A'\r\nend\r\nif Inactive then\r\n StatusVar<1,-1> = 'I'\r\nend\r\n\r\nIF Hold THEN\r\n\tStatusVar<1,-1> = 'H'\r\nEND\r\n\r\nif StatusVar <> '' then\r\n SearchStr<-1> = 'STATUS':@vm:StatusVar\r\nend\r\n*\r\nSpecTypeVar = ''\r\nif PreProd then\r\n SpecTypeVar<1,-1> = 'E'\r\nend\r\nif Prod then\r\n SpecTypeVar<1,-1> = 'P'\r\nend\r\nif Qual then\r\n SpecTypeVar<1,-1> = 'Q'\r\nend\r\nif PreQual then\r\n SpecTypeVar<1,-1> = 'U'\r\nend\r\nif SpecTypeVar <> '' then\r\n SearchStr<-1> = 'SPEC_TYPE':@vm:SpecTypeVar\r\nend\r\n*\r\nRTypeVar = ''\r\n\r\nif SiGe then\tRTypeVar<1,-1> = 'SIG'\r\nif Epsilon then\tRTypeVar<1,-1> = 'ASM'\r\nIF ASMPlus THEN\tRTypeVar<1,-1> = 'ASM+'\r\nif EpiPro then\tRTypeVar<1,-1> = 'EPP'\r\nif HTR then\t\tRTypeVar<1,-1> = 'HTR'\r\n\r\nif RTypeVar <> '' then\r\n\tSearchStr<-1> = 'REACTOR_TYPE':@vm:RTypeVar\r\nend\r\n\r\nif SearchStr then\r\n SearchStr := @fm\r\n Void = utility( 'CURSOR', 'H' )\r\n \r\n * do a btree.extract\r\n\r\n \r\n btree.extract( SearchStr, 'PROD_SPEC', DictProdSpecTable, Keys, '', Flag )\r\n if Flag <> 0 then\r\n Void = msg( '', 'Error while extracting PROD_SPEC records...' )\r\n return 0\r\n end\r\n \r\n if Keys then\r\n convert @vm to @fm in Keys\r\n * Keys = key_sort( Keys, 'PROD_SPEC', 'CUST_NAME':@fm:'#REV_DATE', 1 )\r\n Keys = key_sort( Keys, 'PROD_SPEC', 'CUST_NAME', 1 )\r\n \r\n end_dialog( @window, Keys )\r\n \r\n end else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'No records found meeting your criteria...' \r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\n end\r\n \r\n Void = utility( 'CURSOR', 'A' )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You have not entered any search criteria...' \r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n\r\n"
|
||||
"<1>": "declare subroutine btree.extract, update_index, rlist, end_dialog\r\ndeclare function msg, key_sort, utility, ex_vm_rem\r\n\r\n$insert lsl_users_equ\r\n$insert msg_equates\r\n\r\n\r\nopen 'DICT.PROD_SPEC' to DictProdSpecTable else\r\n Void = msg( '', 'Unable to open DICT.PROD_SPEC...' )\r\n return 0\r\nend\r\n\r\nSearchStr = ''\r\nCustIds\t\t= .customer_info->array<1>\r\nPartNums\t= .part_nums->array\r\nActive\t\t= .active_check->check\r\nInactive\t= .inactive_check->check\r\nHold\t\t= Get_Property(@WINDOW:'.HOLD_CHECK','CHECK')\r\n\r\n*\r\nPreProd = .preprod->check\r\nProd = .prod->check\r\nQual = .qual->check\r\nPreQual = .prequal->check\r\n*\r\nSiGe = .rt_sige->check\r\nEpsilon = .rt_epsilon->check\r\nASMPlus\t= .rt_asm_plus->check\r\nEpiPro = .rt_epipro->check\r\nHTR = .rt_htr->check\r\n*\r\n\r\nCustIds = ex_vm_rem(CustIds)\r\nPartNums = ex_vm_rem(PartNums)\r\nif CustIds then\r\n *SearchStr<-1> = 'CUST_NO_USAGE':@vm:CustIds\r\n SearchStr<-1> = 'PROD_VER_CUST_NO':@vm:CustIds\t\t;* Changed from 'CUST_NO' on 12/18/2014 jch\r\nend\r\nif PartNums then\r\n SearchStr<-1> = 'CUST_PART_NO':@vm:PartNums\r\nend\r\nStatusVar = ''\r\nif Active then\r\n StatusVar<1,-1> = 'A'\r\nend\r\nif Inactive then\r\n StatusVar<1,-1> = 'I'\r\nend\r\n\r\nIF Hold THEN\r\n\tStatusVar<1,-1> = 'H'\r\nEND\r\n\r\nif StatusVar <> '' then\r\n SearchStr<-1> = 'STATUS':@vm:StatusVar\r\nend\r\n*\r\nSpecTypeVar = ''\r\nif PreProd then\r\n SpecTypeVar<1,-1> = 'E'\r\nend\r\nif Prod then\r\n SpecTypeVar<1,-1> = 'P'\r\nend\r\nif Qual then\r\n SpecTypeVar<1,-1> = 'Q'\r\nend\r\nif PreQual then\r\n SpecTypeVar<1,-1> = 'U'\r\nend\r\nif SpecTypeVar <> '' then\r\n SearchStr<-1> = 'SPEC_TYPE':@vm:SpecTypeVar\r\nend\r\n*\r\nRTypeVar = ''\r\n\r\nif SiGe then\tRTypeVar<1,-1> = 'SIG'\r\nif Epsilon then\tRTypeVar<1,-1> = 'ASM'\r\nIF ASMPlus THEN\tRTypeVar<1,-1> = 'ASM+'\r\nif EpiPro then\tRTypeVar<1,-1> = 'EPP'\r\nif HTR then\t\tRTypeVar<1,-1> = 'HTR'\r\n\r\nif RTypeVar <> '' then\r\n\tSearchStr<-1> = 'REACTOR_TYPE':@vm:RTypeVar\r\nend\r\n\r\nif SearchStr then\r\n SearchStr := @fm\r\n Void = utility( 'CURSOR', 'H' )\r\n \r\n * do a btree.extract\r\n\r\n \r\n btree.extract( SearchStr, 'PROD_SPEC', DictProdSpecTable, Keys, '', Flag )\r\n if Flag <> 0 then\r\n Void = msg( '', 'Error while extracting PROD_SPEC records...' )\r\n return 0\r\n end\r\n \r\n if Keys then\r\n convert @vm to @fm in Keys\r\n * Keys = key_sort( Keys, 'PROD_SPEC', 'CUST_NAME':@fm:'#REV_DATE', 1 )\r\n Keys = key_sort( Keys, 'PROD_SPEC', 'CUST_NAME', 1 )\r\n \r\n end_dialog( @window, Keys )\r\n \r\n end else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'No records found meeting your criteria...' \r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\n end\r\n \r\n Void = utility( 'CURSOR', 'A' )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You have not entered any search criteria...' \r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n\r\n"
|
||||
}
|
||||
}
|
||||
}
|
||||
File diff suppressed because one or more lines are too long
@ -5,7 +5,7 @@
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function next_key, send_event, msg, security_check\r\ndeclare subroutine security_err_msg, delete_row\r\n$insert security_rights_equ\r\n$insert quote_equ\r\n\r\nif security_check( 'Quote SRL', Write$ ) then\r\n * save off all data\r\n AllControls = utility( 'OBJECTLIST', @window, '' )\r\n convert @fm to @rm in AllControls\r\n AllData = get_property( Allcontrols, 'TEXT' )\r\n QuoteDetail = .quote_detail->array\r\n SpecSubstrate = .spec_substrate->text\r\n SpecEpi = .spec_epi->text\r\n OrigQuoteNo = .quote_no->text\r\n\tChoice = send_event( @window, 'CLEAR' )\r\n\tif Choice = '' then\r\n\t * if choice has a value then the user has canceled \r\n\t\topen 'QUOTE_SRL' to QuoteTableVar else\r\n\t\t Void = msg( '', 'Unable to open QUOTE_SRL...' )\r\n\t\t return 0\r\n\t\tend\r\n\t\tNextQuoteKey = next_key( 'QUOTE_SRL', QuoteTableVar, 'NEXT', '' )\r\n\t\t.quote_no->text = NextQuoteKey\r\n\t\tunlock QuoteTableVar, NextQuoteKey else\r\n\t\t Void = msg( '', 'Unable to unlock QUOTE SRL ':NextQuoteKey )\r\n\t\t return 0\r\n\t\tend\r\n\t\tVoid = send_event( @window:'.QUOTE_NO', 'LOSTFOCUS' )\r\n\t\tVoid = set_property( AllControls, 'TEXT', AllData )\r\n\t\t.quote_no->text = NextQuoteKey\r\n \t\t.entry_date->text = oconv( date(), 'D2/' )\r\n\t\t.entry_id->text = oconv( @username, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t@@window->savewarn = 1\r\n\t\t*delete_row( 'QUOTE', NextQuoteKey, '' ) ;* the user may not want to save\r\n\t\t* OI WILL NOW ONLY WRITE WHAT HAS CHANGED SINCE THE READ\r\n end\r\nend else\r\n security_err_msg( 'Quote SRL', Write$ )\r\nend\r\nRETURN 0"
|
||||
"<1>": "declare function next_key, send_event, msg, security_check\r\ndeclare subroutine security_err_msg, delete_row\r\n$insert security_rights_equ\r\n$insert quote_equ\r\n\r\nif security_check( 'Quote SRL', Write$ ) then\r\n * save off all data\r\n AllControls = utility( 'OBJECTLIST', @window, '' )\r\n convert @fm to @rm in AllControls\r\n AllData = get_property( Allcontrols, 'TEXT' )\r\n QuoteDetail = .quote_detail->array\r\n SpecSubstrate = .spec_substrate->text\r\n SpecEpi = .spec_epi->text\r\n OrigQuoteNo = .quote_no->text\r\n\tChoice = send_event( @window, 'CLEAR' )\r\n\tif Choice = '' then\r\n\t * if choice has a value then the user has canceled \r\n\t\topen 'QUOTE_SRL' to QuoteTableVar else\r\n\t\t Void = msg( '', 'Unable to open QUOTE_SRL...' )\r\n\t\t return 0\r\n\t\tend\r\n\t\tNextQuoteKey = next_key( 'QUOTE_SRL', QuoteTableVar, 'NEXT', '' )\r\n\t\t.quote_no->text = NextQuoteKey\r\n\t\tunlock QuoteTableVar, NextQuoteKey else\r\n\t\t Void = msg( '', 'Unable to unlock QUOTE SRL ':NextQuoteKey )\r\n\t\t return 0\r\n\t\tend\r\n\t\tVoid = send_event( @window:'.QUOTE_NO', 'LOSTFOCUS' )\r\n\t\tVoid = set_property( AllControls, 'TEXT', AllData )\r\n\t\t.quote_no->text = NextQuoteKey\r\n \t\t.entry_date->text = oconv( date(), 'D2/' )\r\n\t\t.entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t@@window->savewarn = 1\r\n\t\t*delete_row( 'QUOTE', NextQuoteKey, '' ) ;* the user may not want to save\r\n\t\t* OI WILL NOW ONLY WRITE WHAT HAS CHANGED SINCE THE READ\r\n end\r\nend else\r\n security_err_msg( 'Quote SRL', Write$ )\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
@ -5,7 +5,7 @@
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "DECLARE FUNCTION Dialog_Box, Msg, Get_Status, obj_WO_Mat\r\nDECLARE SUBROUTINE obj_WO_Mat, obj_WO_Mat_Log, ErrMsg\r\n\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\n$insert prod_spec_equ\r\n$INSERT REACTOR_EQUATES\r\n\r\n\t\r\n/*\r\nCurStatus = .status->value\r\nCurSig = .fw_sig->text\r\n\r\nif CurSig <> '' then\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'This RDS has already been signed for First Wafer Inspection.'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\n RETURN 0\r\nEND\r\n\r\n* * * * \r\n\r\nIF CurStatus NE 'I' THEN\r\n\r\n\tMsgInfo = ''\r\n\tTvar = 'This RDS must go through the \"In-Process step\" '\r\n\tTvar:= 'before it can be signed for First Wafer Inspection.'\r\n\tMsgInfo<mtext$> = Tvar\r\n\tMsgInfo<micon$> = '!'\r\n\tVoid = msg( '', MsgInfo )\r\n\tRETURN 0\r\n\r\nEND\r\n\r\n* * * *\r\n\r\n*/\r\n\r\nWONo\t= Get_Property(@WINDOW:'.WO','DEFPROP')\r\nCassNo\t= Get_Property(@WINDOW:'.CASS_NO','DEFPROP')\r\n \r\nWOMatCurrStatus = obj_WO_Mat('CurrStatus',WONo:'*':CassNo)\r\n\r\nIF WOMatCurrStatus = 'HOLD' THEN\r\n\tErrorMessage = 'Cassette is on Hold and may not be signed off.':CRLF$:CRLF$\r\n\tvoid = Msg(@WINDOW, ErrorMessage, 'PROCESS_SIGNATURE_ERROR')\r\n\tRETURN 0\r\nEND\r\n\r\n* * * * Move this to the CI window ********************************************\r\n \r\nPSNId = .psn->text\r\nPSNRec = xlate( 'PROD_SPEC', PSNId, '', 'X' )\r\n \t \r\nIF Xlate( 'PROD_SPEC', PSNId, prod_spec_first_ver_inst$, 'X' ) NE '' THEN\r\n\tYes = Dialog_Box( 'RDS_VER', @window, PSNId:'*':prod_spec_first_ver_inst$ )\r\n\tIF NOT(Yes) THEN\r\n\t\tRETURN 0\r\n\tEND\r\nEND\r\n\r\n* * * *\r\n \r\n\t \r\nValid = Dialog_Box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\n\t\t\t\r\nIF NOT(Valid) THEN\r\n\tRETURN 0\r\nEND\r\n\r\nIF @USERNAME = 'BRYCE_BARB' THEN DEBUG\r\n\r\n\r\n\r\n.fw_sig->text = @user4\r\n.fw_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n.fw_sig_date->text = SigDt\r\n.fw_sig_time->text = SigTm\r\n@@window->savewarn = 1\r\n\t\t\r\n\r\nRETURN 0"
|
||||
"<1>": "DECLARE FUNCTION Dialog_Box, Msg, Get_Status, obj_WO_Mat\r\nDECLARE SUBROUTINE obj_WO_Mat, obj_WO_Mat_Log, ErrMsg\r\n\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\n$insert prod_spec_equ\r\n$INSERT REACTOR_EQUATES\r\n\r\n\t\r\n/*\r\nCurStatus = .status->value\r\nCurSig = .fw_sig->text\r\n\r\nif CurSig <> '' then\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'This RDS has already been signed for First Wafer Inspection.'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\n RETURN 0\r\nEND\r\n\r\n* * * * \r\n\r\nIF CurStatus NE 'I' THEN\r\n\r\n\tMsgInfo = ''\r\n\tTvar = 'This RDS must go through the \"In-Process step\" '\r\n\tTvar:= 'before it can be signed for First Wafer Inspection.'\r\n\tMsgInfo<mtext$> = Tvar\r\n\tMsgInfo<micon$> = '!'\r\n\tVoid = msg( '', MsgInfo )\r\n\tRETURN 0\r\n\r\nEND\r\n\r\n* * * *\r\n\r\n*/\r\n\r\nWONo\t= Get_Property(@WINDOW:'.WO','DEFPROP')\r\nCassNo\t= Get_Property(@WINDOW:'.CASS_NO','DEFPROP')\r\n \r\nWOMatCurrStatus = obj_WO_Mat('CurrStatus',WONo:'*':CassNo)\r\n\r\nIF WOMatCurrStatus = 'HOLD' THEN\r\n\tErrorMessage = 'Cassette is on Hold and may not be signed off.':CRLF$:CRLF$\r\n\tvoid = Msg(@WINDOW, ErrorMessage, 'PROCESS_SIGNATURE_ERROR')\r\n\tRETURN 0\r\nEND\r\n\r\n* * * * Move this to the CI window ********************************************\r\n \r\nPSNId = .psn->text\r\nPSNRec = xlate( 'PROD_SPEC', PSNId, '', 'X' )\r\n \t \r\nIF Xlate( 'PROD_SPEC', PSNId, prod_spec_first_ver_inst$, 'X' ) NE '' THEN\r\n\tYes = Dialog_Box( 'RDS_VER', @window, PSNId:'*':prod_spec_first_ver_inst$ )\r\n\tIF NOT(Yes) THEN\r\n\t\tRETURN 0\r\n\tEND\r\nEND\r\n\r\n* * * *\r\n \r\n\t \r\nValid = Dialog_Box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\n\t\t\t\r\nIF NOT(Valid) THEN\r\n\tRETURN 0\r\nEND\r\n\r\n.fw_sig->text = @user4\r\n.fw_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n.fw_sig_date->text = SigDt\r\n.fw_sig_time->text = SigTm\r\n@@window->savewarn = 1\r\n\t\t\r\n\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/CLICK/REACTLOGBS.BTN_3.json
Normal file
11
LSL2/OIEVENT/CLICK/REACTLOGBS.BTN_3.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "Declare Subroutine Set_Property\r\nDeclare Function Get_Property\r\nThisRec = Get_Property(@Window,'ATRECORD')\r\nInitrnd Time()\r\nMyVar = Rnd(200)\r\nThisRec<28, -1> = MyVar\r\nSet_Property(@Window,'ATRECORD', ThisRec) \r\n\r\nreturn 1"
|
||||
}
|
||||
}
|
||||
}
|
||||
@ -5,7 +5,7 @@
|
||||
},
|
||||
"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\n\r\nIF @USERNAME = 'BRYCE_BARB' THEN\r\n\tPRINT_REACTOR_MAINT_TODO()\r\n\tRETURN 0\r\nEND\r\n\r\n\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*===========================================================================*"
|
||||
"<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*===========================================================================*"
|
||||
}
|
||||
}
|
||||
}
|
||||
File diff suppressed because one or more lines are too long
@ -5,7 +5,7 @@
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function security_check, set_printer, get_printer, msg, fieldcount, popup,Printer_Select\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 popup_equates\r\n\r\nequ Mon$ to 1\r\nequ Tue$ to 2\r\nequ Wed$ to 3\r\nequ Thurs$ to 4\r\nequ Fri$ to 5\r\nequ Sat$ to 6\r\nequ Sun$ to 7\r\n\r\nReselect:\r\n\r\nMastSchedPrintOptsPopup = xlate( 'SYSREPOSPOPUPS', @appid<1>:'**WO_MAST_SCHED_PRINT_OPTS', '', 'X' )\r\n\r\n*Display = MastSchedPrintOptsPopup<pdisplay$>\r\n\r\nDisplay = .sched_info->label\t\t\t;* List of 31 dates displayed at the top of the schedule\r\nconvert @fm to @vm in Display\r\n\r\nMastSchedPrintOptsPopup<pdisplay$> = Display\r\n\r\nSelDates = popup( @window, MastSchedPrintOptsPopup )\t\t;* Returns positions of selected dates in the list of 31\r\n\r\nSelDtCnt = fieldcount( SelDates, @vm )\r\nif SelDtCnt else\r\n return 0\r\nend\r\n\r\nif SelDtCnt > 7 then\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You may only choose 7 days to print at a given time.'\r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n goto ReSelect\r\nend\r\n**\r\n\r\nPrintPath = Printer_Select('',1)\t\t;* Get default printer path\r\nStat = set_printer( 'INIT', '', '', '':@fm:'':@fm:0:@fm:'', 1,'',PrintPath )\r\ngosub CheckErr\r\n\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\n\r\ngosub PrintToF\r\n\r\nFont<2> = 9\r\nFont<4> = 0\r\nVoid = set_printer( 'FONT', Font )\r\ngosub CheckErr\r\n\r\nVoid = set_printer( 'TEXT', '' )\r\n\r\n**\r\n\r\n\r\n\r\nSInfo\t\t= .sched_info->array\r\nColHeads \t= .sched_info->label\r\n\r\nconvert @fm to @vm in ColHeads\r\n\r\nNewColHeads = ''\r\n\r\nfor I = 1 to SelDtCnt\r\n NewColHeads<1,-1> = ColHeads<1,SelDates<1,I>>\r\nnext I\r\n\r\nTable = ''\r\nTable<1> = 'R#':@vm:NewColHeads\r\n\r\nRcnt = fieldcount( SInfo<1>, @vm )\r\n\r\nTFont<2> = 9\r\nStat = set_printer( 'FONT', TFont )\r\n\r\nIF @USERNAME = 'BRYCE_BARB' THEN DEBUG\r\n\r\nfor i = 1 to Rcnt\r\n Tvar = trim(SInfo<SelDates<1,1>,i>):trim(SInfo<SelDates<1,2>,i>):trim(SInfo<SelDates<1,3>,i>):trim(SInfo<SelDates<1,4>,i>):trim(SInfo<SelDates<1,5>,i>):trim(SInfo<SelDates<1,6>,i>):trim(SInfo<SelDates<1,7>,i>)\r\n \r\n \r\n \r\n if Tvar = '|||||||' or Tvar = '||||||' then \r\n \t\r\n * Tom puts a '|' when not in use and if it is not in use for all 7 days then don't print\r\n end else\r\n Table<-1> = i:@vm:SInfo<SelDates<1,1>,i>:@vm:SInfo<SelDates<1,2>,i>:@vm:SInfo<SelDates<1,3>,i>:@vm:SInfo<SelDates<1,4>,i>:@vm:SInfo<SelDates<1,5>,i>:@vm:SInfo<SelDates<1,6>,i>:@vm:SInfo<SelDates<1,7>,i>\r\n end\r\nnext i\r\n\r\nColTableInfo = '>+360':@vm:'<+2044':@vm:'<+2044':@vm:'<+2044':@vm:'<+2044':@vm:'<+2044':@vm:'<+2044':@vm:'<+2044'\r\nx = Set_Printer(\"ADDTABLE\", ColTableInfo, '', Table, '', '', 1, TB_ALL)\r\nstat = set_printer( 'TERM' ) \r\ngosub CheckErr \r\n\r\nRETURN 0\r\n*===========================================================================*\r\nPrintTof:\r\n TFont<1> = 24\r\n TFont<3> = 'C'\r\n Stat = set_printer( 'FONT', TFont )\r\n LineOut = ''\r\n LineOut = 'Reactor Master Scheduler'\r\n Void = set_printer( 'TEXT', LineOut ) \r\n TFont<1> = 16 \r\n Stat = set_printer( 'FONT', TFont ) \r\n LineOut = 'For the month of ':.month->text\r\n Void = set_printer( 'TEXT', LineOut )\r\n Void = set_printer( 'TEXT', '' )\r\n Stat = set_printer( 'FONT', Font ) \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\n"
|
||||
"<1>": "declare function security_check, set_printer, get_printer, msg, fieldcount, popup,Printer_Select\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 popup_equates\r\n\r\nequ Mon$ to 1\r\nequ Tue$ to 2\r\nequ Wed$ to 3\r\nequ Thurs$ to 4\r\nequ Fri$ to 5\r\nequ Sat$ to 6\r\nequ Sun$ to 7\r\n\r\nReselect:\r\n\r\nMastSchedPrintOptsPopup = xlate( 'SYSREPOSPOPUPS', @appid<1>:'**WO_MAST_SCHED_PRINT_OPTS', '', 'X' )\r\n\r\n*Display = MastSchedPrintOptsPopup<pdisplay$>\r\n\r\nDisplay = .sched_info->label\t\t\t;* List of 31 dates displayed at the top of the schedule\r\nconvert @fm to @vm in Display\r\n\r\nMastSchedPrintOptsPopup<pdisplay$> = Display\r\n\r\nSelDates = popup( @window, MastSchedPrintOptsPopup )\t\t;* Returns positions of selected dates in the list of 31\r\n\r\nSelDtCnt = fieldcount( SelDates, @vm )\r\nif SelDtCnt else\r\n return 0\r\nend\r\n\r\nif SelDtCnt > 7 then\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You may only choose 7 days to print at a given time.'\r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n goto ReSelect\r\nend\r\n**\r\n\r\nPrintPath = Printer_Select('',1)\t\t;* Get default printer path\r\nStat = set_printer( 'INIT', '', '', '':@fm:'':@fm:0:@fm:'', 1,'',PrintPath )\r\ngosub CheckErr\r\n\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\n\r\ngosub PrintToF\r\n\r\nFont<2> = 9\r\nFont<4> = 0\r\nVoid = set_printer( 'FONT', Font )\r\ngosub CheckErr\r\n\r\nVoid = set_printer( 'TEXT', '' )\r\n\r\n**\r\n\r\n\r\n\r\nSInfo\t\t= .sched_info->array\r\nColHeads \t= .sched_info->label\r\n\r\nconvert @fm to @vm in ColHeads\r\n\r\nNewColHeads = ''\r\n\r\nfor I = 1 to SelDtCnt\r\n NewColHeads<1,-1> = ColHeads<1,SelDates<1,I>>\r\nnext I\r\n\r\nTable = ''\r\nTable<1> = 'R#':@vm:NewColHeads\r\n\r\nRcnt = fieldcount( SInfo<1>, @vm )\r\n\r\nTFont<2> = 9\r\nStat = set_printer( 'FONT', TFont )\r\n\r\nfor i = 1 to Rcnt\r\n Tvar = trim(SInfo<SelDates<1,1>,i>):trim(SInfo<SelDates<1,2>,i>):trim(SInfo<SelDates<1,3>,i>):trim(SInfo<SelDates<1,4>,i>):trim(SInfo<SelDates<1,5>,i>):trim(SInfo<SelDates<1,6>,i>):trim(SInfo<SelDates<1,7>,i>)\r\n \r\n \r\n \r\n if Tvar = '|||||||' or Tvar = '||||||' then \r\n \t\r\n * Tom puts a '|' when not in use and if it is not in use for all 7 days then don't print\r\n end else\r\n Table<-1> = i:@vm:SInfo<SelDates<1,1>,i>:@vm:SInfo<SelDates<1,2>,i>:@vm:SInfo<SelDates<1,3>,i>:@vm:SInfo<SelDates<1,4>,i>:@vm:SInfo<SelDates<1,5>,i>:@vm:SInfo<SelDates<1,6>,i>:@vm:SInfo<SelDates<1,7>,i>\r\n end\r\nnext i\r\n\r\nColTableInfo = '>+360':@vm:'<+2044':@vm:'<+2044':@vm:'<+2044':@vm:'<+2044':@vm:'<+2044':@vm:'<+2044':@vm:'<+2044'\r\nx = Set_Printer(\"ADDTABLE\", ColTableInfo, '', Table, '', '', 1, TB_ALL)\r\nstat = set_printer( 'TERM' ) \r\ngosub CheckErr \r\n\r\nRETURN 0\r\n*===========================================================================*\r\nPrintTof:\r\n TFont<1> = 24\r\n TFont<3> = 'C'\r\n Stat = set_printer( 'FONT', TFont )\r\n LineOut = ''\r\n LineOut = 'Reactor Master Scheduler'\r\n Void = set_printer( 'TEXT', LineOut ) \r\n TFont<1> = 16 \r\n Stat = set_printer( 'FONT', TFont ) \r\n LineOut = 'For the month of ':.month->text\r\n Void = set_printer( 'TEXT', LineOut )\r\n Void = set_printer( 'TEXT', '' )\r\n Stat = set_printer( 'FONT', Font ) \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\n"
|
||||
}
|
||||
}
|
||||
}
|
||||
File diff suppressed because one or more lines are too long
Reference in New Issue
Block a user