AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Razones Fianacieras Ratios, ajuste tamaños drop down list, Ratios poner en rojo negativos

Browse Source
This commit is contained in:
Oscar Irigoyen
2023-05-15 15:14:25 -07:00
parent ffb7c402d2
commit e1c1d408a9
2 changed files with 20 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Finanzas/RepRazonesFinancieras2.aspx
View File

@@ -52,13 +52,13 @@
<label class="col-md-1" runat="server" id="LiEjercicioLbl">Ejercicio Inicio: </label>
<div class="col-md-2 " runat="server" id="LiEjercicioDdl">
<asp:DropDownList ID="DdlEjercicio" runat="server" CssClass="select2me" DataTextField="Ejercicio" DataValueField="Ejercicio" Width="100%" AutoPostBack="true" >
<asp:DropDownList ID="DdlEjercicio" runat="server" CssClass="select2me" DataTextField="Ejercicio" DataValueField="Ejercicio" Width="130px" AutoPostBack="true" >
</asp:DropDownList>
</div>
<label class="col-md-1" runat="server" id="LiEjercicioLbl2" visible="True">Ejercicio Fin: </label>
<div class="col-md-2" runat="server" id="LiEjercicioDdl2" visible="True">
<asp:DropDownList ID="DdlEjercicio2" runat="server" CssClass="select2me" DataTextField="Ejercicio" DataValueField="Ejercicio" Width="100%" AutoPostBack="true" >
<asp:DropDownList ID="DdlEjercicio2" runat="server" CssClass="select2me" DataTextField="Ejercicio" DataValueField="Ejercicio" Width="130px" AutoPostBack="true" >
</asp:DropDownList>
</div>
<label class="col-md-2" style="width: 80px;" runat="server" id="LblPeriodo" visible="false" >Periodo: </label>

18
Finanzas/RepRazonesFinancieras2.aspx.vb
View File

@@ -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