From ca24caa0eb2b31a78d91a547f51b86892ab81699 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 1 Feb 2023 10:48:26 -0700
Subject: [PATCH] -- mejora carga masiva *Series*

---
 Inventarios/EntregaAlmacen.aspx.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index c53d15091..29e17c875 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -1188,7 +1188,7 @@ Partial Class Inventarios_EntregaAlmacen
             DtSerie = DtExistencias.FiltraParametros("Serie <> ''")
         End If
         'SERIE LOTE RECOMENDADO - QUITA YA COMPLETADOS EN EL CLIENTE
-        If DtSerie.Rows.Count > 0 Then
+        If DtSerie IsNot Nothing AndAlso DtSerie.Rows.Count > 0 Then
             'CALCULA YA COMPLETADOS
             Dim DrsRemove As New List(Of DataRow)
             DtSerie.Columns.Add("CantidadSeleccionada", GetType(Integer))