-

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.<br> 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