From 065ebb0f219afb174a6990111b2128c5fbf4baef Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 14 Oct 2021 12:42:04 -0700 Subject: [PATCH] =?UTF-8?q?validaci=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Inventarios/Kardex.aspx.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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