pre cutover push
This commit is contained in:
@ -504,7 +504,7 @@ IF MsgUp NE '' THEN Msg(@WINDOW,MsgUp)
|
||||
* Update Shipment (COC) record with picked info
|
||||
|
||||
ShipRec<COC_PICK_DTM$> = ICONV(OCONV(Date(),'D2/'):' ':OCONV(Time(),'MT'),'DT')
|
||||
ShipRec<COC_PICK_BY$> = @USERNAME
|
||||
ShipRec<COC_PICK_BY$> = @USER4
|
||||
|
||||
OtParms = FieldStore(OtParms,@RM,4,0,ShipRec) ;* Put record in 4th field of OtParms
|
||||
obj_Tables('WriteRec',OtParms)
|
||||
|
Reference in New Issue
Block a user