From 94b106f2ea4d260463a4ee7eea4acb807d409d47 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Fri, 6 Nov 2020 16:26:13 -0700
Subject: [PATCH] Funcionalidad de WS en RepCxC Cliente

---
 Bancos/RepCxCCliente.aspx.vb | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Bancos/RepCxCCliente.aspx.vb b/Bancos/RepCxCCliente.aspx.vb
index c10e276d1..14e8cdfb6 100644
--- a/Bancos/RepCxCCliente.aspx.vb
+++ b/Bancos/RepCxCCliente.aspx.vb
@@ -19,7 +19,8 @@ Partial Class Bancos_RepCxCCliente
             DdlMoneda.DataSource = GlobalDTMonedas()
             DdlMoneda.DataBind()
 
-            If UsuarioActual.CveEmpresa = 119 Then
+            Dim EsWS = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False)
+            If EsWS Then
                 DdlClientesWS.setEsWebService(True)
             Else
                 DdlClientesWS.setEsWebService(False)