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

Fix missing WOMatKey and CtrlEntID.

Browse Source
This commit is contained in:
Infineon\Mitchem 2024-09-10 13:35:25 -07:00
parent f9f296fa5e
commit fefe60bd51
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
LSL2/STPROC/COMM_RDS.txt
View File

@ -2053,7 +2053,6 @@ HoldClick:
* * * * * * * * * * * * * *
RDSNo = Get_Property(@WINDOW:'.RDS_NO','DEFPROP') RDSNo = Get_Property(@WINDOW:'.RDS_NO','DEFPROP')
WOMatKey = Get_Property(@WINDOW:'.WO_MAT_KEY','DEFPROP')
CtrlEnt = Get_Property(@WINDOW,'FOCUS') CtrlEnt = Get_Property(@WINDOW,'FOCUS')
Send_Event(@WINDOW,'WRITE') Send_Event(@WINDOW,'WRITE')
@ -2061,7 +2060,7 @@ HoldClick:
IF RDSNo NE '' then IF RDSNo NE '' then
HoldEntity = 'RDS' HoldEntity = 'RDS'
HoldEntityID = RDSNo HoldEntityID = RDSNo
WOMatKey = Xlate('RDS', RDSNo, 'WO_MAT_KEY', 'X', '')
//obj_WO_Mat('ToggleHold',WOMatKey:@RM:HoldEntity:@RM:HoldEntityID:@RM:CtrlEnt) //obj_WO_Mat('ToggleHold',WOMatKey:@RM:HoldEntity:@RM:HoldEntityID:@RM:CtrlEnt)
Transition = Hold_Services('CheckForHold', WOMatKey, CtrlEnt) Transition = Hold_Services('CheckForHold', WOMatKey, CtrlEnt)
HoldType = 'HOLD' HoldType = 'HOLD'

3
LSL2/STPROC/COMM_WM_IN.txt
View File

@ -728,6 +728,7 @@ RETURN
HoldClick: HoldClick:
* * * * * * * * * * * * * *
CtrlEntID = @WINDOW
WMInKey = Get_Property(@WINDOW,'ID') WMInKey = Get_Property(@WINDOW,'ID')
WONo = WMInKey[1,'*'] WONo = WMInKey[1,'*']
@ -748,7 +749,7 @@ Send_Event(@WINDOW,'WRITE')
HoldData = '' HoldData = ''
HoldData = Dialog_Box('DIALOG_HOLD',@WINDOW,Transition:@FM:@FM:HoldType) HoldData = Dialog_Box('DIALOG_HOLD',@WINDOW,Transition:@FM:@FM:HoldType)
If HoldData NE 'Cancel' then If HoldData NE 'Cancel' then
Hold_Services('ToggleHold', WOMatKey, HoldEntity, HoldEntityID, CtrlEnt, '', HoldData) Hold_Services('ToggleHold', WOMatKey, HoldEntity, HoldEntityID, CtrlEntID, '', HoldData)
IF Error_Services("HasError") THEN IF Error_Services("HasError") THEN
ErrCode = Error_Services("GetMessage") ErrCode = Error_Services("GetMessage")
ErrMsg(errCode) ErrMsg(errCode)