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

Get new COC when re-shipping

Browse Source
This commit is contained in:
Chase Tucker
2025-02-20 08:13:44 -07:00
committed by Tucker Chase (CSC FI SPS MESLEO)
parent 62ac326550
commit 924a208264
4 changed files with 36 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
LSL2/STPROC/OBJ_WO_MAT.txt
View File

@ -3973,6 +3973,11 @@ AddShip:
WOMatKey = Parms[1,@RM]
ShipNo = Parms[COL2()+1,@RM]
Reship = Parms[COL2()+1,@RM]
If Reship EQ '' then
Reship = False$
end
IF NOT(ASSIGNED(WOMatKey)) THEN ErrorMsg = 'Unassigned Parm "WOMatKey" passed to routine. (':Method:')'
IF NOT(ASSIGNED(ShipNo)) THEN ErrorMsg = 'Unassigned Parm "ShipNo" passed to routine. (':Method:')'
@ -3989,7 +3994,7 @@ AddShip:
IF Get_Status(errCode) THEN RETURN ;* Problems getting the lock
IF WOMatRec<WO_MAT_SHIP_NO$> = '' THEN
IF WOMatRec<WO_MAT_SHIP_NO$> = '' or Reship EQ True$ THEN
WOMatRec<WO_MAT_SHIP_NO$> = ShipNo
END ELSE
END
@ -5598,3 +5603,4 @@ ExpCOA:
RETURN