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

implemented support for BatchConv SAP interface

Browse Source
This commit is contained in:
Infineon\StieberD
2024-09-30 13:10:50 -07:00
parent fdb12f206a
commit 95be15df83
16 changed files with 12030 additions and 3698 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
LSL2/STPROC/OBJ_WO_MAT.txt
View File

@ -1860,8 +1860,8 @@ ChangeFlag:
IF WMOutKey NE '' THEN
WMOParms = 'WM_OUT':@RM:WMOutKey
WMORec = obj_Tables('ReadRec',WMOParms)
* WMORec = obj_Tables('ReadRec',WMOParms)
WMORec = Database_Services('ReadDataRow', 'WM_OUT', WMOutKey)
IF Get_Status(errCode) THEN
obj_Tables('UnlockRec',WMOParms) ;* Unlock WM_Out record
RETURN
@ -1869,8 +1869,9 @@ ChangeFlag:
WMORec<WM_OUT_MAKEUP_BOX$> = Value
WMOParms = FieldStore(WMOParms,@RM,4,0,WMORec) ;* Put record in 4th field of WMORec
obj_Tables('WriteRec',WMOParms) ;* Writes and unlocks WM_OUT Record
* WMOParms = FieldStore(WMOParms,@RM,4,0,WMORec) ;* Put record in 4th field of WMORec
* obj_Tables('WriteRec',WMOParms) ;* Writes and unlocks WM_OUT Record
Database_Services('WriteDataRow', 'WM_OUT', WMOutKey, WMORec, True$, False$, True$)
END
END
@ -5578,4 +5579,3 @@ ExpCOA:
RETURN