52 lines
1.7 KiB
VB.net
52 lines
1.7 KiB
VB.net
Imports System.Data
|
|
Imports Extensiones
|
|
|
|
|
|
Partial Class CatContrasenia
|
|
Inherits ClsPaginas
|
|
|
|
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
|
|
If Not Page.IsPostBack Then
|
|
'oculto el menu
|
|
CType(Me.Master, BaseMasterPage).EsPopup = True
|
|
End If
|
|
End Sub
|
|
|
|
Public Sub GuardaDatos()
|
|
|
|
Dim Usuario As New ClsSisUsuarios
|
|
Usuario.IniciaTransacSQL()
|
|
If Usuario.GetUsuarios(UsuarioActual.CveUsuario) Then
|
|
Dim db As DataRow = Usuario.DtResultados.FiltroPrimero("")
|
|
|
|
If db("contraseña").ToString = Encripta(TxtContraseniaActual.Text) Then
|
|
If Usuario.UpdateUsuarioContrasenia(Encripta(TxtContrasenia1.Text), db("CveUsuario").ToString.ToEntero, db("CveEmpresa").ToString.ToEntero) Then
|
|
|
|
Alert("Contraseña Modificada.", TipoMensaje.MsgInformacion, JSBtnAceptar:=If(TxtContraseniaActual.Text = ContraseñaPredeterminada, "location.href=""/Inicio.aspx""", ""))
|
|
'redirecciona, cuando es el primer cambio de contraseña
|
|
UsuarioActual.Contraseña = TxtContrasenia1.Text
|
|
Usuario.Commit()
|
|
Else
|
|
Usuario.RollBack()
|
|
Alert("Contraseña Incorrecta.", TipoMensaje.MsgAdvertencia)
|
|
End If
|
|
Else
|
|
Usuario.RollBack()
|
|
Alert("Contraseña Incorrecta.", TipoMensaje.MsgError)
|
|
End If
|
|
|
|
End If
|
|
|
|
Usuario.Dispose()
|
|
|
|
|
|
End Sub
|
|
|
|
|
|
Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click
|
|
|
|
GuardaDatos()
|
|
|
|
End Sub
|
|
End Class
|