phares3757/open-insight
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

pre cutover push

Browse Source
This commit is contained in:
Infineon\StieberD
2024-09-04 20:33:41 -07:00
parent 6ea6969f4b
commit 7762b129af
2072 changed files with 130000 additions and 95295 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
LSL2/OIEVENT/CREATE/LISTBOX_CONFIG..json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "\r\ndeclare function msg, send_event, admin_user, center_window\r\n$insert msg_equates\r\n$insert listbox_config_equ\r\n$insert quote_sigs_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif admin_user( @user4 ) OR @USERNAME = 'BRYCE_BARB' then\r\n * OK THEY ARE AN ADMINISTRATOR, SO ALSO SHOW THE MANUF_CHECK BOX\r\n .MANUF_CHECK->VISIBLE = 1\r\nend else\r\n ProdMgr = xlate( 'CONFIG', 'QUOTE_SIGS', ProdMgr$, 'X' )\r\n if ( @user4 = ProdMgr ) or ( @user4 = 'PAUL_W' ) or ( @user4 = 'PETER_Z' ) then\r\n * IT IS THE MFG MGR - ON READ NEED TO CHECK TO SEE IF \r\n * THE RECORD IS CHECKED FOR MANUF_CHECK OTHERWISE DISALLOW\r\n .MANUF_CHECK->VISIBLE = 0\r\n end else\r\n\t\tMessage = 'You do not have the proper security to enter ListBox entries...' \r\n\t\tMessage<micon$> = 'H'\r\n\t\tVoid = msg( '', Message )\r\n\t\tVoid = send_event( @window, 'CLOSE' )\r\n\tend\r\nend\r\n\r\nRETURN 1"
"<1>": "\r\ndeclare function msg, send_event, admin_user, center_window\r\n$insert msg_equates\r\n$insert listbox_config_equ\r\n$insert quote_sigs_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif admin_user( @user4 ) then\r\n * OK THEY ARE AN ADMINISTRATOR, SO ALSO SHOW THE MANUF_CHECK BOX\r\n .MANUF_CHECK->VISIBLE = 1\r\nend else\r\n ProdMgr = xlate( 'CONFIG', 'QUOTE_SIGS', ProdMgr$, 'X' )\r\n if ( @user4 = ProdMgr ) or ( @user4 = 'PAUL_W' ) or ( @user4 = 'PETER_Z' ) then\r\n * IT IS THE MFG MGR - ON READ NEED TO CHECK TO SEE IF \r\n * THE RECORD IS CHECKED FOR MANUF_CHECK OTHERWISE DISALLOW\r\n .MANUF_CHECK->VISIBLE = 0\r\n end else\r\n\t\tMessage = 'You do not have the proper security to enter ListBox entries...' \r\n\t\tMessage<micon$> = 'H'\r\n\t\tVoid = msg( '', Message )\r\n\t\tVoid = send_event( @window, 'CLOSE' )\r\n\tend\r\nend\r\n\r\nRETURN 1"
}
}
}

2
LSL2/OIEVENT/CREATE/MODS..json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "declare function msg, send_event, admin_user, center_window, mods_load_control, end_window\r\ndeclare function get_status\r\ndeclare subroutine end_dialog, attach_table\r\n$insert msg_equates\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nosopen 'MODS\\MODS.TXT' to Tvar then\r\n * OFFLINE DO NOT ALLOW UPDATES\r\n osclose Tvar\r\n .us_button->enabled = 0\r\n .ua_button->enabled = 0\r\nend else\r\n * ONLINE DO NOT ALLOW NEW PROJECTS OR ADDING REPOSITORY ENTRIES OR PREPARING MODS\r\n .prep_final_button->enabled = 0\r\n .prep_button->enabled = 0\r\n .new_button->enabled = 0\r\n .sr_button->enabled = 0\r\n attach_table(\"C:\\Revsoft\\OFFnSght\\MODS\", \"\", \"\", \"\")\r\n if get_status() then\r\n Void = msg( '', 'Error while attaching offline MODS...' )\r\n Void = end_window(@window) \r\n end\r\nend\r\n* CAUSE SOMETIMES I DON'T LOG INTO THE LSL_MAIN2 AND THEN THIS ERRORS\r\n* MOST OF THE TIME WHEN I GET INTO DEVELOPMENT I GO IMMEDIATELY INTO MODS\r\nif @user4 = '' then\r\n @user4 = @username\r\nend\r\nif Admin_user( @user4 ) then \r\n\topen 'MODS_CFG' to ConfigTable else\r\n\t Void = msg( '', 'Unable to open MODS_CFG table' )\r\n\t end_dialog( @window, '' )\r\n\t return 0\r\n\tend\r\n\tlock ConfigTable, 'MODS' else\r\n\t Void = msg( '', 'MODS is in use somewhere else...' )\r\n\t end_dialog( @window, '' )\r\n\t return 0\r\n\tend\r\n\tread ModsInfo from ConfigTable, 'MODS' then\r\n\t if ModsInfo then\r\n\t .PSD->text = ModsInfo<1>\r\n\t .PN->text = ModsInfo<2>\r\n\t .proj_notes->text = ModsInfo<3>\r\n\t end\r\n\tend\r\nend else\r\n Message = 'You do not have the proper security to DO MODS...' \r\n Message<micon$> = 'H'\r\n Void = msg( '', Message )\r\n end_dialog( @window, '' )\r\nend\r\nVoid = mods_load_control()\r\nRETURN 1"
"<1>": "declare function msg, send_event, admin_user, center_window, mods_load_control, end_window\r\ndeclare function get_status\r\ndeclare subroutine end_dialog, attach_table\r\n$insert msg_equates\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nosopen 'MODS\\MODS.TXT' to Tvar then\r\n * OFFLINE DO NOT ALLOW UPDATES\r\n osclose Tvar\r\n .us_button->enabled = 0\r\n .ua_button->enabled = 0\r\nend else\r\n * ONLINE DO NOT ALLOW NEW PROJECTS OR ADDING REPOSITORY ENTRIES OR PREPARING MODS\r\n .prep_final_button->enabled = 0\r\n .prep_button->enabled = 0\r\n .new_button->enabled = 0\r\n .sr_button->enabled = 0\r\n attach_table(\"C:\\Revsoft\\OFFnSght\\MODS\", \"\", \"\", \"\")\r\n if get_status() then\r\n Void = msg( '', 'Error while attaching offline MODS...' )\r\n Void = end_window(@window) \r\n end\r\nend\r\n* CAUSE SOMETIMES I DON'T LOG INTO THE LSL_MAIN2 AND THEN THIS ERRORS\r\n* MOST OF THE TIME WHEN I GET INTO DEVELOPMENT I GO IMMEDIATELY INTO MODS\r\n\r\nif Admin_user( @user4 ) then \r\n\topen 'MODS_CFG' to ConfigTable else\r\n\t Void = msg( '', 'Unable to open MODS_CFG table' )\r\n\t end_dialog( @window, '' )\r\n\t return 0\r\n\tend\r\n\tlock ConfigTable, 'MODS' else\r\n\t Void = msg( '', 'MODS is in use somewhere else...' )\r\n\t end_dialog( @window, '' )\r\n\t return 0\r\n\tend\r\n\tread ModsInfo from ConfigTable, 'MODS' then\r\n\t if ModsInfo then\r\n\t .PSD->text = ModsInfo<1>\r\n\t .PN->text = ModsInfo<2>\r\n\t .proj_notes->text = ModsInfo<3>\r\n\t end\r\n\tend\r\nend else\r\n Message = 'You do not have the proper security to DO MODS...' \r\n Message<micon$> = 'H'\r\n Void = msg( '', Message )\r\n end_dialog( @window, '' )\r\nend\r\nVoid = mods_load_control()\r\nRETURN 1"
}
}
}

2
LSL2/OIEVENT/CREATE/PASS_DOWN..json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "declare function memberof, msg, center_window\r\ndeclare subroutine end_dialog\r\n$insert logical\r\n$insert msg_equates\r\n\r\n****wo mast sched equates***\r\nequ Days$ to 1\r\nequ Month$ to 2\r\nequ ReactorCnt$ to 3\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif memberof( @user4, 'DATA_ENTRY' ) or memberof( @user4, 'SUPERVISOR' ) or memberof( @user4, 'OPERATOR') or @USERNAME = 'BRYCE_BARB' then\r\n\tMastSchedRec = xlate( 'CONFIG', 'WO_MAST_SCHED', '', 'X' )\r\n\tNumReactors = MastSchedRec<ReactorCnt$>\r\n\tList = ''\r\n\tfor i = 20 to NumReactors\r\n\t\tBEGIN CASE\r\n\t\t\tCASE i = 74\r\n\t\t\t\tList<-1> = 'Eng Log ':i\r\n\t\t\t\t\r\n\t\t\tCASE i = 73\r\n\t\t\t\tList<-1> = 'Cleans ':i\r\n\t\t\t\t\r\n\t\t\tCASE 1\r\n\t\t\t\tList<-1> = 'Reactor ':i\r\n\t\t\r\n\t\tEND CASE\r\n\tnext i\r\n\t\r\n\t.reactors->list = List\r\nend else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must be a technician or a supervisor to access this...'\r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n end_dialog( @window, '' )\r\nend\r\nRETURN 0"
"<1>": "declare function memberof, msg, center_window\r\ndeclare subroutine end_dialog\r\n$insert logical\r\n$insert msg_equates\r\n\r\n****wo mast sched equates***\r\nequ Days$ to 1\r\nequ Month$ to 2\r\nequ ReactorCnt$ to 3\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif memberof( @user4, 'DATA_ENTRY' ) or memberof( @user4, 'SUPERVISOR' ) or memberof( @user4, 'OPERATOR') then\r\n\tMastSchedRec = xlate( 'CONFIG', 'WO_MAST_SCHED', '', 'X' )\r\n\tNumReactors = MastSchedRec<ReactorCnt$>\r\n\tList = ''\r\n\tfor i = 20 to NumReactors\r\n\t\tBEGIN CASE\r\n\t\t\tCASE i = 74\r\n\t\t\t\tList<-1> = 'Eng Log ':i\r\n\t\t\t\t\r\n\t\t\tCASE i = 73\r\n\t\t\t\tList<-1> = 'Cleans ':i\r\n\t\t\t\t\r\n\t\t\tCASE 1\r\n\t\t\t\tList<-1> = 'Reactor ':i\r\n\t\t\r\n\t\tEND CASE\r\n\tnext i\r\n\t\r\n\t.reactors->list = List\r\nend else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must be a technician or a supervisor to access this...'\r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n end_dialog( @window, '' )\r\nend\r\nRETURN 0"
}
}
}

2
LSL2/OIEVENT/CREATE/PROD_SPEC_SI..json
View File

File diff suppressed because one or more lines are too long

2
LSL2/OIEVENT/CREATE/PROD_SPEC_SI4..json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "$INSERT RECIPE_EQU\r\n\r\nDECLARE SUBROUTINE Set_List_Box_data, Set_Property\r\nDECLARE FUNCTION Center_Window, Prod_Spec_Comm\r\n\r\nEQU MI$TOOL\t\t\tTO 1\r\nEQU MI$TYPE\t\t\tTO 2\r\nEQU MI$RECIPE\t\tTO 3\r\nEQU MI$FREQ\t\t\tTO 4\r\nEQU MI$PROVE_TYPE\tTO 5\r\nEQU MI$FIRST_CHECK\tTO 6\r\nEQU MI$LAST_CHECK\tTO 7\r\nEQU MI$SPC\t\t\tTO 8\r\nEQU MI$OVERGROW\t\tTO 9\r\nEQU MI$EXP_TW_QTY\tTO 10\r\nEQU MI$PATTERN\t\tTO 11\r\n\r\nIF INDEX( CreateParam, 'CENTER', 1 ) THEN\r\n void = center_window( @window )\r\nEND ELSE\r\n Void = Set_Property( @window, 'VISIBLE', 1 )\r\nEND\r\n\r\nMeasureInfo\t= FIELD( CreateParam, CHAR(245), 1 )\t\t;* 1st passed parameter\r\n\r\nCtrls = @WINDOW:'.TOOL':@RM\t\t\t\t; Props = 'TEXT':@RM\t\t; Vals = FIELD(MeasureInfo,'~',MI$TOOL):@RM\r\nCtrls := @WINDOW:'.TYPE':@RM\t\t\t\t; Props := 'TEXT':@RM\t\t; Vals := FIELD(MeasureInfo,'~',MI$TYPE):@RM\r\nCtrls := @WINDOW:'.RECIPE':@RM\t\t\t\t; Props := 'TEXT':@RM\t\t; Vals := FIELD(MeasureInfo,'~',MI$RECIPE):@RM\r\nCtrls := @WINDOW:'.FREQ':@RM\t\t\t\t; Props := 'TEXT':@RM\t\t; Vals := FIELD(MeasureInfo,'~',MI$FREQ):@RM\r\nCtrls := @WINDOW:'.PROVE_TYPE':@RM\t\t\t; Props := 'TEXT':@RM\t\t; Vals := FIELD(MeasureInfo,'~',MI$PROVE_TYPE):@RM\r\nCtrls := @WINDOW:'.FIRST_CHECK':@RM\t\t\t; Props := 'CHECK':@RM\t\t; Vals := FIELD(MeasureInfo,'~',MI$FIRST_CHECK):@RM\r\nCtrls := @WINDOW:'.LAST_CHECK':@RM\t\t\t; Props := 'CHECK':@RM\t\t; Vals := FIELD(MeasureInfo,'~',MI$LAST_CHECK):@RM\r\nCtrls := @WINDOW:'.SPC':@RM\t\t\t\t\t; Props := 'CHECK':@RM\t\t; Vals := FIELD(MeasureInfo,'~',MI$SPC):@RM\r\nCtrls := @WINDOW:'.OVERGROW':@RM\t\t\t; Props := 'CHECK':@RM\t\t; Vals := FIELD(MeasureInfo,'~',MI$OVERGROW):@RM\r\nCtrls := @WINDOW:'.EXPECTED_TW_QTY':@RM\t\t; Props := 'TEXT':@RM\t\t; Vals := FIELD(MeasureInfo,'~',MI$EXP_TW_QTY):@RM\r\nCtrls := @WINDOW:'.PATTERN'\t\t\t\t\t; Props := 'TEXT'\t\t\t; Vals := FIELD(MeasureInfo,'~',MI$PATTERN)\r\n\r\nSet_Property(Ctrls,Props,Vals)\r\nSet_Property(@WINDOW, '@Controls',Ctrls)\r\nSet_Property(@WINDOW, '@Props',Props)\r\n\r\nType = FIELD(CreateParam,CHAR(245),2)\t\t;* 2nd passed parameter\r\n\r\nIF Type = 'RES' THEN\r\n\tvoid = Set_Property(@WINDOW:'.OVERGROW','VISIBLE',1)\r\nEND ELSE\r\n\tvoid = Set_Property(@WINDOW:'.OVERGROW','VISIBLE',0)\r\nEND\r\n\r\n\r\nIF @USERNAME = 'BRYCE_BARB' THEN DEBUG\r\n\r\nTypeOut = FIELD(CreateParam,CHAR(245),3)\t\t\t;* 3rd passed parameter\r\n\r\nTitle = Get_Property(@WINDOW,'TEXT')\r\nTitle := TypeOut:' ':Title\r\nSet_Property(@WINDOW,'TEXT',Title)\r\n\r\nSet_List_Box_Data(CtrlEntId)\r\n\r\n\r\nToolList = XLATE('LISTBOX_CONFIG',Type:'MEASURETOOL','','X')\r\nCONVERT @VM TO @FM IN ToolList\r\nSet_Property(@WINDOW:'.TOOL','LIST',ToolList)\r\n\r\nTool = Get_Property(@WINDOW:'.TOOL', 'TEXT' )\r\nCONVERT @LOWER_CASE TO @UPPER_CASE IN Tool\r\n\r\nRecipeList = XLATE( 'LISTBOX_CONFIG', Tool:'_RECIPES', '', 'X' )\r\nCONVERT @VM To @FM IN RecipeList\r\n\r\nIF RecipeList NE '' THEN\r\n\tSet_Property(@WINDOW:'.RECIPE','LIST',RecipeList)\r\nEND\r\n\r\nRETURN 1\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n"
"<1>": "$INSERT RECIPE_EQU\r\n\r\nDECLARE SUBROUTINE Set_List_Box_data, Set_Property\r\nDECLARE FUNCTION Center_Window, Prod_Spec_Comm\r\n\r\nEQU MI$TOOL\t\t\tTO 1\r\nEQU MI$TYPE\t\t\tTO 2\r\nEQU MI$RECIPE\t\tTO 3\r\nEQU MI$FREQ\t\t\tTO 4\r\nEQU MI$PROVE_TYPE\tTO 5\r\nEQU MI$FIRST_CHECK\tTO 6\r\nEQU MI$LAST_CHECK\tTO 7\r\nEQU MI$SPC\t\t\tTO 8\r\nEQU MI$OVERGROW\t\tTO 9\r\nEQU MI$EXP_TW_QTY\tTO 10\r\nEQU MI$PATTERN\t\tTO 11\r\n\r\nIF INDEX( CreateParam, 'CENTER', 1 ) THEN\r\n void = center_window( @window )\r\nEND ELSE\r\n Void = Set_Property( @window, 'VISIBLE', 1 )\r\nEND\r\n\r\nMeasureInfo\t= FIELD( CreateParam, CHAR(245), 1 )\t\t;* 1st passed parameter\r\n\r\nCtrls = @WINDOW:'.TOOL':@RM\t\t\t\t; Props = 'TEXT':@RM\t\t; Vals = FIELD(MeasureInfo,'~',MI$TOOL):@RM\r\nCtrls := @WINDOW:'.TYPE':@RM\t\t\t\t; Props := 'TEXT':@RM\t\t; Vals := FIELD(MeasureInfo,'~',MI$TYPE):@RM\r\nCtrls := @WINDOW:'.RECIPE':@RM\t\t\t\t; Props := 'TEXT':@RM\t\t; Vals := FIELD(MeasureInfo,'~',MI$RECIPE):@RM\r\nCtrls := @WINDOW:'.FREQ':@RM\t\t\t\t; Props := 'TEXT':@RM\t\t; Vals := FIELD(MeasureInfo,'~',MI$FREQ):@RM\r\nCtrls := @WINDOW:'.PROVE_TYPE':@RM\t\t\t; Props := 'TEXT':@RM\t\t; Vals := FIELD(MeasureInfo,'~',MI$PROVE_TYPE):@RM\r\nCtrls := @WINDOW:'.FIRST_CHECK':@RM\t\t\t; Props := 'CHECK':@RM\t\t; Vals := FIELD(MeasureInfo,'~',MI$FIRST_CHECK):@RM\r\nCtrls := @WINDOW:'.LAST_CHECK':@RM\t\t\t; Props := 'CHECK':@RM\t\t; Vals := FIELD(MeasureInfo,'~',MI$LAST_CHECK):@RM\r\nCtrls := @WINDOW:'.SPC':@RM\t\t\t\t\t; Props := 'CHECK':@RM\t\t; Vals := FIELD(MeasureInfo,'~',MI$SPC):@RM\r\nCtrls := @WINDOW:'.OVERGROW':@RM\t\t\t; Props := 'CHECK':@RM\t\t; Vals := FIELD(MeasureInfo,'~',MI$OVERGROW):@RM\r\nCtrls := @WINDOW:'.EXPECTED_TW_QTY':@RM\t\t; Props := 'TEXT':@RM\t\t; Vals := FIELD(MeasureInfo,'~',MI$EXP_TW_QTY):@RM\r\nCtrls := @WINDOW:'.PATTERN'\t\t\t\t\t; Props := 'TEXT'\t\t\t; Vals := FIELD(MeasureInfo,'~',MI$PATTERN)\r\n\r\nSet_Property(Ctrls,Props,Vals)\r\nSet_Property(@WINDOW, '@Controls',Ctrls)\r\nSet_Property(@WINDOW, '@Props',Props)\r\n\r\nType = FIELD(CreateParam,CHAR(245),2)\t\t;* 2nd passed parameter\r\n\r\nIF Type = 'RES' THEN\r\n\tvoid = Set_Property(@WINDOW:'.OVERGROW','VISIBLE',1)\r\nEND ELSE\r\n\tvoid = Set_Property(@WINDOW:'.OVERGROW','VISIBLE',0)\r\nEND\r\n\r\nTypeOut = FIELD(CreateParam,CHAR(245),3)\t\t\t;* 3rd passed parameter\r\n\r\nTitle = Get_Property(@WINDOW,'TEXT')\r\nTitle := TypeOut:' ':Title\r\nSet_Property(@WINDOW,'TEXT',Title)\r\n\r\nSet_List_Box_Data(CtrlEntId)\r\n\r\n\r\nToolList = XLATE('LISTBOX_CONFIG',Type:'MEASURETOOL','','X')\r\nCONVERT @VM TO @FM IN ToolList\r\nSet_Property(@WINDOW:'.TOOL','LIST',ToolList)\r\n\r\nTool = Get_Property(@WINDOW:'.TOOL', 'TEXT' )\r\nCONVERT @LOWER_CASE TO @UPPER_CASE IN Tool\r\n\r\nRecipeList = XLATE( 'LISTBOX_CONFIG', Tool:'_RECIPES', '', 'X' )\r\nCONVERT @VM To @FM IN RecipeList\r\n\r\nIF RecipeList NE '' THEN\r\n\tSet_Property(@WINDOW:'.RECIPE','LIST',RecipeList)\r\nEND\r\n\r\nRETURN 1\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n"
}
}
}

2
LSL2/OIEVENT/CREATE/QUOTE_SIG_PWD_ENTRY..json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "declare function set_property\r\nDeclare subroutine SRP_Show_Window\r\n\r\nIF @USERNAME = 'BRYCE_BARB' THEN\r\n\tCreateParam = 'BRYCE_BARB':@VM:''\r\nEND\r\n\r\nVoid = set_property( @window, '@PINFO', CreateParam )\r\nSRP_Show_Window(@Window, '', 'C', 'C', 1, '', 0, 0)\r\n\r\nRETURN 0"
"<1>": "declare function set_property\r\nDeclare subroutine SRP_Show_Window\r\n\r\nVoid = set_property( @window, '@PINFO', CreateParam )\r\nSRP_Show_Window(@Window, '', 'C', 'C', 1, '', 0, 0)\r\n\r\nRETURN 0"
}
}
}

2
LSL2/OIEVENT/CREATE/REACTOR_MAINT_TODO..json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "DECLARE SUBROUTINE ErrMsg, RList, Create_Note, Set_Property, Send_Message\r\nDECLARE FUNCTION Send_Message, Center_Window, End_Window, Utility\r\n\r\n$INSERT RLIST_EQUATES\r\n$INSERT REACT_SERVS_EQU\r\n$INSERT REACTOR_PM_EQU\t\r\n$INSERT REACTOR_EQUATES\r\n\r\nVoid = Utility( 'CURSOR', 'H' )\r\nSet_Property(@WINDOW:'.LIST_1','VISIBLE',0)\r\n\r\nOPEN 'REACTOR_PM' TO RPMTable ELSE\r\n\tErrMsg('Unable to open REACTOR_PM table...')\r\n\tRETURN 0\r\nEND\r\n\r\nEndDt = Date() + 60\r\n\r\nIF @USERNAME = 'BRYCE_BARB' THEN EndDt = Date() + 365\r\n\r\nStatement = 'SELECT REACTOR_PM WITH REACTOR NE \"\" AND WITH COMPLETE_DATE = \"\" AND WITH DUE_DT < ':QUOTE(OConv(EndDt, 'D4/')):' BY REACTOR BY-DSND NEXT_DONE'\r\nRList( Statement, target_activelist$, '', '', '' )\r\n\r\nReactNos = ''\r\nNextDueDts = ''\r\nServiceIDs = ''\r\n\r\nDone = 0\r\nLOOP\r\n\tREADNEXT RPMKey ELSE Done = 1\r\nUNTIL Done\r\n\tREAD RPMRec FROM RPMTable,RPMKey THEN\r\n\t\tReactNo\t\t= RPMRec<REACTOR_PM_REACTOR$>\r\n\t\tServiceID\t= RPMRec<REACTOR_PM_REACT_SERV_ID$>\r\n\t\tNextDueDt\t= RPMRec<REACTOR_PM_NEXT_DONE$>\r\n\t\t\r\n\t\tLOCATE ReactNo IN ReactNos BY 'AR' USING @FM SETTING RPos ELSE\r\n\t\t\tReactNos = INSERT(ReactNos,RPos,0,0,ReactNo)\r\n\t\tEND\r\n\t\t\r\n\t\tLOCATE NextDueDt IN NextDueDts<RPos> BY 'AR' USING @VM SETTING DPos ELSE\r\n\t\t\tNextDueDts = INSERT(NextDueDts,RPos,DPos,0,NextDueDt)\r\n\t\t\tServiceIDs = INSERT(ServiceIDs,RPos,DPos,0,ServiceID)\r\n\t\tEND\r\n\tEND\t;* End of RPMRec read\r\nREPEAT\r\n\r\nDisplay = ''\r\n\r\nReactCnt = COUNT(ReactNos,@FM) + (ReactNos NE '')\r\n\r\nPrevReactNo = ''\r\nFOR R = 1 TO ReactCnt\r\n\tReactNo = ReactNos<R>\r\n\t\r\n\tIF ReactNo NE PrevReactNo THEN\r\n\t\tReactRec\t= XLATE('REACTOR',ReactNo,'','X')\r\n\t\tReactType\t= OCONV(ReactRec<REACTOR_REACT_TYPE$>,'[REACT_TYPE_CONV,OPSREF]')\r\n\r\n\t\tReactDesc\t= ReactRec<REACTOR_REACT_DESC$>\r\n\t\tPrevReactNo = ReactNo\r\n\t\tIF Display NE '' THEN\r\n\t\t\tDisplay<-1> = '6-1:':STR('-',100)\r\n\t\tEND\r\n\t\tDisplay<-1> = '1-1: React No ':ReactNo:' ':ReactType:' ':ReactDesc\r\n\tEND\r\n\t\r\n\tndCnt = COUNT(NextDueDts<R>,@VM) + (NextDueDts<R> NE '')\r\n\t\r\n\tFOR I = 1 TO ndCnt\r\n\t\tNextDueDt\t= OCONV(NextDueDts<R,I>,'D4/')\r\n\t\tServiceID \t= ServiceIDs<R,I>\r\n\t\tService\t\t= XLATE('REACT_SERVS',ServiceID,REACT_SERVS_DESCRIPTION$,'X' )\r\n\t\t\r\n\t\tDisplay<-1> = '2-2: Due On: ':NextDueDt:' ':ServiceID:' ':Service\r\n\tNEXT I\r\n\r\nNEXT R\r\n\r\nvoid = Center_Window(@WINDOW)\r\n\r\nSet_Property(@WINDOW:'.TITLE_LABEL','DEFPROP',\"Reactor PM's Due Before \":OCONV(EndDt,'D4,HL'))\r\n\r\nSet_Property(@WINDOW,'VISIBLE',1)\r\n\r\nSet_Property(@WINDOW:'.LIST_1','LIST',Display)\r\n\r\nSend_Message(@WINDOW:'.LIST_1', 'EXPAND', 0, 0 )\r\n\r\nSet_Property(@WINDOW:'.LIST_1','VISIBLE',1)\r\n\r\nvoid = Utility( 'CURSOR', 'A' )\r\n\r\nRETURN 1\r\n\r\n"
"<1>": "DECLARE SUBROUTINE ErrMsg, RList, Create_Note, Set_Property, Send_Message\r\nDECLARE FUNCTION Send_Message, Center_Window, End_Window, Utility\r\n\r\n$INSERT RLIST_EQUATES\r\n$INSERT REACT_SERVS_EQU\r\n$INSERT REACTOR_PM_EQU\t\r\n$INSERT REACTOR_EQUATES\r\n\r\nVoid = Utility( 'CURSOR', 'H' )\r\nSet_Property(@WINDOW:'.LIST_1','VISIBLE',0)\r\n\r\nOPEN 'REACTOR_PM' TO RPMTable ELSE\r\n\tErrMsg('Unable to open REACTOR_PM table...')\r\n\tRETURN 0\r\nEND\r\n\r\nEndDt = Date() + 60\r\n\r\nStatement = 'SELECT REACTOR_PM WITH REACTOR NE \"\" AND WITH COMPLETE_DATE = \"\" AND WITH DUE_DT < ':QUOTE(OConv(EndDt, 'D4/')):' BY REACTOR BY-DSND NEXT_DONE'\r\nRList( Statement, target_activelist$, '', '', '' )\r\n\r\nReactNos = ''\r\nNextDueDts = ''\r\nServiceIDs = ''\r\n\r\nDone = 0\r\nLOOP\r\n\tREADNEXT RPMKey ELSE Done = 1\r\nUNTIL Done\r\n\tREAD RPMRec FROM RPMTable,RPMKey THEN\r\n\t\tReactNo\t\t= RPMRec<REACTOR_PM_REACTOR$>\r\n\t\tServiceID\t= RPMRec<REACTOR_PM_REACT_SERV_ID$>\r\n\t\tNextDueDt\t= RPMRec<REACTOR_PM_NEXT_DONE$>\r\n\t\t\r\n\t\tLOCATE ReactNo IN ReactNos BY 'AR' USING @FM SETTING RPos ELSE\r\n\t\t\tReactNos = INSERT(ReactNos,RPos,0,0,ReactNo)\r\n\t\tEND\r\n\t\t\r\n\t\tLOCATE NextDueDt IN NextDueDts<RPos> BY 'AR' USING @VM SETTING DPos ELSE\r\n\t\t\tNextDueDts = INSERT(NextDueDts,RPos,DPos,0,NextDueDt)\r\n\t\t\tServiceIDs = INSERT(ServiceIDs,RPos,DPos,0,ServiceID)\r\n\t\tEND\r\n\tEND\t;* End of RPMRec read\r\nREPEAT\r\n\r\nDisplay = ''\r\n\r\nReactCnt = COUNT(ReactNos,@FM) + (ReactNos NE '')\r\n\r\nPrevReactNo = ''\r\nFOR R = 1 TO ReactCnt\r\n\tReactNo = ReactNos<R>\r\n\t\r\n\tIF ReactNo NE PrevReactNo THEN\r\n\t\tReactRec\t= XLATE('REACTOR',ReactNo,'','X')\r\n\t\tReactType\t= OCONV(ReactRec<REACTOR_REACT_TYPE$>,'[REACT_TYPE_CONV,OPSREF]')\r\n\r\n\t\tReactDesc\t= ReactRec<REACTOR_REACT_DESC$>\r\n\t\tPrevReactNo = ReactNo\r\n\t\tIF Display NE '' THEN\r\n\t\t\tDisplay<-1> = '6-1:':STR('-',100)\r\n\t\tEND\r\n\t\tDisplay<-1> = '1-1: React No ':ReactNo:' ':ReactType:' ':ReactDesc\r\n\tEND\r\n\t\r\n\tndCnt = COUNT(NextDueDts<R>,@VM) + (NextDueDts<R> NE '')\r\n\t\r\n\tFOR I = 1 TO ndCnt\r\n\t\tNextDueDt\t= OCONV(NextDueDts<R,I>,'D4/')\r\n\t\tServiceID \t= ServiceIDs<R,I>\r\n\t\tService\t\t= XLATE('REACT_SERVS',ServiceID,REACT_SERVS_DESCRIPTION$,'X' )\r\n\t\t\r\n\t\tDisplay<-1> = '2-2: Due On: ':NextDueDt:' ':ServiceID:' ':Service\r\n\tNEXT I\r\n\r\nNEXT R\r\n\r\nvoid = Center_Window(@WINDOW)\r\n\r\nSet_Property(@WINDOW:'.TITLE_LABEL','DEFPROP',\"Reactor PM's Due Before \":OCONV(EndDt,'D4,HL'))\r\n\r\nSet_Property(@WINDOW,'VISIBLE',1)\r\n\r\nSet_Property(@WINDOW:'.LIST_1','LIST',Display)\r\n\r\nSend_Message(@WINDOW:'.LIST_1', 'EXPAND', 0, 0 )\r\n\r\nSet_Property(@WINDOW:'.LIST_1','VISIBLE',1)\r\n\r\nvoid = Utility( 'CURSOR', 'A' )\r\n\r\nRETURN 1\r\n\r\n"
}
}
}

2
LSL2/OIEVENT/CREATE/RECIPE_BROWSE..json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "declare function memberof, msg, send_event, center_window\r\n$insert msg_equates\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nBEGIN CASE\r\n\t*CASE memberof( @user4, 'DATA_ENTRY' )\t; ClearToUse = 1\r\n\t*CASE memberof( @user4, 'SUPERVISOR' )\t; ClearToUse = 1\r\n\t*CASE memberof( @user4, 'MANAGEMENT' )\t; ClearToUse = 1\r\n\t*CASE memberof( @user4, 'MASTER' )\t\t; ClearToUse = 1\r\n\tCASE memberof(@USER4,'ENGINEERING')\t\t; ClearToUse = 1\r\n\tCASE @USERNAME = 'BRYCE_BARB'\t\t\t; ClearToUse = 1\r\n\tCASE 1\t\t\t\t\t\t\t\t\t; ClearToUse = 0\r\nEND CASE\r\n\r\nif ClearToUse then\r\n\tVoid = set_property( @window, '@WOCnt', '' )\r\n\tVoid = set_property( @window, '@WOCurPos', '' )\r\n\tVoid = set_property( @window, '@WOS', '' )\r\n\tVoid = set_property( @window, '@RDSCnt', '' )\r\n\tVoid = set_property( @window, '@RDSCurPos', '' )\r\n\tVoid = set_property( @window, '@RDSS', '' )\r\n\tVoid = set_property( @window, '@LayCnt', '' )\r\n\tVoid = set_property( @window, '@LayCurPos', '' )\r\n\tVoid = set_property( @window, '@Layers', '' )\r\n Void = set_property( @window, '@TemperatureData', '' )\t\t\r\n\treturn 1\r\nend else\r\n MsgInfo = ''\r\n MsgInfo<micon$> = 'H'\r\n MsgInfo<mtext$> = 'You do not have proper security to use the recipe browser...'\r\n Void = msg( '', MsgInfo )\r\n Void = send_event( @window, 'CLOSE' )\r\n return 0\r\nend \r\n"
"<1>": "declare function memberof, msg, send_event, center_window\r\n$insert msg_equates\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nBEGIN CASE\r\n\t*CASE memberof( @user4, 'DATA_ENTRY' )\t; ClearToUse = 1\r\n\t*CASE memberof( @user4, 'SUPERVISOR' )\t; ClearToUse = 1\r\n\t*CASE memberof( @user4, 'MANAGEMENT' )\t; ClearToUse = 1\r\n\t*CASE memberof( @user4, 'MASTER' )\t\t; ClearToUse = 1\r\n\tCASE memberof(@USER4,'ENGINEERING')\t\t; ClearToUse = 1\r\n\tCASE 1\t\t\t\t\t\t\t\t\t; ClearToUse = 0\r\nEND CASE\r\n\r\nif ClearToUse then\r\n\tVoid = set_property( @window, '@WOCnt', '' )\r\n\tVoid = set_property( @window, '@WOCurPos', '' )\r\n\tVoid = set_property( @window, '@WOS', '' )\r\n\tVoid = set_property( @window, '@RDSCnt', '' )\r\n\tVoid = set_property( @window, '@RDSCurPos', '' )\r\n\tVoid = set_property( @window, '@RDSS', '' )\r\n\tVoid = set_property( @window, '@LayCnt', '' )\r\n\tVoid = set_property( @window, '@LayCurPos', '' )\r\n\tVoid = set_property( @window, '@Layers', '' )\r\n Void = set_property( @window, '@TemperatureData', '' )\t\t\r\n\treturn 1\r\nend else\r\n MsgInfo = ''\r\n MsgInfo<micon$> = 'H'\r\n MsgInfo<mtext$> = 'You do not have proper security to use the recipe browser...'\r\n Void = msg( '', MsgInfo )\r\n Void = send_event( @window, 'CLOSE' )\r\n return 0\r\nend \r\n"
}
}
}

2
LSL2/OIEVENT/CREATE/VERIFY_USER..json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "declare function set_property\r\nDeclare subroutine SRP_Show_Window\r\n\r\nIF @USERNAME = 'BRYCE_BARB' THEN\r\n\tCreateParam = 'BRYCE_BARB':@VM:''\r\nEND\r\n\r\nVoid = set_property( @window, '@PINFO', CreateParam )\r\nVoid = set_property( @window : '.EDL_USERNAME', 'TEXT', @USER4 )\r\nSRP_Show_Window(@Window, '', 'C', 'C', 1, '', 0, 0)\r\n\r\nRETURN 0"
"<1>": "declare function set_property\r\nDeclare subroutine SRP_Show_Window\r\n\r\nVoid = set_property( @window, '@PINFO', CreateParam )\r\nVoid = set_property( @window : '.EDL_USERNAME', 'TEXT', @USER4 )\r\nSRP_Show_Window(@Window, '', 'C', 'C', 1, '', 0, 0)\r\n\r\nRETURN 0"
}
}
}

2
LSL2/OIEVENT/CREATE/WO_DAILY_SCHED_ALL..json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "declare function wo_daily_sched_all_comm, center_window\r\n\r\n\r\nIF @USERNAME = 'IMATEST_U' OR @USERNAME = 'BRYCE_BARB' THEN\r\n\tScreenSize = Get_Property('SYSTEM','SIZE')\r\n\tDialogSize = Get_Property(@WINDOW,'SIZE')\r\n\r\n\twScreen = ScreenSize<3>\r\n\thScreen = ScreenSize<4>\r\n\r\n\txDialog = DialogSize<1>\r\n\tyDialog = DialogSize<2>\r\n\twDialog = DialogSize<3>\r\n\thDialog = DialogSize<4>\r\n\r\n\tcScreen = INT(wScreen/2)\r\n\r\n\tDialogSize<1> = cScreen + 1\t\t; * Center + 1\r\n\tDialogSize<2> = 50\r\n\r\n\tvoid = Set_Property(@WINDOW,'SIZE',DialogSize)\r\n\r\nEND\r\n\r\nvoid = Set_Property(@WINDOW,'VISIBLE',1)\r\n\r\nvoid = Set_Property(@WINDOW,'TIMER',60000)\t;* 60 second timer for refresh\r\n\r\nVoid = wo_daily_sched_all_comm( 'FORM_CREATE', '')\r\nRETURN 1"
"<1>": "declare function wo_daily_sched_all_comm, center_window\r\n\r\nvoid = Set_Property(@WINDOW,'VISIBLE',1)\r\n\r\nvoid = Set_Property(@WINDOW,'TIMER',60000)\t;* 60 second timer for refresh\r\n\r\nVoid = wo_daily_sched_all_comm( 'FORM_CREATE', '')\r\nRETURN 1"
}
}
}

2
LSL2/OIEVENT/CREATE/WO_DAILY_SCHED_ALL2..json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "declare function wo_daily_sched_all_comm, center_window\r\n\r\nIF @USERNAME = 'IMATEST_U' OR @USERNAME = 'BRYCE_BARB' THEN\r\n\r\n\tScreenSize = Get_Property('SYSTEM','SIZE')\r\n\tDialogSize = Get_Property(@WINDOW,'SIZE')\r\n\r\n\twScreen = ScreenSize<3>\r\n\thScreen = ScreenSize<4>\r\n\r\n\txDialog = DialogSize<1>\r\n\tyDialog = DialogSize<2>\r\n\twDialog = DialogSize<3>\r\n\thDialog = DialogSize<4>\r\n\r\n\tcScreen = INT(wScreen/2)\r\n\r\n\tDialogSize<1> = (cScreen - wDialog - 1)\t;* Center - Width of reactor window - 1\r\n\tDialogSize<2> = 50\r\n\r\n\tvoid = Set_Property(@WINDOW,'SIZE',DialogSize)\r\nEND\r\n\r\nVoid = set_property( @window, 'VISIBLE', 1 )\r\n\r\nvoid = Set_Property(@WINDOW,'TIMER',60000:@FM:20000)\t;* 60 second timer for refresh, 20 second offset\r\n\r\nVoid = wo_daily_sched_all_comm( 'FORM_CREATE', '')\r\nRETURN 1"
"<1>": "declare function wo_daily_sched_all_comm, center_window\r\n\r\nVoid = set_property( @window, 'VISIBLE', 1 )\r\n\r\nvoid = Set_Property(@WINDOW,'TIMER',60000:@FM:20000)\t;* 60 second timer for refresh, 20 second offset\r\n\r\nVoid = wo_daily_sched_all_comm( 'FORM_CREATE', '')\r\nRETURN 1"
}
}
}

2
LSL2/OIEVENT/CREATE/WO_MAST_SCHED..json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "declare function msg, send_event, admin_user, center_window, memberof, fieldcount, mast_sched_today_date\r\ndeclare subroutine end_dialog\r\n\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\nopen 'CONFIG' to ConfigTable else\r\n Void = msg( '', 'Unable to open CONFIG table' )\r\n end_dialog( @window, '' )\r\n return 0\r\nend\r\n\r\nif memberof(@user4,'MASTER_SCHED' ) then\r\n\tlock ConfigTable, 'WO_MAST_SCHED' then\r\n\t write @user4 on ConfigTable, 'WO_MAST_SCHED_USER' else\r\n\t Void = msg( '', 'Error writing WO_MAST_SCHED_USER in config file...' )\r\n\t return 0\r\n\t end\r\n\t Void = set_property( @window, '@GotLock', 1 )\r\n\tend else\r\n\t UseBy = oconv( xlate( 'CONFIG', 'WO_MAST_SCHED_USER', '', 'X' ), '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t MsgInfo = ''\r\n\t MsgInfo<mtext$> = 'WO_MAST_SCHED is in use by ':UseBy:' you will be allowed to view only.'\r\n\t MsgInfo<micon$> = '!'\r\n\t Void = msg( '', MsgInfo )\r\n .save->enabled = 0\r\n .clear_day->enabled = 0\r\n .cfg_date_button->enabled = 0\r\n .qcfg_date_button->enabled = 0 \r\n .new_wo->enabled = 0\r\n .month->enabled = 0\r\n .cancel->text = 'OK'\r\n .reactor_cnt->enabled = 0\r\n\tend\r\n .print->visible = 1\t\r\n\tgosub DoRead\r\nend else\r\n .save->enabled = 0\r\n *.save->enabled = 1\r\n .clear_day->enabled = 0\r\n .cfg_date_button->enabled = 0\r\n .qcfg_date_button->enabled = 0 \r\n .new_wo->enabled = 0\r\n .month->enabled = 0\r\n .cancel->text = 'OK'\r\n .reactor_cnt->enabled = 0\r\n if memberof(@user4,'SUPERVISOR' ) OR MemberOf( @user4, 'LEAD') or memberof( @user4, 'MATERIALS' ) or memberof( @user4, 'DATA_ENTRY' ) then\r\n .print->visible = 1\r\n end\r\n gosub DoRead\r\nend\r\n\r\nIF @USERNAME = 'BRYCE_BARB' THEN DEBUG\r\n\r\nCurDate = mast_sched_today_date( '' )\r\nCurLabels = .sched_info->label\r\n\r\nlocate CurDate in CurLabels using @fm setting Fpos then\r\n .sched_info->selpos = FPos:@fm:20\r\nend else\r\n .sched_info->selpos = 1:@fm:20\r\nend\r\nRETURN 0\r\n*===========================================================================*\r\nDoRead:\r\n\r\nIF @USERNAME = 'BRYCE_BARB' THEN DEBUG\r\n\r\nread MastSched from ConfigTable, 'WO_MAST_SCHED' then\r\n if MastSched then\r\n Days = MastSched<1>\r\n convert @vm to @fm in Days\r\n .sched_info->label\t= Days\r\n .month->text\t\t= MastSched<2>\r\n ReactCnt\t\t\t= MastSched<3>\r\n .reactor_cnt->text\t= ReactCnt\r\n \r\n SchedInfo = field( MastSched, @fm, 4, 99999 )\r\n \r\n\r\n SCnt = fieldcount( SchedInfo, @fm )\r\n \r\n for i = 1 to SCnt\r\n SchedInfo<i> = field( SchedInfo<i>, @vm, 1, ReactCnt )\r\n\t for j = 1 to ReactCnt\r\n\t if SchedInfo<i,j> = '' then\r\n\t SchedInfo<i,j> = 'Open'\r\n\t end\r\n\t next j\r\n next i\r\n\t .sched_info->array = SchedInfo\r\n Void = set_property( @window, '@OrigSched', SchedInfo )\t \r\n\t .sched_info->toppos = 1:@fm:20\t \r\n end\r\nend\r\nreturn\r\n*===========================================================================*"
"<1>": "declare function msg, send_event, admin_user, center_window, memberof, fieldcount, mast_sched_today_date\r\ndeclare subroutine end_dialog\r\n\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\nopen 'CONFIG' to ConfigTable else\r\n Void = msg( '', 'Unable to open CONFIG table' )\r\n end_dialog( @window, '' )\r\n return 0\r\nend\r\n\r\nif memberof(@user4,'MASTER_SCHED' ) then\r\n\tlock ConfigTable, 'WO_MAST_SCHED' then\r\n\t write @user4 on ConfigTable, 'WO_MAST_SCHED_USER' else\r\n\t Void = msg( '', 'Error writing WO_MAST_SCHED_USER in config file...' )\r\n\t return 0\r\n\t end\r\n\t Void = set_property( @window, '@GotLock', 1 )\r\n\tend else\r\n\t UseBy = oconv( xlate( 'CONFIG', 'WO_MAST_SCHED_USER', '', 'X' ), '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t MsgInfo = ''\r\n\t MsgInfo<mtext$> = 'WO_MAST_SCHED is in use by ':UseBy:' you will be allowed to view only.'\r\n\t MsgInfo<micon$> = '!'\r\n\t Void = msg( '', MsgInfo )\r\n .save->enabled = 0\r\n .clear_day->enabled = 0\r\n .cfg_date_button->enabled = 0\r\n .qcfg_date_button->enabled = 0 \r\n .new_wo->enabled = 0\r\n .month->enabled = 0\r\n .cancel->text = 'OK'\r\n .reactor_cnt->enabled = 0\r\n\tend\r\n .print->visible = 1\t\r\n\tgosub DoRead\r\nend else\r\n .save->enabled = 0\r\n *.save->enabled = 1\r\n .clear_day->enabled = 0\r\n .cfg_date_button->enabled = 0\r\n .qcfg_date_button->enabled = 0 \r\n .new_wo->enabled = 0\r\n .month->enabled = 0\r\n .cancel->text = 'OK'\r\n .reactor_cnt->enabled = 0\r\n if memberof(@user4,'SUPERVISOR' ) OR MemberOf( @user4, 'LEAD') or memberof( @user4, 'MATERIALS' ) or memberof( @user4, 'DATA_ENTRY' ) then\r\n .print->visible = 1\r\n end\r\n gosub DoRead\r\nend\r\n\r\nCurDate = mast_sched_today_date( '' )\r\nCurLabels = .sched_info->label\r\n\r\nlocate CurDate in CurLabels using @fm setting Fpos then\r\n .sched_info->selpos = FPos:@fm:20\r\nend else\r\n .sched_info->selpos = 1:@fm:20\r\nend\r\nRETURN 0\r\n*===========================================================================*\r\nDoRead:\r\n\r\nread MastSched from ConfigTable, 'WO_MAST_SCHED' then\r\n if MastSched then\r\n Days = MastSched<1>\r\n convert @vm to @fm in Days\r\n .sched_info->label\t= Days\r\n .month->text\t\t= MastSched<2>\r\n ReactCnt\t\t\t= MastSched<3>\r\n .reactor_cnt->text\t= ReactCnt\r\n \r\n SchedInfo = field( MastSched, @fm, 4, 99999 )\r\n \r\n\r\n SCnt = fieldcount( SchedInfo, @fm )\r\n \r\n for i = 1 to SCnt\r\n SchedInfo<i> = field( SchedInfo<i>, @vm, 1, ReactCnt )\r\n\t for j = 1 to ReactCnt\r\n\t if SchedInfo<i,j> = '' then\r\n\t SchedInfo<i,j> = 'Open'\r\n\t end\r\n\t next j\r\n next i\r\n\t .sched_info->array = SchedInfo\r\n Void = set_property( @window, '@OrigSched', SchedInfo )\t \r\n\t .sched_info->toppos = 1:@fm:20\t \r\n end\r\nend\r\nreturn\r\n*===========================================================================*"
}
}
}