From 94545ac8ceea681cb5becbda54d6e1be7fe34c1c Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 12 Apr 2024 20:03:30 -0700 Subject: [PATCH] - cambios en acceso --- LogIn.aspx.vb | 55 +++++++++-------------------- Sistemas/PopUpCambiaUsuario.aspx.vb | 3 +- 2 files changed, 17 insertions(+), 41 deletions(-) diff --git a/LogIn.aspx.vb b/LogIn.aspx.vb index d141d84d0..db5fa348b 100644 --- a/LogIn.aspx.vb +++ b/LogIn.aspx.vb @@ -207,31 +207,29 @@ Partial Class LogIn End If If BtnLogIn_Clickenter = 0 Then 'esta variable se recicla con cada postaback BtnLogIn_Clickenter = 1 - Dim tcveEmpresa As Integer = -1 Dim tGrupoEmpresa As String = "" - 'If Request.Url.Host.ToUpper().Contains("EMD".ToUpper()) Then tcveEmpresa = 13 : tGrupoEmpresa = "EMD" - 'If Request.Url.Host.ToUpper().Contains("BDH".ToUpper()) Then tcveEmpresa = 140 : tGrupoEmpresa = "BDH" - 'If Request.Url.Host.ToUpper().Contains("ECONOLLANTAS".ToUpper()) Then tcveEmpresa = 141 : tGrupoEmpresa = "ECONOLLANTAS" - 'If Request.Url.Host.ToUpper().Contains("JAM".ToUpper()) Then tcveEmpresa = 119 : tGrupoEmpresa = "JAM" - 'If Request.Url.Host.ToUpper().Contains("CITRUS".ToUpper()) Then tcveEmpresa = 172 : tGrupoEmpresa = "CITRUS" - 'If Request.Url.Host.ToUpper().Contains("KINO".ToUpper()) Then tcveEmpresa = 173 : tGrupoEmpresa = "KINO" - 'If Request.Url.Host.ToUpper().Contains("VSH".ToUpper()) Then tcveEmpresa = 7 : tGrupoEmpresa = "VSH" - 'If Request.Url.Host.ToUpper().Contains("AJAM".ToUpper()) Then tcveEmpresa = 158 : tGrupoEmpresa = "AJAM" - 'If Request.Url.Host.ToUpper().Contains("ALATEL".ToUpper()) Then tcveEmpresa = 183 : tGrupoEmpresa = "ALATEL" - 'If Request.Url.Host.ToUpper().Contains("SERVEC".ToUpper()) Then tcveEmpresa = 153 : tGrupoEmpresa = "SERVEC" - 'If Request.Url.Host.ToUpper().Contains("SMS".ToUpper()) Then tcveEmpresa = 186 : tGrupoEmpresa = "SMS" - 'If Request.Url.Host.ToUpper().Contains("VYA".ToUpper()) Then tcveEmpresa = 188 : tGrupoEmpresa = "VYA" - 'If Request.Url.Host.ToUpper().Contains("GRUPODIAZ".ToUpper()) Then tcveEmpresa = 189 : tGrupoEmpresa = "GRUPODIAZ" - 'If Request.Url.Host.ToUpper().Contains("FERRETERA".ToUpper()) Then tcveEmpresa = 190 : tGrupoEmpresa = "FERRETERA" + If Request.Url.Host.ToUpper().Contains("EMD".ToUpper()) Then tGrupoEmpresa = "EMD" + If Request.Url.Host.ToUpper().Contains("BDH".ToUpper()) Then tGrupoEmpresa = "BDH" + If Request.Url.Host.ToUpper().Contains("ECONOLLANTAS".ToUpper()) Then tGrupoEmpresa = "ECONOLLANTAS" + If Request.Url.Host.ToUpper().Contains("JAM".ToUpper()) Then tGrupoEmpresa = "JAM" + If Request.Url.Host.ToUpper().Contains("CITRUS".ToUpper()) Then tGrupoEmpresa = "CITRUS" + If Request.Url.Host.ToUpper().Contains("KINO".ToUpper()) Then tGrupoEmpresa = "KINO" + If Request.Url.Host.ToUpper().Contains("VSH".ToUpper()) Then tGrupoEmpresa = "VSH" + If Request.Url.Host.ToUpper().Contains("AJAM".ToUpper()) Then tGrupoEmpresa = "AJAM" + If Request.Url.Host.ToUpper().Contains("ALATEL".ToUpper()) Then tGrupoEmpresa = "ALATEL" + If Request.Url.Host.ToUpper().Contains("SERVEC".ToUpper()) Then tGrupoEmpresa = "SERVEC" + If Request.Url.Host.ToUpper().Contains("SMS".ToUpper()) Then tGrupoEmpresa = "SMS" + If Request.Url.Host.ToUpper().Contains("VYA".ToUpper()) Then tGrupoEmpresa = "VYA" + If Request.Url.Host.ToUpper().Contains("GRUPODIAZ".ToUpper()) Then tGrupoEmpresa = "GRUPODIAZ" + If Request.Url.Host.ToUpper().Contains("FERRETERA".ToUpper()) Then tGrupoEmpresa = "FERRETERA" Dim ObjUsuario As New ClsSisUsuarios Dim Usuario As Usuario = Nothing - 'Dim UsuarioAsignaciones As Usuario = Nothing Dim isgps As Boolean = Request.Url.Host.ToUpper().Contains("SIGNALSGPS".ToUpper()) - Usuario = ObjUsuario.ValidaUsuario(txtUsuario.Text, Encripta(TxtContraseña.Text.Trim), IMEI, GrupoEmpresa:=tGrupoEmpresa, CvePlataforma:=If(isgps, 3, -1)) - 'UsuarioAsignaciones = ObjUsuario.ValidaUsuarioAsignacion(Usuario.CveUsuario, Usuario.CveEmpresa) + Usuario = ObjUsuario.ValidaUsuario(txtUsuario.Text, Encripta(TxtContraseña.Text.Trim), GrupoEmpresa:=tGrupoEmpresa) + If Not isgps AndAlso Usuario IsNot Nothing AndAlso Usuario.CvePlataforma = 3 Then ' SI ES de la plataforma 3(GPS), no debe de entar por liga normal Usuario = Nothing End If @@ -242,27 +240,6 @@ Partial Class LogIn If Usuario IsNot Nothing Then If Not Usuario.AutorizadoxIP OrElse (HddAdsCodex.Text.Length > 0 AndAlso Usuario.CodigoAutorizado = HddAdsCodex.Text) Then - If Usuario.CveRol = 1 Then - If Request.Url.Host.ToUpper().Contains("EMD".ToUpper()) Then tcveEmpresa = 13 : tGrupoEmpresa = "EMD" - If Request.Url.Host.ToUpper().Contains("BDH".ToUpper()) Then tcveEmpresa = 140 : tGrupoEmpresa = "BDH" - If Request.Url.Host.ToUpper().Contains("ECONOLLANTAS".ToUpper()) Then tcveEmpresa = 141 : tGrupoEmpresa = "ECONOLLANTAS" - If Request.Url.Host.ToUpper().Contains("JAM".ToUpper()) Then tcveEmpresa = 119 : tGrupoEmpresa = "JAM" - If Request.Url.Host.ToUpper().Contains("CITRUS".ToUpper()) Then tcveEmpresa = 172 : tGrupoEmpresa = "CITRUS" - If Request.Url.Host.ToUpper().Contains("KINO".ToUpper()) Then tcveEmpresa = 173 : tGrupoEmpresa = "KINO" - If Request.Url.Host.ToUpper().Contains("VSH".ToUpper()) Then tcveEmpresa = 7 : tGrupoEmpresa = "VSH" - If Request.Url.Host.ToUpper().Contains("AJAM".ToUpper()) Then tcveEmpresa = 158 : tGrupoEmpresa = "AJAM" - If Request.Url.Host.ToUpper().Contains("ALATEL".ToUpper()) Then tcveEmpresa = 183 : tGrupoEmpresa = "ALATEL" - If Request.Url.Host.ToUpper().Contains("SERVEC".ToUpper()) Then tcveEmpresa = 153 : tGrupoEmpresa = "SERVEC" - If Request.Url.Host.ToUpper().Contains("SMS".ToUpper()) Then tcveEmpresa = 186 : tGrupoEmpresa = "SMS" - If Request.Url.Host.ToUpper().Contains("VYA".ToUpper()) Then tcveEmpresa = 188 : tGrupoEmpresa = "VYA" - If Request.Url.Host.ToUpper().Contains("GRUPODIAZ".ToUpper()) Then tcveEmpresa = 189 : tGrupoEmpresa = "GRUPODIAZ" - If Request.Url.Host.ToUpper().Contains("FERRETERA".ToUpper()) Then tcveEmpresa = 190 : tGrupoEmpresa = "FERRETERA" - End If - - If tcveEmpresa > 0 Then - Usuario.CveEmpresa = tcveEmpresa - End If - CreaObjetoEmpresa(Usuario) ADSSessionConfig.sessionUser.MultipleEmpresa = True diff --git a/Sistemas/PopUpCambiaUsuario.aspx.vb b/Sistemas/PopUpCambiaUsuario.aspx.vb index bb47e1129..55fa8f59d 100644 --- a/Sistemas/PopUpCambiaUsuario.aspx.vb +++ b/Sistemas/PopUpCambiaUsuario.aspx.vb @@ -99,8 +99,7 @@ Partial Class Sistemas_PopUpCambiaUsuario Dim Usuario As Usuario 'Dim UsuarioAsignaciones As Usuario - Usuario = ObjUsuario.ValidaUsuario(tUsuario, tContraseña, IMEI, tCveEmpresa) - 'UsuarioAsignaciones = ObjUsuario.ValidaUsuarioAsignacion(Usuario.CveUsuario, Usuario.CveEmpresa) + Usuario = ObjUsuario.ValidaUsuario(tUsuario, tContraseña, tCveEmpresa) ObjUsuario.Dispose() If Usuario IsNot Nothing Then