Code to set picked Invent Transaction into on order in Production Picking List
Courtesy of David
//DGU - Released Picked transaction while select inventTransOrigin where InventTransOrigin.InventTransId == this.InventTransId && InventTransOrigin.ItemId == this.ItemId && inventTransOrigin.ReferenceCategory == InventTransType::ProdLine && inventTransOrigin.ReferenceId == this.ProdId { while select forUpdate inventTrans where inventTrans.InventTransOrigin == inventTransOrigin.RecId && inventTrans.inventDimId == this.InventDimId && inventTrans.StatusIssue == StatusIssue::Picked && inventTrans.VoucherPhysical == "" && inventTrans.Voucher == "" { inventMovementPicked = inventTrans.inventMovement(); inventDimPicked = inventMovementPicked.inventdim(); inventDimParmPicked.initFromInventDim(inventDimPicked); inventUpd_Picked = InventUpd_Picked::newParameters(inventMovementPicked,inventDimPicked,inventDimParmPicked, inventDimPicked,inventDimParmPicked,inventTrans.Qty * -1); inventUpd_Picked.updateNow(); } } //End