Funcionalidad de WS en RepCxC Cliente

2020-11-06 16:26:13 -07:00
parent dea9934dc7
commit 94b106f2ea
1 changed files with 2 additions and 1 deletions
--- 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)