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

RepEstadoResultadosHorizontal Porcentajes

Browse Source
This commit is contained in:
Oscar Irigoyen
2022-09-26 08:19:11 -07:00
parent 8b012452a2
commit a9cd34d4d8
9 changed files with 1265 additions and 858 deletions
Download Patch File Download Diff File Expand all files Collapse all files

628
Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb
View File

@@ -782,27 +782,66 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble
Next
Row.Item("Enero") = DtIngresosMesH.SUM("Enero", "NOT CtaMayor in (3,4)")
Row.Item("Febrero") = DtIngresosMesH.SUM("Febrero", "NOT CtaMayor in (3,4)")
Row.Item("Marzo") = DtIngresosMesH.SUM("Marzo", "NOT CtaMayor in (3,4)")
Row.Item("Abril") = DtIngresosMesH.SUM("Abril", "NOT CtaMayor in (3,4)")
Row.Item("Mayo") = DtIngresosMesH.SUM("Mayo", "NOT CtaMayor in (3,4)")
Row.Item("Junio") = DtIngresosMesH.SUM("Junio", "NOT CtaMayor in (3,4)")
Row.Item("Julio") = DtIngresosMesH.SUM("Julio", "NOT CtaMayor in (3,4)")
Row.Item("Agosto") = DtIngresosMesH.SUM("Agosto", "NOT CtaMayor in (3,4)")
Row.Item("Septiembre") = DtIngresosMesH.SUM("Septiembre", "NOT CtaMayor in (3,4)")
Row.Item("Octubre") = DtIngresosMesH.SUM("Octubre", "NOT CtaMayor in (3,4)")
Row.Item("Noviembre") = DtIngresosMesH.SUM("Noviembre", "NOT CtaMayor in (3,4)")
Row.Item("Diciembre") = DtIngresosMesH.SUM("Diciembre", "NOT CtaMayor in (3,4)")
Dim Enero As Decimal = (DtIngresosMesH.SUM("Enero", "NOT CtaMayor in (3,4)")).ToDecimal
Dim Febrero As Decimal = (DtIngresosMesH.SUM("Febrero", "NOT CtaMayor in (3,4)")).ToDecimal
Dim Marzo As Decimal = (DtIngresosMesH.SUM("Marzo", "NOT CtaMayor in (3,4)")).ToDecimal
Dim Abril As Decimal = (DtIngresosMesH.SUM("Abril", "NOT CtaMayor in (3,4)")).ToDecimal
Dim Mayo As Decimal = (DtIngresosMesH.SUM("Mayo", "NOT CtaMayor in (3,4)")).ToDecimal
Dim Junio As Decimal = (DtIngresosMesH.SUM("Junio", "NOT CtaMayor in (3,4)")).ToDecimal
Dim Julio As Decimal = (DtIngresosMesH.SUM("Julio", "NOT CtaMayor in (3,4)")).ToDecimal
Dim Agosto As Decimal = (DtIngresosMesH.SUM("Agosto", "NOT CtaMayor in (3,4)")).ToDecimal
Dim Septiembre As Decimal = (DtIngresosMesH.SUM("Septiembre", "NOT CtaMayor in (3,4)")).ToDecimal
Dim Octubre As Decimal = (DtIngresosMesH.SUM("Octubre", "NOT CtaMayor in (3,4)")).ToDecimal
Dim Noviembre As Decimal = (DtIngresosMesH.SUM("Noviembre", "NOT CtaMayor in (3,4)")).ToDecimal
Dim Diciembre As Decimal = (DtIngresosMesH.SUM("Diciembre", "NOT CtaMayor in (3,4)")).ToDecimal
Dim Tri1 As Decimal = (DtIngresosMesH.SUM("Tri1", "NOT CtaMayor in (3,4)")).ToDecimal
Dim Tri2 As Decimal = (DtIngresosMesH.SUM("Tri2", "NOT CtaMayor in (3,4)")).ToDecimal
Dim Tri3 As Decimal = (DtIngresosMesH.SUM("Tri3", "NOT CtaMayor in (3,4)")).ToDecimal
Dim Tri4 As Decimal = (DtIngresosMesH.SUM("Tri4", "NOT CtaMayor in (3,4)")).ToDecimal
Dim Cua1 As Decimal = (DtIngresosMesH.SUM("Cua1", "NOT CtaMayor in (3,4)")).ToDecimal
Dim Cua2 As Decimal = (DtIngresosMesH.SUM("Cua2", "NOT CtaMayor in (3,4)")).ToDecimal
Dim Cua3 As Decimal = (DtIngresosMesH.SUM("Cua3", "NOT CtaMayor in (3,4)")).ToDecimal
Row.Item("Tri1") = DtIngresosMesH.SUM("Tri1", "NOT CtaMayor in (3,4)")
Row.Item("Tri2") = DtIngresosMesH.SUM("Tri2", "NOT CtaMayor in (3,4)")
Row.Item("Tri3") = DtIngresosMesH.SUM("Tri3", "NOT CtaMayor in (3,4)")
Row.Item("Tri4") = DtIngresosMesH.SUM("Tri4", "NOT CtaMayor in (3,4)")
Row.Item("Cua1") = DtIngresosMesH.SUM("Cua1", "NOT CtaMayor in (3,4)")
Row.Item("Cua2") = DtIngresosMesH.SUM("Cua2", "NOT CtaMayor in (3,4)")
Row.Item("Cua3") = DtIngresosMesH.SUM("Cua3", "NOT CtaMayor in (3,4)")
Row.Item("Enero") = Enero
Row.Item("Febrero") = Febrero
Row.Item("Marzo") = Marzo
Row.Item("Abril") = Abril
Row.Item("Mayo") = Mayo
Row.Item("Junio") = Junio
Row.Item("Julio") = Julio
Row.Item("Agosto") = Agosto
Row.Item("Septiembre") = Septiembre
Row.Item("Octubre") = Octubre
Row.Item("Noviembre") = Noviembre
Row.Item("Diciembre") = Diciembre
Row.Item("Tri1") = Tri1
Row.Item("Tri2") = Tri2
Row.Item("Tri3") = Tri3
Row.Item("Tri4") = Tri4
Row.Item("Cua1") = Cua1
Row.Item("Cua2") = Cua2
Row.Item("Cua3") = Cua3
Row.Item("PorcentajeEnero") = If(Enero <> 0, Enero * 100 / TotalAnterior, 0)
Row.Item("PorcentajeFebrero") = If(Febrero <> 0, Febrero * 100 / TotalAnterior, 0)
Row.Item("PorcentajeMarzo") = If(Marzo <> 0, Marzo * 100 / TotalAnterior, 0)
Row.Item("PorcentajeAbril") = If(Abril <> 0, Abril * 100 / TotalAnterior, 0)
Row.Item("PorcentajeMayo") = If(Mayo <> 0, Mayo * 100 / TotalAnterior, 0)
Row.Item("PorcentajeJunio") = If(Junio <> 0, Junio * 100 / TotalAnterior, 0)
Row.Item("PorcentajeJulio") = If(Julio <> 0, Julio * 100 / TotalAnterior, 0)
Row.Item("PorcentajeAgosto") = If(Agosto <> 0, Agosto * 100 / TotalAnterior, 0)
Row.Item("PorcentajeSeptiembre") = If(Septiembre <> 0, Septiembre * 100 / TotalAnterior, 0)
Row.Item("PorcentajeOctubre") = If(Octubre <> 0, Octubre * 100 / TotalAnterior, 0)
Row.Item("PorcentajeNoviembre") = If(Noviembre <> 0, Noviembre * 100 / TotalAnterior, 0)
Row.Item("PorcentajeDiciembre") = If(Diciembre <> 0, Diciembre * 100 / TotalAnterior, 0)
Row.Item("PorcentajeTri1") = If(Tri1 <> 0, Tri1 * 100 / TotalAnterior, 0)
Row.Item("PorcentajeTri2") = If(Tri2 <> 0, Tri2 * 100 / TotalAnterior, 0)
Row.Item("PorcentajeTri3") = If(Tri3 <> 0, Tri3 * 100 / TotalAnterior, 0)
Row.Item("PorcentajeTri4") = If(Tri4 <> 0, Tri4 * 100 / TotalAnterior, 0)
Row.Item("PorcentajeCua1") = If(Cua1 <> 0, Cua1 * 100 / TotalAnterior, 0)
Row.Item("PorcentajeCua2") = If(Cua2 <> 0, Cua2 * 100 / TotalAnterior, 0)
Row.Item("PorcentajeCua3") = If(Cua3 <> 0, Cua3 * 100 / TotalAnterior, 0)
Row.Item("Nombre") = "TOTAL INGRESOS"
@@ -835,27 +874,66 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Next
Row.Item("Enero") = DtGastosMesH.SUM("Enero", "NOT CtaMayor in (3,4)")
Row.Item("Febrero") = DtGastosMesH.SUM("Febrero", "NOT CtaMayor in (3,4)")
Row.Item("Marzo") = DtGastosMesH.SUM("Marzo", "NOT CtaMayor in (3,4)")
Row.Item("Abril") = DtGastosMesH.SUM("Abril", "NOT CtaMayor in (3,4)")
Row.Item("Mayo") = DtGastosMesH.SUM("Mayo", "NOT CtaMayor in (3,4)")
Row.Item("Junio") = DtGastosMesH.SUM("Junio", "NOT CtaMayor in (3,4)")
Row.Item("Julio") = DtGastosMesH.SUM("Julio", "NOT CtaMayor in (3,4)")
Row.Item("Agosto") = DtGastosMesH.SUM("Agosto", "NOT CtaMayor in (3,4)")
Row.Item("Septiembre") = DtGastosMesH.SUM("Septiembre", "NOT CtaMayor in (3,4)")
Row.Item("Octubre") = DtGastosMesH.SUM("Octubre", "NOT CtaMayor in (3,4)")
Row.Item("Noviembre") = DtGastosMesH.SUM("Noviembre", "NOT CtaMayor in (3,4)")
Row.Item("Diciembre") = DtGastosMesH.SUM("Diciembre", "NOT CtaMayor in (3,4)")
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
Dim Abril As Decimal = (DtGastosMesH.SUM("Abril", "NOT CtaMayor in (3,4)")).ToDecimal
Dim Mayo As Decimal = (DtGastosMesH.SUM("Mayo", "NOT CtaMayor in (3,4)")).ToDecimal
Dim Junio As Decimal = (DtGastosMesH.SUM("Junio", "NOT CtaMayor in (3,4)")).ToDecimal
Dim Julio As Decimal = (DtGastosMesH.SUM("Julio", "NOT CtaMayor in (3,4)")).ToDecimal
Dim Agosto As Decimal = (DtGastosMesH.SUM("Agosto", "NOT CtaMayor in (3,4)")).ToDecimal
Dim Septiembre As Decimal = (DtGastosMesH.SUM("Septiembre", "NOT CtaMayor in (3,4)")).ToDecimal
Dim Octubre As Decimal = (DtGastosMesH.SUM("Octubre", "NOT CtaMayor in (3,4)")).ToDecimal
Dim Noviembre As Decimal = (DtGastosMesH.SUM("Noviembre", "NOT CtaMayor in (3,4)")).ToDecimal
Dim Diciembre As Decimal = (DtGastosMesH.SUM("Diciembre", "NOT CtaMayor in (3,4)")).ToDecimal
Dim Tri1 As Decimal = (DtGastosMesH.SUM("Tri1", "NOT CtaMayor in (3,4)")).ToDecimal
Dim Tri2 As Decimal = (DtGastosMesH.SUM("Tri2", "NOT CtaMayor in (3,4)")).ToDecimal
Dim Tri3 As Decimal = (DtGastosMesH.SUM("Tri3", "NOT CtaMayor in (3,4)")).ToDecimal
Dim Tri4 As Decimal = (DtGastosMesH.SUM("Tri4", "NOT CtaMayor in (3,4)")).ToDecimal
Dim Cua1 As Decimal = (DtGastosMesH.SUM("Cua1", "NOT CtaMayor in (3,4)")).ToDecimal
Dim Cua2 As Decimal = (DtGastosMesH.SUM("Cua2", "NOT CtaMayor in (3,4)")).ToDecimal
Dim Cua3 As Decimal = (DtGastosMesH.SUM("Cua3", "NOT CtaMayor in (3,4)")).ToDecimal
Row.Item("Tri1") = DtGastosMesH.SUM("Tri1", "NOT CtaMayor in (3,4)")
Row.Item("Tri2") = DtGastosMesH.SUM("Tri2", "NOT CtaMayor in (3,4)")
Row.Item("Tri3") = DtGastosMesH.SUM("Tri3", "NOT CtaMayor in (3,4)")
Row.Item("Tri4") = DtGastosMesH.SUM("Tri4", "NOT CtaMayor in (3,4)")
Row.Item("Enero") = Enero
Row.Item("Febrero") = Febrero
Row.Item("Marzo") = Marzo
Row.Item("Abril") = Abril
Row.Item("Mayo") = Mayo
Row.Item("Junio") = Junio
Row.Item("Julio") = Julio
Row.Item("Agosto") = Agosto
Row.Item("Septiembre") = Septiembre
Row.Item("Octubre") = Octubre
Row.Item("Noviembre") = Noviembre
Row.Item("Diciembre") = Diciembre
Row.Item("Tri1") = Tri1
Row.Item("Tri2") = Tri2
Row.Item("Tri3") = Tri3
Row.Item("Tri4") = Tri4
Row.Item("Cua1") = Cua1
Row.Item("Cua2") = Cua2
Row.Item("Cua3") = Cua3
Row.Item("PorcentajeEnero") = If(Enero <> 0, Enero * 100 / TotalAnterior, 0)
Row.Item("PorcentajeFebrero") = If(Febrero <> 0, Febrero * 100 / TotalAnterior, 0)
Row.Item("PorcentajeMarzo") = If(Marzo <> 0, Marzo * 100 / TotalAnterior, 0)
Row.Item("PorcentajeAbril") = If(Abril <> 0, Abril * 100 / TotalAnterior, 0)
Row.Item("PorcentajeMayo") = If(Mayo <> 0, Mayo * 100 / TotalAnterior, 0)
Row.Item("PorcentajeJunio") = If(Junio <> 0, Junio * 100 / TotalAnterior, 0)
Row.Item("PorcentajeJulio") = If(Julio <> 0, Julio * 100 / TotalAnterior, 0)
Row.Item("PorcentajeAgosto") = If(Agosto <> 0, Agosto * 100 / TotalAnterior, 0)
Row.Item("PorcentajeSeptiembre") = If(Septiembre <> 0, Septiembre * 100 / TotalAnterior, 0)
Row.Item("PorcentajeOctubre") = If(Octubre <> 0, Octubre * 100 / TotalAnterior, 0)
Row.Item("PorcentajeNoviembre") = If(Noviembre <> 0, Noviembre * 100 / TotalAnterior, 0)
Row.Item("PorcentajeDiciembre") = If(Diciembre <> 0, Diciembre * 100 / TotalAnterior, 0)
Row.Item("PorcentajeTri1") = If(Tri1 <> 0, Tri1 * 100 / TotalAnterior, 0)
Row.Item("PorcentajeTri2") = If(Tri2 <> 0, Tri2 * 100 / TotalAnterior, 0)
Row.Item("PorcentajeTri3") = If(Tri3 <> 0, Tri3 * 100 / TotalAnterior, 0)
Row.Item("PorcentajeTri4") = If(Tri4 <> 0, Tri4 * 100 / TotalAnterior, 0)
Row.Item("PorcentajeCua1") = If(Cua1 <> 0, Cua1 * 100 / TotalAnterior, 0)
Row.Item("PorcentajeCua2") = If(Cua2 <> 0, Cua2 * 100 / TotalAnterior, 0)
Row.Item("PorcentajeCua3") = If(Cua3 <> 0, Cua3 * 100 / TotalAnterior, 0)
Row.Item("Cua1") = DtGastosMesH.SUM("Cua1", "NOT CtaMayor in (3,4)")
Row.Item("Cua2") = DtGastosMesH.SUM("Cua2", "NOT CtaMayor in (3,4)")
Row.Item("Cua3") = DtGastosMesH.SUM("Cua3", "NOT CtaMayor in (3,4)")
Row.Item("Nombre") = "TOTAL GASTOS"
Row.Item("ImporteActual") = TotalActual
@@ -876,34 +954,72 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Row = DTTotalesMesH.NewRow
Row.Item("Enero") = DtIngresosMesH.SUM("Enero", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Enero", "NOT CtaMayor in (-1,3,4)")
Row.Item("Febrero") = DtIngresosMesH.SUM("Febrero", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Febrero", "NOT CtaMayor in (-1,3,4)")
Row.Item("Marzo") = DtIngresosMesH.SUM("Marzo", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Marzo", "NOT CtaMayor in (-1,3,4)")
Row.Item("Abril") = DtIngresosMesH.SUM("Abril", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Abril", "NOT CtaMayor in (-1,3,4)")
Row.Item("Mayo") = DtIngresosMesH.SUM("Mayo", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Mayo", "NOT CtaMayor in (-1,3,4)")
Row.Item("Junio") = DtIngresosMesH.SUM("Junio", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Junio", "NOT CtaMayor in (-1,3,4)")
Row.Item("Julio") = DtIngresosMesH.SUM("Julio", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Julio", "NOT CtaMayor in (-1,3,4)")
Row.Item("Agosto") = DtIngresosMesH.SUM("Agosto", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Agosto", "NOT CtaMayor in (-1,3,4)")
Row.Item("Septiembre") = DtIngresosMesH.SUM("Septiembre", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Septiembre", "NOT CtaMayor in (-1,3,4)")
Row.Item("Octubre") = DtIngresosMesH.SUM("Octubre", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Octubre", "NOT CtaMayor in (-1,3,4)")
Row.Item("Noviembre") = DtIngresosMesH.SUM("Noviembre", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Noviembre", "NOT CtaMayor in (-1,3,4)")
Row.Item("Diciembre") = DtIngresosMesH.SUM("Diciembre", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Diciembre", "NOT CtaMayor in (-1,3,4)")
Dim ImporteAcumuladoTotal As Decimal = (DtIngresosMesH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)")).ToDecimal
Dim Enero As Decimal = (DtIngresosMesH.SUM("Enero", "Not CtaMayor In (-1, 3, 4)") - DtGastosMesH.SUM("Enero", "Not CtaMayor in (-1,3,4)")).ToDecimal
Dim Febrero As Decimal = (DtIngresosMesH.SUM("Febrero", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Febrero", "NOT CtaMayor in (-1,3,4)")).ToDecimal
Dim Marzo As Decimal = (DtIngresosMesH.SUM("Marzo", "Not CtaMayor In (-1, 3, 4)") - DtGastosMesH.SUM("Marzo", "Not CtaMayor in (-1,3,4)")).ToDecimal
Dim Abril As Decimal = (DtIngresosMesH.SUM("Abril", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Abril", "NOT CtaMayor in (-1,3,4)")).ToDecimal
Dim Mayo As Decimal = (DtIngresosMesH.SUM("Mayo", "Not CtaMayor In (-1, 3, 4)") - DtGastosMesH.SUM("Mayo", "Not CtaMayor in (-1,3,4)")).ToDecimal
Dim Junio As Decimal = (DtIngresosMesH.SUM("Junio", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Junio", "NOT CtaMayor in (-1,3,4)")).ToDecimal
Dim Julio As Decimal = (DtIngresosMesH.SUM("Julio", "Not CtaMayor In (-1, 3, 4)") - DtGastosMesH.SUM("Julio", "Not CtaMayor in (-1,3,4)")).ToDecimal
Dim Agosto As Decimal = (DtIngresosMesH.SUM("Agosto", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Agosto", "NOT CtaMayor in (-1,3,4)")).ToDecimal
Dim Septiembre As Decimal = (DtIngresosMesH.SUM("Septiembre", "Not CtaMayor In (-1, 3, 4)") - DtGastosMesH.SUM("Septiembre", "Not CtaMayor in (-1,3,4)")).ToDecimal
Dim Octubre As Decimal = (DtIngresosMesH.SUM("Octubre", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Octubre", "NOT CtaMayor in (-1,3,4)")).ToDecimal
Dim Noviembre As Decimal = (DtIngresosMesH.SUM("Noviembre", "Not CtaMayor In (-1, 3, 4)") - DtGastosMesH.SUM("Noviembre", "Not CtaMayor in (-1,3,4)")).ToDecimal
Dim Diciembre As Decimal = (DtIngresosMesH.SUM("Diciembre", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Diciembre", "NOT CtaMayor in (-1,3,4)")).ToDecimal
Dim Tri1 As Decimal = (DtIngresosMesH.SUM("Tri1", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Tri1", "NOT CtaMayor in (-1,3,4)")).ToDecimal
Dim Tri2 As Decimal = (DtIngresosMesH.SUM("Tri2", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Tri2", "NOT CtaMayor in (-1,3,4)")).ToDecimal
Dim Tri3 As Decimal = (DtIngresosMesH.SUM("Tri3", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Tri3", "NOT CtaMayor in (-1,3,4)")).ToDecimal
Dim Tri4 As Decimal = (DtIngresosMesH.SUM("Tri4", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Tri4", "NOT CtaMayor in (-1,3,4)")).ToDecimal
Dim Cua1 As Decimal = (DtIngresosMesH.SUM("Cua1", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Cua1", "NOT CtaMayor in (-1,3,4)")).ToDecimal
Dim Cua2 As Decimal = (DtIngresosMesH.SUM("Cua2", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Cua2", "NOT CtaMayor in (-1,3,4)")).ToDecimal
Dim Cua3 As Decimal = (DtIngresosMesH.SUM("Cua3", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Cua3", "NOT CtaMayor in (-1,3,4)")).ToDecimal
Row.Item("Tri1") = DtIngresosMesH.SUM("Tri1", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Tri1", "NOT CtaMayor in (-1,3,4)")
Row.Item("Tri2") = DtIngresosMesH.SUM("Tri2", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Tri2", "NOT CtaMayor in (-1,3,4)")
Row.Item("Tri3") = DtIngresosMesH.SUM("Tri3", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Tri3", "NOT CtaMayor in (-1,3,4)")
Row.Item("Tri4") = DtIngresosMesH.SUM("Tri4", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Tri4", "NOT CtaMayor in (-1,3,4)")
Row.Item("Cua1") = DtIngresosMesH.SUM("Cua1", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Cua1", "NOT CtaMayor in (-1,3,4)")
Row.Item("Cua2") = DtIngresosMesH.SUM("Cua2", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Cua2", "NOT CtaMayor in (-1,3,4)")
Row.Item("Cua3") = DtIngresosMesH.SUM("Cua3", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Cua3", "NOT CtaMayor in (-1,3,4)")
Row.Item("Enero") = Enero
Row.Item("Febrero") = Febrero
Row.Item("Marzo") = Marzo
Row.Item("Abril") = Abril
Row.Item("Mayo") = Mayo
Row.Item("Junio") = Junio
Row.Item("Julio") = Julio
Row.Item("Agosto") = Agosto
Row.Item("Septiembre") = Septiembre
Row.Item("Octubre") = Octubre
Row.Item("Noviembre") = Noviembre
Row.Item("Diciembre") = Diciembre
Row.Item("Tri1") = Tri1
Row.Item("Tri2") = Tri2
Row.Item("Tri3") = Tri3
Row.Item("Tri4") = Tri4
Row.Item("Cua1") = Cua1
Row.Item("Cua2") = Cua2
Row.Item("Cua3") = Cua3
Row.Item("Nombre") = "Resultados del Ejercicio:"
'Row.Item("ImporteActual") = TotalActual.ToString
'Row.Item("PorcentajeActual") = "100.00"
Row.Item("ImporteAcumulado") = DtIngresosMesH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") ' TotalAnterior.ToString
'Row.Item("PorcentajeAcumulado") = "100.00"
'Row.Item("CtaMayor") = -1
Row.Item("PorcentajeEnero") = If(Enero <> 0, Enero * 100 / ImporteAcumuladoTotal, 0)
Row.Item("PorcentajeFebrero") = If(Febrero <> 0, Febrero * 100 / ImporteAcumuladoTotal, 0)
Row.Item("PorcentajeMarzo") = If(Marzo <> 0, Marzo * 100 / ImporteAcumuladoTotal, 0)
Row.Item("PorcentajeAbril") = If(Abril <> 0, Abril * 100 / ImporteAcumuladoTotal, 0)
Row.Item("PorcentajeMayo") = If(Mayo <> 0, Mayo * 100 / ImporteAcumuladoTotal, 0)
Row.Item("PorcentajeJunio") = If(Junio <> 0, Junio * 100 / ImporteAcumuladoTotal, 0)
Row.Item("PorcentajeJulio") = If(Julio <> 0, Julio * 100 / ImporteAcumuladoTotal, 0)
Row.Item("PorcentajeAgosto") = If(Agosto <> 0, Agosto * 100 / ImporteAcumuladoTotal, 0)
Row.Item("PorcentajeSeptiembre") = If(Septiembre <> 0, Septiembre * 100 / ImporteAcumuladoTotal, 0)
Row.Item("PorcentajeOctubre") = If(Octubre <> 0, Octubre * 100 / ImporteAcumuladoTotal, 0)
Row.Item("PorcentajeNoviembre") = If(Noviembre <> 0, Noviembre * 100 / ImporteAcumuladoTotal, 0)
Row.Item("PorcentajeDiciembre") = If(Diciembre <> 0, Diciembre * 100 / ImporteAcumuladoTotal, 0)
Row.Item("PorcentajeTri1") = If(Tri1 <> 0, Tri1 * 100 / ImporteAcumuladoTotal, 0)
Row.Item("PorcentajeTri2") = If(Tri2 <> 0, Tri2 * 100 / ImporteAcumuladoTotal, 0)
Row.Item("PorcentajeTri3") = If(Tri3 <> 0, Tri3 * 100 / ImporteAcumuladoTotal, 0)
Row.Item("PorcentajeTri4") = If(Tri4 <> 0, Tri4 * 100 / ImporteAcumuladoTotal, 0)
Row.Item("PorcentajeCua1") = If(Cua1 <> 0, Cua1 * 100 / ImporteAcumuladoTotal, 0)
Row.Item("PorcentajeCua2") = If(Cua2 <> 0, Cua2 * 100 / ImporteAcumuladoTotal, 0)
Row.Item("PorcentajeCua3") = If(Cua3 <> 0, Cua3 * 100 / ImporteAcumuladoTotal, 0)
DTTotalesMesH.Rows.Add(Row)
@@ -921,93 +1037,179 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
If DdlTri.SelectedValue.ToEntero = 0 Then 'ocultar trimestre cuatrimestre
GvIngresosMesH.Columns(4).Visible = False
GvIngresosMesH.Columns(9).Visible = False
GvIngresosMesH.Columns(14).Visible = False
GvIngresosMesH.Columns(18).Visible = False
GvGastosMesH.Columns(4).Visible = False
GvGastosMesH.Columns(9).Visible = False
GvGastosMesH.Columns(14).Visible = False
GvGastosMesH.Columns(18).Visible = False
GvTotalesMesH.Columns(4).Visible = False
GvTotalesMesH.Columns(9).Visible = False
GvTotalesMesH.Columns(14).Visible = False
GvTotalesMesH.Columns(18).Visible = False
GvIngresosMesH.Columns(6).Visible = False
GvIngresosMesH.Columns(7).Visible = False
GvIngresosMesH.Columns(8).Visible = False
GvIngresosMesH.Columns(11).Visible = False
GvIngresosMesH.Columns(12).Visible = False
GvIngresosMesH.Columns(19).Visible = False
GvIngresosMesH.Columns(17).Visible = False
GvIngresosMesH.Columns(18).Visible = False
GvIngresosMesH.Columns(23).Visible = False
GvIngresosMesH.Columns(24).Visible = False
GvIngresosMesH.Columns(27).Visible = False
GvIngresosMesH.Columns(28).Visible = False
GvIngresosMesH.Columns(35).Visible = False
GvIngresosMesH.Columns(36).Visible = False
GvIngresosMesH.Columns(37).Visible = False
GvIngresosMesH.Columns(38).Visible = False
GvGastosMesH.Columns(6).Visible = False
GvGastosMesH.Columns(7).Visible = False
GvGastosMesH.Columns(8).Visible = False
GvGastosMesH.Columns(11).Visible = False
GvGastosMesH.Columns(12).Visible = False
GvGastosMesH.Columns(19).Visible = False
GvGastosMesH.Columns(17).Visible = False
GvGastosMesH.Columns(18).Visible = False
GvGastosMesH.Columns(23).Visible = False
GvGastosMesH.Columns(24).Visible = False
GvGastosMesH.Columns(27).Visible = False
GvGastosMesH.Columns(28).Visible = False
GvGastosMesH.Columns(35).Visible = False
GvGastosMesH.Columns(36).Visible = False
GvGastosMesH.Columns(37).Visible = False
GvGastosMesH.Columns(38).Visible = False
GvTotalesMesH.Columns(6).Visible = False
GvTotalesMesH.Columns(7).Visible = False
GvTotalesMesH.Columns(8).Visible = False
GvTotalesMesH.Columns(11).Visible = False
GvTotalesMesH.Columns(12).Visible = False
GvTotalesMesH.Columns(19).Visible = False
GvTotalesMesH.Columns(17).Visible = False
GvTotalesMesH.Columns(18).Visible = False
GvTotalesMesH.Columns(23).Visible = False
GvTotalesMesH.Columns(24).Visible = False
GvTotalesMesH.Columns(27).Visible = False
GvTotalesMesH.Columns(28).Visible = False
GvTotalesMesH.Columns(35).Visible = False
GvTotalesMesH.Columns(36).Visible = False
GvTotalesMesH.Columns(37).Visible = False
GvTotalesMesH.Columns(38).Visible = False
'GvTotalesMesH.Columns(4).Visible = False
'GvTotalesMesH.Columns(9).Visible = False
'GvTotalesMesH.Columns(14).Visible = False
'GvTotalesMesH.Columns(18).Visible = False
'GvTotalesMesH.Columns(6).Visible = False
'GvTotalesMesH.Columns(12).Visible = False
'GvTotalesMesH.Columns(19).Visible = False
ElseIf DdlTri.SelectedValue.ToEntero = 1 Then 'Mostrar Trimestre
GvIngresosMesH.Columns(4).Visible = True
GvIngresosMesH.Columns(9).Visible = True
GvIngresosMesH.Columns(14).Visible = True
GvIngresosMesH.Columns(7).Visible = True
GvIngresosMesH.Columns(8).Visible = True
GvIngresosMesH.Columns(17).Visible = True
GvIngresosMesH.Columns(18).Visible = True
GvGastosMesH.Columns(4).Visible = True
GvGastosMesH.Columns(9).Visible = True
GvGastosMesH.Columns(14).Visible = True
GvIngresosMesH.Columns(27).Visible = True
GvIngresosMesH.Columns(28).Visible = True
GvIngresosMesH.Columns(35).Visible = True
GvIngresosMesH.Columns(36).Visible = True
GvGastosMesH.Columns(7).Visible = True
GvGastosMesH.Columns(8).Visible = True
GvGastosMesH.Columns(17).Visible = True
GvGastosMesH.Columns(18).Visible = True
GvTotalesMesH.Columns(4).Visible = True
GvTotalesMesH.Columns(9).Visible = True
GvTotalesMesH.Columns(14).Visible = True
GvGastosMesH.Columns(27).Visible = True
GvGastosMesH.Columns(28).Visible = True
GvGastosMesH.Columns(35).Visible = True
GvGastosMesH.Columns(36).Visible = True
GvTotalesMesH.Columns(7).Visible = True
GvTotalesMesH.Columns(8).Visible = True
GvTotalesMesH.Columns(17).Visible = True
GvTotalesMesH.Columns(18).Visible = True
GvTotalesMesH.Columns(27).Visible = True
GvTotalesMesH.Columns(28).Visible = True
GvTotalesMesH.Columns(35).Visible = True
GvTotalesMesH.Columns(36).Visible = True
GvIngresosMesH.Columns(6).Visible = False
GvIngresosMesH.Columns(11).Visible = False
GvIngresosMesH.Columns(12).Visible = False
GvIngresosMesH.Columns(19).Visible = False
GvGastosMesH.Columns(6).Visible = False
GvIngresosMesH.Columns(23).Visible = False
GvIngresosMesH.Columns(24).Visible = False
GvIngresosMesH.Columns(37).Visible = False
GvIngresosMesH.Columns(38).Visible = False
GvGastosMesH.Columns(11).Visible = False
GvGastosMesH.Columns(12).Visible = False
GvGastosMesH.Columns(19).Visible = False
GvTotalesMesH.Columns(6).Visible = False
GvGastosMesH.Columns(23).Visible = False
GvGastosMesH.Columns(24).Visible = False
GvGastosMesH.Columns(37).Visible = False
GvGastosMesH.Columns(38).Visible = False
GvTotalesMesH.Columns(11).Visible = False
GvTotalesMesH.Columns(12).Visible = False
GvTotalesMesH.Columns(19).Visible = False
GvTotalesMesH.Columns(23).Visible = False
GvTotalesMesH.Columns(24).Visible = False
GvTotalesMesH.Columns(37).Visible = False
GvTotalesMesH.Columns(38).Visible = False
'GvTotalesMesH.Columns(4).Visible = True
'GvTotalesMesH.Columns(9).Visible = True
'GvTotalesMesH.Columns(14).Visible = True
'GvTotalesMesH.Columns(18).Visible = True
'GvTotalesMesH.Columns(6).Visible = False
'GvTotalesMesH.Columns(12).Visible = False
'GvTotalesMesH.Columns(19).Visible = False
ElseIf DdlTri.SelectedValue.ToEntero = 2 Then 'Mostrar Cuatrimestre
GvIngresosMesH.Columns(4).Visible = False
GvIngresosMesH.Columns(9).Visible = False
GvIngresosMesH.Columns(14).Visible = False
GvIngresosMesH.Columns(7).Visible = False
GvIngresosMesH.Columns(8).Visible = False
GvIngresosMesH.Columns(17).Visible = False
GvIngresosMesH.Columns(18).Visible = False
GvGastosMesH.Columns(4).Visible = False
GvGastosMesH.Columns(9).Visible = False
GvGastosMesH.Columns(14).Visible = False
GvIngresosMesH.Columns(27).Visible = False
GvIngresosMesH.Columns(28).Visible = False
GvIngresosMesH.Columns(35).Visible = False
GvIngresosMesH.Columns(36).Visible = False
GvGastosMesH.Columns(7).Visible = False
GvGastosMesH.Columns(8).Visible = False
GvGastosMesH.Columns(17).Visible = False
GvGastosMesH.Columns(18).Visible = False
GvTotalesMesH.Columns(4).Visible = False
GvTotalesMesH.Columns(9).Visible = False
GvTotalesMesH.Columns(14).Visible = False
GvGastosMesH.Columns(27).Visible = False
GvGastosMesH.Columns(28).Visible = False
GvGastosMesH.Columns(35).Visible = False
GvGastosMesH.Columns(36).Visible = False
GvTotalesMesH.Columns(7).Visible = False
GvTotalesMesH.Columns(8).Visible = False
GvTotalesMesH.Columns(17).Visible = False
GvTotalesMesH.Columns(18).Visible = False
GvTotalesMesH.Columns(27).Visible = False
GvTotalesMesH.Columns(28).Visible = False
GvTotalesMesH.Columns(35).Visible = False
GvTotalesMesH.Columns(36).Visible = False
GvIngresosMesH.Columns(6).Visible = True
GvIngresosMesH.Columns(11).Visible = True
GvIngresosMesH.Columns(12).Visible = True
GvIngresosMesH.Columns(19).Visible = True
GvGastosMesH.Columns(6).Visible = True
GvIngresosMesH.Columns(23).Visible = True
GvIngresosMesH.Columns(24).Visible = True
GvIngresosMesH.Columns(37).Visible = True
GvIngresosMesH.Columns(38).Visible = True
GvGastosMesH.Columns(11).Visible = True
GvGastosMesH.Columns(12).Visible = True
GvGastosMesH.Columns(19).Visible = True
GvTotalesMesH.Columns(6).Visible = True
GvGastosMesH.Columns(23).Visible = True
GvGastosMesH.Columns(24).Visible = True
GvGastosMesH.Columns(37).Visible = True
GvGastosMesH.Columns(38).Visible = True
GvTotalesMesH.Columns(11).Visible = True
GvTotalesMesH.Columns(12).Visible = True
GvTotalesMesH.Columns(19).Visible = True
GvTotalesMesH.Columns(23).Visible = True
GvTotalesMesH.Columns(24).Visible = True
GvTotalesMesH.Columns(37).Visible = True
GvTotalesMesH.Columns(38).Visible = True
'GvTotalesMesH.Columns(4).Visible = False
'GvTotalesMesH.Columns(9).Visible = False
'GvTotalesMesH.Columns(14).Visible = False
'GvTotalesMesH.Columns(18).Visible = False
'GvTotalesMesH.Columns(6).Visible = True
'GvTotalesMesH.Columns(12).Visible = True
'GvTotalesMesH.Columns(19).Visible = True
End If
@@ -1358,7 +1560,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Dim IDX_LIMPIAR As Integer = 1
For IDX_LIMPIAR = 1 To 25
For IDX_LIMPIAR = 1 To 37
GvIngresosAnualH.Columns(IDX_LIMPIAR).Visible = False
GvGastosAnualH.Columns(IDX_LIMPIAR).Visible = False
@@ -1377,35 +1579,34 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
If IndexData >= 13 Then
If dCoumn.ColumnName.ToEntero > 0 And dCoumn.ColumnName.ToEntero <= DdlEjercicio2.SelectedValue.ToEntero Then
If dCoumn.ColumnName.ToEntero > 0 AndAlso dCoumn.ColumnName.ToEntero <= DdlEjercicio2.SelectedValue.ToEntero Then
CType(GvIngresosAnualH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName
CType(GvIngresosAnualH.Columns(IndexGv), BoundField).HeaderText = dCoumn.ColumnName
listaCamposanios.Add(New String() {dCoumn.ColumnName.ToString(), dCoumn.ColumnName.ToString()})
listaCamposaniosTotal.Add(New String() {dCoumn.ColumnName.ToString(), dCoumn.ColumnName.ToString()})
'CType(GvIngresosAnualH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName
'CType(GvIngresosAnualH.Columns(IndexGv), BoundField).HeaderText = dCoumn.ColumnName
GvIngresosAnualH.Columns(IndexGv).Visible = True
CType(GvIngresosAnualH.Columns(IndexGv + 1), BoundField).DataField = $"Porcentaje{dCoumn.ColumnName}"
CType(GvIngresosAnualH.Columns(IndexGv + 1), BoundField).HeaderText = "%"
GvIngresosAnualH.Columns(IndexGv + 1).Visible = True
CType(GvTotalesAnualH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName
CType(GvTotalesAnualH.Columns(IndexGv), BoundField).HeaderText = dCoumn.ColumnName
'CType(GvTotalesAnualH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName
'CType(GvTotalesAnualH.Columns(IndexGv), BoundField).HeaderText = dCoumn.ColumnName
GvTotalesAnualH.Columns(IndexGv).Visible = True
CType(GvTotalesAnualH.Columns(IndexGv + 1), BoundField).DataField = $"Porcentaje{dCoumn.ColumnName}"
CType(GvTotalesAnualH.Columns(IndexGv + 1), BoundField).HeaderText = "%"
GvTotalesAnualH.Columns(IndexGv + 1).Visible = True
listaCamposanios.Add(New String() {dCoumn.ColumnName.ToString(), dCoumn.ColumnName.ToString()})
listaCamposaniosTotal.Add(New String() {dCoumn.ColumnName.ToString(), dCoumn.ColumnName.ToString()})
IndexMax = IndexData
Else
GvIngresosAnualH.Columns(IndexGv).Visible = False
GvTotalesAnualH.Columns(IndexGv).Visible = False
'GvIngresosAnualH.Columns(IndexGv).Visible = False
'GvTotalesAnualH.Columns(IndexGv).Visible = False
End If
IndexGv = IndexGv + 1
IndexGv = IndexGv + 2
End If
IndexData = IndexData + 1
@@ -1423,8 +1624,11 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
IndexData = 13
For IndexData = 13 To IndexMax
Row.Item(IndexData) = DtIngresosAnualH.SUM($"[{DtIngresosAnualH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)")
Row.Item($"Porcentaje{DtIngresosAnualH.Columns(IndexData).ColumnName}") = DtIngresosAnualH.SUM($"[{DtIngresosAnualH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") * 100 / DtIngresosAnualH.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)")
Next
Row.Item("Nombre") = "TOTAL INGRESOS "
Row.Item("ImporteActual") = DtIngresosAnualH.SUM("ImporteActual", "NOT CtaMayor in (3,4)") 'TotalActual.ToString
Row.Item("PorcentajeActual") = "100.00"
@@ -1465,23 +1669,21 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
CType(GvGastosAnualH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName
CType(GvGastosAnualH.Columns(IndexGv), BoundField).HeaderText = dCoumn.ColumnName
GvGastosAnualH.Columns(IndexGv).Visible = True
CType(GvGastosAnualH.Columns(IndexGv + 1), BoundField).DataField = $"Porcentaje{dCoumn.ColumnName}"
CType(GvGastosAnualH.Columns(IndexGv + 1), BoundField).HeaderText = "%"
GvGastosAnualH.Columns(IndexGv + 1).Visible = True
listaCamposaniosGastos.Add(New String() {dCoumn.ColumnName.ToString(), dCoumn.ColumnName.ToString()})
'CType(GvGastosAnualH.Columns(IndexGv), HyperLinkField).DataNavigateUrlFields = {"CveCuenta", "FechaInicial", "FechaFActual", "CveSubProyecto"}
'CType(GvGastosAnualH.Columns(IndexGv), HyperLinkField).DataNavigateUrlFormatString = "/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}"
'CType(GvGastosAnualH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName
'CType(GvGastosAnualH.Columns(IndexGv), BoundField).HeaderText = dCoumn.ColumnName
GvGastosAnualH.Columns(IndexGv).Visible = True
IndexMax = IndexData
Else
GvGastosAnualH.Columns(IndexGv).Visible = False
End If
IndexGv = IndexGv + 2
IndexGv = IndexGv + 1
End If
IndexData = IndexData + 1
@@ -1496,9 +1698,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
IndexData = 13
For IndexData = 13 To IndexMax
Row.Item(IndexData) = DtGastosAnualH.SUM($"[{DtIngresosAnualH.Columns(IndexData).ColumnName}]", "Not CtaMayor In (3,4)")
Row.Item(IndexData) = DtGastosAnualH.SUM($"[{DtGastosAnualH.Columns(IndexData).ColumnName}]", "Not CtaMayor In (3,4)")
Row.Item($"Porcentaje{DtGastosAnualH.Columns(IndexData).ColumnName}") = DtGastosAnualH.SUM($"[{DtGastosAnualH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") * 100 / DtGastosAnualH.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)")
Next
Row.Item("Nombre") = "TOTAL GASTOS"
@@ -1525,6 +1726,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
IndexData = 13
For IndexData = 13 To IndexMax
Row.Item(IndexData) = DtIngresosAnualH.SUM($"[{DtIngresosAnualH.Columns(IndexData).ColumnName}]", "Not CtaMayor In (-1,3,4)") - DtGastosAnualH.SUM($"[{DtGastosAnualH.Columns(IndexData).ColumnName}]", "Not CtaMayor In (-1,3,4)")
Row.Item($"Porcentaje{DtIngresosAnualH.Columns(IndexData).ColumnName}") = DtIngresosAnualH.SUM($"[{DtIngresosAnualH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1,3,4)") * 100 / DtIngresosAnualH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)")
Next
Row.Item("Nombre") = "Resultados del Ejercicio"
@@ -1548,8 +1750,6 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
End Sub
Protected Sub GvIngresosAnualH_RowDataBound(sender As Object, e As GridViewRowEventArgs)
If e.Row.RowType = DataControlRowType.DataRow Then
setgraficaCCAnual(e, listaCamposanios)
@@ -1670,9 +1870,9 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Protected Sub GvTotalesAnualH_RowDataBound(sender As Object, e As GridViewRowEventArgs)
If e.Row.RowType = DataControlRowType.Header Then
e.Row.Attributes.Add("style", "display:none")
End If
'If e.Row.RowType = DataControlRowType.Header Then
' e.Row.Attributes.Add("style", "display:none")
'End If
If e.Row.RowType = DataControlRowType.DataRow Then
setgraficaCCAnual(e, listaCamposaniosTotal)
@@ -1784,24 +1984,53 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
For Each dColumn As DataColumn In DtIngresosSubProyectoH.Columns
If IndexData >= 13 Then
If IndexSubProyecto <= IndexSubProyectoMax Then
If GvIngresosSubProyectoH.Columns(IndexGv).GetType.Name = "BoundField" Then
CType(GvIngresosSubProyectoH.Columns(IndexGv), BoundField).DataField = dColumn.ColumnName
GvIngresosSubProyectoH.Columns(IndexGv).Visible = True
CType(GvTotalesSubProyectoH.Columns(IndexGv), BoundField).DataField = dColumn.ColumnName
GvTotalesSubProyectoH.Columns(IndexGv).Visible = True
CType(GvGastosSubProyectoH.Columns(IndexGv), BoundField).DataField = dColumn.ColumnName
GvGastosSubProyectoH.Columns(IndexGv).Visible = True
If IndexSubProyecto <= IndexSubProyectoMax Then
Dim TxtSub As String = GlobalDTSubProyectos(-1, CveSubProyecto:=dColumn.ColumnName.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto")
If dColumn.ColumnName = "SinSubProyecto" Then
TxtSub = "Sin SubProyecto"
End If
CType(GvIngresosSubProyectoH.Columns(IndexGv), BoundField).HeaderText = TxtSub
CType(GvTotalesSubProyectoH.Columns(IndexGv), BoundField).HeaderText = TxtSub
CType(GvGastosSubProyectoH.Columns(IndexGv), BoundField).HeaderText = TxtSub
End If
listaCampos.Add(New String() {dColumn.ColumnName.ToString(), DTSubProyectosCabecerasH.Rows(IndexSubProyecto)(0).ToString()})
CType(GvTotalesSubProyectoH.Columns(IndexGv), BoundField).HeaderText = TxtSub
CType(GvGastosSubProyectoH.Columns(IndexGv), BoundField).HeaderText = TxtSub
CType(GvIngresosSubProyectoH.Columns(IndexGv + 1), BoundField).HeaderText = "%"
CType(GvTotalesSubProyectoH.Columns(IndexGv + 1), BoundField).HeaderText = "%"
CType(GvGastosSubProyectoH.Columns(IndexGv + 1), BoundField).HeaderText = "%"
If (dColumn.ColumnName.ToString.ToEntero > 0 Or dColumn.ColumnName = "SinSubProyecto") Then
CType(GvIngresosSubProyectoH.Columns(IndexGv + 1), BoundField).DataField = $"Porcentaje{dColumn.ColumnName}"
GvIngresosSubProyectoH.Columns(IndexGv + 1).Visible = True
CType(GvTotalesSubProyectoH.Columns(IndexGv + 1), BoundField).DataField = $"Porcentaje{dColumn.ColumnName}"
GvTotalesSubProyectoH.Columns(IndexGv + 1).Visible = True
CType(GvGastosSubProyectoH.Columns(IndexGv + 1), BoundField).DataField = $"Porcentaje{dColumn.ColumnName}"
GvGastosSubProyectoH.Columns(IndexGv + 1).Visible = True
End If
End If
listaCampos.Add(New String() {dColumn.ColumnName.ToString(), DTSubProyectosCabecerasH.Rows(IndexSubProyecto)(0).ToString()})
End If
Else
@@ -1814,16 +2043,21 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
End If
IndexGv = IndexGv + 1
IndexGv = IndexGv + 2
IndexSubProyecto = IndexSubProyecto + 1
IndexMax = IndexMax + 1
End If
IndexData = IndexData + 1
If dColumn.ColumnName = "SinSubProyecto" Then
Exit For
End If
Next
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
TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble
Next
@@ -1831,14 +2065,18 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
IndexData = 13
For IndexData = 13 To IndexTotales
If DtIngresosSubProyectoH.Columns(IndexData).ColumnName.ToEntero > 0 Then 'filtro solo los que tienen número
Row.Item(IndexData) = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)")
Row.Item(IndexData) = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "Not CtaMayor In (3,4)")
Row.Item($"Porcentaje{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}") = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") * 100 / DtIngresosSubProyectoH.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)")
End If
Next
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.00"
Row.Item("ImporteAcumulado") = DtIngresosSubProyectoH.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)") 'TotalAnterior.ToString
Row.Item("ImporteAcumulado") = DtIngresosSubProyectoH.SUM("ImporteAcumulado", "Not CtaMayor In (3,4)") 'TotalAnterior.ToString
Row.Item("PorcentajeAcumulado") = "100.00"
Row.Item("CtaMayor") = -1
Row.Item("CountDinamico") = DtIngresosSubProyectoH.MAX("CountDinamico")
@@ -1859,67 +2097,6 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Row = DtGastosSubProyectoH.NewRow
If DtGastosSubProyectoH.Rows.Count > 1 Then
IndexData = 0
IndexGv = 1
IndexMax = 0
IndexSubProyecto = 0
For Each dCoumn As DataColumn In DtIngresosSubProyectoH.Columns
If IndexData >= 13 Then
If IndexSubProyecto <= IndexSubProyectoMAx Then
If GvIngresosSubProyectoH.Columns(IndexGv).GetType.Name = "BoundField" Then
CType(GvGastosSubProyectoH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName
GvGastosSubProyectoH.Columns(IndexGv).Visible = True
CType(GvTotalesSubProyectoH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName
GvTotalesSubProyectoH.Columns(IndexGv).Visible = True
End If
Else
If IndexGv < DtIngresosSubProyectoH.Columns.Count AndAlso IndexGv < GvIngresosSubProyectoH.Columns.Count Then
GvIngresosSubProyectoH.Columns(IndexGv).Visible = False
GvTotalesSubProyectoH.Columns(IndexGv).Visible = False
Else
Exit For
End If
End If
IndexGv = IndexGv + 1
IndexSubProyecto = IndexSubProyecto + 1
End If
IndexData = IndexData + 1
Next
For Each dr As DataRow In DtGastosSubProyectoH.FiltraParametros("NOT CtaMayor in (3,4)").Rows
TotalActual += dr("ImporteActual").ToString.ToDouble
TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble
Next
IndexData = 13
For IndexData = 13 To IndexTotales
If DtIngresosSubProyectoH.Columns(IndexData).ColumnName.ToEntero > 0 Then 'filtro solo los que tienen número
Row.Item(IndexData) = DtGastosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)")
End If
Next
Row.Item("Nombre") = "TOTAL GASTOS"
Row.Item("ImporteActual") = TotalActual
Row.Item("PorcentajeActual") = If(T1 > 0, (TotalActual * 100 / T1).ToString, "0").FormatoNumero
Row.Item("ImporteAcumulado") = TotalAnterior.ToString
Row.Item("PorcentajeAcumulado") = If(T2 > 0, (TotalAnterior * 100 / T2).ToString, "0").FormatoNumero
Row.Item("CtaMayor") = -1
Row.Item("CountDinamico") = DtGastosSubProyectoH.MAX("CountDinamico")
DtGastosSubProyectoH.Rows.Add(Row)
Else
Row.Item("Nombre") = "TOTAL GASTOS"
Row.Item("ImporteActual") = "0.00"
Row.Item("ImporteAcumulado") = "0.00"
Row.Item("CtaMayor") = -1
DtGastosSubProyectoH.Rows.Add(Row)
End If
If DtIngresosSubProyectoH.Rows.Count > 0 Then
Row = DTTotalesSubProyectoH.NewRow
@@ -1927,12 +2104,13 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
IndexData = 13
For IndexData = 13 To IndexTotales
If DtIngresosSubProyectoH.Columns(IndexData).ColumnName.ToEntero > 0 Then 'filtro solo los que tienen número
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)")
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)")
End If
Next
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("CountDinamico") = DtIngresosSubProyectoH.MAX("CountDinamico")