AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- nombreconexión

Browse Source
This commit is contained in:
rrene
2024-06-30 23:19:00 -07:00
parent 023796db58
commit b6f8612c1b
1 changed files with 56 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

56
App_Code/ClsPaginas.vb
View File

@@ -60,6 +60,62 @@ Public Class ClsPaginas
End If End If
End Get End Get
End Property 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 Public Shared ReadOnly Property UrlDirecciones As String
Get Get
If IsNothing(System.Configuration.ConfigurationManager.AppSettings("UrlDirecciones")) Then If IsNothing(System.Configuration.ConfigurationManager.AppSettings("UrlDirecciones")) Then