Grafico Rep Anexo Catalogo

Contabilidad2/RepAnexoCatalogoMensual.aspx

@@ -7,7 +7,7 @@
     <style>
         #chartdiv {
             width: 100%;
-            height: 500px;
+            height: 700px;
         }
 
         .fa.fa-bar-chart {
@@ -62,8 +62,8 @@
                                 <div class="col-md-1 truncate">
                                     Cuenta:
                                 </div>
-                                <div class="col-md-3">
+                                <div class="col-md-2">
-                                   <asp:DropDownList ID="DdlCuentas" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="CveCuenta" CssClass="form-control input-sm select2me" Enabled="true" Width="350px">
+                                   <asp:DropDownList ID="DdlCuentas" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="CveCuenta" CssClass="form-control input-sm select2me" Enabled="true" >
                                         <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>
@@ -250,14 +250,30 @@
                             <div class="col-md-2"></div>
                             <label class="col-md-1 truncate">Grafica:</label>
                             <div class="col-md-2">
-                                <asp:DropDownList ID="DdlGrafica" runat="server" AppendDataBoundItems="true" Class="DdlGrafica select2me">
+
-                                    <asp:ListItem Selected="True" Text="Barras" Value="1"></asp:ListItem>
+
-                                    <asp:ListItem Text="Pastel" Value="2"></asp:ListItem>
+                                <select id="DdlGrafica" class="DdlGrafica select2me" >
-                                </asp:DropDownList>
+                                    <option value="column">Barras</option>
+                                    <option value="line">Lineas</option>
+                                    <option value="pie">Pastel</option>
+                                </select>
+
+                               <%-- <asp:UpdatePanel  runat="server">
+                                    <ContentTemplate>
+                                        <asp:DropDownList ID="DdlGrafica" runat="server" ClientIDMode="Static" AppendDataBoundItems="true" Class="DdlGrafica select2me" AutoPostBack="true" OnSelectedIndexChanged="DdlGrafica_SelectedIndexChanged">
+                                            <asp:ListItem Selected="True" Text="Barras" Value="line"></asp:ListItem>
+                                            <asp:ListItem Text="Pastel" Value="pie"></asp:ListItem>
+                                            <asp:ListItem Text="Lineas" Value="column"></asp:ListItem>
+                                        </asp:DropDownList>
+                                    </ContentTemplate>
+                                </asp:UpdatePanel>--%>
+                                
+
                             </div>
                         </div>
                         <br />
-                        <div id="chartdiv"></div>
+                        <div id="chartdiv" runat="server">
+                        </div>
                     </div>
                     <div class="modal-footer">
                         <button type="button" class="btn btn-danger" data-dismiss="modal">Cerrar</button>
@@ -269,7 +285,140 @@
 </asp:Content>
 <asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
 
-    <script src="https://www.amcharts.com/lib/3/amcharts.js"></script>
+    <script>
+
+        $(document).ready(function () {
+            $('#DdlGrafica').change(function () {                
+                recargaGrafica();
+            });
+        });
+
+        var hplControl = "";
+
+        function recargaGrafica() {
+            $(`#${hplControl}`).click();
+        }
+
+        function graficahighchartsFinan(idcontainer, titulo, subtitulo, ytitulo, datos, Yinterval, labelpoint, media, datospie1, datospie2, Tittulo2, ControlID) {
+
+            hplControl = ControlID;
+            let tipoGrafico = $(`#DdlGrafica`).val();
+
+            $('#LblTituloGrafica').text(Tittulo2)
+
+            $(document).ready(function () {
+                $(".chartcheckboxes").remove();
+            });
+            var Monedas = '';
+            if (datospie1.length > 0) {
+                Monedas = 'Monedas';
+            }
+            var numerodatos = 0;
+            $("<div class='chartcheckboxes' ><span></span></div>").insertAfter("#" + idcontainer);
+            if (datos.length > 0) {
+                var numerodatos = datos.length - 1;
+                //var media = (datos.reduce(function (a, b) { return a + b; })) / (numerodatos + 1);
+                for (var i = numerodatos; i >= 0; i--) {
+                    $("<input type='checkbox' id='" + idcontainer + i + "' class='overrydecheckbox' value='" + i + "' onchange=\" changedatagrafica2('" + idcontainer + "');\" /><label for='" + idcontainer + i + "'>" + datos[i][0].substring(0, 3) + "</label>").insertAfter("#" + idcontainer + " + div span");
+                }
+            }
+            $("#" + idcontainer).data('serie', datos);
+
+            var margintop = 80;
+            var dataset = [{
+                type: tipoGrafico,
+                lineColor: '#9ACAE6',
+                color: '#2caffe',
+                fillColor: '#2caffe',
+                lineWidth: 3,
+                marker: {
+                    lineWidth: 2,
+                    lineColor: '#9ACAE6',
+                    fillColor: '#9ACAE6'
+                },
+                pointInterval: 1,
+                name: ' ',
+                data: datos
+            }, {
+                type: 'line',
+                lineWidth: 2,
+                lineColor: '#999',
+                marker: {
+                    enabled: false
+                },
+                name: '  ',
+                data: [media, media]
+            }];
+
+            $('#' + idcontainer).highcharts({
+                chart: {
+                    type: 'area', spacingTop: margintop
+                },
+                title: {
+                    text: titulo
+                },
+                subtitle: {
+                    text: subtitulo
+                },
+                xAxis: {
+                    type: "category"
+
+                },
+                yAxis: {
+                    title: {
+                        text: ytitulo
+                    },
+                    labels: {
+                        formatter: function () {
+                            return this.value / Yinterval;
+                        }
+                    }
+                },
+                tooltip: {
+                    shared: true,
+                    valueSuffix: labelpoint
+                },
+                plotOptions: {
+                    area: {
+                        color: '#FBC5C5',
+                        fillColor: '#FBC5C5',
+                        stacking: 'normal',
+                        lineColor: '#F89F9F',
+                        lineWidth: 0,
+                        marker: {
+                            radius: 5,
+                            lineWidth: 2,
+                            lineColor: '#FFF',
+                            fillColor: '#F89F9F'
+                        }
+                    },
+                    line: {
+                        pointInterval: numerodatos,
+                        lineColor: '#999999',
+                        marker: {
+                            enabled: false,
+                            symbol: 'circle',
+                            radius: 2,
+                            states: {
+                                hover: {
+                                    enabled: true
+                                }
+                            }
+                        }
+                    }
+                },
+                series: dataset,
+                navigation: {
+                    buttonOptions: {
+                        y: -80
+                    }
+                }
+            });
+        }
+    </script>
+
+
+<%--    <script src="https://www.amcharts.com/lib/3/amcharts.js"></script>
     <script src="https://www.amcharts.com/lib/3/serial.js"></script>
     <script src="https://www.amcharts.com/lib/3/pie.js"></script>
     <script src="https://www.amcharts.com/lib/3/plugins/export/export.min.js"></script>
@@ -531,7 +680,7 @@
        
 
 
-    </script>
+    </script>--%>
 
 </asp:Content>
 

Contabilidad2/RepAnexoCatalogoMensual.aspx.vb

@@ -2,6 +2,8 @@
 Option Strict On
 
 Imports System.Data
+Imports DocumentFormat.OpenXml.EMMA
+Imports DocumentFormat.OpenXml.Office2010.ExcelAc
 Imports Extensiones
 Partial Class Contabilidad2_RepAnexoCatalogoMensual
     Inherits ClsPaginas
@@ -56,6 +58,7 @@ Partial Class Contabilidad2_RepAnexoCatalogoMensual
             listacolores.Add("#999999")
             listacolores.Add("#000000")
             listacolores.Add("#FF0F00")
+
             Dim EjercicioParametro, SubProyectoParametro, DivisorParametro, Periodo, TRCU As Integer
             CveCuenta = IfNull(Request("CveCuenta"), "-1").ToString.ToEntero
             EjercicioParametro = IfNull(Request("Ejercicio"), "-1").ToString.ToEntero
@@ -67,7 +70,7 @@ Partial Class Contabilidad2_RepAnexoCatalogoMensual
             InicializaValores()
 
             DdlEjercicio.SelectedValueExist(EjercicioParametro.ToString)
-            DdlSubProyecto.SelectedValueExist(SubProyectoParametro.ToString)
+            DdlSubproyecto.SelectedValueExist(SubProyectoParametro.ToString)
             DdlDivisor.SelectedValueExist(DivisorParametro.ToString)
             DdlPeriodo.SelectedValueExist(Periodo)
             DdlTri.SelectedValueExist(TRCU)
@@ -109,11 +112,10 @@ Partial Class Contabilidad2_RepAnexoCatalogoMensual
         Conta.Dispose()
 
         DdlCuentas.DataBind()
-
         DdlEjercicio.DataBind()
         DdlEjercicio.SelectedValueExist(Now.Year.ToString)
 
-        CargarCentrosDeCosto(DdlProyecto, DdlSubproyecto, LblProyecto, LblSubProyecto, divProyecto:=divProyecto)
+        CargarCentrosDeCosto(DdlProyecto, DdlSubproyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto)
 
 
     End Sub
@@ -131,10 +133,9 @@ Partial Class Contabilidad2_RepAnexoCatalogoMensual
             Alert("Debe de seleccionar una cuenta.")
             Exit Sub
         End If
-
         Dim Conta As New ClsContabilidad
 
-        If Conta.GetAnexoCatalogoMensual(DdlCuentas.SelectedValue.ToEntero, DdlEjercicio.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveUsuario, DdlPeriodo.SelectedValue.ToEntero) Then
+        If Conta.GetAnexoCatalogoMensual(DdlCuentas.SelectedValue.ToEntero, DdlEjercicio.SelectedValue.ToEntero, DdlSubproyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveUsuario, DdlPeriodo.SelectedValue.ToEntero) Then
             GvMensual2.DataSource = Conta.DtResultados
         Else
             GvMensual2.DataSource = Nothing
@@ -213,30 +214,28 @@ Partial Class Contabilidad2_RepAnexoCatalogoMensual
             'End If
 
             Dim Enero, Febrero, Marzo, Abril, Mayo, Junio, Julio, Agosto, Septiembre, Octubre, Noviembre, Diciembre As Decimal
+            Enero = e.Row.DBCampo("Enero").ToDecimal()
+            Febrero = e.Row.DBCampo("Febrero").ToDecimal()
+            Marzo = e.Row.DBCampo("Marzo").ToDecimal()
+            Abril = e.Row.DBCampo("Abril").ToDecimal()
+            Mayo = e.Row.DBCampo("Mayo").ToDecimal()
+            Junio = e.Row.DBCampo("Junio").ToDecimal()
+            Julio = e.Row.DBCampo("Julio").ToDecimal()
+            Agosto = e.Row.DBCampo("Agosto").ToDecimal()
+            Septiembre = e.Row.DBCampo("Septiembre").ToDecimal()
+            Octubre = e.Row.DBCampo("Octubre").ToDecimal()
+            Noviembre = e.Row.DBCampo("Noviembre").ToDecimal()
+            Diciembre = e.Row.DBCampo("Diciembre").ToDecimal()
 
 
-                Enero = e.Row.DBCampo("Enero").ToDecimal()
+            Dim CveCunetaRow As Integer = e.Row.DataKey("CveCuenta").ToEntero
-                Febrero = e.Row.DBCampo("Febrero").ToDecimal()
-                Marzo = e.Row.DBCampo("Marzo").ToDecimal()
-                Abril = e.Row.DBCampo("Abril").ToDecimal()
-                Mayo = e.Row.DBCampo("Mayo").ToDecimal()
-                Junio = e.Row.DBCampo("Junio").ToDecimal()
-                Julio = e.Row.DBCampo("Julio").ToDecimal()
-                Agosto = e.Row.DBCampo("Agosto").ToDecimal()
-                Septiembre = e.Row.DBCampo("Septiembre").ToDecimal()
-                Octubre = e.Row.DBCampo("Octubre").ToDecimal()
-                Noviembre = e.Row.DBCampo("Noviembre").ToDecimal()
-                Diciembre = e.Row.DBCampo("Diciembre").ToDecimal()
 
 
-                Dim CveCunetaRow As Integer = e.Row.DataKey("CveCuenta").ToEntero
+            For x = 2 To GvMensual2.Columns.Count - 1
 
-
+                If e.Row.Cells(x).Text.Replace("%", "").ToDecimal = 0 Then
-                For x = 2 To GvMensual2.Columns.Count - 1
+                    e.Row.Cells(x).Text = "-"
-
+                ElseIf e.Row.Cells(x).Text.Replace("%", "").ToDecimal < 0 Then
-                    If e.Row.Cells(x).Text.Replace("%", "").ToDecimal = 0 Then
-                        e.Row.Cells(x).Text = "-"
-                    ElseIf e.Row.Cells(x).Text.Replace("%", "").ToDecimal < 0 Then
                     e.Row.Cells(x).ForeColor = Drawing.Color.OrangeRed
                 End If
 
@@ -281,37 +280,61 @@ Partial Class Contabilidad2_RepAnexoCatalogoMensual
                     e.Row.Cells(x).Text = $"<a  { If(Octubre < 0, "style='color:Red;'", "style='color:#337ab7;'")  } target='_blank' href='./RepAnexoCatalogo.aspx?CveCuenta={CveCunetaRow}&FF={ $"01/10/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString }&FI=01/10/{DdlEjercicio}&ER=1&CveSubProyecto={DdlSubproyecto.SelectedValue}' >{ If(DdlDivisor.SelectedValue.ToEntero > 1, Octubre.ToString("###,###,##0"), Octubre.ToString("###,###,###.00")) }</a>"
                 End If
 
-                    If x = 35 Then
+                If x = 35 Then
                     e.Row.Cells(x).Text = $"<a  { If(Noviembre < 0, "style='color:Red;'", "style='color:#337ab7;'")  } target='_blank' href='./RepAnexoCatalogo.aspx?CveCuenta={CveCunetaRow}&FF={ $"01/11/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString }&FI=01/11/{DdlEjercicio}&ER=1&CveSubProyecto={DdlSubproyecto.SelectedValue}' >{ If(DdlDivisor.SelectedValue.ToEntero > 1, Noviembre.ToString("###,###,##0"), Noviembre.ToString("###,###,###.00")) }</a>"
                 End If
 
-                    If x = 38 Then
+                If x = 38 Then
                     e.Row.Cells(x).Text = $"<a  { If(Diciembre < 0, "style='color:Red;'", "style='color:#337ab7;'")  } target='_blank' href='./RepAnexoCatalogo.aspx?CveCuenta={CveCunetaRow}&FF={ $"01/12/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString }&FI=01/12/{DdlEjercicio}&ER=1&CveSubProyecto={DdlSubproyecto.SelectedValue}' >{ If(DdlDivisor.SelectedValue.ToEntero > 1, Diciembre.ToString("###,###,##0"), Diciembre.ToString("###,###,###.00")) }</a>"
                 End If
-                Next
+            Next
-                If Enero = 0 Then
+            If Enero = 0 Then
-                    e.Row.Cells(2).Text = "-"
+                e.Row.Cells(2).Text = "-"
-                End If
-
             End If
+
+        End If
     End Sub
 
     Public Sub setgrafica(e As GridViewRowEventArgs)
+        'Dim lista As New List(Of Object)
+        'lista.Add(New With {.Texto = "Enero", .Valor = e.Row.DBCampo("Enero").ToDecimal(), .Color = "#FF0F00"})
+        'lista.Add(New With {.Texto = "Febrero", .Valor = e.Row.DBCampo("Febrero").ToDecimal(), .Color = "#FF6600"})
+        'lista.Add(New With {.Texto = "Marzo", .Valor = e.Row.DBCampo("Marzo").ToDecimal(), .Color = "#F8FF01"})
+        'lista.Add(New With {.Texto = "Abril", .Valor = e.Row.DBCampo("Abril").ToDecimal(), .Color = "#04D215"})
+        'lista.Add(New With {.Texto = "Mayo", .Valor = e.Row.DBCampo("Mayo").ToDecimal(), .Color = "#2A0CD0"})
+        'lista.Add(New With {.Texto = "Junio", .Valor = e.Row.DBCampo("Junio").ToDecimal(), .Color = "#8A0CCF"})
+        'lista.Add(New With {.Texto = "Julio", .Valor = e.Row.DBCampo("Julio").ToDecimal(), .Color = "#CD0D74"})
+        'lista.Add(New With {.Texto = "Agosto", .Valor = e.Row.DBCampo("Agosto").ToDecimal(), .Color = "#754DEB"})
+        'lista.Add(New With {.Texto = "Septiembre", .Valor = e.Row.DBCampo("Septiembre").ToDecimal(), .Color = "#DDDDDD"})
+        'lista.Add(New With {.Texto = "Octubre", .Valor = e.Row.DBCampo("Octubre").ToDecimal(), .Color = "#999999"})
+        'lista.Add(New With {.Texto = "Noviembre", .Valor = e.Row.DBCampo("Noviembre").ToDecimal(), .Color = "#000000"})
+        'lista.Add(New With {.Texto = "Diciembre", .Valor = e.Row.DBCampo("Diciembre").ToDecimal(), .Color = "#FF0F00"})
+
+        Dim Lista2 As New List(Of String)
+        Lista2.Add($"['{"Enero"}',{e.Row.DBCampo("Enero").ToDecimal()}]")
+        Lista2.Add($"['{"Febrero"}',{e.Row.DBCampo("Febrero").ToDecimal()}]")
+        Lista2.Add($"['{"Marzo"}',{e.Row.DBCampo("Marzo").ToDecimal()}]")
+        Lista2.Add($"['{"Abril"}',{e.Row.DBCampo("Abril").ToDecimal()}]")
+        Lista2.Add($"['{"Mayo"}',{e.Row.DBCampo("Mayo").ToDecimal()}]")
+        Lista2.Add($"['{"Junio"}',{e.Row.DBCampo("Junio").ToDecimal()}]")
+        Lista2.Add($"['{"Julio"}',{e.Row.DBCampo("Julio").ToDecimal()}]")
+        Lista2.Add($"['{"Agosto"}',{e.Row.DBCampo("Agosto").ToDecimal()}]")
+        Lista2.Add($"['{"Septiembre"}',{e.Row.DBCampo("Septiembre").ToDecimal()}]")
+        Lista2.Add($"['{"Octubre"}',{e.Row.DBCampo("Octubre").ToDecimal()}]")
+        Lista2.Add($"['{"Noviembre"}',{e.Row.DBCampo("Noviembre").ToDecimal()}]")
+        Lista2.Add($"['{"Diciembre"}',{e.Row.DBCampo("Diciembre").ToDecimal()}]")
+
+
+        'e.Row.FCHyperLink("Hypgrafica").Attributes.Add("data-values", Newtonsoft.Json.JsonConvert.SerializeObject(lista))
+
+        'If e.Row.DataKey("Tipo").ToEntero <> 1 Then
+        Dim Info = String.Join(",", Lista2)
+        e.Row.FCHyperLink("Hypgrafica").Attributes.Add("onclick", "$('#DivModalGrafica').modal('show');  " &
+                 String.Format("graficahighchartsFinan('{0}','{1}','{2}','{3}',[{4}],1,'{5}','{6}',[{8}],[{7}],'{9}','{10}');", chartdiv.ClientID, "", "", "$", Info, "", 0, "", "", e.Row.DBCampo("Nombre"), e.Row.FCHyperLink("Hypgrafica").ClientID))
+        'Else
+        '    e.Row.FCHyperLink("hpl2").Visible = False
+        'End If
 
-        Dim lista As New List(Of Object)
-        lista.Add(New With {.Texto = "Enero", .Valor = e.Row.DBCampo("Enero").ToDecimal(), .Color = "#FF0F00"})
-        lista.Add(New With {.Texto = "Febrero", .Valor = e.Row.DBCampo("Febrero").ToDecimal(), .Color = "#FF6600"})
-        lista.Add(New With {.Texto = "Marzo", .Valor = e.Row.DBCampo("Marzo").ToDecimal(), .Color = "#F8FF01"})
-        lista.Add(New With {.Texto = "Abril", .Valor = e.Row.DBCampo("Abril").ToDecimal(), .Color = "#04D215"})
-        lista.Add(New With {.Texto = "Mayo", .Valor = e.Row.DBCampo("Mayo").ToDecimal(), .Color = "#2A0CD0"})
-        lista.Add(New With {.Texto = "Junio", .Valor = e.Row.DBCampo("Junio").ToDecimal(), .Color = "#8A0CCF"})
-        lista.Add(New With {.Texto = "Julio", .Valor = e.Row.DBCampo("Julio").ToDecimal(), .Color = "#CD0D74"})
-        lista.Add(New With {.Texto = "Agosto", .Valor = e.Row.DBCampo("Agosto").ToDecimal(), .Color = "#754DEB"})
-        lista.Add(New With {.Texto = "Septiembre", .Valor = e.Row.DBCampo("Septiembre").ToDecimal(), .Color = "#DDDDDD"})
-        lista.Add(New With {.Texto = "Octubre", .Valor = e.Row.DBCampo("Octubre").ToDecimal(), .Color = "#999999"})
-        lista.Add(New With {.Texto = "Noviembre", .Valor = e.Row.DBCampo("Noviembre").ToDecimal(), .Color = "#000000"})
-        lista.Add(New With {.Texto = "Diciembre", .Valor = e.Row.DBCampo("Diciembre").ToDecimal(), .Color = "#FF0F00"})
-        e.Row.FCHyperLink("Hypgrafica").Attributes.Add("data-values", Newtonsoft.Json.JsonConvert.SerializeObject(lista))
     End Sub
 #End Region
 
@@ -332,4 +355,8 @@ Partial Class Contabilidad2_RepAnexoCatalogoMensual
     End Sub
 
 
+
+    'Protected Sub DdlGrafica_SelectedIndexChanged(sender As Object, e As EventArgs)
+    '    RegistraScript("recargaGrafica();")
+    'End Sub
 End Class

OC/OC.aspx.vb

@@ -1597,7 +1597,7 @@ Partial Class OC_OC
 
 
             lblPendientes.Text = objOC.Pendiente.ToString
-            If objOC.Pendiente > 0 Then
+            If objOC.Pendiente > 0 AndAlso TipoOC = "OC" Then
 
                 If objOC.Pendiente > 1 Then
                     lblPendientes.Text = objOC.Pendiente.ToString("0.###") & " Articulos Pendientes de vincular."