Documetos parametros, Alamacenes, RepEstado resultados(General)

App_Code/ClsBancos.vb

@@ -4722,7 +4722,7 @@ Public Class ClsBancos
                 strBody.AppendFormat("                        </tr>")
 
 
-                For Each dr As DataRow In DtResultados.FiltraParametros("CveConceptoContable IN (17) AND CveCompra > 0").Rows
+                For Each dr As DataRow In DtResultados.FiltraParametros("CveConceptoContable IN (17,312) AND CveCompra > 0").Rows
                     strBody.AppendFormat("                        <tr class='Texto'>")
                     strBody.AppendFormat("                            <td>{0}</td>", dr("Fecha").ToString.ToDate.ToShortDateString())
                     strBody.AppendFormat("                            <td>{0}</td>", dr("SerieFolio").ToString)

App_Code/ClsClientes.vb

@@ -930,9 +930,17 @@ Public Class ClsClientes
             Retorno = True
         Catch Ex1 As SqlException
             If Ex1.Message.Contains("Número: 2627;") Then
-                Alert("El Cliente no se guardo debido a que actualmente se encuentra registrado.", TipoMensaje.MsgAdvertencia)
+                Alert("El Cliente no se guardo debido a que actualmente se encuentra registrado.", TipoMensaje.MsgAdvertencia)
-            ElseIf Ex1.Message.Contains("'UN_ClientesRFCEmpresa'") Then
+            ElseIf Ex1.Message.Contains("Número: 2601;") Then
-                Alert($"El Cliente no se guardo debido a que el RFC {RFC} se encuentra asignado a otro cliente.", TipoMensaje.MsgAdvertencia)
+
+                If Ex1.Message.Contains("UN_ClientesRFCEmpresa") Then
+                    Alert($"El Cliente no se guardo debido a que el RFC {RFC} se encuentra asignado a otro cliente.", TipoMensaje.MsgAdvertencia)
+                End If
+
+                If Ex1.Message.Contains("IND_Clientes_Codigo") Then
+                    Alert("Ya existe un cliente registrado con el mismo Código.", TipoMensaje.MsgAdvertencia)
+                End If
+
             Else
                 Me.OnError("Ocurrió un error al intentar Actualizar los datos del Cliente.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
             End If

App_Code/ClsContabilidad.vb

@@ -4096,7 +4096,7 @@ Public Class ClsContabilidad
         Return Retorno
     End Function
 
-    Public Function GetAnexoCatalogoMensual(CveCuenta As Integer, Ejercicio As Integer, CveSubproyecto As Integer, CveEmpresa As Integer) As Boolean
+    Public Function GetAnexoCatalogoMensual(CveCuenta As Integer, Ejercicio As Integer, CveSubproyecto As Integer, CveEmpresa As Integer, Divisor As Integer, CveUsuario As Integer) As Boolean
         Dim Retorno = False
 
         DataAdapter("PA_Conta_AnexoCatalogoMensualGet")
@@ -4106,6 +4106,8 @@ Public Class ClsContabilidad
             .Add("@Ejercicio", SqlDbType.Int).Value = Ejercicio
             .Add("@CveSubproyecto", SqlDbType.Int).Value = CveSubproyecto
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@Divisor", SqlDbType.Int).Value = Divisor
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
         End With
 
         Try
@@ -6176,6 +6178,34 @@ Public Class ClsContabilidad
     End Function
 
 
+
+    Public Function GetAnexoCatalogoMensualHorizontal(IdCuenta As Integer, FechaI As Date, FechaF As Date, OpcionCuentas As Integer, CveSubProyecto As String, CveEmpresa As Integer, Optional TipoMovtos As Integer = -1, Optional SAT As Integer = 0) As Boolean
+        Dim Retorno = False
+
+        DataAdapter("PA_Conta2_AnexoCatalogoMensualHorizontalGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@FechaI", SqlDbType.Date).Value = FechaI
+            .Add("@FechaF", SqlDbType.Date).Value = FechaF
+            .Add("@IdCuentaPadre", SqlDbType.Int).Value = IdCuenta
+            .Add("@Tipo", SqlDbType.Int).Value = TipoMovtos
+            .Add("@OpcionCuentas", SqlDbType.Int).Value = OpcionCuentas
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@SAT", SqlDbType.Int).Value = SAT
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            Me.OnError("Ocurrió un error al obtener el Anexo del Catalogo", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+
     Public Function GetEstadosAnualHorizontal(FechaI As Date, FechaF As Date, CveSubProyecto As Integer, Divisor As Integer, CveEmpresa As Integer, CveUsuario As Integer, Optional Tipo As Integer = 1) As Boolean
         Dim Retorno = False
 

App_Code/ClsEdocumentacion.vb

@@ -505,9 +505,110 @@ Public Class ClsEdocumentacion
 
     '    Return Retorno
     ' End Function
-#End Region
+#End Region
 
 
+#Region " P A R A M E T R O S "
+
+    Public Function AddDocumentacionParametros(CveDocumentacion As Integer, Parametro As String, Descripcion As String, CveEmpresa As Integer, CveUsaurio As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Edoc_DocumentacionParametrosAdd")
+
+        With SqlAdapter.SelectCommand.Parameters
+
+            .Add("@CveDocumentacion", SqlDbType.Int).Value = CveDocumentacion
+            .Add("@Parametro", SqlDbType.VarChar).Value = Parametro
+            .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveUsaurio", SqlDbType.Int).Value = CveUsaurio
+
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al agregar el pa.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+
+    Public Function UpdateDocumentacionParametros(CveDocumentacionParametro As Integer, CveDocumentacion As Integer, Parametro As String, Descripcion As String, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Edoc_DocumentacionParametrosUpdate")
+
+        With SqlAdapter.SelectCommand.Parameters
+
+            .Add("@CveDocumentacionParametro", SqlDbType.Int).Value = CveDocumentacionParametro
+            .Add("@CveDocumentacion", SqlDbType.Int).Value = CveDocumentacion
+            .Add("@Parametro", SqlDbType.VarChar).Value = Parametro
+            .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualiar el  parametro.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function GetDocumentacionParametros(CveDocumentacionParametro As Integer, CveDocumentacion As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Edoc_DocumentacionParametrosGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+
+            .Add("@CveDocumentacionParametro", SqlDbType.Int).Value = CveDocumentacionParametro
+            .Add("@CveDocumentacion", SqlDbType.Int).Value = CveDocumentacion
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al consultar los parametros.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+
+    Public Function RemoveDocumentacionParametros(CveDocumentacionParametro As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Edoc_DocumentacionParametrosRemove")
+
+        With SqlAdapter.SelectCommand.Parameters
+
+            .Add("@CveDocumentacionParametro", SqlDbType.Int).Value = CveDocumentacionParametro
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al eliminar el parametros.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+
+#End Region
 
 #Region " IDisposable Support "
     ' IDisposable

App_Code/ClsPaginas.vb

@@ -4240,6 +4240,10 @@ Public Class ClsPaginas
             PaginaDict.Add("/Contabilidad2/PolizasImpresion.aspx".ToUpper(), 726)
             PaginaDict.Add("/Contabilidad2/RepEstadoResultadosHorizontal.aspx".ToUpper(), 420)
 
+            PaginaDict.Add("/Contabilidad2/RepAnexoCatalogoMensualHorizontal.aspx".ToUpper(), -1)
+
+
+
 #End Region
             'CONTRATOS
 #Region "Contratos"

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">
+    <asp:UpdatePanel ID="UpMensual" UpdateMode="Conditional" runat="server">
-        <ContentTemplate>
+        <ContentTemplate>
-
+            <div class="row">
-            <asp:GridView ID="GvMensual2" runat="server" AutoGenerateColumns="False" ShowHeader="true" EmptyDataText="No se encontraron datos" GridLines="none" CssClass="table table-hover">
+                <div class="col-md-12">
-                <Columns>
+                    <div style="overflow:auto">
-                    <asp:BoundField HeaderText="Nombre" DataField="Nombre" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="500px" ControlStyle-Width="500px" />
+                         <asp:GridView ID="GvMensual2" runat="server" AutoGenerateColumns="False" ShowHeader="true" EmptyDataText="No se encontraron datos" GridLines="none" CssClass="table table-hover">
-                    <asp:BoundField HeaderText="Enero" DataField="Enero" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                        <Columns>
-                    <asp:BoundField HeaderText="Febrero" DataField="Febrero" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                            <asp:BoundField HeaderText="Nombre" DataField="Nombre" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="500px"  ControlStyle-Width="500px"  />
-                    <asp:BoundField HeaderText="$" DataField="VariacionFebreroImporte" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField HeaderText="Enero" DataField="Enero" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
-                    <asp:BoundField HeaderText="%" DataField="VariacionFebreroPorcentaje" DataFormatString="{0:N2}%" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="50px" />
+                            <asp:BoundField HeaderText="Febrero" DataField="Febrero" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
-                    <asp:BoundField HeaderText="Marzo" DataField="Marzo" 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="VariacionMarzoImporte" 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="%" DataField="VariacionMarzoPorcentaje" 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="Abril" DataField="Abril" 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="VariacionAbrilImporte" 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="%" DataField="VariacionAbrilPorcentaje" 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="Mayo" DataField="Mayo" 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="VariacionMayoImporte" 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="%" DataField="VariacionMayoPorcentaje" 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="Junio" DataField="Junio" 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="VariacionJunioImporte" 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="%" DataField="VariacionJunioPorcentaje" 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="Julio" DataField="Julio" 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="VariacionJulioImporte" 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="%" DataField="VariacionJulioPorcentaje" 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="Agosto" DataField="Agosto" 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="VariacionAgostoImporte" 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="%" DataField="VariacionAgostoPorcentaje" 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="Septiembre" DataField="Septiembre" 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="VariacionSeptiembreImporte" 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="%" DataField="VariacionSeptiembrePorcentaje" 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="Octubre" DataField="Octubre" 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="VariacionOctubreImporte" 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="%" DataField="VariacionOctubrePorcentaje" 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="Noviembre" DataField="Noviembre" 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="VariacionNoviembreImporte" 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="%" DataField="VariacionNoviembrePorcentaje" 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="Diciembre" DataField="Diciembre" 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="VariacionDiciembreImporte" 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="%" DataField="VariacionDiciembrePorcentaje" 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" />
-                </Columns>
+                            <asp:BoundField HeaderText="$" DataField="VariacionDiciembreImporte" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-            </asp:GridView>
+                            <asp:BoundField HeaderText="%" DataField="VariacionDiciembrePorcentaje" DataFormatString="{0:N2}%" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="50px" />
-
+                        </Columns>
-        </ContentTemplate>
+                    </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
+            CveCuenta = IfNull(Request("CveCuenta"), "-1").ToString.ToEntero
-            EjercicioParametro = IfNull(Request("E"), "-1").ToString.ToEntero
+            EjercicioParametro = IfNull(Request("Ejercicio"), "-1").ToString.ToEntero
-            SubProyectoParametro = IfNull(Request("S"), "-1").ToString.ToEntero
+            SubProyectoParametro = IfNull(Request("CveSubProyecto"), "-1").ToString.ToEntero
-            DivisorParametro = IfNull(Request("D"), "-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:HyperLink ID="HLActual" runat="server" Text='<%# Eval("ImporteActual")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>                                                    
-                                                    <%--<asp:Label ID="LbActual" runat="server" Text='<%# Eval("ImporteActual", "{0:N2}")%>'></asp:Label>--%>
+                                                    <%--<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:HyperLink ID="HLAnterior" runat="server" Text='<%# Eval("ImporteAcumulado")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>                                                    
-                                                    <%--<asp:Label ID="LbAnterior" runat="server" Text='<%# Eval("ImporteAnterior", "{0:N2}")%>'></asp:Label>--%>
+                                                    <%--<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="54px" />
-                                            <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="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="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="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="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="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="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="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="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="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="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="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="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="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="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="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="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="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="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="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="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="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="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="100px" />
+                                            <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()
+    Private Sub SumaTotales()
-        'Llena Lb´s Totales
+        'Llena Lb´s Totales
-        LbTotalActual.Text = TotalActualMes.ToString.FormatoNumero
+
-
+
-        LbTotalAnterior.Text = TotalAnteriorMes.ToString.FormatoNumero
+        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)
+    Protected Sub GvIngresos_RowDataBound(sender As Object, e As GridViewRowEventArgs)
-        If e.Row.RowType = DataControlRowType.DataRow Then
+
+        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()
+            CargaGridsMesH()
-            SumaTotalesMesH()
         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
+                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
+            ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 Then
-                'e.Row.CssClass = "SubTotales3"
                 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
+            If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Or e.Row.DBCampo("Nombre") = "TOTAL INGRESOS" Then
-            '    e.Row.FCHyperLink("HLActual").ForeColor = Drawing.Color.Red
+
-            'End If
+                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
+                e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red
-                End If
+            End If
-            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
+                    Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal
-                    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>"
+                    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
+                    Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal
-                    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>"
+                    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("Nombre") = "Resultado del ejercicio"
-            'Row.Item("ImporteActual") = TotalActual.ToString
-            'Row.Item("PorcentajeActual") = "100.00"
             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()
+    'Private Sub SumaTotalesSubProyectoH()
-        ''Llena Lb´s Totales
+    '    ''Llena Lb´s Totales
-        ''*********************************************************************************
+    '    ''*********************************************************************************
-        'LbTotalActual.Text = TotalActualMes.ToString.FormatoNumero
+    '    'LbTotalActual.Text = TotalActualMes.ToString.FormatoNumero
-        'LbTotalAnterior.Text = TotalAnteriorMes.ToString.FormatoNumero
+    '    'LbTotalAnterior.Text = TotalAnteriorMes.ToString.FormatoNumero
 
-        'LbTotalActual.ForeColor = If(TotalActualMes < 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)
+    '    '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
+

Inventarios/CatAlmacenes.aspx

@@ -225,15 +225,15 @@
                         <button type="button" class="close" data-dismiss="modal" aria-label="Close">
                             <span aria-hidden="true">&times;</span>
                         </button>
-                        <h4 class="modal-title" id="myModalLabel" runat="server">Agregar Almacen</h4>
+                        <h4 class="modal-title" id="myModalLabel" runat="server">Agregar Almacén</h4>
                     </div>
                     <div class="modal-body">
                         <asp:UpdatePanel ID="UpBodyAlmacen" UpdateMode="Conditional" runat="server">
                             <ContentTemplate>
                                 <div class="form-group form-md-line-input input-iconright">
                                     <asp:TextBox ID="TxtAlmacen" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="50"></asp:TextBox>
-                                    <asp:RequiredFieldValidator ID="RFVAlmacen" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtAlmacen" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Almacen''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
+                                    <asp:RequiredFieldValidator ID="RFVAlmacen" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtAlmacen" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Almacén''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
-                                    <asp:Label AssociatedControlID="TxtAlmacen" runat="server" Text="Almacen:"></asp:Label>
+                                    <asp:Label AssociatedControlID="TxtAlmacen" runat="server" Text="Almacén:"></asp:Label>
                                 </div>
                                 <div class="row">
                                     <div class="col-md-6">
@@ -250,7 +250,7 @@
                                     <div class="col-md-6">
                                         <div class="form-group form-md-line-input input-iconright">
                                             <asp:DropDownList ID="DdlTipoAlmacen" runat="server" AppendDataBoundItems="true" DataValueField="CveTipoAlmacen" DataTextField="TipoAlmacen" ValidationGroup="GrpObligatorio" Width="100%" CssClass="form-control input-sm select2me"></asp:DropDownList>
-                                            <asp:Label AssociatedControlID="DdlTipoAlmacen" runat="server" Text="Tipo de Almacen:"></asp:Label>
+                                            <asp:Label AssociatedControlID="DdlTipoAlmacen" runat="server" Text="Tipo de Almacén:"></asp:Label>
                                         </div>
                                     </div>
                                 </div>
@@ -305,11 +305,11 @@
 
 
                                 <div class="row">
-                                    <div class="col-md-6">
+                                    <div class="col-md-12">
                                         <div class="form-group form-md-line-input input-iconright">
-                                            <asp:DropDownList ID="DdlUsuariosAutoriza" runat="server"  DataTextField="Nombre"  DataValueField="CveUsuario"    Width="100%" CssClass="form-control input-sm select2me">                                                                                                 
+                                            <asp:DropDownList ID="DdlUsuariosAutoriza" runat="server"  DataTextField="Nombre"  DataValueField="CveUsuario"    Width="50%" CssClass="form-control input-sm select2me">                                                                                                 
                                             </asp:DropDownList>
-                                            <asp:Label AssociatedControlID="DdlUsuariosAutoriza" runat="server" Text="Autorizá:"></asp:Label>
+                                            <asp:Label AssociatedControlID="DdlUsuariosAutoriza" runat="server" Text="En caso de que requiera autorización, seleccione el usuario para esta almacén:"></asp:Label>
                                         </div>
                                     </div>                                  
 

Inventarios/CatAlmacenes.aspx.vb

@@ -86,7 +86,12 @@ Partial Class Inventarios_CatAlmacenes
 
     Private Sub CargaUsuarios()
 
-        DdlUsuariosAutoriza.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros(" Estatus = 1 ")
+        Dim DT As DataTable = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros(" Estatus = 1 ").Copy
+
+        DT.DefaultView.Sort = "Nombre ASC"
+        DT = DT.DefaultView.ToTable
+
+        DdlUsuariosAutoriza.DataSource = DT
         DdlUsuariosAutoriza.DataBind()
 
         DdlUsuariosAutoriza.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
@@ -275,7 +280,7 @@ Partial Class Inventarios_CatAlmacenes
             DdlCuentasContables.Visible = True
         End If
         BtnAgregarAlmacen.Text = "Agregar"
-        myModalLabel.InnerText = "Agregar Almacen"
+        myModalLabel.InnerText = "Agregar Almacén"
         TxtAlmacen.Text = ""
         TxtOrden.Text = ""
         ChkEstatus.Checked = True
@@ -307,7 +312,7 @@ Partial Class Inventarios_CatAlmacenes
         HdnID.Value = GvRow.DataKey("CveAlmacen")
         UpDatos.Update()
         BtnAgregarAlmacen.Text = "Actualizar"
-        myModalLabel.InnerText = "Actualizar Almacen"
+        myModalLabel.InnerText = "Actualizar Almacén"
         DdlInventariable.SelectedValue = If((GvRow.DataKey("Inventariable")) = "True", 1, 0)
         DdlModalidad.SelectedValue = If((GvRow.DataKey("Modalidad")) = "Solo Existencia", 0, 1)
         divddlcc.Visible = If((DdlModalidad.SelectedValue) = 1, True, False)

RH/CatDocumentos.aspx

@@ -154,7 +154,8 @@
     <div id="divAgregarDocumentacion" class="modal ADS fade" role="dialog">
         <div class="modal-dialog" style="width: 450px;">
             <asp:UpdatePanel runat="server" class="modal-content" ID="UpModalDocumentacion" UpdateMode="Conditional">
-                <ContentTemplate>
+                <ContentTemplate>                   
+
 
                     <div class="modal-header ">
                         <button type="button" class="close" data-dismiss="modal">×</button>
@@ -163,70 +164,194 @@
                         </h4>
                     </div>
 
-                    <div class="modal-body">
+                    <div class="modal-body">
+
+
+        <asp:TabContainer runat="server" ID="TabContDocumentos">
+
+            <asp:TabPanel ID="TabDocumentos" runat="server" HeaderText="Documentos">
+                <ContentTemplate>
+
+                    <div class="form-group form-md-line-input input-iconright">
+                        <asp:TextBox ID="Txtdocumentacion" CssClass="form-control" MaxLength="100" runat="server"></asp:TextBox>
+                        <asp:RequiredFieldValidator ID="rfvTxtdocumentacion" runat="server" ControlToValidate="Txtdocumentacion" ValidationGroup="GrpEscolaridad" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Institución''</b> es necesario, por favor ingréselo."></asp:RequiredFieldValidator>
+                        <label for="<%= Txtdocumentacion.ClientID.ToString()%>">Documento:</label>
+                    </div>
+
+                    <div class="form-group form-md-line-input input-iconright">
+                        <asp:DropDownList ID="DdlDocumentacionTipo" runat="server" Width="150" CssClass=" select2me form-control " DataValueField="CveDocumentacionTipo" DataTextField="DocumentacionTipo">
+                        </asp:DropDownList>
+                        <asp:RequiredFieldValidator InitialValue="-1" ID="rfvDdlDocumentacionTipo" ControlToValidate="DdlDocumentacionTipo" CssClass="help-block errorimput" ValidationGroup="GrpEscolaridad" runat="server" ErrorMessage="Seleccione una de las opciones"></asp:RequiredFieldValidator>
+                        <label for="<%= DdlDocumentacionTipo.ClientID.ToString()%>">Tipo de documento:</label>
+                    </div>
+
+                    <div class="form-group form-md-line-input input-iconright">
+                        <asp:TextBox ID="TxtOrden" CssClass="form-control" onkeypress="validate(event)" MaxLength="3" runat="server"></asp:TextBox>
+                        <asp:RequiredFieldValidator ID="rfvTxtOrden" runat="server" ControlToValidate="TxtOrden" ValidationGroup="GrpEscolaridad" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Institución''</b> es necesario, por favor ingréselo."></asp:RequiredFieldValidator>
+                        <ajax:FilteredTextBoxExtender ID="filTxtOrden" runat="server" TargetControlID="TxtOrden" FilterType="Numbers" ValidChars="" />
+                        <label for="<%= TxtOrden.ClientID.ToString()%>">Orden:</label>
+                    </div>
+
+                    <div class="form-group form-md-line-input input-iconright">
+                        <asp:TextBox ID="TxtDiasLimite" CssClass="form-control" onkeypress="validate(event)" MaxLength="2" runat="server"></asp:TextBox>
+                        <asp:RequiredFieldValidator ID="rfvTxtDiasLimite" runat="server" ControlToValidate="TxtDiasLimite" ValidationGroup="GrpEscolaridad" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo  es necesario, por favor ingréselo."></asp:RequiredFieldValidator>
+                        <ajax:FilteredTextBoxExtender ID="FilTxtDiasLimite" runat="server" TargetControlID="TxtDiasLimite" FilterType="Numbers" ValidChars="" />
+                        <label for="<%= TxtOrden.ClientID.ToString()%>">Dias Limite:</label>
+                    </div>
+
+                    <div class="form-group form-md-line-input input-iconright">
+                        <asp:CheckBox ID="ChkAplicaDiasLimite" runat="server" Text="Aplica Dias Limite" />
+                    </div>
+                    <div class="form-group form-md-line-input input-iconright">
+                        <asp:CheckBox ID="ChkAplicaFechaVencimiento" runat="server" Text="Aplica Fecha de Vencimiento" />
+                    </div>
+
+                    <div class="form-group form-md-line-input input-iconright">
+                        <asp:CheckBox ID="chkRequerido" runat="server" Text="Requerido" />
+                    </div>
+
+                    <div class="form-group form-md-line-input input-iconright">
+                        <asp:CheckBox ID="chkEstatus" runat="server" Text="Activo" />
+                    </div>
+
+                    <div class="form-group form-md-line-input input-iconright ">
+                        <div class="row ">
+                            <div class="col-md-12">
+                                <asp:TextBox ID="TxtFileDocumentacion" CssClass="ADSdropzone hidden" data-maxFile="1" Text="" runat="server"></asp:TextBox>
+                            </div>
+                        </div>
+
+                    </div>
+
+                 
+                     
+                  
+
+                </ContentTemplate>
+            </asp:TabPanel>
+
+            <asp:TabPanel ID="TabParametros" runat="server" HeaderText="Parametros">
+                <ContentTemplate>
+
+                    <div class="row">
+                          <div class="form-group form-md-line-input input-iconright" style="text-align:right!important">
+                        <asp:LinkButton runat="server" ID="LnkAgregarParametro" CssClass="Texto" OnClick="LnkAgregarParametro_Click" Text="Agregar Parametro"></asp:LinkButton>
+                    </div>
+                    </div>
+
+
+                    <div class="row">
+                        <div class ="col-md-12">
+                             <asp:UpdatePanel ID="UpGvParametros" runat="server" UpdateMode="Conditional">
+                        <ContentTemplate>
+
+                            <asp:GridView ID="GvParametros" runat="server" AutoGenerateColumns="False"
+                                DataKeyNames="CveDocumentacionParametro,CveDocumentacion,Parametro,Descripcion " CssClass="table  table-hover table-advance  Widthall" GridLines="None">
+                                <Columns>
+
+                                    <asp:TemplateField ItemStyle-HorizontalAlign="Left" ItemStyle-Width="60px" HeaderText="Parametro">
+                                        <ItemTemplate>
+                                            <asp:Literal ID="LtlParametro" runat="server" Text='<%# Eval("Parametro") %>'></asp:Literal>
+                                        </ItemTemplate>
+                                    </asp:TemplateField>
+
+                                    <asp:TemplateField ControlStyle-CssClass="template" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="275" HeaderText="Descripción">
+                                        <ItemTemplate>
+                                            <asp:Literal ID="LtlDescripcion" runat="server" Text='<%# Eval("Descripcion") %>'></asp:Literal>
+                                        </ItemTemplate>
+                                    </asp:TemplateField>
+
+
+                                    <asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="50px">
+                                        <ItemTemplate>
+                                            <asp:LinkButton ID="LnkParametroEditar" runat="server" AlternateText="Editar" ToolTip="Editar documento" CausesValidation="False" OnClick="LnkParametroEditar_Click"
+                                                CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil' Tittle='Editar Documento' ></i>" />
+                                        </ItemTemplate>
+                                    </asp:TemplateField>
+
+                                    <asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="50px">
+                                        <ItemTemplate>
+                                            <asp:LinkButton ID="LnkEliminarParametro" OnClick="LnkEliminarParametro_Click" runat="server" AlternateText="Eliminar" ToolTip="Eliminar" CausesValidation="False"
+                                                CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash' title='Eliminar'></i>" Title="Eliminar Documento" data-toggle="confirmation" data-popout="true" data-original-title="¿Desea eliminar el documento?" data-btn-ok-label="si" />
+                                        </ItemTemplate>
+                                    </asp:TemplateField>
+
+                                </Columns>
+                            </asp:GridView>
+                        </ContentTemplate>
+                    </asp:UpdatePanel>
+                        </div>
+
+                    </div>
+
+                  
+
+
+                   
+
+
+
+                </ContentTemplate>
+            </asp:TabPanel>
+
+        </asp:TabContainer>
+
+
+    </div>
 
-                        <div class="form-group form-md-line-input input-iconright">
+                    <div class="modal-footer">
-                            <asp:TextBox ID="Txtdocumentacion" CssClass="form-control" MaxLength="100" runat="server"></asp:TextBox>
+
-                            <asp:RequiredFieldValidator ID="rfvTxtdocumentacion" runat="server" ControlToValidate="Txtdocumentacion" ValidationGroup="GrpEscolaridad" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Institución''</b> es necesario, por favor ingréselo."></asp:RequiredFieldValidator>
+                        <div class="row">
-                            <label for="<%= Txtdocumentacion.ClientID.ToString()%>">Documento:</label>
+                             <asp:Button ID="BtnAgregarDocumentoModal" runat="server" class="btn btn-success" Text="Agregar" ValidationGroup="GrpEscolaridad" />
+                            <button id="BtnCancelarEscolaridadModal4" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
                         </div>
+                       
 
-                        <div class="form-group form-md-line-input input-iconright">
+                    </div>  
-                            <asp:DropDownList ID="DdlDocumentacionTipo" runat="server" Width="150" CssClass=" select2me form-control " DataValueField="CveDocumentacionTipo" DataTextField="DocumentacionTipo">                                
-                            </asp:DropDownList>
-                            <asp:RequiredFieldValidator InitialValue="-1" ID="rfvDdlDocumentacionTipo" ControlToValidate="DdlDocumentacionTipo" CssClass="help-block errorimput" ValidationGroup="GrpEscolaridad" runat="server" ErrorMessage="Seleccione una de las opciones"></asp:RequiredFieldValidator>
-                            <label for="<%= DdlDocumentacionTipo.ClientID.ToString()%>">Tipo de documento:</label>
-                        </div>   
-                        
-                      <div class="form-group form-md-line-input input-iconright">
-                            <asp:TextBox ID="TxtOrden" CssClass="form-control" onkeypress="validate(event)" MaxLength="3" runat="server"></asp:TextBox>
-                            <asp:RequiredFieldValidator ID="rfvTxtOrden" runat="server" ControlToValidate="TxtOrden" ValidationGroup="GrpEscolaridad" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Institución''</b> es necesario, por favor ingréselo."></asp:RequiredFieldValidator>
-                           <ajax:FilteredTextBoxExtender ID="filTxtOrden" runat="server"  TargetControlID="TxtOrden" FilterType="Numbers"  ValidChars="" />       
-                            <label for="<%= TxtOrden.ClientID.ToString()%>">Orden:</label>
-                        </div>
 
 
-<%--                       <div class="form-group form-md-line-input input-iconright">
+
-                            <asp:TextBox ID="TxtDocumentacionFormato" CssClass="form-control" MaxLength="50" runat="server"></asp:TextBox>    
+
-                            <ajax:FilteredTextBoxExtender ID="filTxtDocumentacionFormato" runat="server"  TargetControlID="TxtDocumentacionFormato" FilterType="Numbers, uppercaseLetters,LowercaseLetters,Custom"  ValidChars="_" />                          
+                </ContentTemplate>
-                            <label for="<%= TxtDocumentacionFormato.ClientID.ToString()%>">Nombre de Formato:</label>
+            </asp:UpdatePanel>
-                        </div>--%>
+
-                        <div class="form-group form-md-line-input input-iconright">
+        </div>
-                            <asp:TextBox ID="TxtDiasLimite" CssClass="form-control" onkeypress="validate(event)" MaxLength="2" runat="server"></asp:TextBox>
+    </div>
-                            <asp:RequiredFieldValidator ID="rfvTxtDiasLimite" runat="server" ControlToValidate="TxtDiasLimite" ValidationGroup="GrpEscolaridad" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo  es necesario, por favor ingréselo."></asp:RequiredFieldValidator>
+
-                            <ajax:FilteredTextBoxExtender ID="FilTxtDiasLimite" runat="server"  TargetControlID="TxtDiasLimite" FilterType="Numbers"  ValidChars="" />       
+
-                            <label for="<%= TxtOrden.ClientID.ToString()%>">Dias Limite:</label>
+
+         <div id="DVParametros" class="modal ADS fade" role="dialog">
+        <div class="modal-dialog" style="width: 450px;">
+            <asp:UpdatePanel runat="server" class="modal-content" ID="UpModalParametros" UpdateMode="Conditional">
+                <ContentTemplate>
+
+                    <div class="modal-header ">
+                        <button type="button" class="close" data-dismiss="modal">×</button>
+                        <h4 class="modal-title"> 
+                            <h4> <asp:Literal ID="Literal1" runat="server">Parametros</asp:Literal></h4>
+                        </h4>
+                    </div>
+
+                    <div class="modal-body">                     
+ 
+                         <div class="form-group form-md-line-input input-iconright">
+                            <asp:TextBox ID="TxtParametro" CssClass="form-control" MaxLength="50" runat="server"></asp:TextBox>
+                            <asp:RequiredFieldValidator ID="RfvTxtParametro" runat="server" ControlToValidate="TxtParametro" ValidationGroup="GrpParametro" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Parametro''</b> es necesario, por favor ingréselo."></asp:RequiredFieldValidator>
+                            <label for="<%= TxtParametro.ClientID.ToString()%>">Parametro:</label>
                         </div>
 
                          <div class="form-group form-md-line-input input-iconright">
-                            <asp:CheckBox ID="ChkAplicaDiasLimite" runat="server" Text ="Aplica Dias Limite" />
+                            <asp:TextBox ID="TxtParametroDescripcion" CssClass="form-control" MaxLength="100" runat="server"></asp:TextBox>
+                            <asp:RequiredFieldValidator ID="RfvTxtParametroDescripcion" runat="server" ControlToValidate="TxtParametroDescripcion" ValidationGroup="GrpParametro" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Descripción''</b> es necesario, por favor ingréselo."></asp:RequiredFieldValidator>
+                            <label for="<%= TxtParametroDescripcion.ClientID.ToString()%>">Descripción:</label>
                         </div>
-                         <div class="form-group form-md-line-input input-iconright">
+                                       
-                            <asp:CheckBox ID="ChkAplicaFechaVencimiento" runat="server" Text ="Aplica Fecha de Vencimiento" />
-                        </div>
-
-                        <div class="form-group form-md-line-input input-iconright">
-                            <asp:CheckBox ID="chkRequerido" runat="server" Text ="Requerido" />
-                        </div>
-
-                        <div class="form-group form-md-line-input input-iconright">
-                            <asp:CheckBox ID="chkEstatus" runat="server" Text ="Activo" />
-                        </div>  
-                        
-                        <div class="form-group form-md-line-input input-iconright ">
-                            <div class="row ">
-                                <div class="col-md-12">
-                                    <asp:TextBox ID="TxtFileDocumentacion" CssClass="ADSdropzone hidden" data-maxFile="1" Text="" runat="server"></asp:TextBox>
-                                </div>
-                            </div>                                
-                           
-                        </div>                   
 
                     </div>
-                     
+
-                    <div class="modal-footer">
+                    <div class="modal-footer">                       
-                        <asp:Button ID="BtnAgregarDocumentoModal" runat="server" class="btn btn-success" Text="Agregar" ValidationGroup="GrpEscolaridad" />
+                         <asp:Button ID="BtnGuardarParametro" runat="server" class="btn btn-success" Text="Guardar" ValidationGroup="GrpParametro" OnClick="BtnGuardarParametro_Click" />
-                        <button id="BtnCancelarEscolaridadModal4" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
+                        <button id="BtnCerrarParametro" runat="server" type="button" class="btn default" data-dismiss="modal">Cerrar</button>
                     </div>
 
                 </ContentTemplate>
@@ -238,6 +363,7 @@
 
 
 
+
         <div id="DvTags" class="modal ADS fade" role="dialog">
         <div class="modal-dialog" style="width: 450px;">
             <asp:UpdatePanel runat="server" class="modal-content" ID="UpEtiquetas" UpdateMode="Conditional">
@@ -321,7 +447,7 @@
 
        
 
-    </div> 
+    
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
     <script>

RH/CatDocumentos.aspx.vb

@@ -170,7 +170,16 @@ Partial Class RH_CatDocumentos
         chkEstatus.Checked = True
         chkRequerido.Checked = True
 
-        ActualizarDocumentacion = False
+        ActualizarDocumentacion = False
+
+        CreatDTParametros()
+
+        GvParametros.DataSource = DTTempParametros
+        GvParametros.DataBind()
+        UpGvParametros.Update()
+
+        CveDocumentacion = -1
+
         UpModalDocumentacion.Update()
     End Sub
 
@@ -237,8 +246,13 @@ Partial Class RH_CatDocumentos
         BtnAgregarDocumentoModal.Text = "Actualizar"
 
         UpModalDocumentacion.Update()
-        ActualizarDocumentacion = True
+        ActualizarDocumentacion = True
-
+
+
+
+
+        CargaDatosParametro()
+
         RegistraScript("$('#divAgregarDocumentacion').modal({ backdrop: 'static',  keyboard: false});")
 
     End Sub
@@ -319,13 +333,15 @@ Partial Class RH_CatDocumentos
 
     Protected Sub BtnAgregarDocumentoModal_Click(sender As Object, e As EventArgs) Handles BtnAgregarDocumentoModal.Click
 
-        Dim objRH As New ClsEdocumentacion
+        Dim ObjEdoc As New ClsEdocumentacion
         Dim intCompleto As Integer = 0
         Dim _estatus As Integer = 0
         Dim _requerido As Integer = 0
         Dim _formato As String = ""
 
-
+        Dim ErrorProceso As Boolean = True
+
+
         If chkEstatus.Checked Then
             _estatus = 1
         End If
@@ -337,30 +353,64 @@ Partial Class RH_CatDocumentos
         If ActualizarDocumentacion Then
 
             _formato = GuardarArchivo(CveDocumentacion)
-            If objRH.DocumentacionUpdate(CveDocumentacion, Txtdocumentacion.Text.Trim, _formato, DdlDocumentacionTipo.SelectedValue.ToEntero, _estatus, TxtOrden.Text.ToEntero, _requerido, TxtDiasLimite.Text.ToEntero, ChkAplicaDiasLimite.Checked, ChkAplicaFechaVencimiento.Checked, UsuarioActual.Empresa.CveEmpresa) Then
+            If ObjEdoc.DocumentacionUpdate(CveDocumentacion, Txtdocumentacion.Text.Trim, _formato, DdlDocumentacionTipo.SelectedValue.ToEntero, _estatus, TxtOrden.Text.ToEntero, _requerido, TxtDiasLimite.Text.ToEntero, ChkAplicaDiasLimite.Checked, ChkAplicaFechaVencimiento.Checked, UsuarioActual.Empresa.CveEmpresa) Then
 
                 RegistraScript(String.Format("$('#{0}').modal('hide');", "divAgregarDocumentacion"))
-                Alert("Documento Actualizado  correctamente.", TipoMensaje.MsgInformacion)
+                Alert("Documento Actualizado  correctamente.", TipoMensaje.MsgInformacion)
-                CargaDocumentacion()
+                ErrorProceso = False
-            End If
+            End If
+
+        Else
+
+            ObjEdoc.IniciaTransacSQL()
+
+            If ObjEdoc.DocumentacionAdd(Txtdocumentacion.Text.Trim, _formato, DdlDocumentacionTipo.SelectedValue.ToEntero, _estatus, TxtOrden.Text.ToEntero, _requerido, TxtDiasLimite.Text.ToEntero, ChkAplicaDiasLimite.Checked, ChkAplicaFechaVencimiento.Checked, UsuarioActual.Empresa.CveEmpresa) Then
 
-        Else
+                CveDocumentacion = ObjEdoc.DtResultados(0)(0).ToString.ToEntero
-            If objRH.DocumentacionAdd(Txtdocumentacion.Text.Trim, _formato, DdlDocumentacionTipo.SelectedValue.ToEntero, _estatus, TxtOrden.Text.ToEntero, _requerido, TxtDiasLimite.Text.ToEntero, ChkAplicaDiasLimite.Checked, ChkAplicaFechaVencimiento.Checked, UsuarioActual.Empresa.CveEmpresa) Then
+                _formato = GuardarArchivo(CveDocumentacion)
-
+
-                CveDocumentacion = objRH.DtResultados(0)(0).ToString.ToEntero
+                If ObjEdoc.DocumentacionUpdate(CveDocumentacion, Txtdocumentacion.Text.Trim, _formato, DdlDocumentacionTipo.SelectedValue.ToEntero, _estatus, TxtOrden.Text.ToEntero, _requerido, TxtDiasLimite.Text.ToEntero, ChkAplicaDiasLimite.Checked, ChkAplicaFechaVencimiento.Checked, UsuarioActual.Empresa.CveEmpresa) Then
-                _formato = GuardarArchivo(CveDocumentacion)
-                If objRH.DocumentacionUpdate(CveDocumentacion, Txtdocumentacion.Text.Trim, _formato, DdlDocumentacionTipo.SelectedValue.ToEntero, _estatus, TxtOrden.Text.ToEntero, _requerido, TxtDiasLimite.Text.ToEntero, ChkAplicaDiasLimite.Checked, ChkAplicaFechaVencimiento.Checked, UsuarioActual.Empresa.CveEmpresa) Then
 
                 End If
 
                 RegistraScript(String.Format("$('#{0}').modal('hide');", "divAgregarDocumentacion"))
-                Alert("Documento agregado correctamente.", TipoMensaje.MsgInformacion)
+                Alert("Documento agregado correctamente.", TipoMensaje.MsgInformacion)
-                CargaDocumentacion()
+
+
+                If GvParametros.Rows.Count > 0 Then
+
+                    For Each GvRow As GridViewRow In GvParametros.Rows
+
+                        If Not ObjEdoc.AddDocumentacionParametros(CveDocumentacion, GvRow.DataKey("Parametro"), GvRow.DataKey("Descripcion"), UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
+                            ErrorProceso = True
+                            Exit For
+                        Else
+                            ErrorProceso = False
+                        End If
+
+                    Next
+
+                Else
+                    ErrorProceso = False
+                End If
+
+                If Not ErrorProceso Then
+                    ObjEdoc.Commit()
+                Else
+                    ObjEdoc.RollBack()
+                End If
+
+
             End If
+
         End If
 
+        ObjEdoc.Dispose()
+
         ActualizarDocumentacion = False
 
+        CargaDocumentacion()
+
     End Sub
 
 
@@ -399,10 +449,226 @@ Partial Class RH_CatDocumentos
 
         End If
 
-    End Sub
+    End Sub
-
+
 #End Region
-
+
-
+
+    Property DTTempParametros As DataTable
+
+        Get
+
+            If ViewState("DTTempParametros") Is Nothing Then
+                Return New DataTable
+            Else
+                Return DirectCast(ViewState("DTTempParametros"), DataTable)
+            End If
+
+        End Get
+        Set(value As DataTable)
+            ViewState("DTTempParametros") = value
+        End Set
+
+    End Property
+
+
+
+    Property IndexParametro As Integer
+
+        Get
+            If ViewState("IndexParametro") Is Nothing Then
+                Return -1
+            Else
+                Return ViewState("IndexParametro").ToString.ToEntero
+            End If
+
+        End Get
+        Set(value As Integer)
+            ViewState("IndexParametro") = value
+        End Set
+
+    End Property
+
+    Property CveDocumentacionParametro As Integer
+
+        Get
+            If ViewState("CveDocumentacionParametro") Is Nothing Then
+                Return -1
+            Else
+                Return ViewState("CveDocumentacionParametro").ToString.ToEntero
+            End If
+
+        End Get
+        Set(value As Integer)
+            ViewState("CveDocumentacionParametro") = value
+        End Set
+
+    End Property
+
+    Private Sub CargaDatosParametro()
+
+        If CveDocumentacion > 0 Then
+
+            Dim ObjDoc As New ClsEdocumentacion
+
+            If ObjDoc.GetDocumentacionParametros(-1, CveDocumentacion, UsuarioActual.CveEmpresa) Then
+                GvParametros.DataSource = ObjDoc.DtResultados
+            End If
+
+            ObjDoc.Dispose()
+            GvParametros.DataBind()
+
+        Else
+            GvParametros.DataSource = DTTempParametros
+            GvParametros.DataBind()
+        End If
+
+        UpGvParametros.Update()
+
+    End Sub
+
+
+    Private Sub CreatDTParametros()
+
+        Dim DT As New DataTable
+
+        DT.Columns.Add("CveDocumentacionParametro", GetType(Integer))
+        DT.Columns.Add("CveDocumentacion", GetType(Integer))
+        DT.Columns.Add("Documentacion", GetType(String))
+        DT.Columns.Add("Parametro", GetType(String))
+        DT.Columns.Add("Descripcion", GetType(String))
+        DT.Columns.Add("CveUsuario", GetType(Integer))
+        DT.Columns.Add("Nombre", GetType(String))
+        DT.Columns.Add("FechaIng", GetType(Date))
+        DT.Columns.Add("CveEmpresa", GetType(Integer))
+
+        DT.AcceptChanges()
+
+        DTTempParametros = DT
+
+    End Sub
+
+
+    Protected Sub LnkEliminarParametro_Click(sender As Object, e As EventArgs)
+
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+
+        Dim CveDocumentacionParametroEliminar As Integer = GvRow.DataKey("CveDocumentacionParametro").ToEntero
+        Dim IndexEliminar As Integer = GvRow.RowIndex
+
+        If CveDocumentacion > 0 Then
+
+            Dim ObjDoc As New ClsEdocumentacion
+            If ObjDoc.RemoveDocumentacionParametros(CveDocumentacionParametroEliminar, UsuarioActual.CveEmpresa) Then
+                Alert("Parametro eliminado correctamente.")
+            End If
+            ObjDoc.Dispose()
+
+
+        Else
+            Dim DRow As DataRow = DTTempParametros(IndexEliminar)
+            DRow.Delete()
+            DTTempParametros.AcceptChanges()
+            Alert("Parametro eliminado correctamente.")
+        End If
+
+
+        CargaDatosParametro()
+
+
+    End Sub
+
+    Protected Sub LnkParametroEditar_Click(sender As Object, e As EventArgs)
+
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+
+        If CveDocumentacion > 0 Then
+            CveDocumentacionParametro = GvRow.DataKey("CveDocumentacionParametro").ToString.ToEntero
+            IndexParametro = -1
+        Else
+            CveDocumentacionParametro = -1
+            IndexParametro = GvRow.RowIndex
+        End If
+
+        TxtParametro.Text = GvRow.DataKey("Parametro")
+        TxtParametroDescripcion.Text = GvRow.DataKey("Descripcion")
+
+        UpModalParametros.Update()
+
+        RegistraScript(String.Format("$('#{0}').modal('show');", "DVParametros"))
+        IndexParametro = -1
+
+    End Sub
+
+    Protected Sub BtnGuardarParametro_Click(sender As Object, e As EventArgs)
+
+        Dim ErrorProceso As Boolean = True
+
+
+        If CveDocumentacion > 0 Then
+
+            Dim ObjDoc As New ClsEdocumentacion
+
+
+            If CveDocumentacionParametro > 0 Then
+                If ObjDoc.UpdateDocumentacionParametros(CveDocumentacionParametro, CveDocumentacion, TxtParametro.Text.Trim, TxtParametroDescripcion.Text.Trim, UsuarioActual.CveEmpresa) Then
+                    Alert("Parametro actualizado correctamente.")
+                    ErrorProceso = False
+                End If
+            Else
+                If ObjDoc.AddDocumentacionParametros(CveDocumentacion, TxtParametro.Text.Trim, TxtParametroDescripcion.Text.Trim, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
+                    Alert("Parametro agregado correctamente.")
+                    ErrorProceso = False
+                End If
+            End If
+
+
+            ObjDoc.Dispose()
+
+        Else
+            If IndexParametro > 0 Then
+                Dim Drow As DataRow = DTTempParametros(IndexParametro)
+                Drow("Parametro") = TxtParametro.Text
+                Drow("Descripcion") = TxtParametroDescripcion.Text
+                'Editar Row  en base a index
+                ErrorProceso = False
+                Alert("Parametro actualizado correctamente.")
+            Else
+
+                Dim Drow As DataRow = DTTempParametros.NewRow
+                Drow("Parametro") = TxtParametro.Text
+                Drow("Descripcion") = TxtParametroDescripcion.Text
+
+
+                DTTempParametros.Rows.Add(Drow)
+                Alert("Parametro agregado correctamente.")
+                ErrorProceso = False
+                'Agreagr Row
+            End If
+            DTTempParametros.AcceptChanges()
+        End If
+
+        If ErrorProceso = False Then
+            RegistraScript(String.Format("$('#{0}').modal('hide');", "DVParametros"))
+        End If
+
+        CargaDatosParametro()
+
+    End Sub
+
+    Protected Sub LnkAgregarParametro_Click(sender As Object, e As EventArgs)
+
+
+        TxtParametro.Text = ""
+        TxtParametroDescripcion.Text = ""
+
+        CveDocumentacionParametro = -1
+        IndexParametro = -1
+
+        UpModalParametros.Update()
+
+        RegistraScript(String.Format("$('#{0}').modal('show');", "DVParametros"))
+
+    End Sub
 End Class
 

RH/Personal.aspx

@@ -4668,6 +4668,71 @@
         </asp:UpdatePanel>
     </div>
 
+
+
+        <div id="DVDescargaDocumentoParametrosModal" class="modal ADS fade" role="dialog">
+        <asp:UpdatePanel ID="UpdatePanel4" class="modal-dialog" tabindex="-1" runat="server" UpdateMode="Conditional">
+            <ContentTemplate>
+                <div class="modal-content rowpadding">
+                    <div class="modal-header">
+                        <button type="button" class="close" data-dismiss="modal" aria-label="Close">
+                            <span aria-hidden="true">&times;</span>
+                        </button>
+                        <h4 class="modal-title" runat="server" style="text-align: left">Parametros</h4>
+                    </div>
+                    <div class="modal-body">
+                        
+                        <asp:UpdatePanel ID="UpGvParametros" runat="server" UpdateMode="Conditional">
+                            <ContentTemplate>
+
+                                <asp:GridView ID="GvParametros" runat="server" AutoGenerateColumns="False"
+                                    DataKeyNames="CveDocumentacionParametro,CveDocumentacion,Parametro,Descripcion " CssClass="table  table-hover table-advance  Widthall" GridLines="None">
+                                    <Columns>
+
+                                        <asp:TemplateField ItemStyle-HorizontalAlign="Left" ItemStyle-Width="60px" HeaderText="Parametro">
+                                            <ItemTemplate>
+                                                <asp:Literal ID="LtlParametro" runat="server" Text='<%# Eval("Parametro") %>'></asp:Literal>
+                                            </ItemTemplate>
+                                        </asp:TemplateField>
+
+                                        <asp:TemplateField ControlStyle-CssClass="template" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="275" HeaderText="Descripción">
+                                            <ItemTemplate>
+                                                <asp:Literal ID="LtlDescripcion" runat="server" Text='<%# Eval("Descripcion") %>'></asp:Literal>
+                                            </ItemTemplate>
+                                        </asp:TemplateField>
+
+                                         <asp:TemplateField ControlStyle-CssClass="template" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="275" HeaderText="Valor">
+                                            <ItemTemplate>
+                                                
+                                                <asp:TextBox ID="TxtParametro" runat="server" Text=""  Width="150px" ValidationGroup="GrpDescargaFormato" ></asp:TextBox>                                               
+                                                <asp:RequiredFieldValidator ID="RFVTxtParametro" runat="server" ControlToValidate="TxtParametro"  Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Parametro''</b> es necesario, por favor ingréselo." ValidationGroup="GrpDescargaFormato"></asp:RequiredFieldValidator>
+                                                <ajax:ValidatorCalloutExtender ID="CERFVTxtParametro" runat="server" HighlightCssClass="vco" TargetControlID="RFVTxtParametro" Width="300px"></ajax:ValidatorCalloutExtender>
+                                             
+                                            </ItemTemplate>
+                                        </asp:TemplateField>  
+
+                                    </Columns>
+                                </asp:GridView>
+                            </ContentTemplate>
+                        </asp:UpdatePanel>
+
+
+                    </div>
+
+                    <div class="modal-footer">
+                        <asp:UpdatePanel runat="server" UpdateMode="Conditional">
+                            <ContentTemplate>
+                                <asp:LinkButton ID="LnkDescargaFormatoParametros" OnClick="LnkDescargaFormatoParametros_Click" ValidationGroup="GrpDescargaFormato" CssClass="btn btn-primary" runat="server">Descargar</asp:LinkButton>
+                                <button type="button" class="btn btn-default" data-dismiss="modal">Cerrar</button>
+                            </ContentTemplate>
+                        </asp:UpdatePanel>
+                    </div>
+                </div>
+            </ContentTemplate>
+        </asp:UpdatePanel>
+    </div>
+
+
     <iframe id="my_iframe" style="display: none;"></iframe>
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">

RH/Personal.aspx.vb

@@ -611,12 +611,29 @@ Partial Class RH_Personal
         Set(value As Boolean)
             ViewState("ValMadre") = value
         End Set
-    End Property
+    End Property
-
+
-
+
+    Private Property DocumentoParametros As String
+        Get
+            If ViewState("DocumentoParametros") Is Nothing Then
+                Return ""
+            Else
+                Return ViewState("DocumentoParametros").ToString
+            End If
+        End Get
+        Set(value As String)
+            ViewState("DocumentoParametros") = value
+        End Set
+    End Property
+
+
+
+
+
 #End Region
-
+
-
+
     Private Shared Function sendURL(ByVal URL As String, Optional Methodo As String = "POST", Optional Cookie As String = "", Optional maxTimeMilliseconds As Integer = 120000) As String
         Dim resultado As String = ""
 
@@ -3782,10 +3799,36 @@ Partial Class RH_Personal
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
 
         Dim CveDocumentacion As Integer = GvRow.DataKey("CveDocumentacion").ToString().ToEntero
-        Dim DocumentacionFormato As String = CveDocumentacion & "_" & GvRow.DataKey("DocumentacionFormato")
+        Dim DocumentacionFormato As String = CveDocumentacion & "_" & GvRow.DataKey("DocumentacionFormato")
-
+
-        DescarFormato(DocumentacionFormato)
+
-
+        Dim ObjEdoc As New ClsEdocumentacion
+
+        If ObjEdoc.GetDocumentacionParametros(-1, CveDocumentacion, UsuarioActual.CveEmpresa) Then
+            If ObjEdoc.DtResultados.Rows.Count > 0 Then
+
+                GvParametros.DataSource = ObjEdoc.DtResultados
+                ObjEdoc.Dispose()
+
+                GvParametros.DataBind()
+                UpGvParametros.Update()
+
+                DocumentoParametros = DocumentacionFormato
+                RegistraScript("$('#DVDescargaDocumentoParametrosModal').modal('show')")
+
+            Else
+                ObjEdoc.Dispose()
+                DescarFormato(DocumentacionFormato)
+            End If
+        Else
+            ObjEdoc.Dispose()
+        End If
+
+
+
+
+
+
     End Sub
     Public Sub DescarFormato(documento As String)
 
@@ -6216,5 +6259,48 @@ Partial Class RH_Personal
         TxtSalarioDiarioIntegrado.Text = TxtSDI.Text
         RegistraScript("$('#Dmodamodificarsalario').modal()")
         UpModSalario.Update()
-    End Sub
+    End Sub
+    Protected Sub LnkDescargaFormatoParametros_Click(sender As Object, e As EventArgs)
+
+
+
+
+        Dim ListaTagsDocumentost = New List(Of TagsDocumentos)
+
+        For Each GvRow As GridViewRow In GvParametros.Rows
+
+            If GvRow.FCTextBox("TxtParametro").Text.Trim.Length > 0 Then
+                ListaTagsDocumentost.Add(New TagsDocumentos(GvRow.DataKey("Parametro"), GvRow.FCTextBox("TxtParametro").Text))
+            End If
+
+        Next
+
+
+        Dim PathRoot As String = AppDomain.CurrentDomain.BaseDirectory
+        Dim PathSource As String
+        Dim pathDesti As String
+
+        PathSource = UsuarioActual.Empresa.Ruta & "Formatos\" & DocumentoParametros
+        pathDesti = PathRoot & "Temp\" & CvePersonal & DocumentoParametros
+
+        If File.Exists(pathDesti) Then
+            File.Delete(pathDesti)
+        End If
+
+        File.Copy(PathSource, pathDesti)
+
+        Dim objDoc As New clsGemBoxDocument(pathDesti)
+        objDoc.SustituirTags(ListaTagsDocumentost)
+        objDoc.Guardar(pathDesti)
+
+        Dim fileinfo As New FileInfo(pathDesti)
+
+        Dim baseUrl As String = Request.Url.GetLeftPart(UriPartial.Authority)
+        baseUrl = baseUrl & "/temp/" & fileinfo.Name
+
+        RegistraScript("$('#DVDescargaDocumentoParametrosModal').modal('hide')", "500")
+        RegistraDescargaJavaScript(baseUrl)
+
+
+    End Sub
 End Class

Ventas/ClientesAbonar.aspx

@@ -261,7 +261,7 @@
     <asp:UpdatePanel ID="UPVentas" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
             <asp:GridView ID="GvCxC" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Cuentas por Cobrar Pendientes"
-                DataKeyNames="TipoDocto,CveVenta,CveCliente,SerieFolio,Original,SubTotal,IVA,IEPS,RetIVA,RetISR,Num3,CveSubProyecto,CveMoneda,Saldo,TipoCambio, RFC,UUID,Fecha,PorcentajeIVA,DescuentoProntoPago,CveTipoRetencion"
+                DataKeyNames="TipoDocto,CveVenta,CveCliente,SerieFolio,Original,SubTotal,IVA,IEPS,RetIVA,RetISR,Num3,CveSubProyecto,CveMoneda,Saldo,TipoCambio, RFC,UUID,Fecha,PorcentajeIVA,DescuentoProntoPago,CveTipoRetencion,Descuento"
                 CssClass="table table-striped table-advance table-hover Widthall" Style="text-align: center;" GridLines="None">
                 <Columns>
                     <asp:TemplateField>

Ventas/ClientesAbonar.aspx.vb

@@ -2583,7 +2583,8 @@ Partial Class Ventas_ClientesAbonar
                 Dim CveCuenta As Integer = 0
                 Dim PorcentajePago As Decimal = gr.DataKey("Saldo").ToDecimal / gr.DataKey("Original").ToDecimal
                 Dim Saldo As Decimal = gr.DataKey("Saldo").ToDecimal
-                Dim SubTotal As Decimal = PorcentajePago * gr.DataKey("SubTotal").ToDecimal.RoundSQL
+                Dim RETIVA As Decimal = gr.DataKey("RetIVA").ToDecimal
+                Dim SubTotal As Decimal = PorcentajePago * (gr.DataKey("SubTotal").ToDecimal.RoundSQL - gr.DataKey("Descuento").ToDecimal.RoundSQL).RoundSQL
                 Dim IVA As Decimal = PorcentajePago * gr.DataKey("IVA").ToDecimal.RoundSQL
                 Dim IEPS As Decimal = PorcentajePago * gr.DataKey("IEPS").ToDecimal.RoundSQL
                 Dim TCVenta As Decimal = gr.DataKey("TipoCambio").ToDecimal
@@ -2606,6 +2607,7 @@ Partial Class Ventas_ClientesAbonar
                 Dim SubtotalMovto As Boolean = False
                 Dim CveConceptoCliente As Integer = 2
                 Dim ImpuestosMovto As Boolean = False
+
                 Dim IdCuentaContableNoDeducible As Integer = 0
                 Dim CveSubProyecto As Integer = gr.DataKey("CveSubProyecto").ToEntero
                 Dim ConceptoPartida As String = TxtObsSaldarIncobrable.Text.Trim & " " & gr.DataKey("SerieFolio").ToString
@@ -2619,6 +2621,7 @@ Partial Class Ventas_ClientesAbonar
                 If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 122) Then
                     ClienteMovto = False : Saldo = Saldo * -1
                     ImpuestosMovto = True : IVA = IVA * -1
+                    RETIVA = RETIVA * -1
                     CveConceptoCliente = 1
                     'falta cuenta incobrable
                     IdCuentaContableNoDeducible = 3114
@@ -2688,7 +2691,12 @@ Partial Class Ventas_ClientesAbonar
 
                     IdCtaContable = If(IdCtaIVAXTrasladar > 0, IdCtaIVAXTrasladar, UsuarioActual.Empresa.IdCuentaIVAxTrasladar)
                     CveCuenta = If(CveCuentaIVAxTrasladar > 0, CveCuentaIVAxTrasladar, UsuarioActual.Empresa.CveCuentaIVAxTrasladar)
-                    If IVA > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ImpuestosMovto, IVA, gr.DataKey("SerieFolio").ToString, 13, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, IdCtaContable, -1, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveVenta:=gr.DataKey("CveVenta").ToEntero, ImporteMX:=If(CveMonedaFiltro = 1, IVA, IVA * TCVenta), CveCuenta:=CveCuenta, PorcentajeImpuesto:=PorcentajeImpuesto, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then
+
+                    If (IVA > 0 Or UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 122) And IVA < 0) AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ImpuestosMovto, IVA, gr.DataKey("SerieFolio").ToString, 13, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, IdCtaContable, -1, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveVenta:=gr.DataKey("CveVenta").ToEntero, ImporteMX:=If(CveMonedaFiltro = 1, IVA, IVA * TCVenta), CveCuenta:=CveCuenta, PorcentajeImpuesto:=PorcentajeImpuesto, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then
+                        MsgError = "Ocurrio un error al saldar el movimiento"
+                    End If
+
+                    If (RETIVA > 0 Or UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 122) And RETIVA < 0) AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ClienteMovto, RETIVA, gr.DataKey("SerieFolio").ToString, 8, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, IdCtaContRetIVA, -1, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveVenta:=gr.DataKey("CveVenta").ToEntero, ImporteMX:=If(CveMonedaFiltro = 1, RETIVA, RETIVA * TCVenta), CveCuenta:=CveCuenta, PorcentajeImpuesto:=PorcentajeImpuesto, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then
                         MsgError = "Ocurrio un error al saldar el movimiento"
                     End If
 
@@ -2710,6 +2718,7 @@ Partial Class Ventas_ClientesAbonar
                             Exit For
                         End If
                     End If
+
                 End If
             End If
         Next

vwd.webinfo

@@ -76,6 +76,14 @@
     
   
     
+  
+    
+  
+    
+  
+    
+  
+