-- mejora en manejo de CRM

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