From e1c1d408a908028c461f0bcbd1806d51606b1fc3 Mon Sep 17 00:00:00 2001 From: Oscar Irigoyen Date: Mon, 15 May 2023 15:14:25 -0700 Subject: [PATCH] =?UTF-8?q?Razones=20Fianacieras=20Ratios,=20ajuste=20tama?= =?UTF-8?q?=C3=B1os=20drop=20down=20list,=20Ratios=20poner=20en=20rojo=20n?= =?UTF-8?q?egativos?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Finanzas/RepRazonesFinancieras2.aspx | 4 ++-- Finanzas/RepRazonesFinancieras2.aspx.vb | 18 ++++++++++++++++++ 2 files changed, 20 insertions(+), 2 deletions(-) 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