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

fixed routines posting procedures with value marks instead of the new service delimiter

Browse Source
This commit is contained in:
Infineon\StieberD
2025-07-14 15:13:45 -07:00
parent 2a6c0afddf
commit e97162dc1e
6 changed files with 15 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
LSL2/STPROC/NDW_WO_LOG_EVENTS.txt
View File

@ -1238,7 +1238,7 @@ Event PUB_REM_CASS.CLICK()
WmInKeys<1, -1> = CassetteToVoid<1,4>
//Work_Order_Services('SignVoidWMI', WMIToVoid, @USER4)
Next CassetteToVoid
Service_Services('PostProcedure', 'WORK_ORDER_SERVICES', 'SignVoidWMI':SD$:WmInKeys:SD$:WoNo:SD$:@USER4, True$)
Service_Services('PostProcedure', 'WORK_ORDER_SERVICES', 'SignVoidWMI':SD$:WmInKeys:SD$:WoNo:SD$:@USER4)
If Error_Services('HasError') then
ErrorMessage = Error_Services('GetMessage')
end
@ -1262,7 +1262,7 @@ Event PUB_REM_CASS.CLICK()
Next CassetteToVoid
If ErrorMessage EQ '' then
Service_Services('PostProcedure', 'WORK_ORDER_SERVICES', 'SignVoidNonEPP':SD$:WoMatKeyList:SD$:WoNo:SD$:@USER4, True$)
Service_Services('PostProcedure', 'WORK_ORDER_SERVICES', 'SignVoidNonEPP':SD$:WoMatKeyList:SD$:WoNo:SD$:@USER4)
if Error_Services('HasError') then
ErrorMessage = Error_Services('GetMessage')
end
@ -1347,7 +1347,7 @@ Event PUB_REM_WM_OUT.CLICK()
WmOutKeys<1, -1> = CassetteToVoid<1,3>
Until ErrorMessage NE ''
Next CassetteToVoid
Service_Services('PostProcedure', 'WORK_ORDER_SERVICES', 'SignVoidWMO':SD$:WmInKeys:SD$:WoNo:SD$:@USER4, True$)
Service_Services('PostProcedure', 'WORK_ORDER_SERVICES', 'SignVoidWMO':SD$:WmInKeys:SD$:WoNo:SD$:@USER4)
If Error_Services('HasError') then
ErrorMessage = Error_Services('GetMessage')
end