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

removed commented out code

Browse Source
This commit is contained in:
Infineon\StieberD 2024-10-31 18:36:18 -07:00
parent 95be15df83
commit 2fa803e3a1
1 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
LSL2/STPROC/OBJ_WO_MAT.txt
View File

@ -1860,7 +1860,6 @@ ChangeFlag:
IF WMOutKey NE '' THEN IF WMOutKey NE '' THEN
WMOParms = 'WM_OUT':@RM:WMOutKey WMOParms = 'WM_OUT':@RM:WMOutKey
* WMORec = obj_Tables('ReadRec',WMOParms)
WMORec = Database_Services('ReadDataRow', 'WM_OUT', WMOutKey) WMORec = Database_Services('ReadDataRow', 'WM_OUT', WMOutKey)
IF Get_Status(errCode) THEN IF Get_Status(errCode) THEN
obj_Tables('UnlockRec',WMOParms) ;* Unlock WM_Out record obj_Tables('UnlockRec',WMOParms) ;* Unlock WM_Out record
@ -1868,9 +1867,6 @@ ChangeFlag:
END END
WMORec<WM_OUT_MAKEUP_BOX$> = Value 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
Database_Services('WriteDataRow', 'WM_OUT', WMOutKey, WMORec, True$, False$, True$) Database_Services('WriteDataRow', 'WM_OUT', WMOutKey, WMORec, True$, False$, True$)
END END