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

-- mejora

Browse Source
This commit is contained in:
rrene
2024-08-14 07:03:00 -07:00
parent 756c027807
commit 5e0fba66a9
1 changed files with 45 additions and 39 deletions
Download Patch File Download Diff File Expand all files Collapse all files

84
Sistemas/PopUpCambiaUsuario.aspx.vb
View File

@@ -25,59 +25,65 @@ Partial Class Sistemas_PopUpCambiaUsuario
RegistraScript("window.close();") RegistraScript("window.close();")
End If End If
Dim DtEmp As DataTable = GlobalDTEmpresas(CveEmpresa:=-1).Copy Dim DtEmp As DataTable = Nothing '= GlobalDTEmpresas(CveEmpresa:=-1, tUsrActual:=UsuarioActual).Copy
Using ObjEmpresas As New ClsSisEmpresas()
If ObjEmpresas.GetEmpresas(-1, "-1", "-1", "-1", "-1") Then
DtEmp = ObjEmpresas.DtResultados
End If
End Using
Dim NombreEmp As String = UsuarioActual.Empresa.Empresa Dim NombreEmp As String = UsuarioActual.Empresa.Empresa
''condición para ocultar los nombres de las empresas y ponerles "mi empresa de venta (xxx)" ''condición para ocultar los nombres de las empresas y ponerles "mi empresa de venta (xxx)"
''If UsuarioActual.CveUsuario = 100 Then ''If UsuarioActual.CveUsuario = 100 Then
'' Dim customerRow() As Data.DataRow '' Dim customerRow() As Data.DataRow
'' customerRow = DtEmp.Select("") '' customerRow = DtEmp.Select("")
'' For Each drt As DataRow In customerRow '' For Each drt As DataRow In customerRow
'' drt("Empresa") = "Mi Empresa de ventas (" & drt("CveEmpresa") & ")" '' drt("Empresa") = "Mi Empresa de ventas (" & drt("CveEmpresa") & ")"
'' Next '' Next
''End If ''End If
CType(Me.Master, BaseMasterPage).EsPopup = True CType(Me.Master, BaseMasterPage).EsPopup = True
LblUsuario.Text = String.Format("{0} - {1}", UsuarioActual.Nombre, UsuarioActual.Empresa.Empresa) LblUsuario.Text = String.Format("{0} - {1}", UsuarioActual.Nombre, UsuarioActual.Empresa.Empresa)
DdlEmpresa.DataSource = DtEmp '.FiltraParametros(If(UsuarioActual.CveRol = 1, "CvePlataforma IN (1,2)", $"CvePlataforma={UsuarioActual.Empresa.CvePlataforma}")) DdlEmpresa.DataSource = DtEmp '.FiltraParametros(If(UsuarioActual.CveRol = 1, "CvePlataforma IN (1,2)", $"CvePlataforma={UsuarioActual.Empresa.CvePlataforma}"))
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 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 "SOGO" : CveEmpresa = "8"
Case "BDH" : CveEmpresa = "140" Case "BDH" : CveEmpresa = "140"
Case "ECONOLLANTAS" : CveEmpresa = "141" Case "ECONOLLANTAS" : CveEmpresa = "141"
Case "SERVEC" : CveEmpresa = "153" Case "SERVEC" : CveEmpresa = "153"
Case "CITRUS" : CveEmpresa = "172" Case "CITRUS" : CveEmpresa = "172"
Case "KINO" : CveEmpresa = "173" Case "KINO" : CveEmpresa = "173"
End Select End Select
End If End If
If Request.Url.AbsoluteUri.Contains("sig.agrojam.com.mx") Then If Request.Url.AbsoluteUri.Contains("sig.agrojam.com.mx") Then
CveEmpresa = "158" CveEmpresa = "158"
End If End If
DdlEmpresa.DataBind() DdlEmpresa.DataBind()
DdlEmpresa.SelectedValue = CveEmpresa DdlEmpresa.SelectedValue = CveEmpresa
'DdlRol.DataSource = GlobalDTRoles(DdlEmpresa.SelectedValue.ToEntero) 'DdlRol.DataSource = GlobalDTRoles(DdlEmpresa.SelectedValue.ToEntero)
'DdlRol.DataBind() 'DdlRol.DataBind()
'DdlRol.Items.Insert(0, New ListItem("Todos", "-1")) 'DdlRol.Items.Insert(0, New ListItem("Todos", "-1"))
CargaUsuarios() CargaUsuarios()
'LblUsuario.Text = usuarioactual. 'LblUsuario.Text = usuarioactual.
End If End If
End Sub End Sub