Contabilidad2/RepEstadoResultadosHorizontal.aspx

@@ -572,6 +572,7 @@
                                         <Columns>
                                             <asp:TemplateField>
                                                 <ItemTemplate>
+                                                    <asp:HyperLink ID="Hypgrafica" runat="server" CssClass="Texto Hypgrafica" NavigateUrl="javascript:void(0);" onclick="return HandlerGraf(this, event);"><i class="fa fa-bar-chart" aria-hidden="true"></i></asp:HyperLink>
                                                     <%--<asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>' Width="238px" ></asp:Label>--%>
                                                     <asp:HyperLink ID="HLNombre" runat="server" Text='<%# Eval("Nombre")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
                                                 </ItemTemplate>
@@ -625,6 +626,7 @@
 
                                             <asp:TemplateField>
                                                 <ItemTemplate>
+                                                    <asp:HyperLink ID="Hypgrafica" runat="server" CssClass="Texto Hypgrafica" NavigateUrl="javascript:void(0);" onclick="return HandlerGraf(this, event);"><i class="fa fa-bar-chart" aria-hidden="true"></i></asp:HyperLink>
                                                     <%--<asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>' Width="238px"></asp:Label>--%>
                                                     <asp:HyperLink ID="HLNombre" runat="server" Text='<%# Eval("Nombre")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
                                                 </ItemTemplate>
@@ -687,6 +689,7 @@
 
                                             <asp:TemplateField>
                                                 <ItemTemplate>
+                                                    <asp:HyperLink ID="Hypgrafica" runat="server" CssClass="Texto Hypgrafica" NavigateUrl="javascript:void(0);" onclick="return HandlerGraf(this, event);"><i class="fa fa-bar-chart" aria-hidden="true"></i></asp:HyperLink>
                                                     <asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>' Width="238px"></asp:Label>
                                                 </ItemTemplate>
                                                 <ItemStyle HorizontalAlign="Left" />

Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb

@@ -83,6 +83,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             ViewState("listacolores") = value
         End Set
     End Property
+
     Private Property listaCampos As List(Of String())
         Get
             Return DirectCast(ViewState("listaCampos"), List(Of String()))
@@ -91,6 +92,30 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             ViewState("listaCampos") = value
         End Set
     End Property
+    Private Property listaCamposanios As List(Of String())
+        Get
+            Return DirectCast(ViewState("listaCamposanios"), List(Of String()))
+        End Get
+        Set(value As List(Of String()))
+            ViewState("listaCamposanios") = value
+        End Set
+    End Property
+    Private Property listaCamposaniosGastos As List(Of String())
+        Get
+            Return DirectCast(ViewState("listaCamposaniosGastos"), List(Of String()))
+        End Get
+        Set(value As List(Of String()))
+            ViewState("listaCamposaniosGastos") = value
+        End Set
+    End Property
+    Private Property listaCamposaniosTotal As List(Of String())
+        Get
+            Return DirectCast(ViewState("listaCamposaniosTotal"), List(Of String()))
+        End Get
+        Set(value As List(Of String()))
+            ViewState("listaCamposaniosTotal") = value
+        End Set
+    End Property
 
     'Private Property ReporteComplementario As Boolean
     '    Get
@@ -287,6 +312,9 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
         If Not Page.IsPostBack Then
             listacolores = New List(Of String)
             listaCampos = New List(Of String())
+            listaCamposanios = New List(Of String())
+            listaCamposaniosGastos = New List(Of String())
+            listaCamposaniosTotal = New List(Of String())
             listacolores.Add("#FF0F00")
             listacolores.Add("#FF6600")
             listacolores.Add("#F8FF01")
@@ -306,7 +334,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             CargaEjercicios()
 
             CargarCentrosDeCosto(Nothing, DdlSubproyecto, Nothing, LblSubProyecto)
-            TabSubProyecto.HeaderText = LblSubProyecto.Text & " H."
+            TabSubProyecto.HeaderText = LblSubProyecto.Text & " "
 
 
 
@@ -1180,7 +1208,9 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             GvGastosAnualH.Columns(IDX_LIMPIAR).Visible = False
             GvTotalesAnualH.Columns(IDX_LIMPIAR).Visible = False
         Next
-
+        listaCamposanios.Clear()
+        listaCamposaniosGastos.Clear()
+        listaCamposaniosTotal.Clear()
 
         If DtIngresosAnualH.Rows.Count > 0 Then
 
@@ -1197,6 +1227,9 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
                         CType(GvIngresosAnualH.Columns(IndexGv), BoundField).HeaderText = dCoumn.ColumnName
 
 
+                        listaCamposanios.Add(New String() {dCoumn.ColumnName.ToString(), dCoumn.ColumnName.ToString()})
+
+                        listaCamposaniosTotal.Add(New String() {dCoumn.ColumnName.ToString(), dCoumn.ColumnName.ToString()})
                         'CType(GvIngresosAnualH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName
                         'CType(GvIngresosAnualH.Columns(IndexGv), BoundField).HeaderText = dCoumn.ColumnName
                         GvIngresosAnualH.Columns(IndexGv).Visible = True
@@ -1276,6 +1309,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
                         CType(GvGastosAnualH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName
                         CType(GvGastosAnualH.Columns(IndexGv), BoundField).HeaderText = dCoumn.ColumnName
+                        listaCamposaniosGastos.Add(New String() {dCoumn.ColumnName.ToString(), dCoumn.ColumnName.ToString()})
+
                         'CType(GvGastosAnualH.Columns(IndexGv), HyperLinkField).DataNavigateUrlFields = {"CveCuenta", "FechaInicial", "FechaFActual", "CveSubProyecto"}
                         'CType(GvGastosAnualH.Columns(IndexGv), HyperLinkField).DataNavigateUrlFormatString = "/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}"
 
@@ -1360,10 +1395,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
 
     Protected Sub GvIngresosAnualH_RowDataBound(sender As Object, e As GridViewRowEventArgs)
-
         If e.Row.RowType = DataControlRowType.DataRow Then
-
-
+            setgraficaCCAnual(e, listaCamposanios)
             If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then
                 TotalActualMes += e.Row.DBCampo("ImporteActual").ToString.ToDouble
                 TotalAnteriorMes += e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble
@@ -1425,6 +1458,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
     Protected Sub GvGastosAnualH_RowDataBound(sender As Object, e As GridViewRowEventArgs)
         If e.Row.RowType = DataControlRowType.DataRow Then
+            setgraficaCCAnual(e, listaCamposaniosGastos)
             If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then
                 TotalActualMes -= e.Row.DBCampo("ImporteActual").ToString.ToDouble
                 TotalAnteriorMes -= e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble
@@ -1485,12 +1519,24 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
         End If
 
         If e.Row.RowType = DataControlRowType.DataRow Then
-
+            setgraficaCCAnual(e, listaCamposaniosTotal)
             e.Row.Attributes.Add("style", "Font-weight: bold")
         End If
 
     End Sub
 
+    Public Sub setgraficaCCAnual(e As GridViewRowEventArgs, listaCampos As List(Of String()))
+        Dim lista As New List(Of Object)
+        Dim colorindex As Integer = 0
+        For Each campo As String() In listaCampos
+            lista.Add(New With {.Texto = campo(1), .Valor = e.Row.DBCampo(campo(0)).ToDecimal(), .Color = listacolores(colorindex)})
+            colorindex = colorindex + 1
+            If colorindex >= listacolores.Count Then
+                colorindex = 0
+            End If
+        Next
+        e.Row.FCHyperLink("Hypgrafica").Attributes.Add("data-values", Newtonsoft.Json.JsonConvert.SerializeObject(lista))
+    End Sub
 #End Region