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

-- corrección

Browse Source
This commit is contained in:
rrene
2023-10-23 17:18:44 -07:00
parent 28ac929298
commit 4eb757fd31
2 changed files with 47 additions and 87 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
Contabilidad2/RepEstadoResultadosHorizontal.aspx
View File

@@ -872,14 +872,7 @@
</asp:UpdatePanel> </asp:UpdatePanel>
</div> </div>
</ContentTemplate> </ContentTemplate>
</ajax:TabPanel> </ajax:TabPanel>
@@ -1218,14 +1211,7 @@
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="115px" /> <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="115px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="30px" ItemStyle-Font-Size="10px" /> <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="30px" ItemStyle-Font-Size="10px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="115px" /> <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="115px" />
<%--<asp:TemplateField HeaderText="Período Actual">
<ItemTemplate>
<asp:HyperLink ID="HLActual" runat="server" Text='<%# Eval("ImporteActual", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
</ItemTemplate>
<ItemStyle Width="150px" HorizontalAlign="Right" />
</asp:TemplateField>--%>
<%--<asp:BoundField HeaderText="%" DataField="PorcentajeActual" DataFormatString="{0:N2}" ItemStyle-Width="100px" />--%>
<asp:TemplateField HeaderText="Acumulado"> <asp:TemplateField HeaderText="Acumulado">
<ItemTemplate> <ItemTemplate>
<asp:HyperLink ID="HLAnterior" runat="server" Text='<%# Eval("ImporteAcumulado", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink> <asp:HyperLink ID="HLAnterior" runat="server" Text='<%# Eval("ImporteAcumulado", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
@@ -1234,7 +1220,7 @@
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="%" ItemStyle-Width="30px" ItemStyle-Font-Size="10px" > <asp:TemplateField HeaderText="%" ItemStyle-Width="30px" ItemStyle-Font-Size="10px" >
<ItemTemplate> <ItemTemplate>
<asp:Label ID="LblPorcentajeAcumualdo" runat="server" Text='<%# Eval("PorcentajeAcumulado", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:Label> <asp:Label ID="LblPorcentajeAcumulado" runat="server" Text='<%# Eval("PorcentajeAcumulado", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:Label>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<%--<asp:BoundField HeaderText="%" DataField="PorcentajeAcumulado" DataFormatString="{0:N2}" ItemStyle-Width="100px" />--%> <%--<asp:BoundField HeaderText="%" DataField="PorcentajeAcumulado" DataFormatString="{0:N2}" ItemStyle-Width="100px" />--%>
@@ -1415,7 +1401,7 @@
<asp:TemplateField HeaderText="%" ItemStyle-Width="30px" ItemStyle-Font-Size="10px" > <asp:TemplateField HeaderText="%" ItemStyle-Width="30px" ItemStyle-Font-Size="10px" >
<ItemTemplate> <ItemTemplate>
<asp:Label ID="LblPorcentajeAcumualdo" runat="server" Text='<%# Eval("PorcentajeAcumulado", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:Label> <asp:Label ID="LblPorcentajeAcumulado" runat="server" Text='<%# Eval("PorcentajeAcumulado", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:Label>
</ItemTemplate> </ItemTemplate>
<ItemStyle Width="150px" HorizontalAlign="Right" /> <ItemStyle Width="150px" HorizontalAlign="Right" />
</asp:TemplateField> </asp:TemplateField>

112
Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb
View File

@@ -4,6 +4,7 @@ Option Strict On
Imports System.Data Imports System.Data
Imports System.Drawing Imports System.Drawing
Imports System.IO Imports System.IO
Imports DocumentFormat.OpenXml.VariantTypes
Imports Extensiones Imports Extensiones
Imports GemBox.Spreadsheet Imports GemBox.Spreadsheet
Imports Microsoft.Reporting.WebForms Imports Microsoft.Reporting.WebForms
@@ -597,12 +598,12 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Dim Row As DataRow = DtIngresosMes.NewRow Dim Row As DataRow = DtIngresosMes.NewRow
Dim TotalActual = 0.0, TotalAnterior = 0.0 Dim TotalActual As Decimal = 0, TotalAnterior As Decimal = 0
If DtIngresosMes.Rows.Count > 0 Then If DtIngresosMes.Rows.Count > 0 Then
For Each dr As DataRow In DtIngresosMes.FiltraParametros("NOT CtaMayor in (3,4)").Rows For Each dr As DataRow In DtIngresosMes.FiltraParametros("NOT CtaMayor in (3,4)").Rows
TotalActual += dr("ImporteActual").ToString.ToDouble TotalActual += dr("ImporteActual").ToString.ToDecimal
TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble TotalAnterior += dr("ImporteAcumulado").ToString.ToDecimal
Next Next
Row.Item("Nombre") = "TOTAL INGRESOS " Row.Item("Nombre") = "TOTAL INGRESOS "
@@ -620,7 +621,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
DtIngresosMes.Rows.Add(Row) DtIngresosMes.Rows.Add(Row)
End If End If
Dim T1 = TotalActual, T2 = TotalAnterior Dim T1 As Decimal = TotalActual, T2 As Decimal = TotalAnterior
TotalActual = 0 TotalActual = 0
TotalAnterior = 0 TotalAnterior = 0
@@ -629,8 +630,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
If DtGastosMes.Rows.Count > 0 Then If DtGastosMes.Rows.Count > 0 Then
For Each dr As DataRow In DtGastosMes.FiltraParametros("NOT CtaMayor in (3,4)").Rows For Each dr As DataRow In DtGastosMes.FiltraParametros("NOT CtaMayor in (3,4)").Rows
TotalActual += dr("ImporteActual").ToString.ToDouble TotalActual += dr("ImporteActual").ToString.ToDecimal
TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble TotalAnterior += dr("ImporteAcumulado").ToString.ToDecimal
Next Next
Row.Item("Nombre") = "TOTAL GASTOS" Row.Item("Nombre") = "TOTAL GASTOS"
@@ -807,13 +808,13 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Dim Row As DataRow = DtIngresosMesH.NewRow Dim Row As DataRow = DtIngresosMesH.NewRow
Dim TotalActual = 0.0, TotalAnterior = 0.0 Dim TotalActual As Decimal = 0, TotalAnterior As Decimal = 0
If DtIngresosMesH.Rows.Count > 0 Then If DtIngresosMesH.Rows.Count > 0 Then
For Each dr As DataRow In DtIngresosMesH.FiltraParametros("NOT CtaMayor in (3,4)").Rows For Each dr As DataRow In DtIngresosMesH.FiltraParametros("NOT CtaMayor in (3,4)").Rows
TotalActual += dr("ImporteActual").ToString.ToDouble TotalActual += dr("ImporteActual").ToString.ToDecimal
TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble TotalAnterior += dr("ImporteAcumulado").ToString.ToDecimal
Next Next
Dim Enero As Decimal = (DtIngresosMesH.SUM("Enero", "NOT CtaMayor in (3,4)")).ToDecimal Dim Enero As Decimal = (DtIngresosMesH.SUM("Enero", "NOT CtaMayor in (3,4)")).ToDecimal
@@ -896,20 +897,18 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
DtIngresosMesH.Rows.Add(Row) DtIngresosMesH.Rows.Add(Row)
End If End If
Dim T1 = TotalActual, T2 = TotalAnterior Dim T1 As Decimal = TotalActual, T2 As Decimal = TotalAnterior
TotalActual = 0 TotalActual = 0
TotalAnterior = 0 TotalAnterior = 0
Row = DtGastosMesH.NewRow Row = DtGastosMesH.NewRow
If DtGastosMesH.Rows.Count > 0 Then If DtGastosMesH.Rows.Count > 0 Then
For Each dr As DataRow In DtGastosMesH.FiltraParametros("NOT CtaMayor in (3,4)").Rows For Each dr As DataRow In DtGastosMesH.FiltraParametros("NOT CtaMayor in (3,4)").Rows
TotalActual += dr("ImporteActual").ToString.ToDouble TotalActual += dr("ImporteActual").ToString.ToDecimal
TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble TotalAnterior += dr("ImporteAcumulado").ToString.ToDecimal
Next Next
Dim Enero As Decimal = (DtGastosMesH.SUM("Enero", "NOT CtaMayor in (3,4)")).ToDecimal Dim Enero As Decimal = (DtGastosMesH.SUM("Enero", "NOT CtaMayor in (3,4)")).ToDecimal
Dim Febrero As Decimal = (DtGastosMesH.SUM("Febrero", "NOT CtaMayor in (3,4)")).ToDecimal Dim Febrero As Decimal = (DtGastosMesH.SUM("Febrero", "NOT CtaMayor in (3,4)")).ToDecimal
Dim Marzo As Decimal = (DtGastosMesH.SUM("Marzo", "NOT CtaMayor in (3,4)")).ToDecimal Dim Marzo As Decimal = (DtGastosMesH.SUM("Marzo", "NOT CtaMayor in (3,4)")).ToDecimal
@@ -1631,9 +1630,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Dim Row As DataRow = DtIngresosAnualH.NewRow Dim Row As DataRow = DtIngresosAnualH.NewRow
Dim TotalActual = 0.0, TotalAnterior = 0.0 Dim TotalActual As Decimal = 0, TotalAnterior As Decimal = 0
Dim IndexData As Integer = 0 Dim IndexData As Integer = 0
Dim IndexGv As Integer = 1 Dim IndexGv As Integer = 1
Dim IndexMax As Integer = 1 Dim IndexMax As Integer = 1
@@ -1653,9 +1650,6 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
If DtIngresosAnualH.Rows.Count > 0 Then If DtIngresosAnualH.Rows.Count > 0 Then
For Each dCoumn As DataColumn In DtIngresosAnualH.Columns For Each dCoumn As DataColumn In DtIngresosAnualH.Columns
If IndexData >= 13 Then If IndexData >= 13 Then
@@ -1697,8 +1691,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
For Each dr As DataRow In DtIngresosAnualH.FiltraParametros("NOT CtaMayor in (3,4)").Rows For Each dr As DataRow In DtIngresosAnualH.FiltraParametros("NOT CtaMayor in (3,4)").Rows
TotalActual += dr("ImporteActual").ToString.ToDouble TotalActual += dr("ImporteActual").ToString.ToDecimal
TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble TotalAnterior += dr("ImporteAcumulado").ToString.ToDecimal
Next Next
@@ -1744,7 +1738,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
DtIngresosAnualH.Rows.Add(Row) DtIngresosAnualH.Rows.Add(Row)
End If End If
Dim T1 = TotalActual, T2 = TotalAnterior Dim T1 As Decimal = TotalActual, T2 As Decimal = TotalAnterior
TotalActual = 0 TotalActual = 0
TotalAnterior = 0 TotalAnterior = 0
@@ -1790,8 +1784,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
For Each dr As DataRow In DtGastosAnualH.FiltraParametros("Not CtaMayor In (3,4)").Rows For Each dr As DataRow In DtGastosAnualH.FiltraParametros("Not CtaMayor In (3,4)").Rows
TotalActual += dr("ImporteActual").ToString.ToDouble TotalActual += dr("ImporteActual").ToString.ToDecimal
TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble TotalAnterior += dr("ImporteAcumulado").ToString.ToDecimal
Next Next
IndexData = 13 IndexData = 13
@@ -2098,12 +2092,12 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Dim Row As DataRow = DtIngresosSubProyectoH.NewRow Dim Row As DataRow = DtIngresosSubProyectoH.NewRow
Dim TotalActual = 0.0, TotalAnterior = 0.0 Dim TotalActual As Decimal = 0, TotalAnterior As Decimal = 0
Dim IndexData As Integer = 0 Dim IndexData As Integer = 0
Dim IndexGv As Integer = 1 Dim IndexGv As Integer = 1
Dim IndexMax As Integer = 1 Dim IndexMax As Integer = 1
Dim IndexSubProyecto = 0 Dim IndexSubProyecto As Integer = 0
Dim IndexSubProyectoMax As Integer = DTSubProyectosCabecerasH.Rows.Count - 1 Dim IndexSubProyectoMax As Integer = DTSubProyectosCabecerasH.Rows.Count - 1
If IndexSubProyectoMax > GvIngresosSubProyectoH.Columns.Count - 2 Then If IndexSubProyectoMax > GvIngresosSubProyectoH.Columns.Count - 2 Then
@@ -2198,16 +2192,13 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
If dColumn.ColumnName = "SinSubProyecto" Then If dColumn.ColumnName = "SinSubProyecto" Then
Exit For Exit For
End If End If
Next Next
If DtIngresosSubProyectoH.Rows.Count > 0 Then If DtIngresosSubProyectoH.Rows.Count > 0 Then
For Each dr As DataRow In DtIngresosSubProyectoH.FiltraParametros("Not CtaMayor In (3,4)").Rows For Each dr As DataRow In DtIngresosSubProyectoH.FiltraParametros("Not CtaMayor In (3,4)").Rows
TotalActual += dr("ImporteActual").ToString.ToDouble TotalActual += dr("ImporteActual").ToString.ToDecimal
TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble TotalAnterior += dr("ImporteAcumulado").ToString.ToDecimal
Next Next
IndexData = 13 IndexData = 13
@@ -2231,7 +2222,6 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
End If End If
Next Next
Row.Item("Nombre") = "TOTAL INGRESOS " Row.Item("Nombre") = "TOTAL INGRESOS "
Row.Item("ImporteActual") = DtIngresosSubProyectoH.SUM("ImporteActual", "Not CtaMayor In (3,4)") 'TotalActual.ToString Row.Item("ImporteActual") = DtIngresosSubProyectoH.SUM("ImporteActual", "Not CtaMayor In (3,4)") 'TotalActual.ToString
Row.Item("PorcentajeActual") = 100.0 Row.Item("PorcentajeActual") = 100.0
@@ -2242,9 +2232,6 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
CountDinamicoSubProyecto = DtIngresosSubProyectoH.MAX("CountDinamico").ToEntero CountDinamicoSubProyecto = DtIngresosSubProyectoH.MAX("CountDinamico").ToEntero
DtIngresosSubProyectoH.Rows.Add(Row) DtIngresosSubProyectoH.Rows.Add(Row)
Else Else
Row.Item("Nombre") = "INGRESOS " Row.Item("Nombre") = "INGRESOS "
Row.Item("ImporteActual") = "0.00" Row.Item("ImporteActual") = "0.00"
Row.Item("ImporteAcumulado") = "0.00" Row.Item("ImporteAcumulado") = "0.00"
@@ -2254,7 +2241,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
End If End If
DtIngresosSubProyectoH.Rows.Add(DtIngresosSubProyectoH.NewRow()) DtIngresosSubProyectoH.Rows.Add(DtIngresosSubProyectoH.NewRow())
Dim T1 = TotalActual, T2 = TotalAnterior Dim T1 As Decimal = TotalActual, T2 As Decimal = TotalAnterior
TotalActual = 0 TotalActual = 0
TotalAnterior = 0 TotalAnterior = 0
@@ -2269,23 +2256,20 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
For IndexData = 13 To IndexTotales For IndexData = 13 To IndexTotales
If DtIngresosSubProyectoH.Columns(IndexData).ColumnName.ToEntero > 0 Then 'filtro solo los que tienen número If DtIngresosSubProyectoH.Columns(IndexData).ColumnName.ToEntero > 0 Then 'filtro solo los que tienen número
Dim TotalProyectoIngreso As Decimal = DtIngresosSubProyectoH.FiltroPrimeroValor($"{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}").ToDecimal Dim TotalProyectoIngreso As Decimal = DtIngresosSubProyectoH.SUMD($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1, 3,4)")
Dim TotalProyectoEgreso As Decimal = DtGastosSubProyectoH.FiltroPrimeroValor($"{DtGastosSubProyectoH.Columns(IndexData).ColumnName}").ToDecimal Dim TotalProyectoEgreso As Decimal = DtGastosSubProyectoH.SUMD($"[{DtGastosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1, 3,4)")
Row.Item(IndexData) = TotalProyectoIngreso - TotalProyectoEgreso Row.Item(IndexData) = TotalProyectoIngreso - TotalProyectoEgreso
'Row.Item(IndexData) = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "Not CtaMayor In (-1,3,4)") - DtGastosSubProyectoH.SUM($"[{DtGastosSubProyectoH.Columns(IndexData).ColumnName}]", "Not CtaMayor In (-1,3,4)") 'Row.Item(IndexData) = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "Not CtaMayor In (-1,3,4)") - DtGastosSubProyectoH.SUM($"[{DtGastosSubProyectoH.Columns(IndexData).ColumnName}]", "Not CtaMayor In (-1,3,4)")
If TotalProyectoIngreso <> 0 Or TotalProyectoEgreso <> 0 Then If TotalProyectoIngreso <> 0 Or TotalProyectoEgreso <> 0 Then
If DdlvistaPorcentaje.SelectedValue.ToEntero = 1 Then If DdlvistaPorcentaje.SelectedValue.ToEntero = 1 Then
Row.Item($"Porcentaje{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}") = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1, 3,4)") * 100 / DtIngresosSubProyectoH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") Row.Item($"Porcentaje{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}") = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1, 3,4)") * 100 / DtIngresosSubProyectoH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)")
Row.Item($"Porcentaje{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}") = (TotalProyectoIngreso - TotalProyectoEgreso) * 100 / DtIngresosSubProyectoH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") Row.Item($"Porcentaje{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}") = (TotalProyectoIngreso - TotalProyectoEgreso) * 100 / DtIngresosSubProyectoH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)")
Else Else
Row.Item($"Porcentaje{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}") = (TotalProyectoIngreso - TotalProyectoEgreso) * 100 / TotalProyectoIngreso Row.Item($"Porcentaje{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}") = (TotalProyectoIngreso - TotalProyectoEgreso) * 100 / TotalProyectoIngreso
End If End If
Else Else
Row.Item($"Porcentaje{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}") = "0" Row.Item($"Porcentaje{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}") = "0"
End If End If
@@ -2293,31 +2277,21 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
End If End If
Next Next
Dim totalTemp As Decimal = DtIngresosSubProyectoH.SUMD($"ImporteAcumulado", "Not CtaMayor In (-1,3,4)") - DtGastosSubProyectoH.SUMD($"ImporteAcumulado", "Not CtaMayor In (-1,3,4)") Dim totalTemp As Decimal = DtIngresosSubProyectoH.SUMD($"ImporteAcumulado", "Not CtaMayor In (-1,3,4)") - DtGastosSubProyectoH.SUMD($"ImporteAcumulado", "Not CtaMayor In (-1,3,4)")
Row.Item("Nombre") = "Resultado del ejercicio" Row.Item("Nombre") = "Resultado del ejercicio"
Row.Item("ImporteAcumulado") = DtIngresosSubProyectoH.SUM($"ImporteAcumulado", "Not CtaMayor In (-1,3,4)") - DtGastosSubProyectoH.SUM($"ImporteAcumulado", "Not CtaMayor In (-1,3,4)") Row.Item("ImporteAcumulado") = DtIngresosSubProyectoH.SUM($"ImporteAcumulado", "Not CtaMayor In (-1,3,4)") - DtGastosSubProyectoH.SUM($"ImporteAcumulado", "Not CtaMayor In (-1,3,4)")
Row.Item("CtaMayor") = -2 Row.Item("CtaMayor") = -2
Row.Item("CountDinamico") = DtIngresosSubProyectoH.MAX("CountDinamico").ToString.ToEntero Row.Item("CountDinamico") = DtIngresosSubProyectoH.MAX("CountDinamico").ToString.ToEntero
If DtIngresosSubProyectoH.SUMD($"ImporteAcumulado", "Not CtaMayor In (-1,3,4)") <> 0 Then
Row.Item("PorcentajeAcumulado") = (totalTemp * 100 / DtIngresosSubProyectoH.SUMD($"ImporteAcumulado", "Not CtaMayor In (-1,3,4)")) Row.Item("PorcentajeAcumulado") = (totalTemp * 100 / DtIngresosSubProyectoH.SUMD($"ImporteAcumulado", "Not CtaMayor In (-1,3,4)"))
End If
DTTotalesSubProyectoH.Rows.Add(Row) DTTotalesSubProyectoH.Rows.Add(Row)
End If End If
DtIngresosSubProyectoH.Merge(DtGastosSubProyectoH) DtIngresosSubProyectoH.Merge(DtGastosSubProyectoH)
DtIngresosSubProyectoH.Merge(DTTotalesSubProyectoH) DtIngresosSubProyectoH.Merge(DTTotalesSubProyectoH)
GvIngresosSubProyectoH.DataSource = DtIngresosSubProyectoH GvIngresosSubProyectoH.DataSource = DtIngresosSubProyectoH
GvIngresosSubProyectoH.DataBind() GvIngresosSubProyectoH.DataBind()
'GvIngresosSubProyectoH.Columns(55).Visible = True
'GvIngresosSubProyectoH.Columns(56).Visible = True
UpDatosSubProyectoH.Update() UpDatosSubProyectoH.Update()
End Sub End Sub
@@ -2367,8 +2341,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Dim IndiceMax As Integer = 1 + CountDinamico Dim IndiceMax As Integer = 1 + CountDinamico
Dim FEchaMesFinal As Date = New Date(DdlEjercicio.SelectedValue.ToEntero, DdlPeriodo.SelectedValue.ToEntero, 1).LastDayOfMonth Dim FEchaMesFinal As Date = New Date(DdlEjercicio.SelectedValue.ToEntero, DdlPeriodo.SelectedValue.ToEntero, 1).LastDayOfMonth
If IndiceMax > GvIngresosSubProyectoH.Columns.Count - 2 Then If IndiceMax > GvIngresosSubProyectoH.Columns.Count - 3 Then
IndiceMax = GvIngresosSubProyectoH.Columns.Count - 2 IndiceMax = GvIngresosSubProyectoH.Columns.Count - 3
End If End If
For IndiceInicio = 1 To IndiceMax For IndiceInicio = 1 To IndiceMax
@@ -2392,8 +2366,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero
Dim IndiceInicio As Integer = 1 Dim IndiceInicio As Integer = 1
Dim IndiceMax As Integer = 1 + CountDinamico Dim IndiceMax As Integer = 1 + CountDinamico
If IndiceMax > GvIngresosSubProyectoH.Columns.Count - 2 Then If IndiceMax > GvIngresosSubProyectoH.Columns.Count - 3 Then
IndiceMax = GvIngresosSubProyectoH.Columns.Count - 2 IndiceMax = GvIngresosSubProyectoH.Columns.Count - 3
End If End If
For IndiceInicio = 1 To IndiceMax For IndiceInicio = 1 To IndiceMax
@@ -2406,23 +2380,23 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero
Dim IndiceInicio As Integer = 1 Dim IndiceInicio As Integer = 1
Dim IndiceMax As Integer = 1 + CountDinamico Dim IndiceMax As Integer = 1 + CountDinamico
If IndiceMax > GvIngresosSubProyectoH.Columns.Count - 2 Then If IndiceMax > GvIngresosSubProyectoH.Columns.Count - 3 Then
IndiceMax = GvIngresosSubProyectoH.Columns.Count - 2 IndiceMax = GvIngresosSubProyectoH.Columns.Count - 3
End If End If
For IndiceInicio = 1 To IndiceMax For IndiceInicio = 1 To IndiceMax
Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal
e.Row.Cells(IndiceInicio).Text = $"<div { If(Importe < 0, "style='color:Red;'", "style='color:#000000;'") } ><strong>{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }</strong></div>" e.Row.Cells(IndiceInicio).Text = $"<div { If(Importe < 0, "style='color:Red;'", "style='color:#000000;'") } ><strong>{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }</strong></div>"
Next IndiceInicio Next IndiceInicio
End If End If
'If e.Row.FCHyperLink("HLAnterior") IsNot Nothing Then
e.Row.FCHyperLink("HLAnterior").Text = If(DdlDivisor.SelectedValue.ToEntero > 1, e.Row.DBCampo("ImporteAcumulado").ToString.ToDecimal.ToString("###,###,##0"), e.Row.DBCampo("ImporteAcumulado").ToString.ToDecimal.ToString("###,###,##0.00")) e.Row.FCHyperLink("HLAnterior").Text = If(DdlDivisor.SelectedValue.ToEntero > 1, e.Row.DBCampo("ImporteAcumulado").ToString.ToDecimal.ToString("###,###,##0"), e.Row.DBCampo("ImporteAcumulado").ToString.ToDecimal.ToString("###,###,##0.00"))
If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then
e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red
End If End If
'End If
End If End If
@@ -2546,9 +2520,9 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Dim sr3 As New StreamReader(htmlStream3) Dim sr3 As New StreamReader(htmlStream3)
Dim myStr1 = sr1.ReadToEnd() Dim myStr1 As String = sr1.ReadToEnd()
Dim myStr2 = sr2.ReadToEnd() Dim myStr2 As String = sr2.ReadToEnd()
Dim myStr3 = sr3.ReadToEnd() Dim myStr3 As String = sr3.ReadToEnd()
sr1.Dispose() sr1.Dispose()
sr2.Dispose() sr2.Dispose()