From f4e4542f0b446df23a0ec3960c7c324c8114b667 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Sat, 10 Feb 2024 08:57:17 -0700
Subject: [PATCH] -- mejora en manejo de CRM

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

diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 6542dd47e..0f3a7df60 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -777,14 +777,15 @@ Partial Class Clientes
 
                     'CARGA LOS FILTROS DEL TAB COMPORTAMIENTO VENTA
                     TabComportamientoVentas.Visible = True
-                    CargaFiltros()
-
-                    'JM 05-02-19: CRM
-                    If UsuarioActual.Empresa.UsaCRM Then
-                        VerificaVinculacion()
-                        UpAccionesCRM.Update()
-                    End If
-
+                    CargaFiltros()
+
+                    'JM 05-02-19: CRM
+                    'If UsuarioActual.Empresa.UsaCRM Then
+                    If GlobalDTCRMTipoProceso(UsuarioActual.CveEmpresa).Rows.Count > 0 Then
+                        VerificaVinculacion()
+                        UpAccionesCRM.Update()
+                    End If
+
                     If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then 'si es acumuladora
                         'AndAlso UsuarioActual.CveRol.Contiene(1280, 1511)
                         If Not PermiteEditar() Then 'sino puede editar todos los datos del cliente, se bloquean los de distribuidor