diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb
index a607e5811..39c4acfad 100644
--- a/Inventarios/RecepcionAlmacen.aspx.vb
+++ b/Inventarios/RecepcionAlmacen.aspx.vb
@@ -761,7 +761,7 @@ Partial Class Inventarios_RecepcionAlmacen
 
         Dim ObjInventarios As New ClsInventarios
         If ddlProveedor.SelectedValue.ToEntero > 0 Then
-            If ObjInventarios.GetFletes(UsuarioActual.CveEmpresa, CveProveedor:=ddlProveedor.SelectedValue.ToEntero) Then
+            If ObjInventarios.GetFletes(UsuarioActual.CveEmpresa, CveProveedor:=ddlProveedor.SelectedValue.ToEntero, OpcionInventario:=1) Then
                 DdlFletes.DataSource = ObjInventarios.DtResultados.FiltraParametros("CantRest  > 0")
             Else
                 Alert("Ocurrió un error al obtener las ordenes de compra pendientes de recibir del proveedor. Por favor vuelva a intentar", TipoMensaje.MsgError)