From 991f70be6b0bb884f5b9ce8e4f6a7d0fe2416695 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 29 Aug 2024 08:10:57 -0700 Subject: [PATCH] - --- Sistemas/UsuarioDetalle.aspx.vb | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/Sistemas/UsuarioDetalle.aspx.vb b/Sistemas/UsuarioDetalle.aspx.vb index 43a048ad0..90c180f2c 100644 --- a/Sistemas/UsuarioDetalle.aspx.vb +++ b/Sistemas/UsuarioDetalle.aspx.vb @@ -1471,14 +1471,16 @@ Partial Class Sistemas_UsuarioDetalle #Region " CONTRASEÑA " - Protected Sub LnkRestablecer_Click(sender As Object, e As EventArgs) Handles LnkRestablecer.Click - Dim Usuario As New ClsSisUsuarios + Protected Sub LnkRestablecer_Click(sender As Object, e As EventArgs) Handles LnkRestablecer.Click + + + Dim ObjUsuario As New ClsSisUsuarios() - If Usuario.UpdateUsuarioContrasenia(Encripta(ContraseñaPredeterminada), CveUsuario, CveEmpresa) Then + If ObjUsuario.UpdateUsuarioContrasenia(Encripta(ContraseñaPredeterminada), CveUsuario, CveEmpresa) Then Alert("Contraseña Restablecida.
La nueva contraseña es: """ & ContraseñaPredeterminada & "", TipoMensaje.MsgInformacion) End If - Usuario.Dispose() + ObjUsuario.Dispose() End Sub Protected Sub LnkVerPass_Click(sender As Object, e As EventArgs) Handles LnkVerPass.Click