diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb
index 28d1e9af0..7167697c1 100644
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -5215,15 +5215,18 @@ Namespace Modelos
                                         Dim CveMovimientoDevolucion As Integer = 0
                                         Dim Folio As Integer = 0
 
+                                        Dim CveMovimientoSalida As Integer = -1
+
                                         Select Case RowMovimiento("CveConcepto").ToString().ToEntero()
                                             Case 3
                                                 CveConceptoMovimiento = 18 'DEVOLUCION DEL CLIENTE
                                                 CveAlmacenMovimiento = RowMovimiento("CveAlmacen").ToString().ToEntero()
+                                                CveMovimientoSalida = RowMovimiento("CveMovimiento").ToString().ToEntero()
                                             Case 40
                                                 CveConceptoMovimiento = 41 'DEVOLUCIÓN DEL CLIENTE DIRECTA
                                                 CveAlmacenMovimiento = RowMovimiento("CveAlmacen").ToString().ToEntero()
                                             Case 18
-                                                CveConceptoMovimiento = 3 'DEVOLUCIÓN DEL CLIENTE DIRECTA
+                                                CveConceptoMovimiento = 3 'SALIDA DE ALMACEN
                                                 CveAlmacenMovimiento = RowMovimiento("CveAlmacen").ToString().ToEntero()
                                                 ''SI TIENE REMISIONES RELACIONADAS
                                                 'If DtRemisionesFacturadas.Rows.Count > 0 Then
@@ -5248,7 +5251,7 @@ Namespace Modelos
                                         'SI TIENE SALDO PENDIENTE POR DEVOLVER GENERA UN MOVIMIENTO DE DEVOLUCION
                                         If ObjFactura.SaldoAlmacen <> 0 Then
                                             'SALIDA DE ALMACEN - SALIDA POR TRASPASO CUANDO ES REMISION - DEVOLUCION (SI ES TRASPASO Y TIENE CONTRATO NO HACE DEVOLUCIóN)
-                                            CveMovimientoDevolucion = ObjInventario.AddMovimiento(CveAlmacenMovimiento, CveConceptoMovimiento, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta, -1, -1, Observaciones:="", Guia:="", CveContrato:=CveContrato, CveAlmacenDestino:=-1, Modulo:="Mod/CV1")
+                                            CveMovimientoDevolucion = ObjInventario.AddMovimiento(CveAlmacenMovimiento, CveConceptoMovimiento, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta, -1, -1, Observaciones:="", Guia:="", CveContrato:=CveContrato, CveAlmacenDestino:=-1, CveMovimientoRelacionado:=CveMovimientoSalida, Modulo:="Mod/CV1")
                                             Folio = ObjInventario.Folio
 
                                             If CveMovimientoDevolucion > 0 Then