From 4eb757fd3184d9d32c6fa6ef4791b235ba7efb89 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 23 Oct 2023 17:18:44 -0700 Subject: [PATCH] =?UTF-8?q?--=20correcci=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- .../RepEstadoResultadosHorizontal.aspx | 22 +--- .../RepEstadoResultadosHorizontal.aspx.vb | 112 +++++++----------- 2 files changed, 47 insertions(+), 87 deletions(-) diff --git a/Contabilidad2/RepEstadoResultadosHorizontal.aspx b/Contabilidad2/RepEstadoResultadosHorizontal.aspx index 90b294e3f..2182ca3a2 100644 --- a/Contabilidad2/RepEstadoResultadosHorizontal.aspx +++ b/Contabilidad2/RepEstadoResultadosHorizontal.aspx @@ -872,14 +872,7 @@ - - - - - - - - + @@ -1218,14 +1211,7 @@ - <%-- - - - - - --%> - - <%----%> + @@ -1234,7 +1220,7 @@ - + <%----%> @@ -1415,7 +1401,7 @@ - + diff --git a/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb b/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb index 983e2b1d0..381008825 100644 --- a/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb +++ b/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb @@ -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 = $"
{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }
" - 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()