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

-- parametros nuevos para validación de acceso por dominio

Browse Source
This commit is contained in:
rrene
2024-03-22 17:26:00 -07:00
parent 078cb852b3
commit 0437dbb5b3
2 changed files with 41 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
App_Code/ClsSisUsuarios.vb
View File

@@ -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()

52
LogIn.aspx.vb
View File

@@ -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