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
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index ab9476873..b7767fbb2 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -33946,6 +33946,21 @@ Partial Class Ventas
 
     End Sub
 
+    Protected Sub RdTipoPersona_SelectedIndexChanged(sender As Object, e As EventArgs)
+
+        DVRegimenSociedad.Visible = False
+        DivRazonSocial2.Attributes.Add("class", "col-md-12")
+
+        If RdTipoPersona.SelectedValue.ToEntero = 1 And UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
+
+            DivRazonSocial2.Attributes.Add("class", "col-md-8")
+            DVRegimenSociedad.Visible = True
+
+        End If
+
+        UpAgregarCliente.Update()
+    End Sub
+
 #Region "C A R T A  -  P O R T E"
 
     Public Sub CargaDireccionCP()