From d8cf78cef243a97ac980911d4b59a316f9dbf17a Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Wed, 11 Nov 2020 20:33:14 -0700
Subject: [PATCH] - seccionalmacen -3, en la exa

---
 Inventarios/RecepcionAlmacen.aspx.vb | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb
index 99ce829eb..774880b5a 100644
--- a/Inventarios/RecepcionAlmacen.aspx.vb
+++ b/Inventarios/RecepcionAlmacen.aspx.vb
@@ -2612,7 +2612,13 @@ Partial Class Inventarios_RecepcionAlmacen
                                     MovtosSalidaDirecta.Add(MovSalidaExA.CveMovimiento)
                                     FoliosSalidaDirecta.Add(MovSalidaExA.Folio)
 
-                                    Dim MovEntradaExA = GenerarMovimientoAlmacenVenta(ObjFactura.CveAlmacenTraspasoDestino, 9, ObjFactura.CveVenta, MovSalidaExA.CveMovimiento, DtDetalleMovimiento, ObjInventario, ObjConta, ObjContaContPAQ, False, "RA/G2R2")
+                                    Dim dttexa As DataTable = DtDetalleMovimiento.Copy
+                                    'se limpia la seccion, para que lo tome automaticamente
+                                    For Each drr As DataRow In dttexa.Rows
+                                        drr("CveSeccionAlmacen") = -3
+                                    Next
+
+                                    Dim MovEntradaExA = GenerarMovimientoAlmacenVenta(ObjFactura.CveAlmacenTraspasoDestino, 9, ObjFactura.CveVenta, MovSalidaExA.CveMovimiento, dttexa, ObjInventario, ObjConta, ObjContaContPAQ, False, "RA/G2R2")
 
                                     ErrorMovInv = MovEntradaExA.CveMovimiento <= 0