diff --git a/PortalProveedor/PortalProveedor.aspx b/PortalProveedor/PortalProveedor.aspx index a3ecb0e30..28c9c6951 100644 --- a/PortalProveedor/PortalProveedor.aspx +++ b/PortalProveedor/PortalProveedor.aspx @@ -757,72 +757,6 @@ - <%--02/07/2018 - TAB CAMBIO DE CONTRASENIAS--%> - - - - -
-
-
-
-
- - Cambio Contraseña -
-
-
-
-
-
-
-
-
-
- -
- - -
- -
-
-
-
- -
- - -
- -
-
-
-
- -
- - -
- - -
-
-
- -
-
-
-
-
-
-
-
-
-
- <%---2020/02/06 - Auditoria--%> diff --git a/PortalProveedor/PortalProveedor.aspx.vb b/PortalProveedor/PortalProveedor.aspx.vb index c9293c7b6..093cdb5ec 100644 --- a/PortalProveedor/PortalProveedor.aspx.vb +++ b/PortalProveedor/PortalProveedor.aspx.vb @@ -293,7 +293,6 @@ Partial Class Portal_PortalProveedor End If 'CARGA TAB CONTRASENIA PARA TODOS LOS USUARIOS - If UsuarioActual.CvePlataforma = 7 Then TabContraseña.Visible = True End If @@ -521,11 +520,15 @@ Partial Class Portal_PortalProveedor End If If e.Row.DBCampo("CveCompraNC").ToEntero > 0 Then - e.Row.FCHyperLink("HplNC").Visible = True - e.Row.FCHyperLink("HplNC").ImageUrl = "/Imagenes/flag_green.png" - e.Row.FCHyperLink("HplNC").ToolTip = "Notas de Crédito Aplicadas" - End If - + Dim asdas2 As Integer = e.Row.DBCampo("CveCompraNC").ToEntero + Dim asdas As String = e.Row.DBCampo("AplicaNotaCredito").ToString + If e.Row.DBCampo("AplicaNotaCredito").ToString = "True" Then + e.Row.FCHyperLink("HplNC").Visible = True + e.Row.FCHyperLink("HplNC").ImageUrl = "/Imagenes/flag_green.png" + e.Row.FCHyperLink("HplNC").ToolTip = "Notas de Crédito Aplicadas" + End If + End If + If CType(sender, GridView).ID = "GvCxPHistorial" Then If e.Row.DBCampo("CveCompra") = "" Then e.Row.BackColor = Drawing.Color.LightGray @@ -1375,39 +1378,11 @@ Partial Class Portal_PortalProveedor End If ObjMovtos.Dispose() Return retorno - End Function + End Function #End Region - -#Region "TAB CONTRASENIA" - - Protected Sub BtnGuardarContraseña_Click(sender As Object, e As EventArgs) Handles BtnGuardarContraseña.Click - - If Decripta(UsuarioActual.Contraseña) = TxtContraseniaActual.Text Then - - Dim ObjUsuario As New ClsSisUsuarios - Dim Usuario As Usuario = Nothing - If ObjUsuario.GetUsuariosPortal(UsuarioActual.CveUsuario, -1, -1) Then - - Dim dr As DataRow = ObjUsuario.DtResultados.FiltroPrimero("") - - If ObjUsuario.UpdateUsuarioPortal(dr("Usuario").ToString, dr("Nombre").ToString, dr("Correo").ToString, True, Encripta(TxtContrasenia1.Text), dr("CveCliente").ToString.ToEntero, dr("CveProveedor").ToString.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveUsuario) Then - UsuarioActual.Contraseña = Encripta(TxtContrasenia1.Text) - Alert("Contraseña Modificada.", TipoMensaje.MsgInformacion) - - End If - End If - - ObjUsuario.Dispose() - Else - Alert("La Contraseña Actual es incorrecta.", TipoMensaje.MsgAdvertencia) - End If - - End Sub -#End Region - - + #Region "AUDITORIA" - + Property DTDocumentacion As DataTable Get If ViewState("DTDocumentacion") Is Nothing Then