Merge branch 'master' of http://agonzalez@192.168.10.111:8383/SIG.git

Bancos/ProveedoresAbonar.aspx.vb

@@ -2514,16 +2514,18 @@ Partial Class Bancos_ProveedoresAbonar
                 ElseIf DdlTipoTransaccion.SelectedValue = "17" Then
 
                     If Dep.DtResultados.Rows.Count > 0 Then
-                        DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros("EstatusPagoElectronicoGrupos = 'True' AND Estatus ='True'")
+                        DdlCuentaDeposito.DataSource = Dep.DtResultados  '.FiltraParametros("EstatusPagoElectronicoGrupos = 'True' AND Estatus ='True'")
+                    Else
+                        Alert("El proveedor no tiene cuentas deposito registradas.")
                     End If
 
-                    If Dep.DtResultados.FiltraParametros("EstatusPagoElectronicoGrupos = 'True'  AND Estatus ='True'").Rows.Count > 0 Then
+                    'If Dep.DtResultados.FiltraParametros("EstatusPagoElectronicoGrupos = 'True'  AND Estatus ='True'").Rows.Count > 0 Then
-                        trCuentaDeposito.Visible = True
+                    '    trCuentaDeposito.Visible = True
-                        DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1"))
+                    '    DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1"))
-                    Else
+                    'Else
-                        BtnIEGuardar.Enabled = False
+                    '    BtnIEGuardar.Enabled = False
-                        Alert("El proveedor no tiene ninguna cuenta deposito registrada ante el sistema BBVA BANCOMER", TipoMensaje.MsgAdvertencia)
+                    '    Alert("El proveedor no tiene ninguna cuenta deposito registrada ", TipoMensaje.MsgAdvertencia)
-                    End If
+                    'End If
 
                 Else
                     DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros("Estatus ='True'")

Contabilidad2/RepEstadoResultadosHorizontal.aspx

@@ -558,7 +558,7 @@
                             <asp:UpdatePanel ID="UpDatosAnualH" UpdateMode="Conditional" runat="server">
                                 <ContentTemplate>
 
-                                    <asp:GridView ID="GvIngresosAnualH" runat="server" AutoGenerateColumns="False" DataKeyNames="" OnRowDataBound="GvIngresosAnualH_RowDataBound" ShowHeaderWhenEmpty="true" CssClass="table table-striped table-hover Widthall" Style="margin-top: -10px; text-align: center;" GridLines="None">
+                                    <asp:GridView ID="GvIngresosAnualH" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto,CountDinamico" OnRowDataBound="GvIngresosAnualH_RowDataBound" ShowHeaderWhenEmpty="true" CssClass="table table-striped table-hover Widthall" Style="margin-top: -10px; text-align: center;" GridLines="None">
                                         <Columns>
                                             <asp:TemplateField>
                                                 <ItemTemplate>
@@ -597,6 +597,32 @@
                                             <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>
@@ -617,7 +643,7 @@
                                     </asp:GridView>
                                     <br />
                                     <br />
-                                    <asp:GridView ID="GvGastosAnualH" runat="server" AutoGenerateColumns="False" DataKeyNames="" OnRowDataBound="GvGastosAnualH_RowDataBound" ShowHeaderWhenEmpty="true" CssClass="table table-striped table-hover Widthall" Style="margin-top: -10px; text-align: center;" GridLines="None">
+                                    <asp:GridView ID="GvGastosAnualH" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto,CountDinamico" OnRowDataBound="GvGastosAnualH_RowDataBound" ShowHeaderWhenEmpty="true" CssClass="table table-striped table-hover Widthall" Style="margin-top: -10px; text-align: center;" GridLines="None">
                                         <Columns>
 
                                             <asp:TemplateField>
@@ -631,7 +657,7 @@
                                                 <HeaderStyle HorizontalAlign="Left" Width="400px" />
                                             </asp:TemplateField>
 
-                                             <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                           <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
                                             <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
                                             <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
                                             <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
@@ -678,7 +704,7 @@
                                     </asp:GridView>
                                     <br />
                                     <br />
-                                    <asp:GridView ID="GvTotalesAnualH" runat="server" AutoGenerateColumns="False" DataKeyNames="" 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" ShowHeaderWhenEmpty="true" CssClass="table table-striped table-hover Widthall" Style="margin-top: -10px; text-align: center;" GridLines="None">
                                         <Columns>
 
                                             <asp:TemplateField>
@@ -692,6 +718,8 @@
                                                 <ItemStyle HorizontalAlign="Left" Width="400px" />
                                             </asp:TemplateField>
 
+                               
+
                                             <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
                                             <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
                                             <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
@@ -771,7 +799,7 @@
                       <asp:UpdatePanel ID="UpDatosSubProyectoH" UpdateMode="Conditional" runat="server">
                                 <ContentTemplate>
 
-                                    <asp:GridView ID="GvIngresosSubProyectoH" runat="server" AutoGenerateColumns="False" DataKeyNames="" OnRowDataBound="GvIngresosSubProyectoH_RowDataBound" ShowHeaderWhenEmpty="true" 
+                                    <asp:GridView ID="GvIngresosSubProyectoH" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto,CountDinamico" OnRowDataBound="GvIngresosSubProyectoH_RowDataBound" ShowHeaderWhenEmpty="true" 
                                         CssClass="ADSCROLLER2  table table-striped table-advance table-hover"   data-cols="1" data-heightmenos="300"                                           
                                         Style="margin-top: -10px; text-align: center;" GridLines="None">
                                         <Columns>
@@ -842,7 +870,7 @@
                                     </asp:GridView>
                                     <br />
                                     <br />
-                                    <asp:GridView ID="GvGastosSubProyectoH" runat="server" AutoGenerateColumns="False" DataKeyNames="" OnRowDataBound="GvGastosSubProyectoH_RowDataBound" ShowHeaderWhenEmpty="true" CssClass="table table-striped table-hover Widthall" Style="margin-top: -10px; text-align: center;" GridLines="None">
+                                    <asp:GridView ID="GvGastosSubProyectoH" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto,CountDinamico" OnRowDataBound="GvGastosSubProyectoH_RowDataBound" ShowHeaderWhenEmpty="true" CssClass="table table-striped table-hover Widthall" Style="margin-top: -10px; text-align: center;" GridLines="None">
                                         <Columns>
 
                                             <asp:TemplateField>
@@ -913,7 +941,7 @@
                                     </asp:GridView>
                                     <br />
                                     <br />
-                                    <asp:GridView ID="GvTotalesSubProyectoH" runat="server" AutoGenerateColumns="False" DataKeyNames="" OnRowDataBound="GvTotalesSubProyectoH_RowDataBound"  ShowHeader="true" CssClass="table table-striped table-hover Widthall" Style="margin-top: -10px; text-align: center;" GridLines="None">
+                                    <asp:GridView ID="GvTotalesSubProyectoH" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto,CountDinamico" OnRowDataBound="GvTotalesSubProyectoH_RowDataBound"  ShowHeader="true" CssClass="table table-striped table-hover Widthall" Style="margin-top: -10px; text-align: center;" GridLines="None">
                                         <Columns>
 
                                             <asp:TemplateField>

Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb

@@ -740,19 +740,33 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
                 e.Row.ControlStyle.Font.Bold = True
             End If
 
-            'If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then
+            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)
+                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)
-            'End If
+                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)
-            'If e.Row.DBCampo("ImporteActual").ToString.ToDouble < 0 Then
+                e.Row.FCHyperLink("HLAbril").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/04/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/04/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
-            '    e.Row.FCHyperLink("HLActual").ForeColor = Drawing.Color.Red
+                e.Row.FCHyperLink("HLMayo").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/05/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/05/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
-            'End If
+                e.Row.FCHyperLink("HLJunio").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/06/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/06/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
-
+                e.Row.FCHyperLink("HLJulio").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/07/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/07/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
-            If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then
+                e.Row.FCHyperLink("HLAgosto").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/08/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/08/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
-                e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red
+                e.Row.FCHyperLink("HLSeptiembre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/09/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/09/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLOctubre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/10/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/10/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLNoviembre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/11/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/11/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLDiciembre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/12/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/12/{DdlEjercicio.SelectedValue}".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
+                End If
             End If
-        End If
     End Sub
 
     Protected Sub GvGastosMesH_RowDataBound(sender As Object, e As GridViewRowEventArgs)
@@ -766,17 +780,29 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             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
+
+                Dim CveCuenta As Integer = e.Row.DataKey("CveCuenta").ToEntero
+
+                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)
+                e.Row.FCHyperLink("HLAbril").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/04/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/04/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLMayo").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/05/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/05/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLJunio").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/06/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/06/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLJulio").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/07/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/07/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLAgosto").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/08/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/08/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLSeptiembre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/09/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/09/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLOctubre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/10/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/10/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLNoviembre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/11/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/11/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLDiciembre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/12/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/12/{DdlEjercicio.SelectedValue}".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("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
             End If
@@ -822,7 +848,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
         If DtDatosAnualH IsNot Nothing Then
             CargaGridsAnualH()
-            SumaTotalesAnualH()
+
         End If
 
     End Sub
@@ -855,12 +881,17 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
                         CType(GvIngresosAnualH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName
                         CType(GvIngresosAnualH.Columns(IndexGv), BoundField).HeaderText = dCoumn.ColumnName
-                        GvIngresosAnualH.Columns(IndexGv).Visible = True
 
 
+                        'CType(GvIngresosAnualH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName
+                        'CType(GvIngresosAnualH.Columns(IndexGv), BoundField).HeaderText = dCoumn.ColumnName
+                        GvIngresosAnualH.Columns(IndexGv).Visible = True
+
 
                         CType(GvTotalesAnualH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName
                         CType(GvTotalesAnualH.Columns(IndexGv), BoundField).HeaderText = dCoumn.ColumnName
+                        'CType(GvTotalesAnualH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName
+                        'CType(GvTotalesAnualH.Columns(IndexGv), BoundField).HeaderText = dCoumn.ColumnName
                         GvTotalesAnualH.Columns(IndexGv).Visible = True
 
                         IndexMax = IndexData
@@ -925,9 +956,16 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
                 If IndexData >= 13 Then
 
                     If dCoumn.ColumnName.ToEntero > 0 And dCoumn.ColumnName.ToEntero <= DdlEjercicio2.SelectedValue.ToEntero Then
+                        'HyperLinkField
 
                         CType(GvGastosAnualH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName
                         CType(GvGastosAnualH.Columns(IndexGv), BoundField).HeaderText = dCoumn.ColumnName
+                        'CType(GvGastosAnualH.Columns(IndexGv), HyperLinkField).DataNavigateUrlFields = {"CveCuenta", "FechaInicial", "FechaFActual", "CveSubProyecto"}
+                        'CType(GvGastosAnualH.Columns(IndexGv), HyperLinkField).DataNavigateUrlFormatString = "/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}"
+
+                        'CType(GvGastosAnualH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName
+                        'CType(GvGastosAnualH.Columns(IndexGv), BoundField).HeaderText = dCoumn.ColumnName
+
                         GvGastosAnualH.Columns(IndexGv).Visible = True
                         IndexMax = IndexData
                     Else
@@ -944,14 +982,14 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             Next
 
 
-            For Each dr As DataRow In DtGastosAnualH.FiltraParametros("NOT CtaMayor in (3,4)").Rows
+            For Each dr As DataRow In DtGastosAnualH.FiltraParametros("Not CtaMayor In (3,4)").Rows
                 TotalActual += dr("ImporteActual").ToString.ToDouble
                 TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble
             Next
 
             IndexData = 13
             For IndexData = 13 To IndexMax
-                Row.Item(IndexData) = DtGastosAnualH.SUM($"[{DtIngresosAnualH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)")
+                Row.Item(IndexData) = DtGastosAnualH.SUM($"[{DtIngresosAnualH.Columns(IndexData).ColumnName}]", "Not CtaMayor In (3,4)")
             Next
 
             Row.Item("Nombre") = "TOTAL GASTOS"
@@ -973,28 +1011,16 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
             Row = DTTotalesAnualH.NewRow
 
-            'Row.Item("Enero") = DtIngresosAnualH.SUM("Enero", "NOT CtaMayor in (3,4)") - DtGastosAnualH.SUM("Enero", "NOT CtaMayor in (3,4)")
-            'Row.Item("Febrero") = DtIngresosAnualH.SUM("Febrero", "NOT CtaMayor in (3,4)") - DtGastosAnualH.SUM("Febrero", "NOT CtaMayor in (3,4)")
-            'Row.Item("Marzo") = DtIngresosAnualH.SUM("Marzo", "NOT CtaMayor in (3,4)") - DtGastosAnualH.SUM("Marzo", "NOT CtaMayor in (3,4)")
-            'Row.Item("Abril") = DtIngresosAnualH.SUM("Abril", "NOT CtaMayor in (3,4)") - DtGastosAnualH.SUM("Abril", "NOT CtaMayor in (3,4)")
-            'Row.Item("Mayo") = DtIngresosAnualH.SUM("Mayo", "NOT CtaMayor in (3,4)") - DtGastosAnualH.SUM("Mayo", "NOT CtaMayor in (3,4)")
-            'Row.Item("Junio") = DtIngresosAnualH.SUM("Junio", "NOT CtaMayor in (3,4)") - DtGastosAnualH.SUM("Junio", "NOT CtaMayor in (3,4)")
-            'Row.Item("Julio") = DtIngresosAnualH.SUM("Julio", "NOT CtaMayor in (3,4)") - DtGastosAnualH.SUM("Julio", "NOT CtaMayor in (3,4)")
-            'Row.Item("Agosto") = DtIngresosAnualH.SUM("Agosto", "NOT CtaMayor in (3,4)") - DtGastosAnualH.SUM("Agosto", "NOT CtaMayor in (3,4)")
-            'Row.Item("Septiembre") = DtIngresosAnualH.SUM("Septiembre", "NOT CtaMayor in (3,4)") - DtGastosAnualH.SUM("Septiembre", "NOT CtaMayor in (3,4)")
-            'Row.Item("Octubre") = DtIngresosAnualH.SUM("Octubre", "NOT CtaMayor in (3,4)") - DtGastosAnualH.SUM("Octubre", "NOT CtaMayor in (3,4)")
-            'Row.Item("Noviembre") = DtIngresosAnualH.SUM("Noviembre", "NOT CtaMayor in (3,4)") - DtGastosAnualH.SUM("Noviembre", "NOT CtaMayor in (3,4)")
-            'Row.Item("Diciembre") = DtIngresosAnualH.SUM("Diciembre", "NOT CtaMayor in (3,4)") - DtGastosAnualH.SUM("Diciembre", "NOT CtaMayor in (3,4)")
 
             IndexData = 13
             For IndexData = 13 To IndexMax
-                Row.Item(IndexData) = DtIngresosAnualH.SUM($"[{DtIngresosAnualH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1,3,4)") - DtGastosAnualH.SUM($"[{DtGastosAnualH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1,3,4)")
+                Row.Item(IndexData) = DtIngresosAnualH.SUM($"[{DtIngresosAnualH.Columns(IndexData).ColumnName}]", "Not CtaMayor In (-1,3,4)") - DtGastosAnualH.SUM($"[{DtGastosAnualH.Columns(IndexData).ColumnName}]", "Not CtaMayor In (-1,3,4)")
             Next
 
-            Row.Item("Nombre") = "Resultados del Ejercicio:"
+            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("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
 
@@ -1015,21 +1041,13 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
     End Sub
 
-    Private Sub SumaTotalesAnualH()
-        ''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 GvIngresosAnualH_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
@@ -1041,14 +1059,25 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
                 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
+            Dim CveCuenta As Integer = e.Row.DataKey("CveCuenta").ToEntero
-            '    e.Row.FCHyperLink("HLActual").ForeColor = Drawing.Color.Red
+            Dim CveSubProyecto As Integer = e.Row.DataKey("CveSubProyecto").ToEntero
-            'End If
+            If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then
+
+
+                Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero
+                Dim IndiceInicio As Integer = 1
+                Dim IndiceMax As Integer = 1 + CountDinamico
+                For IndiceInicio = 1 To IndiceMax
+                    Dim Anio As String = CType(GvGastosAnualH.Columns(IndiceInicio), BoundField).DataField
+                    Dim Importe As String = e.Row.Cells(IndiceInicio).Text
+                    e.Row.Cells(IndiceInicio).Text = $"<a target='_blank' href='./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF=31/12/{Anio}&FI=01/01/{Anio}&ER=1&CveSubProyecto={CveSubProyecto}' >{Importe}</a>"
+                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}"
+            End If
+
+
 
             If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then
                 e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red
@@ -1069,14 +1098,22 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
                 e.Row.ControlStyle.Font.Bold = True
             End If
 
-            'If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then
+            Dim CveCuenta As Integer = e.Row.DataKey("CveCuenta").ToEntero
-            '    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)
+            Dim CveSubProyecto As Integer = e.Row.DataKey("CveSubProyecto").ToEntero
-            '    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 e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then
-            'End If
 
-            'If e.Row.DBCampo("ImporteActual").ToString.ToDouble < 0 Then
+
-            '    e.Row.FCHyperLink("HLActual").ForeColor = Drawing.Color.Red
+                Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero
-            'End If
+                Dim IndiceInicio As Integer = 1
+                Dim IndiceMax As Integer = 1 + CountDinamico
+                For IndiceInicio = 1 To IndiceMax
+                    Dim Anio As String = CType(GvGastosAnualH.Columns(IndiceInicio), BoundField).DataField
+                    Dim Importe As String = e.Row.Cells(IndiceInicio).Text
+                    e.Row.Cells(IndiceInicio).Text = $"<a target='_blank' href='./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF=31/12/{Anio}&FI=01/01/{Anio}&ER=1&CveSubProyecto={CveSubProyecto}' >{Importe}</a>"
+                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}"
+            End If
 
             If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then
                 e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red
@@ -1339,14 +1376,31 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
                 e.Row.ControlStyle.Font.Size = 13
             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
+            Dim CveCuenta As Integer = e.Row.DataKey("CveCuenta").ToEntero
-            '    e.Row.FCHyperLink("HLActual").ForeColor = Drawing.Color.Red
+            'Dim CveSubProyecto As Integer = e.Row.DataKey("CveSubProyecto").ToEntero
-            'End If
+            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
+
+                Dim FEchaMesFinal As Date = New Date(DdlEjercicio.SelectedValue.ToEntero, DdlPeriodo.SelectedValue.ToEntero, 1).LastDayOfMonth
+
+                For IndiceInicio = 1 To IndiceMax
+
+                    Dim CveSubProyectoIntermo As String = CType(GvGastosSubProyectoH.Columns(IndiceInicio), BoundField).DataField
+                    Dim Importe As String = e.Row.Cells(IndiceInicio).Text
+
+
+
+                    e.Row.Cells(IndiceInicio).Text = $"<a target='_blank' href='./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF={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}"
+
+            End If
 
             If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then
                 e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red

Inventarios/TraspasoAlmacen.aspx.vb

@@ -1550,28 +1550,53 @@ Partial Class Inventarios_TraspasoAlmacen
             Else
                 Dim CveMovimientoDetalleSalida As Integer = 0
                 Dim importe As Double = 0
-                If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
-                    For Each Dr As DataRow In ObjInventario.DtResultados.Rows
-                        CveMovimientoDetalleSalida = Dr("CveMovimientoDetalle").ToString.ToEntero
-                        Dim Cantidad As Double = Dr("Cantidad").ToString.ToDouble
-                        Dim PrecioUnitario As Double = Dr("PU").ToString.ToDouble
-                        If CveMovimientoDetalleSalida <= 0 Then
-                            ErrorMovInv = True
-                            TextoError = "Ocurrió un error al guardar los movimientos de salida"
-                            Exit For
-                        End If
 
-                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Cantidad, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, PrecioUnitario, Dr("CveAF").ToString.ToEntero, -1, Dr("SerieLote").ToString, Lote:=Dr("Lote").ToString, Batch:=Dr("Batch").ToString, CveMovimientoDetalleEntrada:=CveMovimientoDetalleSalida) Then
+                For Each GvRow As GridViewRow In GvDatosRecepcion.Rows
-                            ErrorMovInv = True
+                    If GvRow.RowType = DataControlRowType.DataRow Then
-                            TextoError = "Ocurrió un error al guardar los movimientos de entrada"
+                        Dim CvePS As Integer = GvRow.DataKey("CvePS").ToEntero
-                            Exit For
+                        'DEBE CONSIDERAR SOLO LAS FILAS QUE TENGA PRODUCTOS, NO EL TOTALIZADOR
+                        If CvePS > 0 Then
+                            CveMovimientoDetalleSalida = GvRow.DataKey("CveMovimientoDetalle").ToString.ToEntero
+                            Dim Cantidad As Double = GvRow.DataKey("Cantidad").ToString.ToDouble
+                            Dim PrecioUnitario As Double = GvRow.DataKey("PU").ToString.ToDouble
+                            If CveMovimientoDetalleSalida <= 0 Then
+                                ErrorMovInv = True
+                                TextoError = "Ocurrió un error al guardar los movimientos de salida"
+                                Exit For
+                            End If
+
+                            If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Cantidad, GvRow.DataKey("CveUM").ToEntero, CvePS, PrecioUnitario, GvRow.DataKey("CveAF").ToEntero, -1, GvRow.DataKey("SerieLote").ToString, Lote:=GvRow.DataKey("Lote"), Batch:=GvRow.DataKey("Batch"), CveMovimientoDetalleEntrada:=CveMovimientoDetalleSalida) Then
+                                ErrorMovInv = True
+                                TextoError = "Ocurrió un error al guardar los movimientos de entrada"
+                                Exit For
+                            End If
+                            importe += Cantidad * PrecioUnitario
                         End If
-                        importe += Cantidad * PrecioUnitario
+                    End If
-                    Next
+                Next
-                Else
+
-                    ErrorMovInv = True
+                'If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
-                    TextoError = "Ocurrió un error al obtener los movimientos de salida"
+                '    For Each Dr As DataRow In ObjInventario.DtResultados.Rows
-                End If
+                '        CveMovimientoDetalleSalida = Dr("CveMovimientoDetalle").ToString.ToEntero
+                '        Dim Cantidad As Double = Dr("Cantidad").ToString.ToDouble
+                '        Dim PrecioUnitario As Double = Dr("PU").ToString.ToDouble
+                '        If CveMovimientoDetalleSalida <= 0 Then
+                '            ErrorMovInv = True
+                '            TextoError = "Ocurrió un error al guardar los movimientos de salida"
+                '            Exit For
+                '        End If
+
+                '        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Cantidad, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, PrecioUnitario, Dr("CveAF").ToString.ToEntero, -1, Dr("SerieLote").ToString, Lote:=Dr("Lote").ToString, Batch:=Dr("Batch").ToString, CveMovimientoDetalleEntrada:=CveMovimientoDetalleSalida) Then
+                '            ErrorMovInv = True
+                '            TextoError = "Ocurrió un error al guardar los movimientos de entrada"
+                '            Exit For
+                '        End If
+                '        importe += Cantidad * PrecioUnitario
+                '    Next
+                'Else
+                '    ErrorMovInv = True
+                '    TextoError = "Ocurrió un error al obtener los movimientos de salida"
+                'End If
 
                 If Not ErrorMovInv Then
                     Dim ImporteDecimal As Decimal = importe.ToDecimal.RoundSQL

Ventas/PopUpBuscarFolio.aspx

@@ -269,6 +269,9 @@
         function Ir(v) {
             gotourl('/Ventas/Ventas.aspx?CveVenta=' + v);
         }
+        function IrPV(v) {
+            gotourl('/Ventas/PV.aspx?CveVenta=' + v);
+        }
         Sys.Application.add_load(function (s, e) {
       
         });

Ventas/PopUpBuscarFolio.aspx.vb

@@ -159,6 +159,10 @@ Partial Class PopUpBuscarFolio
             e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Right
 
             Dim Liga As String = String.Format("<a class='Texto' href='javascript:Ir(""{0}"");'>", e.Row.DBCampo("CveVenta"))
+            If UsuarioActual.CveEmpresa = 140 AndAlso e.Row.DBCampo("TipoDocto").Contiene("Rem") Then
+                Liga = String.Format("<a class='Texto' href='javascript:IrPV(""{0}"");'>", e.Row.DBCampo("CveVenta"))
+            End If
+
             e.Row.FCLiteral("LtlTipo").Text = String.Format("<div class='truncate' style='width:27px;'>{0}{1}</a></div>", Liga, e.Row.DBCampo("TipoDocto"))
             e.Row.FCLiteral("LtlFolio").Text = String.Format("<div class='truncate' style='width:56px;'>{0}{1}</a></div>", Liga, e.Row.DBCampo("Folio"))
             e.Row.FCLiteral("LtlFecha").Text = String.Format("<div class='truncate' style='width:64px;'>{0}{1}</a></div>", Liga, e.Row.DBCampo("Fecha").ToDate.ToShortDateString)

Ventas/Promociones.aspx

@@ -133,8 +133,8 @@
                                 <div class="col-md-4">
                                     <asp:DropDownList ID="DdlTipoAplicacion" DataTextField="Moneda" DataValueField="CveMoneda" CssClass="select2me" runat="server" Width="350px">
                                         <asp:ListItem Value ="-1">Seleccione</asp:ListItem>
-                                        <asp:ListItem Value ="Descuento">Descuento</asp:ListItem>
+                                        <asp:ListItem Value ="1">Descuento</asp:ListItem>
-                                        <asp:ListItem Value ="PU">PU</asp:ListItem>
+                                        <asp:ListItem Value ="2">PU</asp:ListItem>
                                     </asp:DropDownList>
                                 </div>
                             </div>

Ventas/Promociones.aspx.vb

@@ -192,6 +192,7 @@ Partial Class Ventas_Promociones
             ChkEstatus.Checked = If(Dr("Estatus").ToString = "True", True, False)
             DdlMoneda.SelectedValueExist(Dr("CveMoneda").ToString)
             DdlMarca.SelectedValueExist(Dr("CveMarca").ToString)
+            DdlTipoAplicacion.SelectedValueExist(Dr("TipoAplicacion").ToString)
 
             If ObjVentas.GetPromocionesDetalle(CvePromocion, UsuarioActual.CveEmpresa) Then
                 TempDT = ObjVentas.DtResultados

Ventas/Ventas.aspx.vb

@@ -14315,6 +14315,8 @@ Partial Class Ventas
         Dim TipoPromo As Integer = 0
         Dim TotalPromocion As Decimal = 0
         Dim PromocionPorcentaje As Decimal = 0
+        Dim PUModificado As Decimal = 0
+        Dim SeAjustoPU As Boolean = False
         Dim PUPromocion As Decimal = 0
         Dim CantMinima As Integer = 0
         Dim CveMarcaPS As Integer = 0
@@ -14322,6 +14324,7 @@ Partial Class Ventas
         Dim CveRinTamañoPS As Integer = 0
         Dim CvePromocionDetalle As Integer = 0
         Dim IncluyeImpuestos As Boolean = False
+        Dim TipoAplicacion As Integer = 1 ' 1 - descuento, 2 en PU 
         Dim ObjDescuento As New Descuentos
 
         Dim DrPS As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("")
@@ -14356,6 +14359,7 @@ Partial Class Ventas
             PromocionPorcentaje = dr("Promocion").ToString.ToDecimal
             PUPromocion = dr("PUPromocion").ToString.ToDecimal
             CvePromocionDetalle = dr("CvePromocionDetalle").ToString.ToEntero
+            TipoAplicacion = dr("TipoAplicacion").ToString.ToEntero
 
             If CantMinima > 0 Then
                 Cant = Math.Floor(TxtCantidad.Text.ToDecimal / CantMinima).ToEntero
@@ -14363,11 +14367,17 @@ Partial Class Ventas
 
         End If
 
-        TotalPromocion = Math.Round(PUPromocion * Cant / (1 + If(IncluyeImpuestos, PorcentajeIVA, 1)), 6)
+        TotalPromocion = Math.Round(PUPromocion * Cant / (1 + If(IncluyeImpuestos, PorcentajeIVA, 0)), 6)
-
 
         If TipoPromo = 1 Then 'Promocion por Importe $
-            Descuento = Descuento + TotalPromocion
+            If TipoAplicacion = 2 Then
+                Descuento = 0
+                SeAjustoPU = True
+                PUModificado = PUPromocion
+            Else
+                Descuento = Descuento + PU - TotalPromocion
+            End If
+
         ElseIf TipoPromo = 2 Then 'Promocion por %
             Descuento = Descuento + ((PU * PromocionPorcentaje / 100) * Cantidad)
         ElseIf TipoPromo = 3 Then 'Promocion por Cantidad
@@ -14426,6 +14436,10 @@ Partial Class Ventas
 
         ObjDescuento.ImporteDescuento = Descuento
         ObjDescuento.CvePromocionDetalle = CvePromocionDetalle
+        If SeAjustoPU Then
+            ObjDescuento.PU = PUModificado
+            ObjDescuento.EsPUModificado = True
+        End If
 
         Return ObjDescuento
     End Function
@@ -14449,6 +14463,9 @@ Partial Class Ventas
             Dim Cantidad As Decimal = TxtCantidad.Text.ToDecimal
             Dim PU As Decimal = If(CvePSAmortizacion > 0, TxtPrecio.Text.Trim.ToDecimal * -1, TxtPrecio.Text.Trim.ToDecimal)
             Dim ObjDescuento As Descuentos = CalcularDescuentos(CvePS, Cantidad, PU)
+            If ObjDescuento.EsPUModificado Then
+                PU = ObjDescuento.PU
+            End If
 
             AgregarProductoServicio(Cantidad, DdlUnidadMedida.SelectedValue.ToEntero, DdlUnidadMedida.SelectedItem.Text, DdlClasificacion.SelectedValue.ToEntero, DdlClasificacion.SelectedItem.Text,
                             CvePS, "", TxtObsPS.Text.Trim, PU, ObjDescuento.ImporteDescuento,
@@ -25264,5 +25281,7 @@ Partial Class Ventas
     Partial Class Descuentos
         Public ImporteDescuento As Decimal = 0
         Public CvePromocionDetalle As Integer = -1
+        Public PU As Decimal = 0
+        Public EsPUModificado As Boolean = False
     End Class
 End Class