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