From b6f8612c1b0707c8911993ea7cfd1ae95e953f78 Mon Sep 17 00:00:00 2001 From: rrene Date: Sun, 30 Jun 2024 23:19:00 -0700 Subject: [PATCH] =?UTF-8?q?--=20nombreconexi=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsPaginas.vb | 56 ++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 56 insertions(+) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 72e76494a..6e721d930 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -60,6 +60,62 @@ Public Class ClsPaginas End If End Get End Property + Public Shared ReadOnly Property GlobalGrupoEmpresa(Dominio As String) As String + Get + Dim Retorno As String = "" + Dominio = Dominio.ToUpper + If Dominio.Contains("EMD".ToUpper()) Then Retorno = "EMD" + If Dominio.Contains("BDH".ToUpper()) Then Retorno = "BDH" + If Dominio.Contains("ECONOLLANTAS".ToUpper()) Then Retorno = "ECONOLLANTAS" + If Dominio.Contains("JAM".ToUpper()) Then Retorno = "JAM" + If Dominio.Contains("CITRUS".ToUpper()) Then Retorno = "CITRUS" + If Dominio.Contains("KINO".ToUpper()) Then Retorno = "KINO" + If Dominio.Contains("VSH".ToUpper()) Then Retorno = "VSH" + If Dominio.Contains("AJAM".ToUpper()) Then Retorno = "AJAM" + If Dominio.Contains("ALATEL".ToUpper()) Then Retorno = "ALATEL" + If Dominio.Contains("SERVEC".ToUpper()) Then Retorno = "SERVEC" + If Dominio.Contains("SMS".ToUpper()) Then Retorno = "SMS" + If Dominio.Contains("VYA".ToUpper()) Then Retorno = "VYA" + If Dominio.Contains("GRUPODIAZ".ToUpper()) Then Retorno = "GRUPODIAZ" + If Dominio.Contains("FERRETERA".ToUpper()) Then Retorno = "FERRETERA" + Return Retorno + End Get + End Property + + Public Shared ReadOnly Property GlobalNombreCadenaConexionDominio(Dominio As String) As String + Get + Dim Retorno As String = "Conexion" + Dominio = Dominio.ToUpper + 'If Dominio.Contains("EMD".ToUpper()) Then Retorno = "EMD" + 'If Dominio.Contains("BDH".ToUpper()) Then tGrupoEmpresa = "BDH" + If Dominio.Contains("ECONOLLANTAS".ToUpper()) Then Retorno = "ConexionEcono" + 'If Dominio.Contains("JAM".ToUpper()) Then tGrupoEmpresa = "JAM" + 'If Dominio.Contains("CITRUS".ToUpper()) Then tGrupoEmpresa = "CITRUS" + 'If Dominio.Contains("KINO".ToUpper()) Then tGrupoEmpresa = "KINO" + 'If Dominio.Contains("VSH".ToUpper()) Then tGrupoEmpresa = "VSH" + 'If Dominio.Contains("AJAM".ToUpper()) Then tGrupoEmpresa = "AJAM" + 'If Dominio.Contains("ALATEL".ToUpper()) Then tGrupoEmpresa = "ALATEL" + 'If Dominio.Contains("SERVEC".ToUpper()) Then tGrupoEmpresa = "SERVEC" + 'If Dominio.Contains("SMS".ToUpper()) Then tGrupoEmpresa = "SMS" + 'If Dominio.Contains("VYA".ToUpper()) Then tGrupoEmpresa = "VYA" + 'If Dominio.Contains("GRUPODIAZ".ToUpper()) Then tGrupoEmpresa = "GRUPODIAZ" : NombreCadena = "ConexionGDiaz" + 'If Dominio.Contains("FERRETERA".ToUpper()) Then tGrupoEmpresa = "FERRETERA" + Return Retorno + End Get + End Property + + Public Shared ReadOnly Property GlobalNombreCadenaConexion(CveEmpresa As Integer) As String + Get + Dim Retorno As String = "Conexion" + Select Case CveEmpresa + Case 141, 152, 159, 160, 161, 162, 163, 166 + Retorno = "ConexionEcono" + End Select + + Return Retorno + End Get + End Property + Public Shared ReadOnly Property UrlDirecciones As String Get If IsNothing(System.Configuration.ConfigurationManager.AppSettings("UrlDirecciones")) Then