From c08a6849ccef80b3dd549d825ca6b208aa5511ed Mon Sep 17 00:00:00 2001
From: Rene Molina <Rene.Molina@adssistemas.mx>
Date: Fri, 3 Jan 2020 20:08:38 -0700
Subject: [PATCH] -correcion warning

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

diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb
index 44e5f7e9c..7906f4e00 100644
--- a/Inventarios/RecepcionAlmacen.aspx.vb
+++ b/Inventarios/RecepcionAlmacen.aspx.vb
@@ -2155,7 +2155,7 @@ Partial Class Inventarios_RecepcionAlmacen
                             ErrorMovInv = True
                         End If
 
-                        If Not ErrorMovInv Then
+                        If Not ErrorMovInv AndAlso Dt IsNot Nothing Then
                             For Each Dr As DataRow In Dt.Rows
                                 If Not ObjInventario.AddMovimientoDetalle(CveMovtoSalidaDirecta, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDouble, Dr("CveAF").ToString.ToEntero, Dr("CveSeccionAlmacen").ToString.ToEntero, Dr("SerieLote").ToString, Lote:=Dr("Lote").ToString, Batch:=Dr("Batch").ToString, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
                                     ErrorMovInv = True