From 785a2cb67700b785e69b93efb10ed892df7811cf Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 22 Jun 2021 13:11:07 -0700 Subject: [PATCH] mensajes tooltip sobre los renglones --- Ventas/RepVentasUtilidad.aspx | 2 +- Ventas/RepVentasUtilidad.aspx.vb | 4 ++++ 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/Ventas/RepVentasUtilidad.aspx b/Ventas/RepVentasUtilidad.aspx index d21808115..755ce2a34 100644 --- a/Ventas/RepVentasUtilidad.aspx +++ b/Ventas/RepVentasUtilidad.aspx @@ -244,7 +244,7 @@ - + diff --git a/Ventas/RepVentasUtilidad.aspx.vb b/Ventas/RepVentasUtilidad.aspx.vb index 04c8477c2..cfd0678b8 100644 --- a/Ventas/RepVentasUtilidad.aspx.vb +++ b/Ventas/RepVentasUtilidad.aspx.vb @@ -181,6 +181,9 @@ Partial Class Ventas_RepVentasUtilidad End If If Not e.Row.RowIndex = 0 AndAlso e.Row.DBCampo("SubTotal").ToDecimal = 0 AndAlso e.Row.DBCampo("CveVenta").ToEntero > 0 Then + If e.Row.DBCampo("FechaVenta").ToDate < txtFechaI.Text.ToDate.FirstDayOfMonth Then + e.Row.ToolTip = "Venta con realizada en un periodo anterior" + End If e.Row.CssClass = "danger" ElseIf Not e.Row.RowIndex = 0 AndAlso e.Row.DBCampo("CveVenta") <> "" Then e.Row.Cells(0).BackColor = ColorTranslator.FromHtml("#e9e9e9") @@ -218,6 +221,7 @@ Partial Class Ventas_RepVentasUtilidad If e.Row.DBCampo("CveVenta").ToEntero > 0 AndAlso Not CBool(e.Row.DBCampo("TienePago")) Then e.Row.Cells(15).BackColor = Drawing.Color.LightPink + e.Row.Cells(15).ToolTip = "Factura sin pago registrado" End If