diff --git a/LogIn.aspx.vb b/LogIn.aspx.vb
index 2630d6c67..104e4dd54 100644
--- a/LogIn.aspx.vb
+++ b/LogIn.aspx.vb
@@ -123,7 +123,7 @@ Partial Class LogIn
                                 Dim Usuario As Usuario = ObjUsuario.GetUsuarioDetalle(CveUsuario, CveEmpresa:=CveEmpresa)
 
                                 If Usuario IsNot Nothing Then
-                                    If Usuario.PolCambiarContraseña Then
+                                    If Usuario.Contraseña = ClsPaginas.ContraseñaPredeterminadaEncriptada Then
                                         PnlContra.Visible = True
                                         Me.Form.DefaultButton = BtnGuardar.ClientID
                                     Else
@@ -286,10 +286,10 @@ Partial Class LogIn
             Dim NombreCadena As String = ClsPaginas.GlobalNombreCadenaConexionDominio(Request.Url.Host.ToUpper())
 
             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)
-
-                If Usuario IsNot Nothing Then
+            Dim Usuario As Usuario = ObjUsuario.GetUsuarioDetalle(CveUsuario, CveEmpresa:=CveEmpresa)
+            If Usuario IsNot Nothing Then
+                Dim ObjUsuario2 As New ClsSisUsuarios(UsuarioActual:=Usuario)
+                If ObjUsuario2.UpdateUsuarioContrasenia(Encripta(TxtContrasenia1.Text), CveUsuario, CveEmpresa) Then
                     txtUsuario.Text = Usuario.Usuario
                     TxtContraseña.Text = TxtContrasenia1.Text
                 Else