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/NCR_ACTIONS.txt
View File

@ -58,6 +58,7 @@ $insert WM_OUT_EQUATES
$insert WM_IN_EQUATES
$insert WO_MAT_EQUATES
$insert NCR_EQUATES
$insert IFX_EQUATES
EQU CRLF$ TO \0D0A\
EQU Comma$ TO ','
@ -272,7 +273,7 @@ WRITE_RECORD:
Next RDSNo
If (OrgQty NE NewQty) then
Service_Services('PostProcedure', 'WORK_ORDER_SERVICES', 'UpdateScrappedQty':@VM:WorkOrderNo)
Service_Services('PostProcedure', 'WORK_ORDER_SERVICES', 'UpdateScrappedQty':SD$:WorkOrderNo)
end
// On the write of the record, read then write associated WM_IN and WM_OUT records to trigger the WM_MFS.
@ -745,7 +746,7 @@ DELETE_RECORD:
Pass_To_SQL('WRITE', 'RDS', RDSNo)
Next RDSNo
Service_Services('PostProcedure', 'WORK_ORDER_SERVICES', 'UpdateScrappedQty':@VM:WorkOrderNo)
Service_Services('PostProcedure', 'WORK_ORDER_SERVICES', 'UpdateScrappedQty':SD$:WorkOrderNo)
return
@ -812,4 +813,3 @@ LogRecord:
return