diff --git a/Finanzas/RepRazonesFinancieras2.aspx b/Finanzas/RepRazonesFinancieras2.aspx index 653e9f1c8..9fb41239f 100644 --- a/Finanzas/RepRazonesFinancieras2.aspx +++ b/Finanzas/RepRazonesFinancieras2.aspx @@ -52,13 +52,13 @@
- +
- +
diff --git a/Finanzas/RepRazonesFinancieras2.aspx.vb b/Finanzas/RepRazonesFinancieras2.aspx.vb index cad64b484..2b1995842 100644 --- a/Finanzas/RepRazonesFinancieras2.aspx.vb +++ b/Finanzas/RepRazonesFinancieras2.aspx.vb @@ -390,6 +390,18 @@ Partial Class Finanzas_RepRazonesFinancieras2 If e.Row.RowType = DataControlRowType.DataRow Then + For x = 1 To DTRatios.Columns.Count + + If e.Row.DataKey("Ratio") = "INCREMENTO DE VENTAS" Then + Dim asddas = "" + End If + + If e.Row.Cells(x).Text.ToDecimal < 0 Then + e.Row.Cells(x).ForeColor = Drawing.Color.Red + End If + + Next + If e.Row.DataKey("Tipo").ToEntero = 1 Then e.Row.Font.Bold = True End If @@ -425,6 +437,12 @@ Partial Class Finanzas_RepRazonesFinancieras2 End If + + + + + + End If End Sub