diff --git a/Contabilidad2/RepAnexoCatalogoAnual.aspx b/Contabilidad2/RepAnexoCatalogoAnual.aspx
index 8789e9f31..fc12ba75c 100644
--- a/Contabilidad2/RepAnexoCatalogoAnual.aspx
+++ b/Contabilidad2/RepAnexoCatalogoAnual.aspx
@@ -56,16 +56,16 @@
Ejercicio Inicio:
-
+
Ejercicio Fin:
-
+
Periodo:
-
+
@@ -83,7 +83,7 @@
SubProyecto:
-
+
Divisor:
@@ -93,6 +93,18 @@
+ Cuenta:
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Contabilidad2/RepAnexoCatalogoAnual.aspx.vb b/Contabilidad2/RepAnexoCatalogoAnual.aspx.vb
index ef64e84a7..f88da1720 100644
--- a/Contabilidad2/RepAnexoCatalogoAnual.aspx.vb
+++ b/Contabilidad2/RepAnexoCatalogoAnual.aspx.vb
@@ -137,9 +137,12 @@ Partial Class Contabilidad2_RepAnexoCatalogoAnual
DdlSubProyecto.SelectedValueExist(SubProyectoParametro.ToString)
DdlDivisor.SelectedValueExist(DivisorParametro.ToString)
- DdlPeriodo.SelectedValueExist(Periodo)
-
- CargaDatos()
+ DdlPeriodo.SelectedValueExist(Periodo)
+
+ If CveCuenta > 0 Then
+ DdlCuentas.SelectedValueExist(CveCuenta)
+ CargaDatos()
+ End If
End If
End Sub
@@ -158,9 +161,21 @@ Partial Class Contabilidad2_RepAnexoCatalogoAnual
Else
DdlEjercicio.DataSource = Nothing
DdlEjercicio2.DataSource = Nothing
+ End If
+
+ Dim strGlobal As String = ""
+
+ If Conta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
+ Dim dr As DataRow = Conta.DtResultados.FiltroPrimero("Codigo IN ('_GLOBAL')")
+ If dr IsNot Nothing Then strGlobal = dr.Item(0).ToString
+ DdlCuentas.DataSource = Conta.DtResultados
End If
+
+
Conta.Dispose()
+ DdlCuentas.DataBind()
+
DdlEjercicio.DataBind()
DdlEjercicio2.DataBind()
@@ -181,8 +196,8 @@ Partial Class Contabilidad2_RepAnexoCatalogoAnual
Private Sub CargaDatos()
- If CveCuenta <= -1 Then
- Alert("No hay una cuenta expecificada.", TipoMensaje.MsgAdvertencia)
+ If Not DdlCuentas.SelectedValue.ToEntero > 0 Then
+ Alert("Debe de seleccionar una cuenta.")
Exit Sub
End If
diff --git a/Contabilidad2/RepAnexoCatalogoCC.aspx b/Contabilidad2/RepAnexoCatalogoCC.aspx
index 0a34338fd..fce33e0af 100644
--- a/Contabilidad2/RepAnexoCatalogoCC.aspx
+++ b/Contabilidad2/RepAnexoCatalogoCC.aspx
@@ -88,6 +88,20 @@
+
+ Cuenta:
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Contabilidad2/RepAnexoCatalogoCC.aspx.vb b/Contabilidad2/RepAnexoCatalogoCC.aspx.vb
index 55871e9f4..50a086700 100644
--- a/Contabilidad2/RepAnexoCatalogoCC.aspx.vb
+++ b/Contabilidad2/RepAnexoCatalogoCC.aspx.vb
@@ -106,10 +106,16 @@ Partial Class Contabilidad2_RepAnexoCatalogoCC
DdlEjercicio.SelectedValueExist(EjercicioParametro.ToString)
DdlSubProyecto.SelectedValueExist(SubProyectoParametro.ToString)
DdlDivisor.SelectedValueExist(DivisorParametro.ToString)
- DdlPeriodo.SelectedValueExist(Periodo)
-
- CargaDatos()
-
+ DdlPeriodo.SelectedValueExist(Periodo)
+
+
+ If CveCuenta > 0 Then
+ DdlCuentas.SelectedValueExist(CveCuenta)
+ CargaDatos()
+ End If
+
+
+
End If
End Sub
@@ -125,18 +131,38 @@ Partial Class Contabilidad2_RepAnexoCatalogoCC
DdlEjercicio.DataSource = Conta.DtResultados
Else
DdlEjercicio.DataSource = Nothing
+ End If
+
+ Dim strGlobal As String = ""
+
+ If Conta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
+ Dim dr As DataRow = Conta.DtResultados.FiltroPrimero("Codigo IN ('_GLOBAL')")
+ If dr IsNot Nothing Then strGlobal = dr.Item(0).ToString
+ DdlCuentas.DataSource = Conta.DtResultados
End If
+
+
Conta.Dispose()
DdlEjercicio.DataBind()
- DdlEjercicio.SelectedValueExist(Now.Year.ToString)
-
- 'DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa)
- 'DdlSubProyecto.DataBind()
- 'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
- 'DdlSubProyecto.SelectedValue = "-1"
-
+ DdlEjercicio.SelectedValueExist(Now.Year.ToString)
+
+ DdlCuentas.DataBind()
+
+ 'DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa)
+ 'DdlSubProyecto.DataBind()
+ 'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
+ 'DdlSubProyecto.SelectedValue = "-1"
+
+
+
+
+
End Sub
+
+
+
+
#End Region
@@ -147,6 +173,12 @@ Partial Class Contabilidad2_RepAnexoCatalogoCC
Private Sub CargaDatos()
+
+ If Not DdlCuentas.SelectedValue.ToEntero > 0 Then
+ Alert("Debe de seleccionar una cuenta.")
+ Exit Sub
+ End If
+
DTHeaders = New DataTable
DTDatos = New DataTable
Dim Conta As New ClsContabilidad
diff --git a/Contabilidad2/RepAnexoCatalogoMensual.aspx b/Contabilidad2/RepAnexoCatalogoMensual.aspx
index dd41e2feb..b83546560 100644
--- a/Contabilidad2/RepAnexoCatalogoMensual.aspx
+++ b/Contabilidad2/RepAnexoCatalogoMensual.aspx
@@ -56,16 +56,17 @@
+
Ejercicio:
-
+
- Periodo:
+ Periodo:
-
+
@@ -83,7 +84,7 @@
SubProyecto:
-
+
Divisor:
@@ -102,6 +103,20 @@
+ Cuenta:
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Contabilidad2/RepAnexoCatalogoMensual.aspx.vb b/Contabilidad2/RepAnexoCatalogoMensual.aspx.vb
index ed9732f15..ab5fb1a91 100644
--- a/Contabilidad2/RepAnexoCatalogoMensual.aspx.vb
+++ b/Contabilidad2/RepAnexoCatalogoMensual.aspx.vb
@@ -70,11 +70,16 @@ Partial Class Contabilidad2_RepAnexoCatalogoMensual
DdlSubProyecto.SelectedValueExist(SubProyectoParametro.ToString)
DdlDivisor.SelectedValueExist(DivisorParametro.ToString)
DdlPeriodo.SelectedValueExist(Periodo)
- DdlTri.SelectedValueExist(TRCU)
-
-
- CargaDatos()
-
+ DdlTri.SelectedValueExist(TRCU)
+
+ If CveCuenta > 0 Then
+ DdlCuentas.SelectedValueExist(CveCuenta)
+ CargaDatos()
+ End If
+
+
+
+
End If
End Sub
@@ -85,14 +90,28 @@ Partial Class Contabilidad2_RepAnexoCatalogoMensual
End Sub
Private Sub CargaCombos()
+
+
Dim Conta As New ClsContabilidad
If Conta.GetEjercicios(UsuarioActual.CveEmpresa) Then
DdlEjercicio.DataSource = Conta.DtResultados
Else
DdlEjercicio.DataSource = Nothing
+ End If
+
+ Dim strGlobal As String = ""
+
+ If Conta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
+ Dim dr As DataRow = Conta.DtResultados.FiltroPrimero("Codigo IN ('_GLOBAL')")
+ If dr IsNot Nothing Then strGlobal = dr.Item(0).ToString
+ DdlCuentas.DataSource = Conta.DtResultados
End If
+
+
Conta.Dispose()
+ DdlCuentas.DataBind()
+
DdlEjercicio.DataBind()
DdlEjercicio.SelectedValueExist(Now.Year.ToString)
@@ -101,18 +120,27 @@ Partial Class Contabilidad2_RepAnexoCatalogoMensual
DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
DdlSubProyecto.SelectedValue = "-1"
- End Sub
+
+
+ End Sub
#End Region
-
-
+
+
#Region " CARGA DATOS "
Protected Sub BtnCargaAsignados_Click(sender As Object, e As EventArgs) Handles BtnCargaAsignados.Click
CargaDatos()
End Sub
- Private Sub CargaDatos()
+ Private Sub CargaDatos()
+
+
+ If Not DdlCuentas.SelectedValue.ToEntero > 0 Then
+ Alert("Debe de seleccionar una cuenta.")
+ Exit Sub
+ End If
+
Dim Conta As New ClsContabilidad
- If Conta.GetAnexoCatalogoMensual(CveCuenta, DdlEjercicio.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveUsuario, DdlPeriodo.SelectedValue.ToEntero) Then
+ If Conta.GetAnexoCatalogoMensual(DdlCuentas.SelectedValue.ToEntero, DdlEjercicio.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveUsuario, DdlPeriodo.SelectedValue.ToEntero) Then
GvMensual2.DataSource = Conta.DtResultados
Else
GvMensual2.DataSource = Nothing
diff --git a/Contabilidad2/RepEstadoResultadosHorizontal.aspx b/Contabilidad2/RepEstadoResultadosHorizontal.aspx
index b30462cd0..76e29e41b 100644
--- a/Contabilidad2/RepEstadoResultadosHorizontal.aspx
+++ b/Contabilidad2/RepEstadoResultadosHorizontal.aspx
@@ -66,21 +66,21 @@
- Ejercicio Inicio:
+ Ejercicio Inicio:
- Ejercicio Fin:
-
-
+ Ejercicio Fin:
+
- Periodo:
-
-
+ Periodo:
+
-
+
-
-
+
- Divisor:
-
-
+ Divisor:
+
-
+
Trimestre
Cuatrimestre:
-
+
NO
Trimestre
Cuatrimestre
@@ -238,505 +238,580 @@
-
-
+
+
-
+
+
-
-
-
-
-
-
-
- <%-- --%>
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
-
-
-
-
-
-
+
+
-
-
-
-
-
-
+
+
+
+ <%-- --%>
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
- <%--
+ <%--
--%>
- <%-- --%>
-
-
-
-
-
-
-
-
-
-
-
-
+ <%-- --%>
+
+
+
+
+
+
+
+
+
+
+
+
-
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
-
-
-
-
+
+
+
+
+
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
-
-
-
-
-
-
- <%--
+ <%--
--%>
- <%-- --%>
-
-
-
-
-
-
-
-
+ <%-- --%>
+
+
+
+
+
+
+
+
-
-
-
-
-
+
+
+
+
+
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
-
-
-
-
+
+
+
+
+
+
+
-
-
-
-
-
-
+
+
+
+
+
+
+
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
-
-
-
-
-
-
+
+
+
+
+
+
+
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
-
-
-
-
+
+
+
+
+
+
+
-
-
-
-
-
-
+
+
+
+
+
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
-
-
-
-
+
+
+
+
+
+
+
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
+
@@ -759,6 +834,8 @@
+
+
@@ -796,29 +873,41 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
-
-
-
-
+
@@ -828,12 +917,13 @@
-
+
-
+
@@ -851,29 +941,41 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
-
-
-
-
+
@@ -891,13 +993,15 @@
-
+
-
+
@@ -915,31 +1019,43 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
<%--
@@ -949,13 +1065,13 @@
--%>
<%-- --%>
-
+
-
+
@@ -1012,62 +1128,59 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
<%--
@@ -1106,63 +1219,59 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
@@ -1180,7 +1289,7 @@
-
+
@@ -1202,63 +1311,59 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
@@ -1268,7 +1373,7 @@
-
+
diff --git a/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb b/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb
index e34b0a8e5..a7fba26be 100644
--- a/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb
+++ b/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb
@@ -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")
diff --git a/Empresas/32/Formatos/Factura.rdlc b/Empresas/32/Formatos/Factura.rdlc
index a82a05f52..fa57c5e7a 100644
--- a/Empresas/32/Formatos/Factura.rdlc
+++ b/Empresas/32/Formatos/Factura.rdlc
@@ -593,7 +593,7 @@
- =Fields!PS.Value
+ =Fields!PS.Value & " " & Fields!Obs.Value
@@ -1529,6 +1529,14 @@
Normal
+
+ =Parameters!DomicilioSucursal.Value
+
+