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