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))