diff --git a/Inventarios/KardexAlmacenHorizontal.aspx.vb b/Inventarios/KardexAlmacenHorizontal.aspx.vb
index 829a76939..289615efa 100644
--- a/Inventarios/KardexAlmacenHorizontal.aspx.vb
+++ b/Inventarios/KardexAlmacenHorizontal.aspx.vb
@@ -152,10 +152,14 @@ Partial Class Inventarios_KardexAlmacen
                 dt = Nothing
                 Return dt
                 Exit Function
-            End If
-        End If
-
-        ObjMovimientos.Dispose()
+            End If
+        Else
+            ObjMovimientos.Dispose()
+            Alert("Ocurrió un error al consultar el Kardex.", TipoMensaje.MsgError)
+            Exit Function
+        End If
+
+
         GvDatos.DataBind()
 
         For index = 3 To GvDatos.Rows(0).Cells.Count - 1