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

4
LSL2/STPROC/TW_USE_ACTIONS.txt
View File

@ -58,6 +58,7 @@ $insert WM_OUT_EQUATES
$insert WM_IN_EQUATES
$insert WO_MAT_EQUATES
$Insert TW_USE_EQUATES
$Insert IFX_EQUATES
Declare function Database_Services, obj_NCR, obj_SAP, Environment_Services, Logging_Services
Declare subroutine Error_Services, Database_Services, obj_NCR, obj_SAP, Material_Services, Work_Order_Services
@ -163,7 +164,7 @@ WRITE_RECORD:
MetrologyID = Field(Name, '*', 1)
RDSNo = Xlate('RDS_TEST', MetrologyID, RDS_TEST_RDS_NO$, 'X')
Service_Services('PostProcedure', 'RDS_Services', 'AllTWUseSigned':@VM:RDSNo)
Service_Services('PostProcedure', 'RDS_Services', 'AllTWUseSigned':SD$:RDSNo)
end
return
@ -226,3 +227,4 @@ Restore_System_Variables:
Transfer SaveRecord to @RECORD
@FILE.ERROR = OrigFileError
return