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

En el Login pedir directamente los datos del usuario desde la BD en vez de usar el GlobalDT

Browse Source
This commit is contained in:
MLopez
2023-01-11 18:25:39 -07:00
parent 135a75291e
commit c12d754f84
1 changed files with 26 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

48
LogIn.aspx.vb
View File

@@ -184,20 +184,20 @@ Partial Class LogIn
Return URLParametros Return URLParametros
End Function End Function
Property GlobalDTUsuarios(Optional CveUsuario As Integer = -1, Optional CveEmpresa As Integer = -1) As Data.DataTable 'Property GlobalDTUsuarios(Optional CveUsuario As Integer = -1, Optional CveEmpresa As Integer = -1) As Data.DataTable
Get ' Get
If CveUsuario <> -1 Then ' If CveUsuario <> -1 Then
Dim Dv As New Data.DataView(DirectCast(Application("GlobalDTUsuarios"), Data.DataTable), "CveUsuario =" & CveUsuario, "", Data.DataViewRowState.CurrentRows) ' Dim Dv As New Data.DataView(DirectCast(Application("GlobalDTUsuarios"), Data.DataTable), "CveUsuario =" & CveUsuario, "", Data.DataViewRowState.CurrentRows)
GlobalDTUsuarios = Dv.ToTable ' GlobalDTUsuarios = Dv.ToTable
Dv.Dispose() ' Dv.Dispose()
Else ' Else
GlobalDTUsuarios = DirectCast(Application("GlobalDTUsuarios"), Data.DataTable) ' GlobalDTUsuarios = DirectCast(Application("GlobalDTUsuarios"), Data.DataTable)
End If ' End If
End Get ' End Get
Set(value As Data.DataTable) ' Set(value As Data.DataTable)
Application("GlobalDTUsuarios") = value ' Application("GlobalDTUsuarios") = value
End Set ' End Set
End Property 'End Property
Dim BtnLogIn_Clickenter As Integer = 0 Dim BtnLogIn_Clickenter As Integer = 0
Protected Sub BtnLogIn_Click(ByVal sender As Object, ByVal e As EventArgs) 'Handles CmdLogIn.Click Protected Sub BtnLogIn_Click(ByVal sender As Object, ByVal e As EventArgs) 'Handles CmdLogIn.Click
Dim ReturnUrl As String = "/" Dim ReturnUrl As String = "/"
@@ -251,16 +251,20 @@ Partial Class LogIn
Else Else
'PLATAFORMA SIG 'PLATAFORMA SIG
CType(Session("UsuarioSIG"), Usuario).CvePlataforma = 1 CType(Session("UsuarioSIG"), Usuario).CvePlataforma = 1
Dim dt As Data.DataTable = GlobalDTUsuarios(Usuario.CveUsuario) Using ObjUsuarios As New ClsSisUsuarios
If dt IsNot Nothing Then If ObjUsuarios.GetUsuariosEmpresas(Usuario.CveUsuario) Then
If dt.Rows.Count >= 1 Then Dim dt As Data.DataTable = ObjUsuarios.DtResultados
If dt.Rows.Count > 1 Then If dt IsNot Nothing Then
Usuario.MultipleEmpresa = True If dt.Rows.Count >= 1 Then
If dt.Rows.Count > 1 Then
Usuario.MultipleEmpresa = True
End If
'FormsAuthentication.RedirectFromLoginPage(Encripta(Usuario.CveUsuario), False)
End If
End If End If
'FormsAuthentication.RedirectFromLoginPage(Encripta(Usuario.CveUsuario), False) dt.Dispose()
End If End If
End If End Using
dt.Dispose()
End If End If
Dim cookie = FormsAuthentication.GetAuthCookie(Usuario.CveUsuario, False) Dim cookie = FormsAuthentication.GetAuthCookie(Usuario.CveUsuario, False)