En el reporte de utilidades cuando una factura no tiene un pago pondra de color la celda de rentabilidad En reembolsos comprobaciones se habilito la opcion otros ingresos para cuando se seleccione algun cheque

Ventas/RepVentasUtilidad.aspx.vb

@@ -216,7 +216,9 @@ Partial Class Ventas_RepVentasUtilidad
                 e.Row.CssClass = "Totales"
             End If
 
-
+            If e.Row.DBCampo("CveVenta").ToEntero > 0 AndAlso Not CBool(e.Row.DBCampo("TienePago")) Then
+                e.Row.Cells(15).BackColor = Drawing.Color.LightPink
+            End If
 
 
             Dim Liga As String = String.Format("/Ventas/RepVentasUtilidadDetalle.aspx?CveVenta={0}&CveVendedor={1}&FechaI={2:d}&FechaF={3:d}&CveCliente={4}&Orden={5}&CveSubProyecto={6}&CvePS={7}&CveClasificacion={8}",