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

-

Browse Source
This commit is contained in:
rrene
2024-08-29 08:25:13 -07:00
parent 95c63018c0
commit 03499969d4
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
LogIn.aspx.vb
View File

@@ -123,7 +123,7 @@ Partial Class LogIn
Dim Usuario As Usuario = ObjUsuario.GetUsuarioDetalle(CveUsuario, CveEmpresa:=CveEmpresa) Dim Usuario As Usuario = ObjUsuario.GetUsuarioDetalle(CveUsuario, CveEmpresa:=CveEmpresa)
If Usuario IsNot Nothing Then If Usuario IsNot Nothing Then
If Usuario.PolCambiarContraseña Then If Usuario.Contraseña = ClsPaginas.ContraseñaPredeterminadaEncriptada Then
PnlContra.Visible = True PnlContra.Visible = True
Me.Form.DefaultButton = BtnGuardar.ClientID Me.Form.DefaultButton = BtnGuardar.ClientID
Else Else
@@ -286,10 +286,10 @@ Partial Class LogIn
Dim NombreCadena As String = ClsPaginas.GlobalNombreCadenaConexionDominio(Request.Url.Host.ToUpper()) Dim NombreCadena As String = ClsPaginas.GlobalNombreCadenaConexionDominio(Request.Url.Host.ToUpper())
Dim ObjUsuario As New ClsSisUsuarioAutenticacion(NombreCadena:=NombreCadena) Dim ObjUsuario As New ClsSisUsuarioAutenticacion(NombreCadena:=NombreCadena)
If ObjUsuario.UpdateUsuarioContrasenia(Encripta(TxtContrasenia1.Text), CveUsuario, CveEmpresa) Then Dim Usuario As Usuario = ObjUsuario.GetUsuarioDetalle(CveUsuario, CveEmpresa:=CveEmpresa)
Dim Usuario As Usuario = ObjUsuario.GetUsuarioDetalle(CveUsuario, CveEmpresa:=CveEmpresa) If Usuario IsNot Nothing Then
Dim ObjUsuario2 As New ClsSisUsuarios(UsuarioActual:=Usuario)
If Usuario IsNot Nothing Then If ObjUsuario2.UpdateUsuarioContrasenia(Encripta(TxtContrasenia1.Text), CveUsuario, CveEmpresa) Then
txtUsuario.Text = Usuario.Usuario txtUsuario.Text = Usuario.Usuario
TxtContraseña.Text = TxtContrasenia1.Text TxtContraseña.Text = TxtContrasenia1.Text
Else Else