RepEstadoResultadosHorizontal Porcentajes

Contabilidad2/RepAnexoCatalogoAnual.aspx

@@ -56,16 +56,16 @@
                             <ul class="list-inline" style="font-size: 12px;">
                                 <li>Ejercicio Inicio:              
                                    
-                                    <asp:DropDownList ID="DdlEjercicio" runat="server" DataTextField="Ejercicio" DataValueField="Ejercicio" CssClass="form-control input-sm select2me" Style="width: 250px !important;" ValidationGroup="GrpCargaAsignados"></asp:DropDownList>
+                                    <asp:DropDownList ID="DdlEjercicio" runat="server" DataTextField="Ejercicio" DataValueField="Ejercicio" CssClass="form-control input-sm select2me" Style="width: 80px !important;" ValidationGroup="GrpCargaAsignados"></asp:DropDownList>
                                 </li>
                                 <li>Ejercicio Fin:              
                                    
-                                    <asp:DropDownList ID="DdlEjercicio2" runat="server" DataTextField="Ejercicio" DataValueField="Ejercicio" CssClass="form-control input-sm select2me" Style="width: 250px !important;" ValidationGroup="GrpCargaAsignados"></asp:DropDownList>
+                                    <asp:DropDownList ID="DdlEjercicio2" runat="server" DataTextField="Ejercicio" DataValueField="Ejercicio" CssClass="form-control input-sm select2me" Style="width: 80px !important;" ValidationGroup="GrpCargaAsignados"></asp:DropDownList>
                                 </li>
                                 <li>
                                     <label class="col-md-2" style="width: 80px;" runat="server" id="LiPeriodoLbl">Periodo: </label>
 
-                                    <asp:DropDownList ID="DdlPeriodo" runat="server" Width="150px" CssClass="select2me">
+                                    <asp:DropDownList ID="DdlPeriodo" runat="server"  CssClass="select2me">
                                         <asp:ListItem Text="Enero" Value="1"></asp:ListItem>
                                         <asp:ListItem Text="Febrero" Value="2"></asp:ListItem>
                                         <asp:ListItem Text="Marzo" Value="3"></asp:ListItem>
@@ -83,7 +83,7 @@
                                 </li>
                                 <li>SubProyecto:              
                                    
-                                    <asp:DropDownList ID="DdlSubProyecto" Width="230px" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me"></asp:DropDownList>
+                                    <asp:DropDownList ID="DdlSubProyecto" Width="180px" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me"></asp:DropDownList>
                                 </li>
                                 <li>Divisor:              
                                    
@@ -93,6 +93,18 @@
                                         <asp:ListItem Text="1,000,000" Value="1000000"></asp:ListItem>
                                     </asp:DropDownList>
                                 </li>
+                                 <li>Cuenta:
+                                </li>
+                                <li>
+                                    <asp:DropDownList ID="DdlCuentas" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="CveCuenta" CssClass="form-control input-sm select2me" Enabled="true" Width="350px">
+                                        <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                                    </asp:DropDownList>
+                                    <asp:RequiredFieldValidator ID="RFVDdlCuentas" runat="server" InitialValue="-1" ControlToValidate="DdlCuentas" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuenta''</b> es necesario, por favor ingréselo." ValidationGroup="GrpConsulta"></asp:RequiredFieldValidator>
+                                    <ajax:ValidatorCalloutExtender ID="CERFVDdlCuentas" runat="server" HighlightCssClass="vco" TargetControlID="RFVDdlCuentas" Width="350px"></ajax:ValidatorCalloutExtender>
+
+
+                                </li>
+
                             </ul>
                         </div>
                     </div>

Contabilidad2/RepAnexoCatalogoAnual.aspx.vb

@@ -139,7 +139,10 @@ Partial Class Contabilidad2_RepAnexoCatalogoAnual
 
             DdlPeriodo.SelectedValueExist(Periodo)
 
-            CargaDatos()
+            If CveCuenta > 0 Then
+                DdlCuentas.SelectedValueExist(CveCuenta)
+                CargaDatos()
+            End If
 
         End If
     End Sub
@@ -159,8 +162,20 @@ Partial Class Contabilidad2_RepAnexoCatalogoAnual
             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
+        If Not DdlCuentas.SelectedValue.ToEntero > 0 Then
-            Alert("No hay una cuenta expecificada.", TipoMensaje.MsgAdvertencia)
+            Alert("Debe de seleccionar una cuenta.")
             Exit Sub
         End If
 

Contabilidad2/RepAnexoCatalogoCC.aspx

@@ -88,6 +88,20 @@
                                         <asp:ListItem Text="1,000,000" Value="1000000"></asp:ListItem>
                                     </asp:DropDownList>
                                 </li>
+
+                                    <li>Cuenta:
+                            </li>
+                            <li>
+                                <asp:DropDownList ID="DdlCuentas" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="CveCuenta" CssClass="form-control input-sm select2me" Enabled="true" Width="350px">
+                                    <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                                </asp:DropDownList>
+                                <asp:RequiredFieldValidator ID="RFVDdlCuentas" runat="server" InitialValue="-1" ControlToValidate="DdlCuentas" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuenta''</b> es necesario, por favor ingréselo." ValidationGroup="GrpConsulta"></asp:RequiredFieldValidator>
+                                <ajax:ValidatorCalloutExtender ID="CERFVDdlCuentas" runat="server" HighlightCssClass="vco" TargetControlID="RFVDdlCuentas" Width="350px"></ajax:ValidatorCalloutExtender>
+
+
+                            </li>
+
+
                             </ul>
                         </div>
                     </div>

Contabilidad2/RepAnexoCatalogoCC.aspx.vb

@@ -108,7 +108,13 @@ Partial Class Contabilidad2_RepAnexoCatalogoCC
             DdlDivisor.SelectedValueExist(DivisorParametro.ToString)
             DdlPeriodo.SelectedValueExist(Periodo)
 
-            CargaDatos()
+
+            If CveCuenta > 0 Then
+                DdlCuentas.SelectedValueExist(CveCuenta)
+                CargaDatos()
+            End If
+
+
 
         End If
     End Sub
@@ -126,17 +132,37 @@ Partial Class Contabilidad2_RepAnexoCatalogoCC
         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)
 
+        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

Contabilidad2/RepAnexoCatalogoMensual.aspx

@@ -56,16 +56,17 @@
                             <asp:Button ID="BtnCargaAsignados" runat="server" Text="Consultar" class="btn btn-default" />
                         </div>
                         <div class="titlefiltros caption ">
+
                             <ul class="list-inline" style="font-size: 12px;">
                                 <li>Ejercicio:              
                                    
-                                    <asp:DropDownList ID="DdlEjercicio" runat="server" DataTextField="Ejercicio" DataValueField="Ejercicio" CssClass="form-control input-sm select2me" Style="width: 250px !important;" ValidationGroup="GrpCargaAsignados"></asp:DropDownList>
+                                    <asp:DropDownList ID="DdlEjercicio" runat="server" DataTextField="Ejercicio" DataValueField="Ejercicio" CssClass="form-control input-sm select2me" Style="width: 100px !important;" ValidationGroup="GrpCargaAsignados"></asp:DropDownList>
                                 </li>
 
                                 <li>
-                                    <label class="col-md-2" style="width: 80px;" runat="server" id="LiPeriodoLbl">Periodo: </label>
+                                    <label class="col-md-1" style="width: 80px;" runat="server" id="LiPeriodoLbl">Periodo: </label>
 
-                                    <asp:DropDownList ID="DdlPeriodo" runat="server" Width="150px" CssClass="select2me">
+                                    <asp:DropDownList ID="DdlPeriodo" runat="server"   CssClass="select2me">
                                         <asp:ListItem Text="Enero" Value="1"></asp:ListItem>
                                         <asp:ListItem Text="Febrero" Value="2"></asp:ListItem>
                                         <asp:ListItem Text="Marzo" Value="3"></asp:ListItem>
@@ -83,7 +84,7 @@
                                 </li>
                                 <li>SubProyecto:              
                                    
-                                    <asp:DropDownList ID="DdlSubProyecto" Width="230px" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me"></asp:DropDownList>
+                                    <asp:DropDownList ID="DdlSubProyecto" Width="180px" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me"></asp:DropDownList>
                                 </li>
                                 <li>Divisor:              
                                    
@@ -102,6 +103,20 @@
                                     </asp:DropDownList>
                                 </li>
 
+                                <li>Cuenta:
+                                </li>
+                                <li>
+                                    <asp:DropDownList ID="DdlCuentas" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="CveCuenta" CssClass="form-control input-sm select2me" Enabled="true" Width="350px">
+                                        <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                                    </asp:DropDownList>
+                                    <asp:RequiredFieldValidator ID="RFVDdlCuentas" runat="server" InitialValue="-1" ControlToValidate="DdlCuentas" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuenta''</b> es necesario, por favor ingréselo." ValidationGroup="GrpConsulta"></asp:RequiredFieldValidator>
+                                    <ajax:ValidatorCalloutExtender ID="CERFVDdlCuentas" runat="server" HighlightCssClass="vco" TargetControlID="RFVDdlCuentas" Width="350px"></ajax:ValidatorCalloutExtender>
+
+
+                                </li>
+
+
+
                                   
                                 
 

Contabilidad2/RepAnexoCatalogoMensual.aspx.vb

@@ -72,8 +72,13 @@ Partial Class Contabilidad2_RepAnexoCatalogoMensual
             DdlPeriodo.SelectedValueExist(Periodo)
             DdlTri.SelectedValueExist(TRCU)
 
+            If CveCuenta > 0 Then
+                DdlCuentas.SelectedValueExist(CveCuenta)
+                CargaDatos()
+            End If
+
+
 
-            CargaDatos()
 
         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,6 +120,8 @@ Partial Class Contabilidad2_RepAnexoCatalogoMensual
         DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
         DdlSubProyecto.SelectedValue = "-1"
 
+
+
     End Sub
 #End Region
 
@@ -110,9 +131,16 @@ Partial Class Contabilidad2_RepAnexoCatalogoMensual
         CargaDatos()
     End Sub
     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

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)")
+            Dim Enero As Decimal = (DtIngresosMesH.SUM("Enero", "NOT CtaMayor in (3,4)")).ToDecimal
-            Row.Item("Febrero") = DtIngresosMesH.SUM("Febrero", "NOT CtaMayor in (3,4)")
+            Dim Febrero As Decimal = (DtIngresosMesH.SUM("Febrero", "NOT CtaMayor in (3,4)")).ToDecimal
-            Row.Item("Marzo") = DtIngresosMesH.SUM("Marzo", "NOT CtaMayor in (3,4)")
+            Dim Marzo As Decimal = (DtIngresosMesH.SUM("Marzo", "NOT CtaMayor in (3,4)")).ToDecimal
-            Row.Item("Abril") = DtIngresosMesH.SUM("Abril", "NOT CtaMayor in (3,4)")
+            Dim Abril As Decimal = (DtIngresosMesH.SUM("Abril", "NOT CtaMayor in (3,4)")).ToDecimal
-            Row.Item("Mayo") = DtIngresosMesH.SUM("Mayo", "NOT CtaMayor in (3,4)")
+            Dim Mayo As Decimal = (DtIngresosMesH.SUM("Mayo", "NOT CtaMayor in (3,4)")).ToDecimal
-            Row.Item("Junio") = DtIngresosMesH.SUM("Junio", "NOT CtaMayor in (3,4)")
+            Dim Junio As Decimal = (DtIngresosMesH.SUM("Junio", "NOT CtaMayor in (3,4)")).ToDecimal
-            Row.Item("Julio") = DtIngresosMesH.SUM("Julio", "NOT CtaMayor in (3,4)")
+            Dim Julio As Decimal = (DtIngresosMesH.SUM("Julio", "NOT CtaMayor in (3,4)")).ToDecimal
-            Row.Item("Agosto") = DtIngresosMesH.SUM("Agosto", "NOT CtaMayor in (3,4)")
+            Dim Agosto As Decimal = (DtIngresosMesH.SUM("Agosto", "NOT CtaMayor in (3,4)")).ToDecimal
-            Row.Item("Septiembre") = DtIngresosMesH.SUM("Septiembre", "NOT CtaMayor in (3,4)")
+            Dim Septiembre As Decimal = (DtIngresosMesH.SUM("Septiembre", "NOT CtaMayor in (3,4)")).ToDecimal
-            Row.Item("Octubre") = DtIngresosMesH.SUM("Octubre", "NOT CtaMayor in (3,4)")
+            Dim Octubre As Decimal = (DtIngresosMesH.SUM("Octubre", "NOT CtaMayor in (3,4)")).ToDecimal
-            Row.Item("Noviembre") = DtIngresosMesH.SUM("Noviembre", "NOT CtaMayor in (3,4)")
+            Dim Noviembre As Decimal = (DtIngresosMesH.SUM("Noviembre", "NOT CtaMayor in (3,4)")).ToDecimal
-            Row.Item("Diciembre") = DtIngresosMesH.SUM("Diciembre", "NOT CtaMayor in (3,4)")
+            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("Enero") = Enero
-            Row.Item("Cua2") = DtIngresosMesH.SUM("Cua2", "NOT CtaMayor in (3,4)")
+            Row.Item("Febrero") = Febrero
-            Row.Item("Cua3") = DtIngresosMesH.SUM("Cua3", "NOT CtaMayor in (3,4)")
+            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)")
+            Dim Enero As Decimal = (DtGastosMesH.SUM("Enero", "NOT CtaMayor in (3,4)")).ToDecimal
-            Row.Item("Febrero") = DtGastosMesH.SUM("Febrero", "NOT CtaMayor in (3,4)")
+            Dim Febrero As Decimal = (DtGastosMesH.SUM("Febrero", "NOT CtaMayor in (3,4)")).ToDecimal
-            Row.Item("Marzo") = DtGastosMesH.SUM("Marzo", "NOT CtaMayor in (3,4)")
+            Dim Marzo As Decimal = (DtGastosMesH.SUM("Marzo", "NOT CtaMayor in (3,4)")).ToDecimal
-            Row.Item("Abril") = DtGastosMesH.SUM("Abril", "NOT CtaMayor in (3,4)")
+            Dim Abril As Decimal = (DtGastosMesH.SUM("Abril", "NOT CtaMayor in (3,4)")).ToDecimal
-            Row.Item("Mayo") = DtGastosMesH.SUM("Mayo", "NOT CtaMayor in (3,4)")
+            Dim Mayo As Decimal = (DtGastosMesH.SUM("Mayo", "NOT CtaMayor in (3,4)")).ToDecimal
-            Row.Item("Junio") = DtGastosMesH.SUM("Junio", "NOT CtaMayor in (3,4)")
+            Dim Junio As Decimal = (DtGastosMesH.SUM("Junio", "NOT CtaMayor in (3,4)")).ToDecimal
-            Row.Item("Julio") = DtGastosMesH.SUM("Julio", "NOT CtaMayor in (3,4)")
+            Dim Julio As Decimal = (DtGastosMesH.SUM("Julio", "NOT CtaMayor in (3,4)")).ToDecimal
-            Row.Item("Agosto") = DtGastosMesH.SUM("Agosto", "NOT CtaMayor in (3,4)")
+            Dim Agosto As Decimal = (DtGastosMesH.SUM("Agosto", "NOT CtaMayor in (3,4)")).ToDecimal
-            Row.Item("Septiembre") = DtGastosMesH.SUM("Septiembre", "NOT CtaMayor in (3,4)")
+            Dim Septiembre As Decimal = (DtGastosMesH.SUM("Septiembre", "NOT CtaMayor in (3,4)")).ToDecimal
-            Row.Item("Octubre") = DtGastosMesH.SUM("Octubre", "NOT CtaMayor in (3,4)")
+            Dim Octubre As Decimal = (DtGastosMesH.SUM("Octubre", "NOT CtaMayor in (3,4)")).ToDecimal
-            Row.Item("Noviembre") = DtGastosMesH.SUM("Noviembre", "NOT CtaMayor in (3,4)")
+            Dim Noviembre As Decimal = (DtGastosMesH.SUM("Noviembre", "NOT CtaMayor in (3,4)")).ToDecimal
-            Row.Item("Diciembre") = DtGastosMesH.SUM("Diciembre", "NOT CtaMayor in (3,4)")
+            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("Enero") = Enero
-            Row.Item("Tri2") = DtGastosMesH.SUM("Tri2", "NOT CtaMayor in (3,4)")
+            Row.Item("Febrero") = Febrero
-            Row.Item("Tri3") = DtGastosMesH.SUM("Tri3", "NOT CtaMayor in (3,4)")
+            Row.Item("Marzo") = Marzo
-            Row.Item("Tri4") = DtGastosMesH.SUM("Tri4", "NOT CtaMayor in (3,4)")
+            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)")
+            Dim ImporteAcumuladoTotal As Decimal = (DtIngresosMesH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)")).ToDecimal
-            Row.Item("Febrero") = DtIngresosMesH.SUM("Febrero", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Febrero", "NOT CtaMayor in (-1,3,4)")
+            Dim Enero As Decimal = (DtIngresosMesH.SUM("Enero", "Not CtaMayor In (-1, 3, 4)") - DtGastosMesH.SUM("Enero", "Not CtaMayor in (-1,3,4)")).ToDecimal
-            Row.Item("Marzo") = DtIngresosMesH.SUM("Marzo", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Marzo", "NOT CtaMayor in (-1,3,4)")
+            Dim Febrero As Decimal = (DtIngresosMesH.SUM("Febrero", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Febrero", "NOT CtaMayor in (-1,3,4)")).ToDecimal
-            Row.Item("Abril") = DtIngresosMesH.SUM("Abril", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Abril", "NOT CtaMayor in (-1,3,4)")
+            Dim Marzo As Decimal = (DtIngresosMesH.SUM("Marzo", "Not CtaMayor In (-1, 3, 4)") - DtGastosMesH.SUM("Marzo", "Not CtaMayor in (-1,3,4)")).ToDecimal
-            Row.Item("Mayo") = DtIngresosMesH.SUM("Mayo", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Mayo", "NOT CtaMayor in (-1,3,4)")
+            Dim Abril As Decimal = (DtIngresosMesH.SUM("Abril", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Abril", "NOT CtaMayor in (-1,3,4)")).ToDecimal
-            Row.Item("Junio") = DtIngresosMesH.SUM("Junio", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Junio", "NOT CtaMayor in (-1,3,4)")
+            Dim Mayo As Decimal = (DtIngresosMesH.SUM("Mayo", "Not CtaMayor In (-1, 3, 4)") - DtGastosMesH.SUM("Mayo", "Not CtaMayor in (-1,3,4)")).ToDecimal
-            Row.Item("Julio") = DtIngresosMesH.SUM("Julio", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Julio", "NOT CtaMayor in (-1,3,4)")
+            Dim Junio As Decimal = (DtIngresosMesH.SUM("Junio", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Junio", "NOT CtaMayor in (-1,3,4)")).ToDecimal
-            Row.Item("Agosto") = DtIngresosMesH.SUM("Agosto", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Agosto", "NOT CtaMayor in (-1,3,4)")
+            Dim Julio As Decimal = (DtIngresosMesH.SUM("Julio", "Not CtaMayor In (-1, 3, 4)") - DtGastosMesH.SUM("Julio", "Not CtaMayor in (-1,3,4)")).ToDecimal
-            Row.Item("Septiembre") = DtIngresosMesH.SUM("Septiembre", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Septiembre", "NOT CtaMayor in (-1,3,4)")
+            Dim Agosto As Decimal = (DtIngresosMesH.SUM("Agosto", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Agosto", "NOT CtaMayor in (-1,3,4)")).ToDecimal
-            Row.Item("Octubre") = DtIngresosMesH.SUM("Octubre", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Octubre", "NOT CtaMayor in (-1,3,4)")
+            Dim Septiembre As Decimal = (DtIngresosMesH.SUM("Septiembre", "Not CtaMayor In (-1, 3, 4)") - DtGastosMesH.SUM("Septiembre", "Not CtaMayor in (-1,3,4)")).ToDecimal
-            Row.Item("Noviembre") = DtIngresosMesH.SUM("Noviembre", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Noviembre", "NOT CtaMayor in (-1,3,4)")
+            Dim Octubre As Decimal = (DtIngresosMesH.SUM("Octubre", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Octubre", "NOT CtaMayor in (-1,3,4)")).ToDecimal
-            Row.Item("Diciembre") = DtIngresosMesH.SUM("Diciembre", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Diciembre", "NOT CtaMayor in (-1,3,4)")
+            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("Enero") = Enero
-            Row.Item("Tri2") = DtIngresosMesH.SUM("Tri2", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Tri2", "NOT CtaMayor in (-1,3,4)")
+            Row.Item("Febrero") = Febrero
-            Row.Item("Tri3") = DtIngresosMesH.SUM("Tri3", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Tri3", "NOT CtaMayor in (-1,3,4)")
+            Row.Item("Marzo") = Marzo
-            Row.Item("Tri4") = DtIngresosMesH.SUM("Tri4", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Tri4", "NOT CtaMayor in (-1,3,4)")
+            Row.Item("Abril") = Abril
-
+            Row.Item("Mayo") = Mayo
-            Row.Item("Cua1") = DtIngresosMesH.SUM("Cua1", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Cua1", "NOT CtaMayor in (-1,3,4)")
+            Row.Item("Junio") = Junio
-            Row.Item("Cua2") = DtIngresosMesH.SUM("Cua2", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Cua2", "NOT CtaMayor in (-1,3,4)")
+            Row.Item("Julio") = Julio
-            Row.Item("Cua3") = DtIngresosMesH.SUM("Cua3", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Cua3", "NOT CtaMayor in (-1,3,4)")
+            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(7).Visible = False
-            GvIngresosMesH.Columns(9).Visible = False
+            GvIngresosMesH.Columns(8).Visible = False
-            GvIngresosMesH.Columns(14).Visible = False
+            GvIngresosMesH.Columns(11).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(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(7).Visible = True
-            GvIngresosMesH.Columns(9).Visible = True
+            GvIngresosMesH.Columns(8).Visible = True
-            GvIngresosMesH.Columns(14).Visible = True
+            GvIngresosMesH.Columns(17).Visible = True
             GvIngresosMesH.Columns(18).Visible = True
-
+            GvIngresosMesH.Columns(27).Visible = True
-            GvGastosMesH.Columns(4).Visible = True
+            GvIngresosMesH.Columns(28).Visible = True
-            GvGastosMesH.Columns(9).Visible = True
+            GvIngresosMesH.Columns(35).Visible = True
-            GvGastosMesH.Columns(14).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
-
+            GvGastosMesH.Columns(27).Visible = True
-            GvTotalesMesH.Columns(4).Visible = True
+            GvGastosMesH.Columns(28).Visible = True
-            GvTotalesMesH.Columns(9).Visible = True
+            GvGastosMesH.Columns(35).Visible = True
-            GvTotalesMesH.Columns(14).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
+            GvIngresosMesH.Columns(23).Visible = False
-
+            GvIngresosMesH.Columns(24).Visible = False
-            GvGastosMesH.Columns(6).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
+            GvGastosMesH.Columns(23).Visible = False
-
+            GvGastosMesH.Columns(24).Visible = False
-            GvTotalesMesH.Columns(6).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(7).Visible = False
-            GvIngresosMesH.Columns(9).Visible = False
+            GvIngresosMesH.Columns(8).Visible = False
-            GvIngresosMesH.Columns(14).Visible = False
+            GvIngresosMesH.Columns(17).Visible = False
             GvIngresosMesH.Columns(18).Visible = False
-
+            GvIngresosMesH.Columns(27).Visible = False
-            GvGastosMesH.Columns(4).Visible = False
+            GvIngresosMesH.Columns(28).Visible = False
-            GvGastosMesH.Columns(9).Visible = False
+            GvIngresosMesH.Columns(35).Visible = False
-            GvGastosMesH.Columns(14).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
-
+            GvGastosMesH.Columns(27).Visible = False
-            GvTotalesMesH.Columns(4).Visible = False
+            GvGastosMesH.Columns(28).Visible = False
-            GvTotalesMesH.Columns(9).Visible = False
+            GvGastosMesH.Columns(35).Visible = False
-            GvTotalesMesH.Columns(14).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
+            GvIngresosMesH.Columns(23).Visible = True
-
+            GvIngresosMesH.Columns(24).Visible = True
-            GvGastosMesH.Columns(6).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
+            GvGastosMesH.Columns(23).Visible = True
-
+            GvGastosMesH.Columns(24).Visible = True
-            GvTotalesMesH.Columns(6).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
+                        'GvIngresosAnualH.Columns(IndexGv).Visible = False
-                        GvTotalesAnualH.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($"[{DtGastosAnualH.Columns(IndexData).ColumnName}]", "Not CtaMayor In (3,4)")
-                Row.Item(IndexData) = DtGastosAnualH.SUM($"[{DtIngresosAnualH.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
+        'If e.Row.RowType = DataControlRowType.Header Then
-            e.Row.Attributes.Add("style", "display:none")
+        '    e.Row.Attributes.Add("style", "display:none")
-        End If
+        '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(GvTotalesSubProyectoH.Columns(IndexGv), BoundField).HeaderText = TxtSub
-                                CType(GvGastosSubProyectoH.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(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")
 

Empresas/32/Formatos/Factura.rdlc

@@ -593,7 +593,7 @@
                             <Paragraph>
                               <TextRuns>
                                 <TextRun>
-                                  <Value>=Fields!PS.Value</Value>
+                                  <Value>=Fields!PS.Value &amp; " " &amp; Fields!Obs.Value</Value>
                                   <Style>
                                     <FontSize>8pt</FontSize>
                                   </Style>
@@ -1529,6 +1529,14 @@
                       <FontWeight>Normal</FontWeight>
                     </Style>
                   </TextRun>
+                  <TextRun>
+                    <Value>=Parameters!DomicilioSucursal.Value</Value>
+                    <Style>
+                      <FontFamily>Calibri</FontFamily>
+                      <FontSize>7.5pt</FontSize>
+                      <FontWeight>Normal</FontWeight>
+                    </Style>
+                  </TextRun>
                 </TextRuns>
                 <Style>
                   <TextAlign>Center</TextAlign>