diff --git a/Inventarios/Kardex.aspx.vb b/Inventarios/Kardex.aspx.vb
index 9dffa4eec..eef5d9dd9 100644
--- a/Inventarios/Kardex.aspx.vb
+++ b/Inventarios/Kardex.aspx.vb
@@ -207,7 +207,7 @@ Partial Class Inventarios_Kardex
 
         If CveProducto > 0 Then
             Dim DtTemp = CargarKardex(CveProducto)
-            If DtTemp IsNot Nothing Then
+            If DtTemp IsNot Nothing AndAlso DtTemp.Rows.Count > 0 Then
                 Dim AplicaSeccion, AplicaLote, AplicaCaducidad, AplicaSerie As Boolean
                 AplicaSerie = DtTemp.MAX("Serie") <> ""
                 AplicaSeccion = DtTemp.MAX("SeccionAlmacen") <> ""
@@ -223,7 +223,7 @@ Partial Class Inventarios_Kardex
                 If Not String.IsNullOrWhiteSpace(UsuarioActual.Empresa.Funcionalidad(147)) Then GvM.Columns(11).HeaderText = UsuarioActual.Empresa.Funcionalidad(147)
 
 
-                Dim Drp As datarow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CveProducto).FiltroPrimero("")
+                Dim Drp As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CveProducto).FiltroPrimero("")
                 Dim AuxAplicaSerie As Boolean
                 Dim AuxAplicaCad As Boolean
                 If Drp IsNot Nothing Then