From 95d5e901c6706707411069ce245921af96363727 Mon Sep 17 00:00:00 2001 From: MLopez Date: Wed, 30 Nov 2022 09:07:29 -0700 Subject: [PATCH] E172 Rep Indicador Resumen: Agregar tabla de Indicadores agrupada por Proveedor --- App_Code/ClsCGame.vb | 20 +++++++++ Compras/Compras.aspx.vb | 4 ++ General/RepIndicadorResumen.aspx | 63 ++++++++++++++++++++++++++++- General/RepIndicadorResumen.aspx.vb | 46 +++++++++++++++++++-- 4 files changed, 129 insertions(+), 4 deletions(-) diff --git a/App_Code/ClsCGame.vb b/App_Code/ClsCGame.vb index ce78e577c..7622d3cae 100644 --- a/App_Code/ClsCGame.vb +++ b/App_Code/ClsCGame.vb @@ -3390,6 +3390,26 @@ Public Class ClsCGame End Function +#End Region + +#Region "INDICADORES" + + Public Function GetIndicadores(CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Citrus_IndicadoresGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener los indicadores.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function + + #End Region #Region "IDisposable Support" diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 52b8f4eff..e7ae66cd7 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1,10 +1,14 @@ Option Explicit On Option Strict On +Imports System.Data +Imports System.Xml Imports System.Diagnostics Imports System.Globalization Imports System.IO Imports System.Threading.Tasks +Imports Newtonsoft.Json +Imports Extensiones Partial Class Compras_Compras diff --git a/General/RepIndicadorResumen.aspx b/General/RepIndicadorResumen.aspx index 150701480..1fb38f090 100644 --- a/General/RepIndicadorResumen.aspx +++ b/General/RepIndicadorResumen.aspx @@ -348,7 +348,7 @@ CssClass="table table-striped table-advance table-hover ScrollAD " ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true" AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False"> - + @@ -381,6 +381,66 @@ +
+
+ + +
+
+ + Indicadores por Proveedor +
+
+
+
+
+
+ +
+
+
+ + + + + + + + + + + +
+ + +
+ + <%--
+ + +
+
+ + Indicadores - Gráfica +
+
+
+
+
+
+ +
+
+
+
+
+ + +
--%> +
+ @@ -435,6 +495,7 @@ AmCharts.makeChart("chartdiv_cxp192", { ...chartconfig, dataProvider: json["CxP192"] }); // Compras x Producto ProveedorClasificacion 192 AmCharts.makeChart("chartdiv_ccxc", { ...chartconfig, dataProvider: json["CCxC"] }); // Cuentas por Cobrar x Cliente AmCharts.makeChart("chartdiv_cpxp", { ...chartconfig, dataProvider: json["CPxP"] }); // Cuentas por Pagar x Proveedor + // AmCharts.makeChart("chartdiv_indicadores", { ...chartconfig, dataProvider: json["Indicadores"] }); // Indicadores por Proveedor document.getElementById('amChartsAttribution').style.visibility = 'visible'; } diff --git a/General/RepIndicadorResumen.aspx.vb b/General/RepIndicadorResumen.aspx.vb index 64dd89557..f25a5be80 100644 --- a/General/RepIndicadorResumen.aspx.vb +++ b/General/RepIndicadorResumen.aspx.vb @@ -77,6 +77,20 @@ Partial Class General_RepIndicadorResumen ViewState("CPxP") = value End Set End Property + Private Property Indicadores As DataTable + Get + + If ViewState("Indicadores") Is Nothing Then + Return New DataTable + Else + Return DirectCast(ViewState("Indicadores"), DataTable) + End If + + End Get + Set(value As DataTable) + ViewState("Indicadores") = value + End Set + End Property Private Property DtColor As DataTable Get @@ -126,7 +140,8 @@ Partial Class General_RepIndicadorResumen Dim ObjVentas As New ClsVentas Dim ObjCompras As New ClsCompras - Dim ObjMovtos As New ClsMovimientos() + Dim ObjMovtos As New ClsMovimientos + Dim ObjCitrus As New ClsCGame If ObjVentas.GetRepProductosServicios(-1, DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, TxtFechaI.Text.Trim(), TxtFechaF.Text.Trim(), MinFecha, MaxFecha, -1, -1, -1, -1, -1, "-1", UsuarioActual.CveEmpresa, 5, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoCambio:=1) Then @@ -177,17 +192,28 @@ Partial Class General_RepIndicadorResumen CPxP = Nothing End If + If ObjCitrus.GetIndicadores(UsuarioActual.CveEmpresa) Then + + Indicadores = ObjCitrus.DtResultados + GvIndicadores.DataSource = Indicadores + Else + GvIndicadores.DataSource = Nothing + Indicadores = Nothing + End If + ObjVentas.Dispose() ObjCompras.Dispose() ObjMovtos.Dispose() + ObjCitrus.Dispose() GvVxP.DataBind() GvCxP192.DataBind() GvCxP.DataBind() GvCCxC.DataBind() GvCPxP.DataBind() + GvIndicadores.DataBind() - ' Mostrar gráficos solo si hay datos en su respectiva tabla + 'Mostrar gráficos solo si hay datos en su respectiva tabla If GvVxP.Rows.Count > 0 Then UPGraficaVxP.Visible = True Else @@ -213,8 +239,13 @@ Partial Class General_RepIndicadorResumen Else UPGraficaCPxP.Visible = False End If + 'If GvIndicadores.Rows.Count > 0 Then + ' UPGraficaIndicadores.Visible = True + 'Else + ' UPGraficaIndicadores.Visible = False + 'End If - ' Si no había datos en ninguna tabla no cargar función de gráficos + 'Si no había datos en ninguna tabla no cargar función de gráficos If (GvVxP.Rows.Count = 0 AndAlso GvCxP.Rows.Count = 0 AndAlso GvCxP192.Rows.Count = 0 AndAlso GvCCxC.Rows.Count = 0 AndAlso GvCPxP.Rows.Count = 0) Then Exit Sub GraficasPastel() 'GraficasBarras() @@ -247,6 +278,13 @@ Partial Class General_RepIndicadorResumen End If End If End Sub + Protected Sub GvIndicadores_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvIndicadores.RowDataBound + 'If e.Row.RowType = DataControlRowType.DataRow Then + ' If e.Row.DBCampo("Orden") = "" Then + ' e.Row.CssClass = "Totales" + ' End If + 'End If + End Sub Private Sub CreaDataTableColor() DtColor = New DataTable DtColor.Columns.Add("Color") @@ -447,6 +485,8 @@ Partial Class General_RepIndicadorResumen Next Dim query_cpxp = From s In DtCPxP.AsEnumerable() Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = s("Moneda").ToString()} + 'TODO: Indicadores x Proveedor -- Determinar qué poner en la gráfica con E172 + 'Serializar datos agrupándolos en su respectivo DataTable, todos en un solo JSON Dim json As String = Newtonsoft.Json.JsonConvert.SerializeObject(New With {.VxP = query_vxp, .CxP = query_cxp, .CxP192 = query_cxp192, .CCxC = query_ccxc, .CPxP = query_cpxp}) 'Dim json As String = Newtonsoft.Json.JsonConvert.SerializeObject(New With {.VxP = query_vxp, .CCxC = New String() {}})