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>
</div>
</ContentTemplate>
</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="30px" ItemStyle-Font-Size="10px" />
<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">
<ItemTemplate>
<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 HeaderText="%" ItemStyle-Width="30px" ItemStyle-Font-Size="10px" >
<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>
</asp:TemplateField>
<%--<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" >
<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>
<ItemStyle Width="150px" HorizontalAlign="Right" />
</asp:TemplateField>

112
Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb
View File

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