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