diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index c06eff418..34e5ce3ae 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -800,11 +800,11 @@ Partial Class Clientes
 
                 If Request("ATI") IsNot Nothing AndAlso IsNumeric(Request("ATI")) Then
                     Tab.ActiveTabIndex = Request("ATI").ToEntero()
-                End If
-                'CargaCuentasyConceptos()
-
+                End If
+
                 If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso UsuarioActual.TienePermisoProceso(353) Then
                     DVLnkCambiarVendedor.Visible = True
+                    DdlVendedor.Enabled = True
                 End If
 
 
@@ -10325,12 +10325,6 @@ Partial Class Clientes
             Exit Sub
         End If
 
-
-        If CveVendedorOriginal = DdlVendedor.SelectedValue.ToEntero Then
-            Alert("Debe de seleccionar un vendedor distinto para actualizar.", TipoMensaje.MsgAdvertencia)
-            Exit Sub
-        End If
-
         Dim ObjVentas As New ClsVentas
         Dim ErrorCambio As Boolean = False