From c6cc8479bc39a6a3b4aa3b1a3ae933e95708798d Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 24 Nov 2023 15:49:01 -0700
Subject: [PATCH] -- si tiene que permiso para cambiar vendedor, que se active 
 el ddlvendedor

---
 Ventas/Clientes.aspx.vb | 12 +++---------
 1 file changed, 3 insertions(+), 9 deletions(-)

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