From 0437dbb5b35b4072dc6bf492a143639315ee8579 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 22 Mar 2024 17:26:00 -0700 Subject: [PATCH] =?UTF-8?q?--=20parametros=20nuevos=20para=20validaci?= =?UTF-8?q?=C3=B3n=20de=20acceso=20por=20dominio?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsSisUsuarios.vb | 6 ++--- LogIn.aspx.vb | 52 ++++++++++++++++++++++++++++---------- 2 files changed, 41 insertions(+), 17 deletions(-) diff --git a/App_Code/ClsSisUsuarios.vb b/App_Code/ClsSisUsuarios.vb index 1c779adf5..56477c6b5 100644 --- a/App_Code/ClsSisUsuarios.vb +++ b/App_Code/ClsSisUsuarios.vb @@ -189,7 +189,7 @@ Public Class ClsSisUsuarios End Try Return Retorno End Function - Public Function ValidaUsuario(Usuario As String, Password As String, tIMEI As String, Optional CveEmpresa As Integer = -1, Optional CvePlataforma As Integer = -1) As Usuario + Public Function ValidaUsuario(Usuario As String, Password As String, tIMEI As String, Optional CveEmpresa As Integer = -1, Optional GrupoEmpresa As String = "", Optional CvePlataforma As Integer = -1) As Usuario Dim Retorno As Usuario = Nothing DataAdapter("PA_Sis_UsuariosGet") With SqlAdapter.SelectCommand.Parameters @@ -199,11 +199,12 @@ Public Class ClsSisUsuarios .Add("@Contraseña", SqlDbType.VarChar).Value = Password .Add("@CvePlataforma", SqlDbType.Int).Value = CvePlataforma .Add("@EsLogIn", SqlDbType.Bit).Value = 1 + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@GrupoEmpresa", SqlDbType.VarChar).Value = GrupoEmpresa End With Try SqlAdapter.Fill(Data) - If Data.Rows.Count > 0 Then Retorno = New Usuario @@ -215,7 +216,6 @@ Public Class ClsSisUsuarios Retorno.CveRol = Data.Rows(0)("CveRol").ToString().ToEntero() Retorno.Rol = Data.Rows(0)("Rol").ToString() - 'Retorno.NombreEmpresa = Data.Rows(0)("Empresa").ToString Retorno.CveEmpresa = Data.Rows(0)("CveEmpresa").ToString().ToEntero() Retorno.CvePlataforma = Data.Rows(0)("CvePlataforma").ToString().ToEntero() diff --git a/LogIn.aspx.vb b/LogIn.aspx.vb index d8a2015f0..d141d84d0 100644 --- a/LogIn.aspx.vb +++ b/LogIn.aspx.vb @@ -1,6 +1,7 @@ Imports System.Data Imports System.IdentityModel.Tokens.Jwt Imports System.Security.Claims +Imports ADSNetLibrary.Application.Conexiones.Api Imports ADSSession Imports Extensiones Imports Microsoft.IdentityModel.Tokens @@ -206,12 +207,30 @@ 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" + 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, CvePlataforma:=If(isgps, 3, -1)) + 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) 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 @@ -224,21 +243,26 @@ Partial Class LogIn If Not Usuario.AutorizadoxIP OrElse (HddAdsCodex.Text.Length > 0 AndAlso Usuario.CodigoAutorizado = HddAdsCodex.Text) Then If Usuario.CveRol = 1 Then - Dim tcveEmpresa As Integer = Usuario.CveEmpresa - If Request.Url.Host.ToUpper().Contains("BDH".ToUpper()) Then tcveEmpresa = 140 - If Request.Url.Host.ToUpper().Contains("ECONOLLANTAS".ToUpper()) Then tcveEmpresa = 141 - If Request.Url.Host.ToUpper().Contains("JAM".ToUpper()) Then tcveEmpresa = 119 - If Request.Url.Host.ToUpper().Contains("CITRUS".ToUpper()) Then tcveEmpresa = 172 - If Request.Url.Host.ToUpper().Contains("KINO".ToUpper()) Then tcveEmpresa = 173 - If Request.Url.Host.ToUpper().Contains("VSH".ToUpper()) Then tcveEmpresa = 7 - If Request.Url.Host.ToUpper().Contains("AJAM".ToUpper()) Then tcveEmpresa = 158 - If Request.Url.Host.ToUpper().Contains("ALATEL".ToUpper()) Then tcveEmpresa = 183 - If Request.Url.Host.ToUpper().Contains("SERVEC".ToUpper()) Then tcveEmpresa = 153 - If Request.Url.Host.ToUpper().Contains("EMD".ToUpper()) Then tcveEmpresa = 13 - If Request.Url.Host.ToUpper().Contains("SMS".ToUpper()) Then tcveEmpresa = 186 - If Request.Url.Host.ToUpper().Contains("VYA".ToUpper()) Then tcveEmpresa = 188 + 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