diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 0bd2bdc3b..4c2548edd 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -19914,7 +19914,7 @@ Partial Class Compras_Compras
         RblFleteImportacionOpcion.Items.Clear()
 
         Dim ObjCompras As New ClsCompras
-        If ObjCompras.GetImportaciones(-1, -1, -1, "-1", "-1", UsuarioActual.CveEmpresa) Then
+        If ObjCompras.GetImportaciones(-1, -1, -1, "-1", "-1", UsuarioActual.CveEmpresa, CveEstatus:=0) Then
             DdlImportaciones.DataSource = ObjCompras.DtResultados
             DdlImportaciones.Items.Insert(0, New ListItem("Seleccione", "-1"))
         End If