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

7
LSL2/STPROC/OBJ_WM_OUT.txt
View File

@ -958,6 +958,11 @@ AddShip:
WMOutKey = Parms[1,@RM]
ShipNo = Parms[COL2()+1,@RM]
Reship = Parms[COL2()+1,@RM]
If Reship EQ '' then
Reship = False$
end
IF NOT(ASSIGNED(WMOutKey)) THEN ErrorMsg = 'Unassigned Parm "WMOutKey" passed to routine. (':Method:')'
IF NOT(ASSIGNED(ShipNo)) THEN ErrorMsg = 'Unassigned Parm "ShipNo" passed to routine. (':Method:')'
@ -974,7 +979,7 @@ AddShip:
IF Get_Status(errCode) THEN RETURN ;* Problems getting the lock
IF WMOutRec<WM_OUT_SHIP_NO$> = '' OR WMOutRec<WM_OUT_SHIP_NO$> = ShipNo THEN
IF WMOutRec<WM_OUT_SHIP_NO$> = '' OR WMOutRec<WM_OUT_SHIP_NO$> = ShipNo or Reship EQ True$ THEN
WMOutRec<WM_OUT_SHIP_NO$> = ShipNo