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