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_RDS.txt
View File

@ -1076,6 +1076,11 @@ AddShip:
RdsNo = Parms[COL2()+1,@RM]
ShipDt = Parms[COL2()+1,@RM]
ShipTm = Parms[COL2()+1,@RM]
Reship = Parms[COL2()+1,@RM]
If Reship EQ '' then
Reship = False$
end
IF NOT(ASSIGNED(RdsNo)) THEN ErrorMsg = 'Unassigned Parm "RdsNo" passed to routine. (':Method:')'
IF NOT(ASSIGNED(ShipNo)) THEN ErrorMsg = 'Unassigned Parm "ShipNo" passed to routine. (':Method:')'
@ -1108,7 +1113,7 @@ AddShip:
IF Get_Status(errCode) THEN RETURN ;* Problems getting the lock
IF RDSRec<RDS_SHIP_NO$> = '' OR RDSRec<RDS_SHIP_NO$> = ShipNo THEN
IF RDSRec<RDS_SHIP_NO$> = '' OR RDSRec<RDS_SHIP_NO$> = ShipNo or Reship EQ True$ THEN
RDSRec<RDS_SHIP_NO$> = ShipNo
RDSRec<RDS_SHIP_DATE$> = thisShipDt
RDSRec<RDS_SHIP_TIME$> = thisShipTm
@ -1473,3 +1478,4 @@ CalcThickTarget:
RETURN