From 2f4a631ae8cb1a9eb7be123e02c81482fe4b8c1d Mon Sep 17 00:00:00 2001
From: JORGE LUIS CAUDILLO ESPARZA <caudillo_90@hotmail.com>
Date: Tue, 18 Aug 2020 18:18:07 -0700
Subject: [PATCH]

---
 Sistemas/PopUpCambiaUsuario.aspx.vb | 39 +++++++++++++++++------------
 1 file changed, 23 insertions(+), 16 deletions(-)

diff --git a/Sistemas/PopUpCambiaUsuario.aspx.vb b/Sistemas/PopUpCambiaUsuario.aspx.vb
index 62de315c2..acda2dfa4 100644
--- a/Sistemas/PopUpCambiaUsuario.aspx.vb
+++ b/Sistemas/PopUpCambiaUsuario.aspx.vb
@@ -48,27 +48,34 @@ Partial Class Sistemas_PopUpCambiaUsuario
             Dim CveEmpresa As String = UsuarioActual.CveEmpresa.ToString()
 
             Dim splitedtext As String() = Request.Url.AbsoluteUri.Replace("http://", "").Replace("https://", "").Split("."c)
-            If splitedtext.Length > 0 Then
-                Select Case splitedtext(0).ToUpper()
-                    Case "VSH" : CveEmpresa = "7"
-                    Case "JAM" : CveEmpresa = "119"
-                    Case "COMPUPROVEEDORES" : CveEmpresa = "72"
-                    Case "DNDIFUSA" : CveEmpresa = "80"
-                End Select
+            If Request.Url.AbsoluteUri.Contains("sig.agrojam.com.mx") Then
+                CveEmpresa = 119
             End If
-            DdlEmpresa.DataBind()
-            DdlEmpresa.SelectedValue = CveEmpresa
 
-            'DdlRol.DataSource = GlobalDTRoles(DdlEmpresa.SelectedValue.ToEntero)
-            'DdlRol.DataBind()
-            'DdlRol.Items.Insert(0, New ListItem("Todos", "-1"))
+            If splitedtext.Length > 0 Then
+                    Select Case splitedtext(0).ToUpper()
+                        Case "VSH" : CveEmpresa = "7"
+                        Case "JAM" : CveEmpresa = "119"
+                        Case "COMPUPROVEEDORES" : CveEmpresa = "72"
+                        Case "DNDIFUSA" : CveEmpresa = "80"
+                        Case "SOGO" : CveEmpresa = "8"
+                        Case "BDH" : CveEmpresa = "140"
+                        Case "ECONOLLANTAS" : CveEmpresa = "141"
+                    End Select
+                End If
+                DdlEmpresa.DataBind()
+                DdlEmpresa.SelectedValue = CveEmpresa
 
-            TxtBusqueda.Attributes.Add("data-table", gvUsuarios.ClientID)
+                'DdlRol.DataSource = GlobalDTRoles(DdlEmpresa.SelectedValue.ToEntero)
+                'DdlRol.DataBind()
+                'DdlRol.Items.Insert(0, New ListItem("Todos", "-1"))
 
-            CargaUsuarios()
-            'LblUsuario.Text = usuarioactual.
+                TxtBusqueda.Attributes.Add("data-table", gvUsuarios.ClientID)
 
-        End If
+                CargaUsuarios()
+                'LblUsuario.Text = usuarioactual.
+
+            End If
     End Sub