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