Documetos parametros, Alamacenes, RepEstado resultados(General)

Contabilidad2/RepAnexoCatalogoMensual.aspx

@@ -3,6 +3,11 @@
 <asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
 </asp:Content>
 <asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
+    <style>
+        #C_GvMensual2 > tbody > tr:nth-child(1) > th:nth-child(1), #C_GvMensual2 > tbody > tr:nth-child(2) > td:nth-child(1){
+            width:500px!important;
+        }
+    </style>
 </asp:Content>
 <asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
     Anexo del Catálogo - Mensual
@@ -48,50 +53,58 @@
     </asp:UpdatePanel>
 
 
-    <asp:UpdatePanel ID="UpMensual" UpdateMode="Conditional" runat="server">
-        <ContentTemplate>
-
-            <asp:GridView ID="GvMensual2" runat="server" AutoGenerateColumns="False" ShowHeader="true" EmptyDataText="No se encontraron datos" GridLines="none" CssClass="table table-hover">
-                <Columns>
-                    <asp:BoundField HeaderText="Nombre" DataField="Nombre" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="500px" ControlStyle-Width="500px" />
-                    <asp:BoundField HeaderText="Enero" DataField="Enero" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
-                    <asp:BoundField HeaderText="Febrero" DataField="Febrero" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
-                    <asp:BoundField HeaderText="$" DataField="VariacionFebreroImporte" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                    <asp:BoundField HeaderText="%" DataField="VariacionFebreroPorcentaje" DataFormatString="{0:N2}%" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="50px" />
-                    <asp:BoundField HeaderText="Marzo" DataField="Marzo" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
-                    <asp:BoundField HeaderText="$" DataField="VariacionMarzoImporte" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                    <asp:BoundField HeaderText="%" DataField="VariacionMarzoPorcentaje" DataFormatString="{0:N2}%" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="50px" />
-                    <asp:BoundField HeaderText="Abril" DataField="Abril" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
-                    <asp:BoundField HeaderText="$" DataField="VariacionAbrilImporte" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                    <asp:BoundField HeaderText="%" DataField="VariacionAbrilPorcentaje" DataFormatString="{0:N2}%" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="50px" />
-                    <asp:BoundField HeaderText="Mayo" DataField="Mayo" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
-                    <asp:BoundField HeaderText="$" DataField="VariacionMayoImporte" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                    <asp:BoundField HeaderText="%" DataField="VariacionMayoPorcentaje" DataFormatString="{0:N2}%" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="50px" />
-                    <asp:BoundField HeaderText="Junio" DataField="Junio" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
-                    <asp:BoundField HeaderText="$" DataField="VariacionJunioImporte" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                    <asp:BoundField HeaderText="%" DataField="VariacionJunioPorcentaje" DataFormatString="{0:N2}%" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="50px" />
-                    <asp:BoundField HeaderText="Julio" DataField="Julio" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
-                    <asp:BoundField HeaderText="$" DataField="VariacionJulioImporte" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                    <asp:BoundField HeaderText="%" DataField="VariacionJulioPorcentaje" DataFormatString="{0:N2}%" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="50px" />
-                    <asp:BoundField HeaderText="Agosto" DataField="Agosto" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
-                    <asp:BoundField HeaderText="$" DataField="VariacionAgostoImporte" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                    <asp:BoundField HeaderText="%" DataField="VariacionAgostoPorcentaje" DataFormatString="{0:N2}%" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="50px" />
-                    <asp:BoundField HeaderText="Septiembre" DataField="Septiembre" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
-                    <asp:BoundField HeaderText="$" DataField="VariacionSeptiembreImporte" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                    <asp:BoundField HeaderText="%" DataField="VariacionSeptiembrePorcentaje" DataFormatString="{0:N2}%" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="50px" />
-                    <asp:BoundField HeaderText="Octubre" DataField="Octubre" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
-                    <asp:BoundField HeaderText="$" DataField="VariacionOctubreImporte" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                    <asp:BoundField HeaderText="%" DataField="VariacionOctubrePorcentaje" DataFormatString="{0:N2}%" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="50px" />
-                    <asp:BoundField HeaderText="Noviembre" DataField="Noviembre" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
-                    <asp:BoundField HeaderText="$" DataField="VariacionNoviembreImporte" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                    <asp:BoundField HeaderText="%" DataField="VariacionNoviembrePorcentaje" DataFormatString="{0:N2}%" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="50px" />
-                    <asp:BoundField HeaderText="Diciembre" DataField="Diciembre" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
-                    <asp:BoundField HeaderText="$" DataField="VariacionDiciembreImporte" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                    <asp:BoundField HeaderText="%" DataField="VariacionDiciembrePorcentaje" DataFormatString="{0:N2}%" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="50px" />
-                </Columns>
-            </asp:GridView>
-
-        </ContentTemplate>
+    <asp:UpdatePanel ID="UpMensual" UpdateMode="Conditional" runat="server">
+        <ContentTemplate>
+            <div class="row">
+                <div class="col-md-12">
+                    <div style="overflow:auto">
+                         <asp:GridView ID="GvMensual2" runat="server" AutoGenerateColumns="False" ShowHeader="true" EmptyDataText="No se encontraron datos" GridLines="none" CssClass="table table-hover">
+                        <Columns>
+                            <asp:BoundField HeaderText="Nombre" DataField="Nombre" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="500px"  ControlStyle-Width="500px"  />
+                            <asp:BoundField HeaderText="Enero" DataField="Enero" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                            <asp:BoundField HeaderText="Febrero" DataField="Febrero" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                            <asp:BoundField HeaderText="$" DataField="VariacionFebreroImporte" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField HeaderText="%" DataField="VariacionFebreroPorcentaje" DataFormatString="{0:N2}%" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="50px" />
+                            <asp:BoundField HeaderText="Marzo" DataField="Marzo" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                            <asp:BoundField HeaderText="$" DataField="VariacionMarzoImporte" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField HeaderText="%" DataField="VariacionMarzoPorcentaje" DataFormatString="{0:N2}%" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="50px" />
+                            <asp:BoundField HeaderText="Abril" DataField="Abril" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                            <asp:BoundField HeaderText="$" DataField="VariacionAbrilImporte" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField HeaderText="%" DataField="VariacionAbrilPorcentaje" DataFormatString="{0:N2}%" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="50px" />
+                            <asp:BoundField HeaderText="Mayo" DataField="Mayo" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                            <asp:BoundField HeaderText="$" DataField="VariacionMayoImporte" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField HeaderText="%" DataField="VariacionMayoPorcentaje" DataFormatString="{0:N2}%" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="50px" />
+                            <asp:BoundField HeaderText="Junio" DataField="Junio" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                            <asp:BoundField HeaderText="$" DataField="VariacionJunioImporte" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField HeaderText="%" DataField="VariacionJunioPorcentaje" DataFormatString="{0:N2}%" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="50px" />
+                            <asp:BoundField HeaderText="Julio" DataField="Julio" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                            <asp:BoundField HeaderText="$" DataField="VariacionJulioImporte" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField HeaderText="%" DataField="VariacionJulioPorcentaje" DataFormatString="{0:N2}%" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="50px" />
+                            <asp:BoundField HeaderText="Agosto" DataField="Agosto" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                            <asp:BoundField HeaderText="$" DataField="VariacionAgostoImporte" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField HeaderText="%" DataField="VariacionAgostoPorcentaje" DataFormatString="{0:N2}%" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="50px" />
+                            <asp:BoundField HeaderText="Septiembre" DataField="Septiembre" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                            <asp:BoundField HeaderText="$" DataField="VariacionSeptiembreImporte" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField HeaderText="%" DataField="VariacionSeptiembrePorcentaje" DataFormatString="{0:N2}%" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="50px" />
+                            <asp:BoundField HeaderText="Octubre" DataField="Octubre" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                            <asp:BoundField HeaderText="$" DataField="VariacionOctubreImporte" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField HeaderText="%" DataField="VariacionOctubrePorcentaje" DataFormatString="{0:N2}%" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="50px" />
+                            <asp:BoundField HeaderText="Noviembre" DataField="Noviembre" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                            <asp:BoundField HeaderText="$" DataField="VariacionNoviembreImporte" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField HeaderText="%" DataField="VariacionNoviembrePorcentaje" DataFormatString="{0:N2}%" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="50px" />
+                            <asp:BoundField HeaderText="Diciembre" DataField="Diciembre" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                            <asp:BoundField HeaderText="$" DataField="VariacionDiciembreImporte" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField HeaderText="%" DataField="VariacionDiciembrePorcentaje" DataFormatString="{0:N2}%" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="50px" />
+                        </Columns>
+                    </asp:GridView>
+                    </div>
+                   
+                </div>
+            </div>
+
+
+
+        </ContentTemplate>
     </asp:UpdatePanel>
 
 </asp:Content>

Contabilidad2/RepAnexoCatalogoMensual.aspx.vb

@@ -22,10 +22,10 @@ Partial Class Contabilidad2_RepAnexoCatalogoMensual
         If Not IsPostBack Then
 
             Dim EjercicioParametro, SubProyectoParametro, DivisorParametro As Integer
-            CveCuenta = IfNull(Request("C"), "-1").ToString.ToEntero
-            EjercicioParametro = IfNull(Request("E"), "-1").ToString.ToEntero
-            SubProyectoParametro = IfNull(Request("S"), "-1").ToString.ToEntero
-            DivisorParametro = IfNull(Request("D"), "-1").ToString.ToEntero
+            CveCuenta = IfNull(Request("CveCuenta"), "-1").ToString.ToEntero
+            EjercicioParametro = IfNull(Request("Ejercicio"), "-1").ToString.ToEntero
+            SubProyectoParametro = IfNull(Request("CveSubProyecto"), "-1").ToString.ToEntero
+            DivisorParametro = IfNull(Request("Divisor"), "-1").ToString.ToEntero
 
             InicializaValores()
 
@@ -72,7 +72,7 @@ Partial Class Contabilidad2_RepAnexoCatalogoMensual
     Private Sub CargaDatos()
         Dim Conta As New ClsContabilidad
 
-        If Conta.GetAnexoCatalogoMensual(CveCuenta, DdlEjercicio.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+        If Conta.GetAnexoCatalogoMensual(CveCuenta, DdlEjercicio.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveUsuario) Then
             GvMensual2.DataSource = Conta.DtResultados
         Else
             GvMensual2.DataSource = Nothing

Contabilidad2/RepAnexoCatalogoMensualHorizontal.aspx

@@ -0,0 +1,335 @@
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepAnexoCatalogoMensualHorizontal.aspx.vb" Inherits="Contabilidad_RepAnexoCatalogoMensualHorizontal" EnableEventValidation="false" %>
+
+<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
+</asp:Content>
+<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
+    <style>
+        .table-VH {
+            padding-top: 58px;
+        }
+    </style>
+</asp:Content>
+<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
+</asp:Content>
+<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
+    <asp:Label runat="server" ID="LbTitulo" Text="Anexo del Catálogo"></asp:Label>
+</asp:Content>
+<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
+
+ <%--   <li>
+        <asp:LinkButton ID="LnkExcel" runat="server"><i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Excel</asp:LinkButton>
+    </li>
+    <li>
+        <asp:LinkButton ID="LnkImprimir" runat="server"><i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> PDF</asp:LinkButton>
+    </li>--%>
+
+</asp:Content>
+<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
+
+    <asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+            <div class="portlet solid  grey-cascade portlet-filter">
+                <div class="portlet-title portlet-filterT smalltitle magindate">
+                    <div class="tools">
+                        <asp:Button ID="BtnConsultar" runat="server" Text="Consultar" CssClass="btn btn-default" OnClick="BtnConsultar_Click" ValidationGroup="GrpConsulta" />
+                        <a href="javascript:;" data-idchekbox="<%= chkexpand.ClientID%>" class=" <%= IIf(chkexpand.Checked = True, "collapse", "expand")%>"></a><%--class="expand"--%>
+                        <asp:CheckBox ID="chkexpand" CssClass="hidden" runat="server" />
+                    </div>
+                    <div class="titlefiltros  caption ">
+                        <%--<div class="row">--%>
+                        <ul class="list-inline text-size-12">
+                            <li>F. I.</li>
+                            <li style="margin-right: 30px">
+
+                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 80px !important; padding: 0px;">
+                                    <asp:TextBox ID="TxtFechaDel" runat="server" CssClass="form-control" Width="99%" CausesValidation="true" MaxLength="10" Height="24px"></asp:TextBox>
+                                    <span class="input-group-btn ">
+                                        <asp:LinkButton ID="ImgCalendarioDel" class="btn default " Text="<i class='fa fa-calendar'></i>" Height="24px" runat="server"></asp:LinkButton>
+                                    </span>
+                                    <ajax:MaskedEditExtender ID="MEEFechaDel" runat="server" TargetControlID="TxtFechaDel" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                    <ajax:CalendarExtender ID="CalendarioDel" runat="server" TargetControlID="TxtFechaDel" PopupButtonID="ImgCalendarioDel" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                    
+                                    <asp:CompareValidator ID="CVTxtFechaDel" runat="server" ControlToValidate="TxtFechaDel" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Inicio''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpConsulta"></asp:CompareValidator>
+                                    <ajax:ValidatorCalloutExtender ID="CECVTxtFechaDel" runat="server" HighlightCssClass="vco" TargetControlID="CVTxtFechaDel" Width="350px"></ajax:ValidatorCalloutExtender>
+
+                                </div>
+
+                            </li>
+                            <li>F. F. </li>
+                            <li style="margin-right: 30px">
+                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 80px !important; padding: 0px;">
+                                    <asp:TextBox ID="TxtFechaAl" runat="server" CssClass="form-control" Width="99%" CausesValidation="true" MaxLength="10" Height="24px"></asp:TextBox>
+                                    <span class="input-group-btn ">
+                                        <asp:LinkButton ID="ImgCalendarioAl" class="btn default " Text="<i class='fa fa-calendar'></i>" Height="24px" runat="server"></asp:LinkButton>
+                                    </span>
+                                    <ajax:MaskedEditExtender ID="MEEFechaAl" runat="server" TargetControlID="TxtFechaAl" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                    <ajax:CalendarExtender ID="CalendarioAl" runat="server" TargetControlID="TxtFechaAl" PopupButtonID="ImgCalendarioAl" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+
+
+                                    <asp:CompareValidator ID="CVTxtFechaAl" runat="server" ControlToValidate="TxtFechaAl" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Fin''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpConsulta"></asp:CompareValidator>
+                                    <ajax:ValidatorCalloutExtender ID="CECVTxtFechaAl" runat="server" HighlightCssClass="vco" TargetControlID="CVTxtFechaAl" Width="350px"></ajax:ValidatorCalloutExtender>
+
+                                </div>
+                            </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>
+                <div class="portlet-body" <%= IIf(chkexpand.Checked = True, "", "style=""display:none;""")%>>
+                  
+                    <ul class="list-inline text-size-12">
+                        <li>
+                            Tipo Movto:
+                        </li>
+                        <li>
+                             
+                            <asp:DropDownList CssClass="form-control input-sm" ID="DdlCuenta" runat="server" DataTextField="Cuenta" DataValueField="CveCuenta" TabIndex="4">
+                                <asp:ListItem Text="Todos" Value="-1"></asp:ListItem>
+                                <asp:ListItem Text="Con movimientos" Value="1"></asp:ListItem>
+                                <asp:ListItem Text="Saldo actual no igual a cero" Value="2"></asp:ListItem>
+                                <asp:ListItem Text="Con movimientos y saldo no igual a cero" Value="3"></asp:ListItem>
+                                <asp:ListItem Text="Con movimientos o saldo no igual a cero" Value="4"></asp:ListItem>
+                            </asp:DropDownList>
+                          
+                        </li>
+                         <li>
+                            <label class="col-md-2" style="width: 80px;">SubProyecto: </label>
+                            <div class="col-md-2">
+                                <asp:DropDownList ID="DdlSubproyecto" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me">
+                                    <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
+                                </asp:DropDownList>
+                            </div>
+                            </li>
+                            <li runat="server" id="tdTipoReporte" visible="true">Tipo:
+                            </li>
+                           
+                            <li runat="server" id="tdTipoReporte2" visible="true">
+                                <asp:DropDownList ID="DdlTipoReporte" CssClass="form-control input-sm" runat="server" Width="150px">
+                                    <asp:ListItem Text="Contable" Value="1"></asp:ListItem>
+                                    <asp:ListItem Text="Contable y Complementario" Value="3"></asp:ListItem>
+                                    <asp:ListItem Text="Complementario" Value="2"></asp:ListItem>
+                                </asp:DropDownList>
+                            </li>
+                            <li>Tipo de Cuentas:
+                            </li>
+                            <li>
+                                <asp:DropDownList Visible="false" CssClass="form-control input-sm" Width="150px" ID="DdlTipoCuentas" ClientIDMode="Static" runat="server" DataTextField="Nombre" DataValueField="CveCuenta" TabIndex="4" AutoPostBack="true">
+                                </asp:DropDownList>
+                            </li>
+                       
+                    </ul>
+                   
+                </div>
+            </div>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+
+    <br />
+
+    <asp:UpdatePanel ID="UpDatos" UpdateMode="Conditional" runat="server">
+        <ContentTemplate>
+
+            <asp:GridView ID="GvDatos" runat="server" GridLines="None" CssClass="ScrollAD  table table-smallpadding Widthall" data-heighterror="375" data-freezecols="0" data-freezerows="-1" 
+                ShowHeader="True" ShowHeaderWhenEmpty="true" AllowPaging="False" ShowFooter="False" EmptyDataText="No se encontraron cuentas con los parametros establecidos." AutoGenerateColumns="False" OnRowDataBound="GvIngresos_RowDataBound">
+                <Columns>
+                    <asp:TemplateField HeaderText="Cuenta" HeaderStyle-HorizontalAlign="Left">
+                        <ItemTemplate>
+                            <asp:Label ID="LbCodigo" runat="server" Text='<%# Eval("Codigo")%>'></asp:Label>
+                        </ItemTemplate>
+                        <ItemStyle HorizontalAlign="Left" Width="180" />
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Nombre" HeaderStyle-HorizontalAlign="Left">
+                        <ItemTemplate>
+                            <asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>
+                        </ItemTemplate>
+                        <ItemStyle HorizontalAlign="Left" Width="320" />
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Saldos Iniciales">
+                        <HeaderTemplate>
+                            <table width="100%">
+                                <tr>
+                                    <td colspan="2">Saldos Iniciales</td>
+                                </tr>
+                                <tr>
+                                    <td>Deudor</td>
+                                    <td>Acreedor</td>
+                                </tr>
+                            </table>
+                        </HeaderTemplate>
+
+                        <ItemTemplate>
+                            <asp:Label ID="LbSaldoInicial" runat="server" Text='<%# Eval("SaldoInicial", "{0:N2}")%>'></asp:Label>
+                            <asp:Label ID="LbSaldoInicial2" runat="server" Width="30px" Visible="false"></asp:Label>
+                        </ItemTemplate>
+                        <ItemStyle Width="145" HorizontalAlign="Right" />
+
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Cargos">
+                        <ItemTemplate>
+                            <asp:Label ID="LbCargos" runat="server" Text='<%# Eval("Cargos", "{0:N2}")%>'></asp:Label>
+                        </ItemTemplate>
+                        <ItemStyle Width="145" HorizontalAlign="Right" />
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Abonos">
+                        <ItemTemplate>
+                            <asp:Label ID="LbAbonos" runat="server" Text='<%# Eval("Abonos", "{0:N2}")%>'></asp:Label>
+                        </ItemTemplate>
+                        <ItemStyle Width="145" HorizontalAlign="Right" />
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Saldos Actuales">
+                      <HeaderTemplate>
+                            <table width="100%">
+                                <tr>
+                                    <td colspan="2">Saldos Actuales</td>
+                                </tr>
+                                <tr>
+                                    <td>Deudor</td>
+                                    <td>Acreedor</td>
+                                </tr>
+                            </table>
+                        </HeaderTemplate>
+                        <ItemTemplate>
+                            <asp:HyperLink ID="HLSaldoActual" runat="server" Text='<%# Eval("SaldoActual", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                            <%--<asp:Label ID="LbSaldoActual" runat="server" Text='<%# Eval("SaldoActual", "{0:N2}")%>'></asp:Label>--%>
+                            <asp:Label ID="LbSaldoActual" runat="server" Width="30px" Visible="false"></asp:Label>
+                        </ItemTemplate>
+                        <ItemStyle Width="145" HorizontalAlign="Right" />
+                    </asp:TemplateField>
+
+                    <asp:BoundField HeaderText="Enero" DataField="Enero" DataFormatString="{0:N2}" ItemStyle-Width="100px" />
+                    <asp:BoundField HeaderText="Febrero" DataField="Febrero" DataFormatString="{0:N2}" ItemStyle-Width="100px" />
+                    <asp:BoundField HeaderText="Marzo" DataField="Marzo" DataFormatString="{0:N2}" ItemStyle-Width="100px" />
+                    <asp:BoundField HeaderText="Abril" DataField="Abril" DataFormatString="{0:N2}" ItemStyle-Width="100px" />
+                    <asp:BoundField HeaderText="Mayo" DataField="Mayo" DataFormatString="{0:N2}" ItemStyle-Width="100px" />
+                    <asp:BoundField HeaderText="Junio" DataField="Junio" DataFormatString="{0:N2}" ItemStyle-Width="100px" />
+                    <asp:BoundField HeaderText="Julio" DataField="Julio" DataFormatString="{0:N2}" ItemStyle-Width="100px" />
+                    <asp:BoundField HeaderText="Agosto" DataField="Agosto" DataFormatString="{0:N2}" ItemStyle-Width="100px" />
+                    <asp:BoundField HeaderText="Septiembre" DataField="Septiembre" DataFormatString="{0:N2}" ItemStyle-Width="100px" />
+                    <asp:BoundField HeaderText="Octubre" DataField="Octubre" DataFormatString="{0:N2}" ItemStyle-Width="100px" />
+                    <asp:BoundField HeaderText="Noviembre" DataField="Noviembre" DataFormatString="{0:N2}" ItemStyle-Width="100px" />
+                    <asp:BoundField HeaderText="Diciembre" DataField="Diciembre" DataFormatString="{0:N2}" ItemStyle-Width="100px" />
+
+
+                </Columns>
+                <HeaderStyle Font-Bold="true" HorizontalAlign="Center" />
+            </asp:GridView>
+
+        </ContentTemplate>
+    </asp:UpdatePanel>
+
+
+</asp:Content>
+
+<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
+    <script type="text/javascript">
+
+<%--        function pageLoad(sender, args) {
+
+            $(function () {
+                //Genero las cuentas en el arreglo
+                var ArrCuentas = [<%= WSCuentas()%>];
+
+                $("#TxtCuenta").autocomplete({
+                    minLength: 0,
+                    source: ArrCuentas,
+                    focus: function (event, ui) {
+                        $("#TxtCuenta").val(ui.item.label);
+                        $("#HdnCveCuenta").val(ui.item.value);
+                        return false;
+                    },
+                    select: function (event, ui) {
+
+                        $("#TxtCuenta").val(ui.item.label);
+                        $("#HdnCveCuenta").val(ui.item.value);
+
+                        //$("#project-description").html(ui.item.desc);
+                        //$("#project-icon").attr("src", "images/" + ui.item.icon);
+
+                        return false;
+                    }
+                })
+                //.autocomplete("instance")._renderItem = function (ul, item) {
+                //    return $("<li>")
+                //      .append("<a>" + item.label + "</a>")
+                //      .appendTo(ul);
+                //};
+            });
+
+            // Al presionar cualquier tecla en cualquier campo de texto, ejectuamos la siguiente funcion
+            $('input[type=text]').on('keydown', function (e) {
+                // Si la tecla ENTER es presionada... 
+                if (e.keyCode === 13) {
+
+                    var currentTabIndex = $(this).attr('tabindex');   // Obtenemos el número del tabindex del campo actual
+                    var nextTabIndex = parseInt(currentTabIndex) + 1;  // Le sumamos 1
+                    var nextField = $('[tabindex=' + nextTabIndex + ']'); // Obtenemos (si existe) el siguiente elemento que usando nextTabIndex
+                    if (nextField.length > 0) { // Si se encontró un elemento:
+                        nextField.focus(); // Hacerle focus / seleccionarlo
+                        nextField.select();
+                        e.preventDefault();  // Ignorar el funcionamiento predeterminado (enviar el formulario)
+                    }
+
+                }
+
+            });
+
+            // Al presionar cualquier tecla en cualquier campo de texto, ejectuamos la siguiente funcion
+            $('select').on('keydown', function (e) {
+                // Si la tecla ENTER es presionada... 
+                if (e.keyCode === 13) {
+
+                    var currentTabIndex = $(this).attr('tabindex');   // Obtenemos el número del tabindex del campo actual
+                    var nextTabIndex = parseInt(currentTabIndex) + 1;  // Le sumamos 1
+                    var nextField = $('[tabindex=' + nextTabIndex + ']'); // Obtenemos (si existe) el siguiente elemento que usando nextTabIndex
+                    if (nextField.length > 0) { // Si se encontró un elemento:
+                        nextField.focus(); // Hacerle focus / seleccionarlo
+                        nextField.select();
+                        e.preventDefault();  // Ignorar el funcionamiento predeterminado (enviar el formulario)
+                    }
+                }
+            });
+
+        }--%>
+
+        function Enable() {
+            var Producto = $get("DdlTipoCuentas").value;
+            if (Producto == "-2") {
+                //document.getElementById("TxtCuenta").disabled = false;
+                document.getElementById("C_DdlCuentas").disabled = false;
+                //document.getElementById("TxtCuenta").focus();
+                //alert(Producto);
+            }
+            else {
+                //document.getElementById("TxtCuenta").value = " ";
+                //document.getElementById("TxtCuenta").disabled = true;
+                $get("C_DdlCuentas").value = "-1";
+                document.getElementById("C_DdlCuentas").disabled = true;
+            }
+        }
+
+        function Scroll() {
+            var Tam = TamañoVentana();
+            var Alto = Tam.height - 360;
+            if (Alto < 100) {
+                Alto = 100;
+            }
+            $('#<%=GvDatos.ClientID%>').ADScroll({
+                height: Alto
+            });
+        }
+    </script>
+</asp:Content>

Contabilidad2/RepAnexoCatalogoMensualHorizontal.aspx.vb

@@ -0,0 +1,328 @@
+Option Explicit On
+Option Strict On
+
+Imports System.Data
+Imports Extensiones
+Imports Microsoft.Reporting.WebForms
+
+Partial Class Contabilidad_RepAnexoCatalogoMensualHorizontal
+    Inherits ClsPaginas
+
+
+#Region "PROPIEDADES"
+    Private Property DtDatos As DataTable
+        Get
+            DtDatos = DirectCast(ViewState("DtDatos"), DataTable)
+        End Get
+
+        Set(ByVal value As DataTable)
+            ViewState("DtDatos") = value
+        End Set
+    End Property
+    Private Property FechaInicio As Date
+        Get
+            FechaInicio = ViewState("FechaInicio").ToString.ToDate
+        End Get
+        Set(value As Date)
+            ViewState("FechaInicio") = value
+        End Set
+    End Property
+
+    Private Property FechaFin As Date
+        Get
+            FechaFin = ViewState("FechaFin").ToString.ToDate
+        End Get
+        Set(value As Date)
+            ViewState("FechaFin") = value
+        End Set
+    End Property
+    Private Property IdCuenta As Integer
+        Get
+            IdCuenta = ViewState("CveCuenta").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("CveCuenta") = value
+        End Set
+    End Property
+    'Private Property DTCuentas As DataTable
+    '    Get
+    '        Return CType(ViewState("DTCuentas"), DataTable)
+    '    End Get
+    '    Set(value As DataTable)
+    '        ViewState("DTCuentas") = value
+    '    End Set
+    'End Property
+    Private Property CveSubProyecto As String
+        Get
+            CveSubProyecto = ViewState("CveSubProyecto").ToString
+        End Get
+        Set(value As String)
+            ViewState("CveSubProyecto") = value
+        End Set
+    End Property
+
+    Private Property TipoReporte As Integer
+        Get
+            TipoReporte = ViewState("TP").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("TP") = value
+        End Set
+    End Property
+#End Region
+
+    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
+        If Not Page.IsPostBack Then
+            Dim ErrorParametros = True
+            DtDatos = Nothing
+            CargaTipoCuentas()
+
+            FechaInicio = Now.FirstDayOfMonth
+            FechaFin = Date.Now
+
+            'If UsuarioActual.Empresa.UsaAC Then
+            '    TipoReporte = -1
+            'Else
+            '    TipoReporte = 1
+            '    tdTipoReporte.Visible = True
+            '    tdTipoReporte2.Visible = True
+            'End If
+
+
+            If Request("CveCuenta") IsNot Nothing AndAlso IsNumeric(Request("CveCuenta")) AndAlso Request("CveCuenta").ToEntero > 0 Then
+                'If Request("FI") IsNot Nothing AndAlso Request("FI").ToString.Length = 10 AndAlso Request("FI").ToDate > "01/01/1000".ToDate Then
+                If Request("FF") IsNot Nothing AndAlso Request("FF").ToString.Length = 10 AndAlso Request("FF").ToDate > "01/01/1000".ToDate Then
+                    IdCuenta = Request("CveCuenta").ToEntero
+                    'FechaInicio = Request("FI").ToDate
+                    FechaFin = Request("FF").ToDate
+                    DdlCuentas.SelectedValueExist(IdCuenta)
+                    If DdlCuentas.SelectedValue.ToEntero <> -1 Then
+                        'RegistraScript("Enable();")
+                        DdlTipoCuentas.SelectedValueExist(-2)
+                    End If
+
+                    If Request("FI") IsNot Nothing AndAlso Request("FI").ToString.Length = 10 AndAlso Request("FI").ToDate > "01/01/1000".ToDate Then
+                        FechaInicio = Request("FI").ToDate
+                    Else
+                        If Request("ER") IsNot Nothing AndAlso Request("ER").ToString = "1" Then
+                            FechaInicio = DateSerial(Year(FechaFin), Month(FechaFin), 1)
+                        Else
+                            FechaInicio = ("1900/01/01").ToDate
+                        End If
+                    End If
+
+
+                    If Request("CM") IsNot Nothing AndAlso IsNumeric(Request("CM")) AndAlso Request("CM").ToEntero > 0 Then
+                        DdlCuenta.SelectedValueExist(Request("CM").ToString)
+                    End If
+
+                    If Request("CveSubProyecto") IsNot Nothing AndAlso IsNumeric(Request("CveSubProyecto")) Then
+                        CveSubProyecto = Request("CveSubProyecto").ToString
+                    End If
+
+
+                    ErrorParametros = False
+
+
+                    If Request("TP") IsNot Nothing AndAlso IsNumeric(Request("TP")) AndAlso Request("TP").ToEntero > 0 Then
+                        TipoReporte = Request("TP").ToEntero
+
+                        DdlTipoReporte.SelectedValue = TipoReporte.ToString
+                    End If
+                End If
+                'End If
+            End If
+
+
+            TxtFechaDel.Text = FechaInicio.ToShortDateString
+            TxtFechaAl.Text = FechaFin.ToShortDateString
+
+            If Not ErrorParametros Then
+                CargaDatos()
+            End If
+
+        End If
+    End Sub
+
+#Region "CARGA DATOS Y GRID"
+    'Public Function WSCuentas() As String
+    '    Dim Str As New StringBuilder
+    '    Dim i As Integer = 0
+    '    Dim dt As DataTable = DTCuentas '.FiltraParametros("Afectable = 1")
+
+    '    If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
+
+    '        For Each dr As DataRow In dt.Rows
+    '            i += 1
+    '            Str.AppendFormat("{{value:""{0}"",label:""{1}{3}""}}{2}", dr("CveCuenta"), dr("CtaCodigo").ToString.Replace("""", ""), If(i < dt.Rows.Count, ",", ""), If(dr("Afectable").ToString = "1", " *", ""))
+    '        Next
+
+    '    End If
+
+
+    '    Return Str.ToString
+    'End Function
+    Private Sub CargaTipoCuentas()
+        'Dim ObjTipoCuenta As New ClsContPAQi(UsuarioActual.Empresa)
+        Dim ObjTipoCuenta As New ClsContabilidad
+        Dim strGlobal As String = ""
+
+        If ObjTipoCuenta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
+            Dim dr As DataRow = ObjTipoCuenta.DtResultados.FiltroPrimero("Codigo IN ('_GLOBAL')")
+            If dr IsNot Nothing Then strGlobal = dr.Item(0).ToString
+            'DTCuentas = ObjTipoCuenta.DtResultados '.FiltraParametros("Afectable = 1")
+            DdlTipoCuentas.DataSource = ObjTipoCuenta.DtResultados.FiltraParametros("Codigo IN ('_ACTIVO', '_BPASIVO', '_CAPITAL', '_CUADRE', '_ESTADISTICAS', '_ORDEN', '_RACREEDOR', '_RDEUDOR', '_UTILIDAD')")
+            DdlCuentas.DataSource = ObjTipoCuenta.DtResultados
+        End If
+        ObjTipoCuenta.Dispose()
+        DdlTipoCuentas.DataBind()
+        'If strGlobal.Length > 0 Then DdlTipoCuentas.Items.Insert(0, New ListItem("Todas", strGlobal))
+        DdlTipoCuentas.Items.Insert(0, New ListItem("Todas las Cuentas", "-1"))
+        DdlTipoCuentas.Items.Add(New ListItem("Algun específico", "-2"))
+        DdlTipoCuentas.SelectedValue = "-2"
+
+        DdlCuentas.DataBind()
+
+        DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1)
+        DdlSubproyecto.DataBind()
+    End Sub
+    Private Sub CargaDatos()
+        'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
+        Dim ObjConta As New ClsContabilidad
+
+        If Request("TipoReporte") IsNot Nothing Then
+            TipoReporte = If(TipoReporte = -1, -1, DdlTipoReporte.SelectedValue.ToEntero)
+        Else
+            TipoReporte = DdlTipoReporte.SelectedValue.ToEntero
+        End If
+        'Dim CveSubProyecto As String
+        If Request("CveSubProyecto") IsNot Nothing Then
+            CveSubProyecto = Request("CveSubProyecto").ToString
+        Else
+            CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero.ToString
+        End If
+
+        If ObjConta.GetAnexoCatalogoMensualHorizontal(IdCuenta, FechaInicio, FechaFin, DdlCuenta.SelectedValue.ToEntero, CveSubProyecto, UsuarioActual.CveEmpresa, TipoReporte) Then
+
+            If Request("CveCuenta") IsNot Nothing AndAlso IsNumeric(Request("CveCuenta")) AndAlso Request("CveCuenta").ToEntero > 0 Then
+                DtDatos = ObjConta.DtResultados.FiltraParametros(" SaldoInicial <> 0 OR Cargos <> 0 OR Abonos <> 0")
+            Else
+                DtDatos = ObjConta.DtResultados
+            End If
+
+            CargaGrid()
+        Else
+            DtDatos = Nothing
+            Alert("Ocurrio un error al cargar los datos del Anexo del Catálogo.", TipoMensaje.MsgError)
+        End If
+
+        ObjConta.Dispose()
+    End Sub
+    Private Sub CargaGrid()
+        GvDatos.DataSource = DtDatos
+        'GvDatos.Dispose()
+        GvDatos.DataBind()
+        UpDatos.Update()
+        If DtDatos.Rows.Count > 0 Then
+            RegistraScript("Scroll();")
+        End If
+
+    End Sub
+#End Region
+
+    Protected Sub GvIngresos_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+        If e.Row.RowType = DataControlRowType.DataRow Then
+
+            If e.Row.DBCampo("CveCuenta").ToEntero = IdCuenta Then
+                e.Row.ControlStyle.Font.Bold = True
+                'e.Row.ControlStyle.Font.Size = 9
+                'e.Row.ControlStyle.Height = 30
+            Else
+                e.Row.ControlStyle.Font.Bold = False
+            End If
+
+            'If e.Row.DBCampo("CtaMayor") = "4" Or e.Row.DBCampo("CtaMayor") = "1" Then
+            '    e.Row.ControlStyle.Font.Bold = True
+            'End If
+
+            'Acomoda Deudor y Acreedor
+            If e.Row.DBCampo("Tipo") <> "D" Then
+                'e.Row.FCLabel("LbSaldoInicial").Text = String.Format("{0}{1}", e.Row.DBCampo("SaldoInicial").FormatoNumero, "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;")
+                e.Row.FCLabel("LbSaldoInicial2").Visible = True
+                e.Row.FCLabel("LbSaldoActual").Visible = True
+            End If
+
+            'Colorea NEGATIVOS
+            If e.Row.DBCampo("SaldoInicial").ToString.ToDouble < 0 Then
+                e.Row.FCLabel("LbSaldoInicial").ForeColor = Drawing.Color.Red
+            End If
+            If e.Row.DBCampo("Cargos").ToString.ToDouble < 0 Then
+                e.Row.FCLabel("LbCargos").ForeColor = Drawing.Color.Red
+            End If
+            If e.Row.DBCampo("Abonos").ToString.ToDouble < 0 Then
+                e.Row.FCLabel("LbAbonos").ForeColor = Drawing.Color.Red
+            End If
+            If e.Row.DBCampo("SaldoActual").ToString.ToDouble < 0 Then
+                e.Row.FCHyperLink("HLSaldoActual").ForeColor = Drawing.Color.Red
+            End If
+
+            e.Row.FCHyperLink("HLSaldoActual").NavigateUrl = String.Format("/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&CveSubProyecto={3}&TP={4}", e.Row.DBCampo("CveCuenta"), FechaInicio.ToShortDateString, FechaFin.ToShortDateString, CveSubProyecto, TipoReporte)
+        End If
+    End Sub
+
+    Protected Sub LnkImprimir_Click(sender As Object, e As EventArgs) Handles LnkImprimir.Click
+        If Not IsNothing(DtDatos) Then
+            ImprimirReporte()
+        End If
+    End Sub
+
+    Protected Sub LnkExcel_Click(sender As Object, e As EventArgs) Handles LnkExcel.Click
+        If Not IsNothing(DtDatos) Then
+            ImprimirReporte("Excel")
+            'GvDatos.ExportToExcelG("AnexoCatalogo" & Now.ToShortDateString & ".xlsx")
+            'GvDatos.ExportToExcelG("ExistenciasHorizontal.xlsx", "Anexo Catalogo", UsuarioActual, "".ToString, 100, 200)
+        End If
+    End Sub
+    Private Sub ImprimirReporte(Optional Formato As String = "PDF")
+        'ubicacion del rdlc
+        Dim reportpath As String = "Contabilidad/Reportes/RepAnexoCatalogo.rdlc"
+        'nombre del reporte
+        Dim fileName As String = "AnexoCatalogo"
+        'parametros a enviar al reporte                     
+        Dim params As New List(Of ReportParameter)
+        params.Add(New ReportParameter("IdCuenta", IdCuenta.ToString))
+        params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
+        params.Add(New ReportParameter("usuarioImprimio", UsuarioActual.Nombre))
+        params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri))
+        params.Add(New ReportParameter("pFechaFin", FechaFin.ToString("dd/MM/yyyy")))
+        params.Add(New ReportParameter("pFechaInicio", FechaInicio.ToString("dd/MM/yyyy")))
+
+        ImprimirPDF(reportpath, DtDatos, params, fileName, Formato)
+    End Sub
+    Public Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
+
+        If DdlTipoCuentas.SelectedValue.ToEntero = -2 AndAlso DdlCuentas.SelectedValue.ToEntero = -1 Then
+            Alert("El campo Cuenta es obligatorio.", TipoMensaje.MsgError)
+        Else
+            FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", Date.Now, TxtFechaDel.Text.ToDate)
+            FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", Date.Now, TxtFechaAl.Text.ToDate)
+            IdCuenta = If(DdlTipoCuentas.SelectedValue.ToEntero = -2, DdlCuentas.SelectedValue.ToEntero, DdlTipoCuentas.SelectedValue.ToEntero)
+
+            CargaDatos()
+        End If
+        'RegistraScript("Enable();")
+    End Sub
+    Protected Sub DdlTipoCuentas_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoCuentas.SelectedIndexChanged
+        If DdlTipoCuentas.SelectedValue.ToEntero = -2 Then
+            DdlCuentas.Enabled = True
+        Else
+            DdlCuentas.Enabled = False
+            DdlCuentas.SelectedValueExist(-1)
+        End If
+    End Sub
+
+    Public Overrides Sub VerifyRenderingInServerForm(control As Control)
+
+    End Sub
+
+End Class

Contabilidad2/RepEstadoResultadosHorizontal.aspx

@@ -10,8 +10,10 @@
     <asp:Literal ID="LtTitulo" Text="Estado de Resultados" runat="server" />
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
-
-
+    
+     <li>
+        <asp:LinkButton ID="LnkExportar" runat="server"><i class="fa fa-ad-excel"></i> Generar Excel</asp:LinkButton>
+    </li>
 
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
@@ -27,15 +29,15 @@
                         <div class="row">
                             <ul class="list-inline text-size-12">
 
-                                <label class="col-md-1" style="width: 80px;"  runat="server" id="LiEjercicioLbl"  >Ejercicio: </label>
+                                <label class="col-md-2" style="width: 80px;"  runat="server" id="LiEjercicioLbl"  >Ejercicio Inicio: </label>
                                 <div class="col-md-1 " runat="server" id="LiEjercicioDdl">
-                                      <asp:DropDownList ID="DdlEjercicio" runat="server" CssClass="select2me" DataTextField="Ejercicio" DataValueField="Ejercicio" Width="100px">
+                                      <asp:DropDownList ID="DdlEjercicio" runat="server" CssClass="select2me" DataTextField="Ejercicio" DataValueField="Ejercicio" Width="100px" AutoPostBack="true" OnSelectedIndexChanged="DdlEjercicio_SelectedIndexChanged"  >
                                     </asp:DropDownList>
                                 </div>                             
 
-                                <label class="col-md-1" style="width: 80px;"  runat="server" id="LiEjercicioLbl2" visible="false" >Ejercicio Final: </label>
+                                <label class="col-md-2" style="width: 80px;"  runat="server" id="LiEjercicioLbl2" visible="false" > Ejercicio Fin: </label>
                                 <div class="col-md-1 " runat="server" id="LiEjercicioDdl2" visible="false" >
-                                      <asp:DropDownList ID="DdlEjercicio2" runat="server" CssClass="select2me" DataTextField="Ejercicio" DataValueField="Ejercicio" Width="100px">
+                                      <asp:DropDownList ID="DdlEjercicio2" runat="server" CssClass="select2me" DataTextField="Ejercicio" DataValueField="Ejercicio" Width="100px"  AutoPostBack="true" OnSelectedIndexChanged="DdlEjercicio2_SelectedIndexChanged">
                                     </asp:DropDownList>
                                 </div>                                  
                                 
@@ -92,7 +94,7 @@
                         <td width="100%" padding="0">
                             <asp:UpdatePanel ID="UpDatos" UpdateMode="Conditional" runat="server">
                                 <ContentTemplate>
-                                    <asp:GridView ID="GvIngresosMes" runat="server" AutoGenerateColumns="False" DataKeyNames="" OnRowDataBound="GvIngresos_RowDataBound" ShowHeaderWhenEmpty="true" CssClass="table table-striped table-hover Widthall" Style="margin-top: -10px; text-align: center;" GridLines="None">
+                                    <asp:GridView ID="GvIngresosMes" runat="server" AutoGenerateColumns="False" DataKeyNames="ImporteActual,ImporteAcumulado" OnRowDataBound="GvIngresos_RowDataBound" ShowHeaderWhenEmpty="true" CssClass="table table-striped table-hover Widthall" Style="margin-top: -10px; text-align: center;" GridLines="None">
                                         <Columns>
                                             <asp:TemplateField>
                                                 <ItemTemplate>
@@ -106,16 +108,16 @@
                                             </asp:TemplateField>
                                             <asp:TemplateField HeaderText="Período Actual">
                                                 <ItemTemplate>
-                                                    <asp:HyperLink ID="HLActual" runat="server" Text='<%# Eval("ImporteActual", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
-                                                    <%--<asp:Label ID="LbActual" runat="server" Text='<%# Eval("ImporteActual", "{0:N2}")%>'></asp:Label>--%>
+                                                    <asp:HyperLink ID="HLActual" runat="server" Text='<%# Eval("ImporteActual")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>                                                    
+                                                    <%--<asp:HyperLink ID="HyperLink1" runat="server" Text='<%# Eval("ImporteActual", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>                                                    --%>
                                                 </ItemTemplate>
                                                 <ItemStyle Width="150px" HorizontalAlign="Right" />
                                             </asp:TemplateField>
                                             <asp:BoundField HeaderText="%" DataField="PorcentajeActual" DataFormatString="{0:N2}" ItemStyle-Width="100px" />
                                             <asp:TemplateField HeaderText="Período Acumulado">
                                                 <ItemTemplate>
-                                                    <asp:HyperLink ID="HLAnterior" runat="server" Text='<%# Eval("ImporteAcumulado", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
-                                                    <%--<asp:Label ID="LbAnterior" runat="server" Text='<%# Eval("ImporteAnterior", "{0:N2}")%>'></asp:Label>--%>
+                                                    <asp:HyperLink ID="HLAnterior" runat="server" Text='<%# Eval("ImporteAcumulado")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>                                                    
+                                                    <%--<asp:HyperLink ID="HyperLink1" runat="server" Text='<%# Eval("ImporteAcumulado", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>                                                    --%>
                                                 </ItemTemplate>
                                                 <ItemStyle Width="150px" HorizontalAlign="Right" />
                                             </asp:TemplateField>
@@ -124,7 +126,7 @@
                                     </asp:GridView>
                                     <br />
                                     <br />
-                                    <asp:GridView ID="GvGastosMes" runat="server" AutoGenerateColumns="False" DataKeyNames="" OnRowDataBound="GvGastos_RowDataBound" ShowHeaderWhenEmpty="true" CssClass="table table-striped table-hover Widthall" Style="margin-top: -10px; text-align: center;" GridLines="None">
+                                    <asp:GridView ID="GvGastosMes" runat="server" AutoGenerateColumns="False" DataKeyNames="ImporteActual,ImporteAcumulado" OnRowDataBound="GvGastos_RowDataBound" ShowHeaderWhenEmpty="true" CssClass="table table-striped table-hover Widthall" Style="margin-top: -10px; text-align: center;" GridLines="None">
                                         <Columns>
                                             <asp:TemplateField>
                                                 <ItemTemplate>
@@ -161,7 +163,7 @@
 
                 <asp:UpdatePanel ID="UPPTotal" runat="server">
                     <ContentTemplate>
-                        <table class="table table-striped table-hover Widthall">
+                        <table class="table table-striped table-hover Widthall" runat="server" id="TMesT1">
                             <tr>
                                 <td align="center">
                                     <h4>Resultados del Ejercicio:</h4>
@@ -169,6 +171,7 @@
                                 <td width="30%" align="right">
                                     <asp:Label runat="server" Font-Bold="true" ID="LbTotalActual"></asp:Label>
                                 </td>
+                                <td></td>
                                 <td width="30%" align="right">
                                     <asp:Label runat="server" Font-Bold="true" ID="LbTotalAnterior"></asp:Label>
                                 </td>
@@ -192,11 +195,13 @@
                             <asp:UpdatePanel ID="UpDatosMesH" UpdateMode="Conditional" runat="server">
                                 <ContentTemplate>
 
-                                    <asp:GridView ID="GvIngresosMesH" runat="server" AutoGenerateColumns="False" DataKeyNames="" OnRowDataBound="GvIngresosMesH_RowDataBound" ShowHeaderWhenEmpty="true" CssClass="table table-striped table-hover Widthall" Style="margin-top: -10px; text-align: center;" GridLines="None">
+                                    <asp:GridView ID="GvIngresosMesH" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCuenta,Enero,Febrero,Marzo,Abril,Mayo,Junio,Julio,Agosto,Septiembre,Octubre,Noviembre,Diciembre,PorcentajeAcumulado" OnRowDataBound="GvIngresosMesH_RowDataBound" ShowHeaderWhenEmpty="true" CssClass="table table-striped table-hover Widthall" Style="margin-top: -10px; text-align: center;" GridLines="None">
                                         <Columns>
+                                            
                                             <asp:TemplateField>
                                                 <ItemTemplate>
-                                                    <asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>
+                                                    <%--<asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>--%>
+                                                    <asp:HyperLink ID="HLNombre" runat="server" Text='<%# Eval("Nombre")%>' CssClass="Texto" Target="_blank"   ></asp:HyperLink>
                                                 </ItemTemplate>
                                                 <ItemStyle HorizontalAlign="Left" />
                                                 <HeaderTemplate>
@@ -298,12 +303,13 @@
                                     </asp:GridView>
                                     <br />
                                     <br />
-                                    <asp:GridView ID="GvGastosMesH" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCuenta" OnRowDataBound="GvGastosMesH_RowDataBound" ShowHeaderWhenEmpty="true" CssClass="table table-striped table-hover Widthall" Style="margin-top: -10px; text-align: center;" GridLines="None">
+                                    <asp:GridView ID="GvGastosMesH" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCuenta,Enero,Febrero,Marzo,Abril,Mayo,Junio,Julio,Agosto,Septiembre,Octubre,Noviembre,Diciembre,PorcentajeAcumulado" OnRowDataBound="GvGastosMesH_RowDataBound" ShowHeaderWhenEmpty="true" CssClass="table table-striped table-hover Widthall" Style="margin-top: -10px; text-align: center;" GridLines="None">
                                         <Columns>
                                             
                                             <asp:TemplateField>
                                                 <ItemTemplate>
-                                                    <asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>
+                                                    <%--<asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>--%>
+                                                    <asp:HyperLink ID="HLNombre" runat="server" Text='<%# Eval("Nombre")%>' CssClass="Texto" Target="_blank"   ></asp:HyperLink>
                                                 </ItemTemplate>
                                                 <ItemStyle HorizontalAlign="Left" />
                                                 <HeaderTemplate>
@@ -405,7 +411,7 @@
                                     </asp:GridView>
                                       <br />
                                     <br />
-                                    <asp:GridView ID="GvTotalesMesH" runat="server" AutoGenerateColumns="False" DataKeyNames="" OnRowDataBound="GvTotalesMesH_RowDataBound" ShowHeaderWhenEmpty="true" CssClass="table table-striped table-hover Widthall" Style="margin-top: -10px; text-align: center;" GridLines="None" >
+                                    <asp:GridView ID="GvTotalesMesH" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCuenta,Enero,Febrero,Marzo,Abril,Mayo,Junio,Julio,Agosto,Septiembre,Octubre,Noviembre,Diciembre,PorcentajeAcumulado" OnRowDataBound="GvTotalesMesH_RowDataBound" ShowHeaderWhenEmpty="true" CssClass="table table-striped table-hover Widthall" Style="margin-top: -10px; text-align: center;" GridLines="None" >
                                         <Columns>
                                             
                                             <asp:TemplateField>
@@ -492,14 +498,7 @@
                                                 <ItemStyle Width="150px" HorizontalAlign="Right" />
                                             </asp:TemplateField>
 
-                                          <%--  <asp:TemplateField HeaderText="Período Actual">
-                                                <ItemTemplate>
-                                                    <asp:HyperLink ID="HLActual" runat="server" Text='<%# Eval("ImporteActual", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
-                                                </ItemTemplate>
-                                                <ItemStyle Width="150px" HorizontalAlign="Right" />
-                                            </asp:TemplateField>--%>
-
-                                           <%-- <asp:BoundField HeaderText="%" DataField="PorcentajeActual" DataFormatString="{0:N2}" ItemStyle-Width="100px" />--%>
+                                        
                                             <asp:TemplateField HeaderText="Acumulado">
                                                 <ItemTemplate>
                                                     <asp:HyperLink ID="HLAnterior" runat="server" Text='<%# Eval("ImporteAcumulado", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
@@ -558,13 +557,13 @@
                                         <Columns>
                                             <asp:TemplateField>
                                                 <ItemTemplate>
-                                                    <asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>
+                                                    <asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>' Width="238px" ></asp:Label>
                                                 </ItemTemplate>
                                                 <ItemStyle HorizontalAlign="Left" />
                                                 <HeaderTemplate>
                                                     <asp:Label ID="LbTitulo" runat="server" Style="padding-left: 20px;" Font-Size="14px" Text="INGRESOS Y OTROS BENEFICIOS"></asp:Label>
                                                 </HeaderTemplate>
-                                                <HeaderStyle HorizontalAlign="Left" Width="400px" />
+                                                <HeaderStyle HorizontalAlign="Left" Width="238" />
                                             </asp:TemplateField>
 
                                             <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
@@ -593,41 +592,7 @@
                                             <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
                                             <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
 
-                                          <%--  <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}"  Target="_blank" />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}"  Target="_blank" />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank"  />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank"  />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank"  />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}"  Target="_blank" />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}"  Target="_blank" />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}"  Target="_blank" />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}"  Target="_blank" />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
-                                            <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />--%>
-
-
-                                            <%--<asp:TemplateField HeaderText="Período Actual">
-                                                <ItemTemplate>
-                                                    <asp:HyperLink ID="HLActual" runat="server" Text='<%# Eval("ImporteActual", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>                                                    
-                                                </ItemTemplate>
-                                                <ItemStyle Width="150px" HorizontalAlign="Right" />
-                                            </asp:TemplateField>--%>
-
-                                            <%--<asp:BoundField HeaderText="%" DataField="PorcentajeActual" DataFormatString="{0:N2}" ItemStyle-Width="100px" />--%>
+                                       
                                             <asp:TemplateField HeaderText="Acumulado">
                                                 <ItemTemplate>
                                                     <asp:HyperLink ID="HLAnterior" runat="server" Text='<%# Eval("ImporteAcumulado", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
@@ -644,13 +609,13 @@
 
                                             <asp:TemplateField>
                                                 <ItemTemplate>
-                                                    <asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>
+                                                    <asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>' Width="238px"></asp:Label>
                                                 </ItemTemplate>
                                                 <ItemStyle HorizontalAlign="Left" />
                                                 <HeaderTemplate>
                                                     <asp:Label ID="LbTitulo" runat="server" Style="padding-left: 20px;" Font-Size="14px" Text="GASTOS Y OTRAS PÉRDIDAS"></asp:Label>
                                                 </HeaderTemplate>
-                                                <HeaderStyle HorizontalAlign="Left" Width="400px" />
+                                                <HeaderStyle HorizontalAlign="Left" Width="238px" />
                                             </asp:TemplateField>
 
                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
@@ -700,47 +665,47 @@
                                     </asp:GridView>
                                     <br />
                                     <br />
-                                    <asp:GridView ID="GvTotalesAnualH" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto,CountDinamico" OnRowDataBound="GvTotalesAnualH_RowDataBound" ShowHeaderWhenEmpty="true" CssClass="table table-striped table-hover Widthall" Style="margin-top: -10px; text-align: center;" GridLines="None">
+                                    <asp:GridView ID="GvTotalesAnualH" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto,CountDinamico" OnRowDataBound="GvTotalesAnualH_RowDataBound" ShowHeader="false" ShowHeaderWhenEmpty="true" CssClass="table table-striped table-hover Widthall" Style="margin-top: -10px; text-align: center;" GridLines="None">
                                         <Columns>
 
                                             <asp:TemplateField>
                                                 <ItemTemplate>
-                                                    <asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>
+                                                    <asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>' Width="238px" ></asp:Label>
                                                 </ItemTemplate>
                                                 <ItemStyle HorizontalAlign="Left" />
                                                 <HeaderTemplate>
                                                     <asp:Label ID="LbTitulo" runat="server" Style="padding-left: 20px;" Font-Size="14px" Text="GASTOS Y OTRAS PÉRDIDAS"></asp:Label>
                                                 </HeaderTemplate>
-                                                <ItemStyle HorizontalAlign="Left" Width="400px" />
+                                                <ItemStyle HorizontalAlign="Left" Width="238px" />
                                             </asp:TemplateField>
 
                                
 
-                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
-                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
-                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
-                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
-                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
-                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
-                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
-                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
-                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
-                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
-                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
-                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
-                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
-                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
-                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
-                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
-                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
-                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
-                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
-                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
-                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
-                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
-                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
-                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
-                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="54px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="54px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="54px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="54px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="54px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="54px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="54px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="54px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="54px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="54px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="54px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="54px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="54px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="54px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="54px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="54px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="54px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="54px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="54px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="54px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="54px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="54px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="54px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="54px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="54px" />
 
                                             <%--  <asp:TemplateField HeaderText="Período Actual">
                                                 <ItemTemplate>
@@ -756,7 +721,7 @@
                                                 </ItemTemplate>
                                                 <ItemStyle Width="150px" HorizontalAlign="Right" />
                                             </asp:TemplateField>
-                                            <asp:BoundField HeaderText="%" DataField="PorcentajeAcumulado" DataFormatString="{0:N2}" ItemStyle-Width="100px" />
+                                            <asp:BoundField HeaderText="%" DataField="PorcentajeAcumulado" DataFormatString="{0:N2}" ItemStyle-Width="54px" />
                                         </Columns>
 
                                     </asp:GridView>

Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb

@@ -3,7 +3,9 @@ Option Strict On
 
 Imports System.Data
 Imports System.Drawing
+Imports System.IO
 Imports Extensiones
+Imports GemBox.Spreadsheet
 Imports Microsoft.Reporting.WebForms
 
 Partial Class Contabilidad_RepEstadoResultadosHorizontal
@@ -21,6 +23,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             ViewState("DtDatosMes") = value
         End Set
     End Property
+
     Private Property DtIngresosMes As DataTable
         Get
             DtIngresosMes = DirectCast(ViewState("DtIngresosMes"), DataTable)
@@ -291,6 +294,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
         End If
 
         If Tab.ActiveTabIndex = 2 Then
+            ValidaEjercicios()
+
 
             LiSubProyectoDdl.Visible = True
             LiSubProyectoLbl.Visible = True
@@ -326,6 +331,39 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             LiDivisorLbl.Visible = True
         End If
 
+        UpFiltros.Update()
+    End Sub
+
+
+    Protected Sub DdlEjercicio_SelectedIndexChanged(sender As Object, e As EventArgs)
+        ValidaEjercicios()
+    End Sub
+
+    Protected Sub DdlEjercicio2_SelectedIndexChanged(sender As Object, e As EventArgs)
+        ValidaEjercicios()
+    End Sub
+
+    Private Sub ValidaEjercicios()
+
+
+        Dim EInicio As Integer = DdlEjercicio.SelectedValue.ToEntero
+
+
+        If EInicio > DdlEjercicio2.SelectedValue.ToEntero Then
+
+            If DdlEjercicio2.Items.Count > 0 Then
+                DdlEjercicio2.SelectedIndex = DdlEjercicio2.Items.Count - 1
+            End If
+
+            Dim Fejerciosio As Integer = DdlEjercicio2.SelectedValue.ToEntero
+
+            If Not EInicio + 1 > Fejerciosio Then
+                DdlEjercicio2.SelectedValueExist(EInicio + 1)
+            End If
+
+        End If
+
+
         UpFiltros.Update()
     End Sub
 
@@ -366,6 +404,11 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
         'AÑO HORIZONTAL
         If Tab.ActiveTabIndex = 2 Then
+
+            If DdlEjercicio.SelectedValue.ToEntero > DdlEjercicio2.SelectedValue.ToEntero Then
+                Alert("El ejercicio inicio no debe ser mayor al ejercicio fin.", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
             CargaDatosAnualH()
         End If
 
@@ -478,12 +521,20 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
 
 
-    Private Sub SumaTotales()
-        'Llena Lb´s Totales
-        LbTotalActual.Text = TotalActualMes.ToString.FormatoNumero
-
-        LbTotalAnterior.Text = TotalAnteriorMes.ToString.FormatoNumero
-
+    Private Sub SumaTotales()
+        'Llena Lb´s Totales
+
+
+        If DdlDivisor.SelectedValue.ToEntero > 1 Then
+            LbTotalActual.Text = TotalActualMes.ToString("###,###,##0")
+            LbTotalAnterior.Text = TotalAnteriorMes.ToString("###,###,##0")
+        Else
+            LbTotalActual.Text = TotalActualMes.ToString("###,###,##0.00")
+            LbTotalAnterior.Text = TotalAnteriorMes.ToString("###,###,##0.00")
+        End If
+
+
+
         LbTotalActual.ForeColor = If(TotalActualMes < 0, Drawing.Color.Red, Color.Black)
 
         LbTotalAnterior.ForeColor = If(TotalAnteriorMes < 0, Drawing.Color.Red, Color.Black)
@@ -493,8 +544,10 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
 #Region "GV´S ROW DATA BOUND"
 
-    Protected Sub GvIngresos_RowDataBound(sender As Object, e As GridViewRowEventArgs)
-        If e.Row.RowType = DataControlRowType.DataRow Then
+    Protected Sub GvIngresos_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+
+        If e.Row.RowType = DataControlRowType.DataRow Then
+
             If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then
                 TotalActualMes += e.Row.DBCampo("ImporteActual").ToString.ToDouble
                 TotalAnteriorMes += e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble
@@ -507,10 +560,20 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             End If
 
             If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then
-                e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString)
-                e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString)
-            End If
 
+                e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString)
+
+
+                If DdlDivisor.SelectedValue.ToEntero > 1 Then
+                    e.Row.FCHyperLink("HLActual").Text = e.Row.DataKey("ImporteActual").ToEntero.ToString("###,###,##0")
+                    e.Row.FCHyperLink("HLAnterior").Text = e.Row.DataKey("ImporteAcumulado").ToEntero.ToString("###,###,##0").ToString
+                Else
+                    e.Row.FCHyperLink("HLActual").Text = e.Row.DataKey("ImporteActual").ToDecimal.ToString("###,###,##0.00")
+                    e.Row.FCHyperLink("HLAnterior").Text = e.Row.DataKey("ImporteAcumulado").ToDecimal.ToString("###,###,##0.00").ToString
+                End If
+
+            End If
 
 
             If e.Row.DBCampo("ImporteActual").ToString.ToDouble < 0 Then
@@ -540,6 +603,14 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
                 e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString)
             End If
 
+            If DdlDivisor.SelectedValue.ToEntero > 1 Then
+                e.Row.FCHyperLink("HLActual").Text = e.Row.DataKey("ImporteActual").ToEntero.ToString("###,###,##0")
+                e.Row.FCHyperLink("HLAnterior").Text = e.Row.DataKey("ImporteAcumulado").ToEntero.ToString("###,###,##0").ToString
+            Else
+                e.Row.FCHyperLink("HLActual").Text = e.Row.DataKey("ImporteActual").ToDecimal.ToString("###,###,##0.00")
+                e.Row.FCHyperLink("HLAnterior").Text = e.Row.DataKey("ImporteAcumulado").ToDecimal.ToString("###,###,##0.00").ToString
+            End If
+
             If e.Row.DBCampo("ImporteActual").ToString.ToDouble < 0 Then
                 e.Row.FCHyperLink("HLActual").ForeColor = Drawing.Color.Red
             End If
@@ -579,8 +650,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
         ObjConta.Dispose()
 
         If DtDatosMesH IsNot Nothing Then
-            CargaGridsMesH()
-            SumaTotalesMesH()
+            CargaGridsMesH()
         Else
 
         End If
@@ -616,7 +686,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             Row.Item("Noviembre") = DtIngresosMesH.SUM("Noviembre", "NOT CtaMayor in (3,4)")
             Row.Item("Diciembre") = DtIngresosMesH.SUM("Diciembre", "NOT CtaMayor in (3,4)")
 
-            Row.Item("Nombre") = "TOTAL INGRESOS "
+            Row.Item("Nombre") = "TOTAL INGRESOS"
             Row.Item("ImporteActual") = TotalActual.ToString
             Row.Item("PorcentajeActual") = "100.00"
             Row.Item("ImporteAcumulado") = TotalAnterior.ToString
@@ -714,34 +784,25 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
     End Sub
 
-    Private Sub SumaTotalesMesH()
-        ''Llena Lb´s Totales
-        ''*********************************************************************************
-        'LbTotalActual.Text = TotalActualMes.ToString.FormatoNumero
-        'LbTotalAnterior.Text = TotalAnteriorMes.ToString.FormatoNumero
-
-        'LbTotalActual.ForeColor = If(TotalActualMes < 0, Drawing.Color.Red, Color.Black)
-        'LbTotalAnterior.ForeColor = If(TotalAnteriorMes < 0, Drawing.Color.Red, Color.Black)
-
-
-    End Sub
 
     Protected Sub GvIngresosMesH_RowDataBound(sender As Object, e As GridViewRowEventArgs)
 
         If e.Row.RowType = DataControlRowType.DataRow Then
             If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then
                 TotalActualMes += e.Row.DBCampo("ImporteActual").ToString.ToDouble
-                TotalAnteriorMes += e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble
-                'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray
-                'e.Row.ControlStyle.ForeColor = Drawing.Color.White
+                TotalAnteriorMes += e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble
                 e.Row.ControlStyle.Font.Bold = True
-            ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 Then
-                'e.Row.CssClass = "SubTotales3"
+            ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 Then
                 e.Row.ControlStyle.Font.Bold = True
             End If
 
             If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then
 
+
+                'e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoMensualHorizontal.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&FF=31/12/{DdlEjercicio.SelectedValue}&FI=01/01/{DdlEjercicio.SelectedValue}&ER=1"
+
+                e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoMensual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto=-1"
+
                 e.Row.FCHyperLink("HLEnero").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/01/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
                 e.Row.FCHyperLink("HLFebrero").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/02/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/02/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
                 e.Row.FCHyperLink("HLMarzo").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/03/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/03/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
@@ -759,14 +820,59 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
                 e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString)
             End If
 
-            'If e.Row.DBCampo("ImporteActual").ToString.ToDouble < 0 Then
-            '    e.Row.FCHyperLink("HLActual").ForeColor = Drawing.Color.Red
-            'End If
+            If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Or e.Row.DBCampo("Nombre") = "TOTAL INGRESOS" Then
+
+                If DdlDivisor.SelectedValue.ToEntero > 1 Then
+
+                    e.Row.FCHyperLink("HLEnero").Text = e.Row.DataKey("Enero").ToDecimal.ToString("###,###,##0")
+                    e.Row.FCHyperLink("HLFebrero").Text = e.Row.DataKey("Febrero").ToDecimal.ToString("###,###,##0")
+                    e.Row.FCHyperLink("HLMarzo").Text = e.Row.DataKey("Marzo").ToDecimal.ToString("###,###,##0")
+                    e.Row.FCHyperLink("HLAbril").Text = e.Row.DataKey("Abril").ToDecimal.ToString("###,###,##0")
+                    e.Row.FCHyperLink("HLMayo").Text = e.Row.DataKey("Mayo").ToDecimal.ToString("###,###,##0")
+                    e.Row.FCHyperLink("HLJunio").Text = e.Row.DataKey("Junio").ToDecimal.ToString("###,###,##0")
+                    e.Row.FCHyperLink("HLJulio").Text = e.Row.DataKey("Julio").ToDecimal.ToString("###,###,##0")
+                    e.Row.FCHyperLink("HLAgosto").Text = e.Row.DataKey("Agosto").ToDecimal.ToString("###,###,##0")
+                    e.Row.FCHyperLink("HLSeptiembre").Text = e.Row.DataKey("Septiembre").ToDecimal.ToString("###,###,##0")
+                    e.Row.FCHyperLink("HLOctubre").Text = e.Row.DataKey("Octubre").ToDecimal.ToString("###,###,##0")
+                    e.Row.FCHyperLink("HLNoviembre").Text = e.Row.DataKey("Noviembre").ToDecimal.ToString("###,###,##0")
+                    e.Row.FCHyperLink("HLDiciembre").Text = e.Row.DataKey("Diciembre").ToDecimal.ToString("###,###,##0")
+                Else
+                    e.Row.FCHyperLink("HLEnero").Text = e.Row.DataKey("Enero").ToDecimal.ToString("###,###,##0.00")
+                    e.Row.FCHyperLink("HLFebrero").Text = e.Row.DataKey("Febrero").ToDecimal.ToString("###,###,##0.00")
+                    e.Row.FCHyperLink("HLMarzo").Text = e.Row.DataKey("Marzo").ToDecimal.ToString("###,###,##0.00")
+                    e.Row.FCHyperLink("HLAbril").Text = e.Row.DataKey("Abril").ToDecimal.ToString("###,###,##0.00")
+                    e.Row.FCHyperLink("HLMayo").Text = e.Row.DataKey("Mayo").ToDecimal.ToString("###,###,##0.00")
+                    e.Row.FCHyperLink("HLJunio").Text = e.Row.DataKey("Junio").ToDecimal.ToString("###,###,##0.00")
+                    e.Row.FCHyperLink("HLJulio").Text = e.Row.DataKey("Julio").ToDecimal.ToString("###,###,##0.00")
+                    e.Row.FCHyperLink("HLAgosto").Text = e.Row.DataKey("Agosto").ToDecimal.ToString("###,###,##0.00")
+                    e.Row.FCHyperLink("HLSeptiembre").Text = e.Row.DataKey("Septiembre").ToDecimal.ToString("###,###,##0.00")
+                    e.Row.FCHyperLink("HLOctubre").Text = e.Row.DataKey("Octubre").ToDecimal.ToString("###,###,##0.00")
+                    e.Row.FCHyperLink("HLNoviembre").Text = e.Row.DataKey("Noviembre").ToDecimal.ToString("###,###,##0.00")
+                    e.Row.FCHyperLink("HLDiciembre").Text = e.Row.DataKey("Diciembre").ToDecimal.ToString("###,###,##0.00")
+                End If
+
+            End If
+
+
+            e.Row.FCHyperLink("HLEnero").ForeColor = If(e.Row.DataKey("Enero").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLEnero").ForeColor)
+            e.Row.FCHyperLink("HLFebrero").ForeColor = If(e.Row.DataKey("Febrero").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLFebrero").ForeColor)
+            e.Row.FCHyperLink("HLMarzo").ForeColor = If(e.Row.DataKey("Marzo").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLMarzo").ForeColor)
+            e.Row.FCHyperLink("HLAbril").ForeColor = If(e.Row.DataKey("Abril").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLAbril").ForeColor)
+            e.Row.FCHyperLink("HLMayo").ForeColor = If(e.Row.DataKey("Mayo").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLAbril").ForeColor)
+            e.Row.FCHyperLink("HLJunio").ForeColor = If(e.Row.DataKey("Junio").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLMayo").ForeColor)
+            e.Row.FCHyperLink("HLJulio").ForeColor = If(e.Row.DataKey("Julio").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLJulio").ForeColor)
+            e.Row.FCHyperLink("HLAgosto").ForeColor = If(e.Row.DataKey("Agosto").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLAgosto").ForeColor)
+            e.Row.FCHyperLink("HLSeptiembre").ForeColor = If(e.Row.DataKey("Septiembre").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLSeptiembre").ForeColor)
+            e.Row.FCHyperLink("HLOctubre").ForeColor = If(e.Row.DataKey("Octubre").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLOctubre").ForeColor)
+            e.Row.FCHyperLink("HLNoviembre").ForeColor = If(e.Row.DataKey("Noviembre").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLNoviembre").ForeColor)
+            e.Row.FCHyperLink("HLDiciembre").ForeColor = If(e.Row.DataKey("Diciembre").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLDiciembre").ForeColor)
 
             If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then
-                    e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red
-                End If
-            End If
+                e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red
+            End If
+
+        End If
+
     End Sub
 
     Protected Sub GvGastosMesH_RowDataBound(sender As Object, e As GridViewRowEventArgs)
@@ -786,6 +892,9 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
                 Dim CveCuenta As Integer = e.Row.DataKey("CveCuenta").ToEntero
 
+                'e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoMensualHorizontal.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&FF=31/12/{DdlEjercicio.SelectedValue}&FI=01/01/{DdlEjercicio.SelectedValue}&ER=1"
+                e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoMensual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto=-1"
+
                 e.Row.FCHyperLink("HLEnero").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/01/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
                 e.Row.FCHyperLink("HLFebrero").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/02/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/02/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
                 e.Row.FCHyperLink("HLMarzo").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/03/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/03/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
@@ -801,8 +910,59 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
                 e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString)
 
-            End If
-
+            End If
+
+
+
+            If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Or e.Row.DBCampo("Nombre") = "TOTAL GASTOS" Then
+
+                If DdlDivisor.SelectedValue.ToEntero > 1 Then
+
+                    'Enero,Febrero,Marzo,Abril,Mayo,Junio,Julio,Agosto,Septiembre,Octubre,Noviembre,Diciembre,PorcentajeAcumulado
+                    e.Row.FCHyperLink("HLEnero").Text = e.Row.DataKey("Enero").ToDecimal.ToString("###,###,##0")
+                    e.Row.FCHyperLink("HLFebrero").Text = e.Row.DataKey("Febrero").ToDecimal.ToString("###,###,##0")
+                    e.Row.FCHyperLink("HLMarzo").Text = e.Row.DataKey("Marzo").ToDecimal.ToString("###,###,##0")
+                    e.Row.FCHyperLink("HLAbril").Text = e.Row.DataKey("Abril").ToDecimal.ToString("###,###,##0")
+                    e.Row.FCHyperLink("HLMayo").Text = e.Row.DataKey("Mayo").ToDecimal.ToString("###,###,##0")
+                    e.Row.FCHyperLink("HLJunio").Text = e.Row.DataKey("Junio").ToDecimal.ToString("###,###,##0")
+                    e.Row.FCHyperLink("HLJulio").Text = e.Row.DataKey("Julio").ToDecimal.ToString("###,###,##0")
+                    e.Row.FCHyperLink("HLAgosto").Text = e.Row.DataKey("Agosto").ToDecimal.ToString("###,###,##0")
+                    e.Row.FCHyperLink("HLSeptiembre").Text = e.Row.DataKey("Septiembre").ToDecimal.ToString("###,###,##0")
+                    e.Row.FCHyperLink("HLOctubre").Text = e.Row.DataKey("Octubre").ToDecimal.ToString("###,###,##0")
+                    e.Row.FCHyperLink("HLNoviembre").Text = e.Row.DataKey("Noviembre").ToDecimal.ToString("###,###,##0")
+                    e.Row.FCHyperLink("HLDiciembre").Text = e.Row.DataKey("Diciembre").ToDecimal.ToString("###,###,##0")
+
+                Else
+                    e.Row.FCHyperLink("HLEnero").Text = e.Row.DataKey("Enero").ToDecimal.ToString("###,###,##0.00")
+                    e.Row.FCHyperLink("HLFebrero").Text = e.Row.DataKey("Febrero").ToDecimal.ToString("###,###,##0.00")
+                    e.Row.FCHyperLink("HLMarzo").Text = e.Row.DataKey("Marzo").ToDecimal.ToString("###,###,##0.00")
+                    e.Row.FCHyperLink("HLAbril").Text = e.Row.DataKey("Abril").ToDecimal.ToString("###,###,##0.00")
+                    e.Row.FCHyperLink("HLMayo").Text = e.Row.DataKey("Mayo").ToDecimal.ToString("###,###,##0.00")
+                    e.Row.FCHyperLink("HLJunio").Text = e.Row.DataKey("Junio").ToDecimal.ToString("###,###,##0.00")
+                    e.Row.FCHyperLink("HLJulio").Text = e.Row.DataKey("Julio").ToDecimal.ToString("###,###,##0.00")
+                    e.Row.FCHyperLink("HLAgosto").Text = e.Row.DataKey("Agosto").ToDecimal.ToString("###,###,##0.00")
+                    e.Row.FCHyperLink("HLSeptiembre").Text = e.Row.DataKey("Septiembre").ToDecimal.ToString("###,###,##0.00")
+                    e.Row.FCHyperLink("HLOctubre").Text = e.Row.DataKey("Octubre").ToDecimal.ToString("###,###,##0.00")
+                    e.Row.FCHyperLink("HLNoviembre").Text = e.Row.DataKey("Noviembre").ToDecimal.ToString("###,###,##0.00")
+                    e.Row.FCHyperLink("HLDiciembre").Text = e.Row.DataKey("Diciembre").ToDecimal.ToString("###,###,##0.00")
+                End If
+            End If
+
+            e.Row.FCHyperLink("HLEnero").ForeColor = If(e.Row.DataKey("Enero").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLEnero").ForeColor)
+            e.Row.FCHyperLink("HLFebrero").ForeColor = If(e.Row.DataKey("Febrero").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLFebrero").ForeColor)
+            e.Row.FCHyperLink("HLMarzo").ForeColor = If(e.Row.DataKey("Marzo").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLMarzo").ForeColor)
+            e.Row.FCHyperLink("HLAbril").ForeColor = If(e.Row.DataKey("Abril").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLAbril").ForeColor)
+            e.Row.FCHyperLink("HLMayo").ForeColor = If(e.Row.DataKey("Mayo").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLAbril").ForeColor)
+            e.Row.FCHyperLink("HLJunio").ForeColor = If(e.Row.DataKey("Junio").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLMayo").ForeColor)
+            e.Row.FCHyperLink("HLJulio").ForeColor = If(e.Row.DataKey("Julio").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLJulio").ForeColor)
+            e.Row.FCHyperLink("HLAgosto").ForeColor = If(e.Row.DataKey("Agosto").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLAgosto").ForeColor)
+            e.Row.FCHyperLink("HLSeptiembre").ForeColor = If(e.Row.DataKey("Septiembre").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLSeptiembre").ForeColor)
+            e.Row.FCHyperLink("HLOctubre").ForeColor = If(e.Row.DataKey("Octubre").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLOctubre").ForeColor)
+            e.Row.FCHyperLink("HLNoviembre").ForeColor = If(e.Row.DataKey("Noviembre").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLNoviembre").ForeColor)
+            e.Row.FCHyperLink("HLDiciembre").ForeColor = If(e.Row.DataKey("Diciembre").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLDiciembre").ForeColor)
+
+
+
             If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then
                 e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red
             End If
@@ -818,6 +978,52 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
         If e.Row.RowType = DataControlRowType.DataRow Then
 
             e.Row.Attributes.Add("style", "Font-weight: bold")
+
+
+            If DdlDivisor.SelectedValue.ToEntero > 0 Then
+
+                e.Row.FCHyperLink("HLEnero").Text = e.Row.DataKey("Enero").ToDecimal.ToString("###,###,##0")
+                e.Row.FCHyperLink("HLFebrero").Text = e.Row.DataKey("Febrero").ToDecimal.ToString("###,###,##0")
+                e.Row.FCHyperLink("HLMarzo").Text = e.Row.DataKey("Marzo").ToDecimal.ToString("###,###,##0")
+                e.Row.FCHyperLink("HLAbril").Text = e.Row.DataKey("Abril").ToDecimal.ToString("###,###,##0")
+                e.Row.FCHyperLink("HLMayo").Text = e.Row.DataKey("Mayo").ToDecimal.ToString("###,###,##0")
+                e.Row.FCHyperLink("HLJunio").Text = e.Row.DataKey("Junio").ToDecimal.ToString("###,###,##0")
+                e.Row.FCHyperLink("HLJulio").Text = e.Row.DataKey("Julio").ToDecimal.ToString("###,###,##0")
+                e.Row.FCHyperLink("HLAgosto").Text = e.Row.DataKey("Agosto").ToDecimal.ToString("###,###,##0")
+                e.Row.FCHyperLink("HLSeptiembre").Text = e.Row.DataKey("Septiembre").ToDecimal.ToString("###,###,##0")
+                e.Row.FCHyperLink("HLOctubre").Text = e.Row.DataKey("Octubre").ToDecimal.ToString("###,###,##0")
+                e.Row.FCHyperLink("HLNoviembre").Text = e.Row.DataKey("Noviembre").ToDecimal.ToString("###,###,##0")
+                e.Row.FCHyperLink("HLDiciembre").Text = e.Row.DataKey("Diciembre").ToDecimal.ToString("###,###,##0")
+
+            Else
+                e.Row.FCHyperLink("HLEnero").Text = e.Row.DataKey("Enero").ToDecimal.ToString("###,###,##0.00")
+                e.Row.FCHyperLink("HLFebrero").Text = e.Row.DataKey("Febrero").ToDecimal.ToString("###,###,##0.00")
+                e.Row.FCHyperLink("HLMarzo").Text = e.Row.DataKey("Marzo").ToDecimal.ToString("###,###,##0.00")
+                e.Row.FCHyperLink("HLAbril").Text = e.Row.DataKey("Abril").ToDecimal.ToString("###,###,##0.00")
+                e.Row.FCHyperLink("HLMayo").Text = e.Row.DataKey("Mayo").ToDecimal.ToString("###,###,##0.00")
+                e.Row.FCHyperLink("HLJunio").Text = e.Row.DataKey("Junio").ToDecimal.ToString("###,###,##0.00")
+                e.Row.FCHyperLink("HLJulio").Text = e.Row.DataKey("Julio").ToDecimal.ToString("###,###,##0.00")
+                e.Row.FCHyperLink("HLAgosto").Text = e.Row.DataKey("Agosto").ToDecimal.ToString("###,###,##0.00")
+                e.Row.FCHyperLink("HLSeptiembre").Text = e.Row.DataKey("Septiembre").ToDecimal.ToString("###,###,##0.00")
+                e.Row.FCHyperLink("HLOctubre").Text = e.Row.DataKey("Octubre").ToDecimal.ToString("###,###,##0.00")
+                e.Row.FCHyperLink("HLNoviembre").Text = e.Row.DataKey("Noviembre").ToDecimal.ToString("###,###,##0.00")
+                e.Row.FCHyperLink("HLDiciembre").Text = e.Row.DataKey("Diciembre").ToDecimal.ToString("###,###,##0.00")
+            End If
+
+            e.Row.FCHyperLink("HLEnero").ForeColor = If(e.Row.DataKey("Enero").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLEnero").ForeColor)
+            e.Row.FCHyperLink("HLFebrero").ForeColor = If(e.Row.DataKey("Febrero").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLFebrero").ForeColor)
+            e.Row.FCHyperLink("HLMarzo").ForeColor = If(e.Row.DataKey("Marzo").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLMarzo").ForeColor)
+            e.Row.FCHyperLink("HLAbril").ForeColor = If(e.Row.DataKey("Abril").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLAbril").ForeColor)
+            e.Row.FCHyperLink("HLMayo").ForeColor = If(e.Row.DataKey("Mayo").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLAbril").ForeColor)
+            e.Row.FCHyperLink("HLJunio").ForeColor = If(e.Row.DataKey("Junio").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLMayo").ForeColor)
+            e.Row.FCHyperLink("HLJulio").ForeColor = If(e.Row.DataKey("Julio").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLJulio").ForeColor)
+            e.Row.FCHyperLink("HLAgosto").ForeColor = If(e.Row.DataKey("Agosto").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLAgosto").ForeColor)
+            e.Row.FCHyperLink("HLSeptiembre").ForeColor = If(e.Row.DataKey("Septiembre").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLSeptiembre").ForeColor)
+            e.Row.FCHyperLink("HLOctubre").ForeColor = If(e.Row.DataKey("Octubre").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLOctubre").ForeColor)
+            e.Row.FCHyperLink("HLNoviembre").ForeColor = If(e.Row.DataKey("Noviembre").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLNoviembre").ForeColor)
+            e.Row.FCHyperLink("HLDiciembre").ForeColor = If(e.Row.DataKey("Diciembre").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLDiciembre").ForeColor)
+
+
         End If
 
     End Sub
@@ -928,6 +1134,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             Row.Item("ImporteAcumulado") = DtIngresosAnualH.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)") 'TotalAnterior.ToString
             Row.Item("PorcentajeAcumulado") = "100.00"
             Row.Item("CtaMayor") = -1
+            Row.Item("CountDinamico") = DtGastosAnualH.MAX("CountDinamico")
             DtIngresosAnualH.Rows.Add(Row)
         Else
             Row.Item("Nombre") = "TOTAL INGRESOS "
@@ -989,7 +1196,9 @@ 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)")
+
             Next
 
             Row.Item("Nombre") = "TOTAL GASTOS"
@@ -998,6 +1207,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             Row.Item("ImporteAcumulado") = TotalAnterior.ToString
             Row.Item("PorcentajeAcumulado") = If(T2 > 0, (TotalAnterior * 100 / T2).ToString, "0").FormatoNumero
             Row.Item("CtaMayor") = -1
+            Row.Item("CountDinamico") = DtGastosAnualH.MAX("CountDinamico")
             DtGastosAnualH.Rows.Add(Row)
         Else
             Row.Item("Nombre") = "TOTAL GASTOS"
@@ -1018,11 +1228,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             Next
 
             Row.Item("Nombre") = "Resultados del Ejercicio"
-            'Row.Item("ImporteActual") = TotalActual.ToString
-            'Row.Item("PorcentajeActual") = "100.00"
             Row.Item("ImporteAcumulado") = DtIngresosAnualH.SUM($"ImporteAcumulado", "Not CtaMayor in (-1,3,4)") - DtGastosAnualH.SUM($"ImporteAcumulado", "Not CtaMayor in (-1,3,4)")
-            'Row.Item("PorcentajeAcumulado") = "100.00"
-            'Row.Item("CtaMayor") = -1
+
 
             DTTotalesAnualH.Rows.Add(Row)
 
@@ -1062,19 +1269,37 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
             Dim CveCuenta As Integer = e.Row.DataKey("CveCuenta").ToEntero
             Dim CveSubProyecto As Integer = e.Row.DataKey("CveSubProyecto").ToEntero
+
             If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then
 
 
                 Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero
                 Dim IndiceInicio As Integer = 1
                 Dim IndiceMax As Integer = 1 + CountDinamico
+
                 For IndiceInicio = 1 To IndiceMax
                     Dim Anio As String = CType(GvGastosAnualH.Columns(IndiceInicio), BoundField).DataField
-                    Dim Importe As String = e.Row.Cells(IndiceInicio).Text
-                    e.Row.Cells(IndiceInicio).Text = $"<a target='_blank' href='./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF=31/12/{Anio}&FI=01/01/{Anio}&ER=1&CveSubProyecto={CveSubProyecto}' >{Importe}</a>"
+                    Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal
+                    e.Row.Cells(IndiceInicio).Text = $"<a  { If(Importe < 0, "style='color:Red;'", "style='color:#337ab7;'")  } target='_blank' href='./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF=31/12/{Anio}&FI=01/01/{Anio}&ER=1&CveSubProyecto={CveSubProyecto}' >{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }</a>"
+                    'e.Row.Cells(IndiceInicio).ForeColor = If(Importe < 0, Drawing.Color.Red, e.Row.Cells(IndiceInicio).ForeColor)
                 Next IndiceInicio
 
                 e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF=31/12/{DdlEjercicio2.SelectedValue}&FI=01/01/{DdlEjercicio.SelectedValue}&ER=1&CveSubProyecto={CveSubProyecto}"
+
+            ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = -1 Then
+
+                Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero
+                Dim IndiceInicio As Integer = 1
+                Dim IndiceMax As Integer = 1 + CountDinamico
+
+                For IndiceInicio = 1 To IndiceMax
+
+                    Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal
+                    e.Row.Cells(IndiceInicio).Text = $"<strong>{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }</strong>"
+
+                Next IndiceInicio
+
+
             End If
 
 
@@ -1108,11 +1333,26 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
                 Dim IndiceMax As Integer = 1 + CountDinamico
                 For IndiceInicio = 1 To IndiceMax
                     Dim Anio As String = CType(GvGastosAnualH.Columns(IndiceInicio), BoundField).DataField
-                    Dim Importe As String = e.Row.Cells(IndiceInicio).Text
-                    e.Row.Cells(IndiceInicio).Text = $"<a target='_blank' href='./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF=31/12/{Anio}&FI=01/01/{Anio}&ER=1&CveSubProyecto={CveSubProyecto}' >{Importe}</a>"
+                    Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal
+                    e.Row.Cells(IndiceInicio).Text = $"<a { If(Importe < 0, "style='color:Red;'", "style='color:#337ab7;'")  }  target='_blank' href='./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF=31/12/{Anio}&FI=01/01/{Anio}&ER=1&CveSubProyecto={CveSubProyecto}' >{If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00"))}</a>"
+                    'e.Row.Cells(IndiceInicio).ForeColor = If(Importe < 0, Drawing.Color.Red, e.Row.Cells(IndiceInicio).ForeColor)
                 Next IndiceInicio
 
                 e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF=31/12/{DdlEjercicio2.SelectedValue}&FI=01/01/{DdlEjercicio.SelectedValue}&ER=1&CveSubProyecto={CveSubProyecto}"
+
+            ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = -1 Then
+
+                Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero
+                Dim IndiceInicio As Integer = 1
+                Dim IndiceMax As Integer = 1 + CountDinamico
+
+                For IndiceInicio = 1 To IndiceMax
+
+                    Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal
+                    e.Row.Cells(IndiceInicio).Text = $"<strong>{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }</strong>"
+
+                Next IndiceInicio
+
             End If
 
             If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then
@@ -1161,7 +1401,6 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
         If DtDatosSubProyectoH IsNot Nothing And DTSubProyectosCabecerasH IsNot Nothing Then
             CargaGridsSubProyectoH()
-            SumaTotalesSubProyectoH()
         End If
 
     End Sub
@@ -1186,9 +1425,6 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
         If DtIngresosSubProyectoH.Rows.Count > 0 Then
 
-
-
-
             For Each dCoumn As DataColumn In DtIngresosSubProyectoH.Columns
 
                 If IndexData >= 13 Then
@@ -1237,6 +1473,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             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")
             DtIngresosSubProyectoH.Rows.Add(Row)
         Else
             Row.Item("Nombre") = "TOTAL INGRESOS "
@@ -1297,6 +1534,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             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"
@@ -1310,19 +1549,15 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
             Row = DTTotalesSubProyectoH.NewRow
 
-
-
             IndexData = 13
             For IndexData = 13 To IndexTotatles
                 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)")
             Next
 
-            Row.Item("Nombre") = "Totales:"
-            'Row.Item("ImporteActual") = TotalActual.ToString
-            'Row.Item("PorcentajeActual") = "100.00"
+            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("PorcentajeAcumulado") = "100.00"
             Row.Item("CtaMayor") = -2
+            Row.Item("CountDinamico") = DtIngresosSubProyectoH.MAX("CountDinamico")
 
             DTTotalesSubProyectoH.Rows.Add(Row)
 
@@ -1335,27 +1570,23 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
         GvIngresosSubProyectoH.DataSource = DtIngresosSubProyectoH
         GvIngresosSubProyectoH.DataBind()
 
-        'GvGastosSubProyectoH.DataSource = DtGastosSubProyectoH
-        'GvGastosSubProyectoH.DataBind()
 
-        'GvTotalesSubProyectoH.DataSource = DTTotalesSubProyectoH
-        'GvTotalesSubProyectoH.DataBind()
 
         UpDatosSubProyectoH.Update()
 
     End Sub
 
-    Private Sub SumaTotalesSubProyectoH()
-        ''Llena Lb´s Totales
-        ''*********************************************************************************
-        'LbTotalActual.Text = TotalActualMes.ToString.FormatoNumero
-        'LbTotalAnterior.Text = TotalAnteriorMes.ToString.FormatoNumero
+    'Private Sub SumaTotalesSubProyectoH()
+    '    ''Llena Lb´s Totales
+    '    ''*********************************************************************************
+    '    'LbTotalActual.Text = TotalActualMes.ToString.FormatoNumero
+    '    'LbTotalAnterior.Text = TotalAnteriorMes.ToString.FormatoNumero
 
-        'LbTotalActual.ForeColor = If(TotalActualMes < 0, Drawing.Color.Red, Color.Black)
-        'LbTotalAnterior.ForeColor = If(TotalAnteriorMes < 0, Drawing.Color.Red, Color.Black)
+    '    'LbTotalActual.ForeColor = If(TotalActualMes < 0, Drawing.Color.Red, Color.Black)
+    '    'LbTotalAnterior.ForeColor = If(TotalAnteriorMes < 0, Drawing.Color.Red, Color.Black)
 
 
-    End Sub
+    'End Sub
 
     Protected Sub GvIngresosSubProyectoH_RowDataBound(sender As Object, e As GridViewRowEventArgs)
 
@@ -1391,17 +1622,47 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
                 For IndiceInicio = 1 To IndiceMax
 
                     Dim CveSubProyectoIntermo As String = CType(GvGastosSubProyectoH.Columns(IndiceInicio), BoundField).DataField
-                    Dim Importe As String = e.Row.Cells(IndiceInicio).Text
+                    Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal
+
+                    e.Row.Cells(IndiceInicio).Text = $"<a { If(Importe < 0, "style='color:Red;'", "style='color:#337ab7;'")  }  target='_blank' href='./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF={FEchaMesFinal.ToString("dd/MM/yyyy")}&FI=01/01/{DdlEjercicio.SelectedValue}&ER=1&CveSubProyecto={CveSubProyectoIntermo}' >{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }</a>"
 
 
-
-                    e.Row.Cells(IndiceInicio).Text = $"<a target='_blank' href='./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF={FEchaMesFinal.ToString("dd/MM/yyyy")}&FI=01/01/{DdlEjercicio.SelectedValue}&ER=1&CveSubProyecto={CveSubProyectoIntermo}' >{Importe}</a>"
                 Next IndiceInicio
 
                 e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF={FEchaMesFinal.ToString("dd/MM/yyyy")}&FI=01/01/{DdlEjercicio.SelectedValue}&ER=1&CveSubProyecto={-1}"
 
+            ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = -1 Then
+
+                Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero
+                Dim IndiceInicio As Integer = 1
+                Dim IndiceMax As Integer = 1 + CountDinamico
+
+                For IndiceInicio = 1 To IndiceMax
+
+                    Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal
+                    e.Row.Cells(IndiceInicio).Text = $"<div { If(Importe < 0, "style='color:Red;'", "style='color:#000000;'")  }  ><strong>{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }</strong></div>"
+                Next IndiceInicio
+
+
+
+            ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = -2 Then
+
+                Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero
+                Dim IndiceInicio As Integer = 1
+                Dim IndiceMax As Integer = 1 + CountDinamico
+
+                For IndiceInicio = 1 To IndiceMax
+
+                    Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal
+                    e.Row.Cells(IndiceInicio).Text = $"<div { If(Importe < 0, "style='color:Red;'", "style='color:#000000;'")  } ><strong>{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }</strong></div>"
+
+                Next IndiceInicio
+
+
             End If
 
+            e.Row.FCHyperLink("HLAnterior").Text = If(DdlDivisor.SelectedValue.ToEntero > 1, e.Row.DBCampo("ImporteAcumulado").ToString.ToDecimal.ToString("###,###,##0"), e.Row.DBCampo("ImporteAcumulado").ToString.ToDecimal.ToString("###,###,##0.00"))
+
             If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then
                 e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red
             End If
@@ -1414,22 +1675,13 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then
                 TotalActualMes -= e.Row.DBCampo("ImporteActual").ToString.ToDouble
                 TotalAnteriorMes -= e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble
-                'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray
-                'e.Row.ControlStyle.ForeColor = Drawing.Color.White
                 e.Row.ControlStyle.Font.Bold = True
             ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 Then
                 'e.Row.CssClass = "SubTotales"
                 e.Row.ControlStyle.Font.Bold = True
             End If
 
-            'If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then
-            '    e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString)
-            '    e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString)
-            'End If
 
-            'If e.Row.DBCampo("ImporteActual").ToString.ToDouble < 0 Then
-            '    e.Row.FCHyperLink("HLActual").ForeColor = Drawing.Color.Red
-            'End If
 
             If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then
                 e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red
@@ -1453,4 +1705,226 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 #End Region
 
 
+
+
+
+#Region "DESCARGA EXCEL"
+
+    Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
+
+        Imprimir("Excel")
+
+    End Sub
+    Private Sub Imprimir(Optional reporte As String = "PDF")
+
+
+
+        If Tab.ActiveTabIndex = 0 Then
+            ExportToExcelG(GvIngresosMes, GvGastosMes, TMesT1, "Reporte_Mensual", UsuarioActual, "Mensual")
+        ElseIf Tab.ActiveTabIndex = 1 Then
+            ExportToExcelG(GvIngresosMesH, GvGastosMesH, TMesT1, "Reporte_Mensual_Horizontal", UsuarioActual, "Mensual Horizontal", Gv3:=GvTotalesMesH)
+        ElseIf Tab.ActiveTabIndex = 2 Then
+            ExportToExcelG(GvIngresosAnualH, GvGastosAnualH, TMesT1, "Reporte_Anual_Horizontal", UsuarioActual, "Anual Horizontal", Gv3:=GvTotalesAnualH)
+
+        ElseIf Tab.ActiveTabIndex = 3 Then
+            ExportToExcelG(GvIngresosSubProyectoH, GvGastosSubProyectoH, TMesT1, "Reporte_Proyecto_Horizontal", UsuarioActual, "Proyecto Horizontal", Gv3:=GvTotalesSubProyectoH, EsPorSubProtyecto:=True)
+
+        End If
+
+
+
+
+    End Sub
+
+    'Public Sub ExportToExcelG(Gv1 As GridView, Gv2 As GridView, NombreArchivoXLSx As String, Optional Titulo As String = "Reporte", Optional Usuario As Usuario = Nothing, Optional Filtros As String = "", Optional AlturaImagen As Double = 100, Optional AnchoImagen As Double = 100)
+    Public Sub ExportToExcelG(Gv1 As GridView, Gv2 As GridView, TablaResultados As HtmlTable, NombreArchivoXLSx As String, Usuario As Usuario, Titulo As String, Optional AlturaImagen As Double = 100, Optional AnchoImagen As Double = 100, Optional Gv3 As GridView = Nothing, Optional EsPorSubProtyecto As Boolean = False)
+
+        Dim sw1 As New StringWriter()
+        Dim htw1 As New HtmlTextWriter(sw1)
+        Gv1.RenderControl(htw1)
+
+        Dim sw2 As New StringWriter()
+        Dim htw2 As New HtmlTextWriter(sw2)
+        Gv2.RenderControl(htw2)
+
+
+        TablaResultados.Width = Gv2.Width.ToString
+
+        Dim sw3 As New StringWriter()
+        Dim htw3 As New HtmlTextWriter(sw3)
+        TablaResultados.RenderControl(htw3)
+
+        Dim options = GemBox.Spreadsheet.LoadOptions.HtmlDefault
+
+        Dim htmlStream1 = New MemoryStream(options.Encoding.GetBytes(sw1.ToString()))
+        Dim htmlStream2 = New MemoryStream(options.Encoding.GetBytes(sw2.ToString()))
+        Dim htmlStream3 = New MemoryStream(options.Encoding.GetBytes(sw3.ToString()))
+
+        htmlStream1.Position = 0
+        Dim sr1 As New StreamReader(htmlStream1)
+
+        htmlStream2.Position = 0
+        Dim sr2 As New StreamReader(htmlStream2)
+
+        htmlStream3.Position = 0
+        Dim sr3 As New StreamReader(htmlStream3)
+
+
+        Dim myStr1 = sr1.ReadToEnd()
+        Dim myStr2 = sr2.ReadToEnd()
+        Dim myStr3 = sr3.ReadToEnd()
+
+        sr1.Dispose()
+        sr2.Dispose()
+        sr3.Dispose()
+
+        htmlStream1.Dispose()
+        htmlStream2.Dispose()
+        htmlStream3.Dispose()
+
+        sw1.Dispose()
+        sw2.Dispose()
+        sw3.Dispose()
+
+        If Gv3 IsNot Nothing Then
+
+            Gv3.ShowHeader = False
+
+            Dim sw4 As New StringWriter()
+            Dim htw4 As New HtmlTextWriter(sw4)
+            Gv3.RenderControl(htw4)
+            Dim htmlStream4 = New MemoryStream(options.Encoding.GetBytes(sw4.ToString()))
+            htmlStream4.Position = 0
+            Dim sr4 As New StreamReader(htmlStream4)
+            myStr3 = sr4.ReadToEnd()
+
+            sr4.Dispose()
+            htmlStream2.Dispose()
+            sw4.Dispose()
+
+        End If
+
+
+        Dim HtmlCompleto As String = myStr1 & "<br>" & myStr2 & "<br>" & myStr3
+
+        Dim asd As String = ""
+
+
+        Dim htmlStream5 = New MemoryStream(options.Encoding.GetBytes(HtmlCompleto))
+
+
+
+
+        GemBox.Spreadsheet.SpreadsheetInfo.SetLicense("ESWN-4QFD-26JF-1SZ8")
+
+        Dim excel As GemBox.Spreadsheet.ExcelFile
+        'Dim options = GemBox.Spreadsheet.LoadOptions.HtmlDefault
+
+        'Using htmlStream = New MemoryStream(options.Encoding.GetBytes(sw.ToString()))
+        ' excel = GemBox.Spreadsheet.ExcelFile.Load(htmlStream, options)
+
+        excel = GemBox.Spreadsheet.ExcelFile.Load(htmlStream5, options)
+
+        If Usuario IsNot Nothing Then
+            Dim TotalRowHeader As Integer = 8
+            Dim TotalRowFooter As Integer = 2
+
+            Dim worksheet = excel.Worksheets(0)
+            worksheet.Rows.InsertEmpty(0, TotalRowHeader)
+            Dim celdasConTexto = worksheet.GetUsedCellRange(True)
+            celdasConTexto.Style.Font.Name = "Calibri Light"
+
+            Dim RangoNombreEmpresa = worksheet.Cells.GetSubrangeAbsolute(1, celdasConTexto.FirstColumnIndex, 1, celdasConTexto.LastColumnIndex)
+            RangoNombreEmpresa.Merged = True
+            RangoNombreEmpresa.Value = Usuario.Empresa.Empresa
+            RangoNombreEmpresa.Style.Font.Size = 18 * 20
+            RangoNombreEmpresa.Style.Font.Name = "Calibri Light"
+            RangoNombreEmpresa.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center
+            RangoNombreEmpresa.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center
+
+
+            'Dim RangoFiltros = worksheet.Cells.GetSubrangeAbsolute(6, celdasConTexto.FirstColumnIndex, 6, celdasConTexto.LastColumnIndex)
+            'RangoFiltros.Merged = True
+            'RangoFiltros.Value = "Filtros"
+            'RangoFiltros.Style.Font.Size = 15 * 20
+            'RangoFiltros.Style.Font.Name = "Calibri Light"
+            'RangoFiltros.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Left
+            'RangoFiltros.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center
+
+
+            Dim RangoTitulo = worksheet.Cells.GetSubrangeAbsolute(3, celdasConTexto.FirstColumnIndex, 3, celdasConTexto.LastColumnIndex)
+            RangoTitulo.Merged = True
+            RangoTitulo.Value = Titulo
+            RangoTitulo.Style.Font.Size = 20 * 20
+            RangoTitulo.Style.Font.Name = "Calibri Light"
+            RangoTitulo.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center
+            RangoTitulo.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center
+
+            For i = celdasConTexto.FirstColumnIndex To celdasConTexto.LastColumnIndex
+                worksheet.Rows(8).Cells(i).Style.Font.Size = 12 * 20
+                worksheet.Rows(8).Cells(i).Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center
+                worksheet.Rows(8).Cells(i).Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center
+
+                worksheet.Rows(8).Cells(i).Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(75, 119, 190), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
+                worksheet.Rows(8).Cells(i).Style.Font.Color = GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)
+
+
+
+                If Not EsPorSubProtyecto Then
+                    worksheet.Rows(8 + Gv1.Rows.Count + 2).Cells(i).Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(75, 119, 190), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
+                    worksheet.Rows(8 + Gv1.Rows.Count + 2).Cells(i).Style.Font.Color = GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)
+                Else
+                    worksheet.Rows(18).Cells(i).Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(75, 119, 190), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
+                    worksheet.Rows(18).Cells(i).Style.Font.Color = GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)
+                End If
+
+
+
+                If i > 0 Then
+                    Try
+                        worksheet.Columns(i).AutoFit(1)
+                    Catch ex As Exception
+                    End Try
+                End If
+            Next
+
+            Dim IndexEndTable As Integer = Gv1.Rows.Count + Gv2.Rows.Count + 4 + TotalRowHeader + TotalRowFooter
+
+            worksheet.Rows(IndexEndTable).Cells(0).Value = "Usuario Imprimió"
+            worksheet.Rows(IndexEndTable + 1).Cells(0).Value = Usuario.Nombre
+
+            worksheet.Rows(IndexEndTable).Cells(2).Value = "Fecha Impresión"
+            worksheet.Rows(IndexEndTable + 1).Cells(2).Value = DateTime.Now.ToString("dd/MM/yyyy")
+
+            Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", Usuario.Empresa.Ruta))
+
+            If Imagen.Exists Then
+                Dim Ruta As String = String.Format("{0}/Logo.png", Usuario.Empresa.Ruta)
+                Using sr As New StreamReader(Ruta)
+                    Dim ms As New MemoryStream()
+                    sr.BaseStream.CopyTo(ms)
+                    worksheet.Pictures.Add(ms, ExcelPictureFormat.Png, "A1", AnchoImagen, AlturaImagen, LengthUnit.Pixel)
+                End Using
+            End If
+
+        End If
+
+        'End Using
+        'htw.Dispose()
+
+        excel.Save(HttpContext.Current.Response, $"{NombreArchivoXLSx}.xlsx")
+
+
+    End Sub
+
+    Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
+    End Sub
+
+#End Region
+
+
+
+
+
 End Class
+