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

Browse Source
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2020-08-18 18:18:07 -07:00
parent bd755f7048
commit 2f4a631ae8
1 changed files with 23 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
Sistemas/PopUpCambiaUsuario.aspx.vb
View File

@@ -48,12 +48,19 @@ Partial Class Sistemas_PopUpCambiaUsuario
Dim CveEmpresa As String = UsuarioActual.CveEmpresa.ToString() Dim CveEmpresa As String = UsuarioActual.CveEmpresa.ToString()
Dim splitedtext As String() = Request.Url.AbsoluteUri.Replace("http://", "").Replace("https://", "").Split("."c) Dim splitedtext As String() = Request.Url.AbsoluteUri.Replace("http://", "").Replace("https://", "").Split("."c)
If Request.Url.AbsoluteUri.Contains("sig.agrojam.com.mx") Then
CveEmpresa = 119
End If
If splitedtext.Length > 0 Then If splitedtext.Length > 0 Then
Select Case splitedtext(0).ToUpper() Select Case splitedtext(0).ToUpper()
Case "VSH" : CveEmpresa = "7" Case "VSH" : CveEmpresa = "7"
Case "JAM" : CveEmpresa = "119" Case "JAM" : CveEmpresa = "119"
Case "COMPUPROVEEDORES" : CveEmpresa = "72" Case "COMPUPROVEEDORES" : CveEmpresa = "72"
Case "DNDIFUSA" : CveEmpresa = "80" Case "DNDIFUSA" : CveEmpresa = "80"
Case "SOGO" : CveEmpresa = "8"
Case "BDH" : CveEmpresa = "140"
Case "ECONOLLANTAS" : CveEmpresa = "141"
End Select End Select
End If End If
DdlEmpresa.DataBind() DdlEmpresa.DataBind()