11 lines
5.7 KiB
JSON
11 lines
5.7 KiB
JSON
{
|
|
"header": {
|
|
"version": 1,
|
|
"type": "record"
|
|
},
|
|
"body": {
|
|
"record1": {
|
|
"<1>": "declare function start_window, msg, entid, repository, fieldcount, relational_call, memberof\r\ndeclare function rds_wo_verify_maint, rds_supplement_maint, obj_Prod_Spec\r\ndeclare subroutine extract_si_keys, obj_Appwindow\r\n$insert msg_equates\r\n$insert popup_equates\r\n$insert rds_equ\r\n$INSERT PROD_SPEC_EQUATES\r\n$INSERT PRS_LAYER_EQU\r\n$INSERT WO_STEP_EQU\r\n\r\n\r\nSelpos = .sched_info->selpos\r\nColumn = SelPos<1>\r\nRow = SelPos<2>\r\nColData = get_property( @window:'.SCHED_INFO', 'COLDATA' )\r\nCurCell = ColData<1,Row>\r\nCurCell = field( CurCell, '|', 1 ) ;* remove comments\r\nswap \"52nd\" with '' in CurCell\r\nswap \"e2v\" with '' in CurCell\t\t\t\t\t;* Added 5/11/2007 JCH - new company with funny name\r\nConvert ';' to @vm in CurCell\r\nconvert @upper_case to '' in CurCell\r\nconvert @lower_case to '' in CurCell\r\nconvert \" `~!@#$%^&*()_+-=\\][{}|';:/?.>,<\" to '' in CurCell\r\nconvert '\"' to '' in CurCell\r\n\r\n\r\nPopupId = entid( @appid<1>, 'POPUP', '', 'MAST_SCHED_OPTS' )\r\n\r\nTypeOver = ''\r\n\r\nDisplay = XLATE( 'SYSREPOSPOPUPS', 'LSL2**MAST_SCHED_OPTS', pdisplay$, 'X' )\r\n\r\nIF Memberof( @USER4, 'SUPERVISOR' ) THEN\r\n Display := @VM:'Assign WO Verifications':@TM:'WO_VERIFY'\t\t;* Add Option\r\nEND\r\n\r\nIF Memberof( @USER4, 'ENGINEERING' ) OR MemberOf( @USER4, 'SUPERVISOR' ) THEN\r\n Display := @VM:'Assign Supplements':@TM:'SUPPLEMENTS'\t\t;* Add Option\r\nEND\r\n\r\nDisplay<1,-1> = 'Reactor State':@TM:'REACT_STATE'\t\t;* Added 3/\r\n\r\nTypeOver<PDISPLAY$> = Display\r\n\r\nOption = Popup(@WINDOW,TypeOver,'MAST_SCHED_OPTS')\r\n\r\nBEGIN CASE\r\n\tCASE Option = 'RECIPE'\r\n\t\tCurKeys = ''\r\n\t\tRecipeKeys = ''\r\n\t\tWoCnt = fieldcount( CurCell, @vm )\r\n\t\tfor i = 1 to WoCnt\r\n\t\t\tWOStepKey = CurCell<1,i>\r\n\t\t\tIF LEN(WOStepKey) = 6 THEN\r\n\t\t\t\tWOStepKey = WOStepKey:'*1'\r\n\t\t\tEND ELSE\r\n\t\t\t\tWOStepKey = WOStepKey[1,6]:'*':WOStepKey[7,1]\r\n\t\t\tEND\r\n\t\t\t\r\n\t\t\tPSN = XLATE('WO_STEP',WOStepKey,1,'X')\r\n\r\n\t\t\tLayerSpecs = obj_Prod_Spec('GetLayerProp',PSN:@RM:@RM:1)\t;* Returns specs for all layers in internal format\r\n\r\n\t\t\tLayerSpec \t= FIELD(LayerSpecs,@RM,1)\t\t\t\t;* Take the first Layer\r\n\t\t\tLayerSet\t= FIELD(LayerSpec,@FM,1)\t\t\t\t;* Not used here but shown for clarity\r\n\t\t\tLayerSpec\t= FIELD(LayerSpec,@FM,2,99)\t\t\t\t;* LayerSpec without the LayerSet \r\n\r\n\t\t\tRecipeNo = LayerSpec<PRS_LAYER_RECIPE$>\r\n\t\t\t\t\t\r\n\t\t\tIF RecipeNo NE '' THEN\r\n\t\t\t\tLOCATE RecipeNo IN RecipeKeys USING @VM SETTING Dum ELSE\r\n\t\t\t\t\tRecipeKeys<1,-1> = RecipeNo\r\n\t\t\t\tEND\r\n\t\t\tEND\r\n\t\tnext i\r\n\t\tIF RecipeKeys NE '' THEN\r\n\t\t\tVoid = start_window( 'RECIPE', @window, RecipeKeys:'*CENTER', '', '' )\r\n\t\tEND\r\n \r\n\tCASE Option = 'RDS'\r\n\t\t*if fieldcount( CurCell, @vm ) > 1 then\r\n\t\t* * popup allowing view of only one work order at a time\r\n\t\t* PopupId = entid( @appid<1>, 'POPUP', '', 'MAST_SCHED_CHOOSE_WO' )\r\n\t\t* IF EVER UNREMARKING THIS CODE MUST CREATE MAST_SHCED_CHOOSE_WO POPUP\r\n\t\t* OverRide = ''\r\n\t\t* OverRide<pdisplay$> = CurCell\r\n\t\t* CurCell = repository( 'EXECUTE', PopupId, @window, OverRide )\r\n\t\t* if CurCell else\r\n\t\t* return 0\r\n\t\t* end\r\n\t\t*end\r\n\t\tWOStepKeys = ''\r\n\t\t\r\n\t\t\r\n\t\t\r\n\t\tFOR I = 1 TO COUNT(CurCell,@VM) + (CurCell NE '')\r\n\t\t\r\n\t\t\tWOStepKey = CurCell<1,I>\r\n\t\t\tIF LEN(WOStepKey) = 6 THEN\r\n\t\t\t\tWOStepKey = WOStepKey:'*1'\r\n\t\t\tEND ELSE\r\n\t\t\t\tWOStepKey = WOStepKey[1,6]:'*':WOStepKey[7,1]\r\n\t\t\tEND\r\n\t\t\tWOStepKeys<1,I> = WOSTepKey\r\n\t\tNEXT I\r\n\t\t\r\n\t\tRDSNos = XLATE('WO_STEP',WOStepKeys,WO_STEP_RDS_KEY$,'X')\r\n\t\t\r\n\t\tTypeOver = ''\r\n\t\tTypeOver<PMODE$> = 'K'\r\n\t\tTypeOver<PDISPLAY$> = RDSNos\r\n\r\n\t\tRDSKeys = Popup(@WINDOW,TypeOver,'RDS_QUERY')\r\n\t\t\r\n\t\tIF RDSKeys NE '' THEN\r\n\t\t\tVoid = start_window( 'RDS', @window, RDSKeys:'*CENTER', '', '' )\r\n\t\tEND\r\n\t\t\r\n\t\t\r\n\t\t\r\n\tCASE Option = 'WO'\r\n\t\tWONos = ''\r\n\t\tFOR I = 1 TO COUNT(CurCell,@VM) + (CurCell NE '')\r\n\t\t\tWONos<1,I> = CurCell<1,I>[1,6]\r\n\t\tNEXT I\r\n\t\r\n\t\r\n\t RetVal = start_window( 'WO_LOG2', @window, WONos, '', '' )\r\n\t \r\n\tCASE Option = 'WO_STATUS'\r\n\t\r\n\t\tWOStepKeys = ''\r\n\t\t\r\n\t\tFOR I = 1 TO COUNT(CurCell,@VM) + (CurCell NE '')\r\n\t\t\r\n\t\t\tWOStepKey = CurCell<1,I>\r\n\t\t\tIF LEN(WOStepKey) = 6 THEN\r\n\t\t\t\tWOStepKey = WOStepKey:'*1'\r\n\t\t\tEND ELSE\r\n\t\t\t\tWOStepKey = WOStepKey[1,6]:'*':WOStepKey[7,1]\r\n\t\t\tEND\r\n\t\t\tWOStepKeys<1,I> = WOSTepKey\r\n\t\tNEXT I\r\n\t\t\r\n\t\tPSN = XLATE('WO_STEP',WOStepKey,1,'X')\r\n\t\tReactorType = XLATE('PROD_SPEC',PSN,PROD_SPEC_REACTOR_TYPE$,'X')\t\t;*****************************************\r\n\t\t\r\n\t\tIF ReactorType = 'P' OR ReactorType = 'EPP' THEN\r\n\t\t\tobj_Appwindow('ViewRelated','WO_PROD_EPI':@RM:WOStepKeys)\r\n\t\tEND ELSE\r\n\t\t\tobj_Appwindow('ViewRelated','WO_PROD':@RM:WOStepKeys)\r\n\t\tEND\r\n\t\t\r\n\t \r\n\tCASE Option = 'WO_VERIFY'\r\n\t CCnt = fieldcount( CurCell, @vm )\r\n\t for i = 1 to CCnt\r\n\t TWo = CurCell<1,i>[1,6]\r\n\t if TWo <> '' then\r\n\t Void = rds_wo_verify_maint(TWo)\t\r\n\t end\r\n\t next i\r\n\t \r\n\tCASE Option = 'SUPPLEMENTS'\r\n\t CCnt = fieldcount( CurCell, @vm )\r\n\t for i = 1 to CCnt\r\n\t TWo = CurCell<1,i>[1,6]\r\n\t if TWo <> '' then\r\n\t Void = rds_supplement_maint(TWo)\t\r\n\t end\r\n\t next i\r\n\t \r\n\tCASE Option = 'REACT_STATE'\r\n\t\tReactNo = Row\r\n\t\tobj_Appwindow('ViewRelated','REACT_STATE':@RM:ReactNo)\r\n\t\t\r\n\t \r\nEND CASE\r\n\r\nRETURN 0"
|
|
}
|
|
}
|
|
} |