M-400: Variant has an empty list of shipment rate quotes

Don't know if code is correct (Tested it with one warehouse/catalog). Copied more or less from ToProduct().