-
-
-
-
-
- Cuentas por pagar por Proveedor - Gráfica
-
-
-
-
@@ -416,7 +416,7 @@
}
});
- function CargaGraficasBarras(json) {
+ function CargaGraficas(json) {
const chartconfig = {
chart: {
@@ -493,15 +493,15 @@
//AmCharts.makeChart("chartdiv_vxp", { ...chartconfig, type: "serial", dataProvider: json["VxP"] }); // Ventas x Producto
$('#' + "chartdiv_vxp").highcharts({ ...chartconfig, series: [{ ...chartconfig.series[0], data: customAccessor(json["VxP"]) }] })
- $('#' + "chartdiv_cxp").highcharts({ ...chartconfig, series: [{ ...chartconfig.series[0], data: customAccessor(json["CxP"]) }] })
$('#' + "chartdiv_cxp192").highcharts({ ...chartconfig, series: [{ ...chartconfig.series[0], type: 'pie', data: customAccessor(json["CxP192"]) }] })
- $('#' + "chartdiv_ccxc").highcharts({ ...chartconfig, series: [{ ...chartconfig.series[0], data: customAccessor(json["CCxC"]) }] })
- $('#' + "chartdiv_cpxp").highcharts({ ...chartconfig, series: [{ ...chartconfig.series[0], data: customAccessor(json["CPxP"]) }] })
+ $('#' + "chartdiv_cxp").highcharts({ ...chartconfig, series: [{ ...chartconfig.series[0], data: customAccessor(json["CxP"]) }] })
+ $('#' + "chartdiv_cxpa").highcharts({ ...chartconfig, series: [{ ...chartconfig.series[0], data: customAccessor(json["CxPA"]) }] })
+ $('#' + "chartdiv_cxc").highcharts({ ...chartconfig, series: [{ ...chartconfig.series[0], data: customAccessor(json["CxC"]) }] })
//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_cxc", { ...chartconfig, dataProvider: json["CxC"] }); // Cuentas por Cobrar x Cliente
+ //AmCharts.makeChart("chartdiv_cxp", { ...chartconfig, dataProvider: json["CxP"] }); // Cuentas por Pagar x Proveedor
//AmCharts.makeChart("chartdiv_indicadores", { ...chartconfig, dataProvider: json["Indicadores"] }); // Indicadores por Proveedor Productor
function customAccessor(data) {
diff --git a/General/RepIndicadorResumen.aspx.vb b/General/RepIndicadorResumen.aspx.vb
index c9d29639c..5e2c0a4ce 100644
--- a/General/RepIndicadorResumen.aspx.vb
+++ b/General/RepIndicadorResumen.aspx.vb
@@ -86,20 +86,25 @@ Partial Class General_RepIndicadorResumen
If ObjMovtos.GetCxC(TxtFechaI.Text, TxtFechaF.Text, -1, DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, "-1", UsuarioActual.CveEmpresa, 5, -1, 1, -1,
"-1", "-1", "-1", FechaCorte:=FechaCorte.ToDate, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then
ObjMovtos.DtResultados.DefaultView.Sort = "CveMoneda,Saldo DESC"
- GvCCxC.DataSource = ObjMovtos.DtResultados.DefaultView.ToTable
+ GvCxC.DataSource = ObjMovtos.DtResultados.DefaultView.ToTable
End If
- If ObjMovtos.GetCxP(MinFecha, TxtFechaF.Text, -1, DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, -1, -1, UsuarioActual.CveEmpresa, 5, -1, 1,
- FechaCorte:=FechaCorte.ToDate, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then
- ObjMovtos.DtResultados.DefaultView.Sort = "CveMoneda,Saldo DESC"
- GvCPxP.DataSource = ObjMovtos.DtResultados.DefaultView.ToTable
- End If
+ 'If ObjMovtos.GetCxP(MinFecha, TxtFechaF.Text, -1, DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, -1, -1, UsuarioActual.CveEmpresa, 5, -1, 1,
+ ' FechaCorte:=FechaCorte.ToDate, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then
+ ' ObjMovtos.DtResultados.DefaultView.Sort = "CveMoneda,Saldo DESC"
+ ' GvCPxP.DataSource = ObjMovtos.DtResultados.DefaultView.ToTable
+ 'End If
If ObjCitrus.GetIndicadores(UsuarioActual.CveEmpresa, TxtFechaI.Text, TxtFechaF.Text, UsuarioActual.CveUsuario, DdlSubProyecto.SelectedValue.ToEntero) Then
+ 'CxP Productores
ObjCitrus.DTSetResultados.Tables(0).DefaultView.Sort = "Cantidad DESC"
GvCxP192.DataSource = ObjCitrus.DTSetResultados.Tables(0).DefaultView.ToTable
- ObjCitrus.DTSetResultados.Tables(1).DefaultView.Sort = "Moneda,SubTotal DESC"
- GvComprasAcreed.DataSource = ObjCitrus.DTSetResultados.Tables(1).DefaultView.ToTable
+ 'CxP NO productores
+ ObjCitrus.DTSetResultados.Tables(1).DefaultView.Sort = "Saldo DESC"
+ GvCxP.DataSource = ObjCitrus.DTSetResultados.Tables(1).DefaultView.ToTable
+ 'Gastos (Compras acreedores)
+ ObjCitrus.DTSetResultados.Tables(2).DefaultView.Sort = "Moneda,SubTotal DESC"
+ GvComprasAcreed.DataSource = ObjCitrus.DTSetResultados.Tables(2).DefaultView.ToTable
End If
ObjVentas.Dispose()
@@ -108,13 +113,13 @@ Partial Class General_RepIndicadorResumen
ObjCitrus.Dispose()
GvVxP.DataBind()
- GvCxP192.DataBind()
+ GvCxP192.DataBind() 'Compras Productores
+ GvCxP.DataBind() 'Compras NO productores
GvComprasAcreed.DataBind()
- GvCCxC.DataBind()
- If GvCCxC.DataSource IsNot Nothing Then
- GvCCxC.HeaderRow.Cells(1).Text = "
Saldo"
+ GvCxC.DataBind()
+ If GvCxC.DataSource IsNot Nothing Then
+ GvCxC.HeaderRow.Cells(1).Text = "
Saldo"
End If
- GvCPxP.DataBind()
'Mostrar gráficos solo si hay datos en su respectiva tabla
If GvVxP.Rows.Count > 0 Then
@@ -132,15 +137,15 @@ Partial Class General_RepIndicadorResumen
Else
UPGraficaCxP192.Visible = False
End If
- If GvCCxC.Rows.Count > 0 Then
- UPGraficaCCxC.Visible = True
+ If GvCxC.Rows.Count > 0 Then
+ UPGraficaCxC.Visible = True
Else
- UPGraficaCCxC.Visible = False
+ UPGraficaCxC.Visible = False
End If
- If GvCPxP.Rows.Count > 0 Then
- UPGraficaCPxP.Visible = True
+ If GvCxP.Rows.Count > 0 Then
+ UPGraficaCxP.Visible = True
Else
- UPGraficaCPxP.Visible = False
+ UPGraficaCxP.Visible = False
End If
'If GvIndicadores.Rows.Count > 0 Then
' UPGraficaIndicadores.Visible = True
@@ -149,7 +154,7 @@ Partial Class General_RepIndicadorResumen
'End If
'Si no había datos en ninguna tabla no cargar función de gráficos
- If (GvVxP.Rows.Count = 0 AndAlso GvComprasAcreed.Rows.Count = 0 AndAlso GvCxP192.Rows.Count = 0 AndAlso GvCCxC.Rows.Count = 0 AndAlso GvCPxP.Rows.Count = 0) Then Exit Sub
+ If (GvVxP.Rows.Count = 0 AndAlso GvComprasAcreed.Rows.Count = 0 AndAlso GvCxP192.Rows.Count = 0 AndAlso GvCxC.Rows.Count = 0 AndAlso GvCxP.Rows.Count = 0) Then Exit Sub
GraficasPastel()
'GraficasBarras()
End Sub
@@ -160,6 +165,24 @@ Partial Class General_RepIndicadorResumen
End If
End If
End Sub
+ Protected Sub GvCxP192_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvCxP192.RowDataBound
+ 'If e.Row.RowType = DataControlRowType.DataRow Then
+ ' 'e.Row.Cells(0).Text = e.Row.DBCampo("Orden")
+ ' 'If e.Row.DBCampo("Orden") = "00ND" Then
+ ' ' e.Row.CssClass = "Totales"
+ ' ' e.Row.Cells(0).Text = "Total " + e.Row.DBCampo("Abreviatura")
+ ' 'End If
+ 'End If
+ End Sub
+ Protected Sub GvCxP_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvCxP.RowDataBound
+ 'If e.Row.RowType = DataControlRowType.DataRow Then
+ ' If e.Row.DBCampo("Orden") = "" Then
+ ' e.Row.CssClass = "Totales"
+ ' End If
+ ' 'TODO: Sería mejor usar la Abreviatura de la tabla, pero habría que extender PA_Comp_RepCxP para incluir la columna Abreviatura
+ ' ' e.Row.Cells(2).Text = $"{GlobalDTMonedas().FiltraParametros($"CveMoneda = {e.Row.DBCampo("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}"
+ 'End If
+ End Sub
Protected Sub GvComprasAcreed_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvComprasAcreed.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then
'e.Row.Cells(0).Text = e.Row.DBCampo("Orden")
@@ -168,16 +191,7 @@ Partial Class General_RepIndicadorResumen
End If
End If
End Sub
- Protected Sub GvCxP192_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvCxP192.RowDataBound
- If e.Row.RowType = DataControlRowType.DataRow Then
- 'e.Row.Cells(0).Text = e.Row.DBCampo("Orden")
- 'If e.Row.DBCampo("Orden") = "00ND" Then
- ' e.Row.CssClass = "Totales"
- ' e.Row.Cells(0).Text = "Total " + e.Row.DBCampo("Abreviatura")
- 'End If
- End If
- End Sub
- Protected Sub GvCCxC_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvCCxC.RowDataBound
+ Protected Sub GvCCxC_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvCxC.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then
If e.Row.DBCampo("Orden") = "" Then
e.Row.CssClass = "Totales"
@@ -186,16 +200,6 @@ Partial Class General_RepIndicadorResumen
' e.Row.Cells(2).Text = $"{GlobalDTMonedas().FiltraParametros($"CveMoneda = {e.Row.DBCampo("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}"
End If
End Sub
- Protected Sub GvCPxP_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvCPxP.RowDataBound
- If e.Row.RowType = DataControlRowType.DataRow Then
- If e.Row.DBCampo("Orden") = "" Then
- e.Row.CssClass = "Totales"
- End If
- 'TODO: Sería mejor usar la Abreviatura de la tabla, pero habría que extender PA_Comp_RepCxP para incluir la columna Abreviatura
- ' e.Row.Cells(2).Text = $"{GlobalDTMonedas().FiltraParametros($"CveMoneda = {e.Row.DBCampo("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}"
- End If
- End Sub
-
Private Sub CreaDataTableColor()
DtColor = New DataTable
DtColor.Columns.Add("Color")
@@ -271,7 +275,7 @@ Partial Class General_RepIndicadorResumen
Private Sub GraficasPastel()
- Dim DtVxP, DtCxP, DtCxP192, DtCCxC, DtCPxP As New DataTable
+ Dim DtVxP, DtCxP192, DtCxP, DtCxPA, DtCxC As New DataTable
Dim RowColorIndex As Integer = 0
'Ventas x Producto
@@ -296,6 +300,13 @@ Partial Class General_RepIndicadorResumen
End If
End If
Next
+ 'Dim vxp = From s In DtVxP.AsEnumerable() Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Unidad = s("Unidad").ToString()}
+ 'Dim group_vxp = vxp.GroupBy(Function(x) x.Texto).[Select](Function(g) New With {
+ ' .Texto = Function(x) x.Texto.ToString,
+ ' .Valor = Math.Round(Function(x) x.Valor, 2), 'x Tasa de cambio
+ ' .Color = g.Min(Function(x) x.Color),
+ ' .Unidad = "MXN"
+ '})
Dim top_vxp = From s In DtVxP.AsEnumerable().Take(10) Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Unidad = s("Unidad").ToString()}
Dim resto_vxp = From s In DtVxP.AsEnumerable().Skip(10) Select New With {.Texto = "Otros", .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Unidad = s("Unidad").ToString()}
Dim group_resto_vxp = resto_vxp.GroupBy(Function(x) x.Texto).[Select](Function(g) New With {
@@ -309,39 +320,7 @@ Partial Class General_RepIndicadorResumen
'Dim group_resto_vxp = From e In resto_vxp Group e By e.Texto Into gpo = Group
'Dim group_resto_vxp = resto_vxp.GroupBy(Function(e) New With {Key e.Texto, Key e.Valor, Key e.Color, Key e.Unidad}).ToList()
- 'Compras x Producto TipoProveedor=1 Acreedores (Gastos)
- DtCxP.Reset()
- DtCxP.Columns.Add("Texto")
- DtCxP.Columns.Add("Valor")
- DtCxP.Columns.Add("Color")
- DtCxP.Columns.Add("Unidad")
- RowColorIndex = 0
- For Each Dr As DataRow In GvComprasAcreed.DataSource.Rows
- If Dr("CveClasificacion").ToString <> "" Then
- Dim Row As DataRow = Nothing
- Row = DtCxP.NewRow()
- Row("Texto") = Dr("Clasificacion").ToString
- Row("Valor") = Dr("SubTotal").ToString.FormatoNumero
- Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString
- Row("Unidad") = Dr("Moneda").ToString
- DtCxP.Rows.Add(Row)
- RowColorIndex += 1
- If RowColorIndex = 17 Then
- RowColorIndex = 0
- End If
- End If
- Next
- Dim top_cxp = From s In DtCxP.AsEnumerable().Take(10) Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Unidad = s("Unidad").ToString()}
- Dim resto_cxp = From s In DtCxP.AsEnumerable().Skip(10) Select New With {.Texto = "Otros", .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Unidad = s("Unidad").ToString()}
- Dim group_resto_cxp = resto_cxp.GroupBy(Function(x) x.Texto).[Select](Function(g) New With {
- .Texto = "Otros",
- .Valor = Math.Round(g.Sum(Function(x) x.Valor), 2),
- .Color = "#000000",
- .Unidad = "MXN"
- })
- Dim query_cxp = top_cxp.Union(group_resto_cxp)
-
- 'Compras x Producto ProveedorClasificacion=192
+ 'Compras ProveedorClasificacion=192
DtCxP192.Reset()
DtCxP192.Columns.Add("Texto")
DtCxP192.Columns.Add("Valor")
@@ -371,108 +350,108 @@ Partial Class General_RepIndicadorResumen
})
Dim query_cxp192 = top_cxp192.Union(group_resto_cxp192)
- 'Alert(Newtonsoft.Json.JsonConvert.SerializeObject(CCxC.Rows))
+ 'Compras NO proveedor
+ DtCxP.Reset()
+ DtCxP.Columns.Add("Texto")
+ DtCxP.Columns.Add("Valor")
+ DtCxP.Columns.Add("Color")
+ DtCxP.Columns.Add("Unidad")
+ RowColorIndex = 0
+ For Each Dr As DataRow In GvCxP.DataSource.Rows
+ Dim Row As DataRow = Nothing
+ Row = DtCxP.NewRow()
+ Row("Texto") = Dr("RazonSocial").ToString
+ Row("Valor") = Dr("Saldo").ToString.FormatoNumero
+ Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString
+ Row("Unidad") = "MXN"
+ DtCxP.Rows.Add(Row)
+ RowColorIndex += 1
+ If RowColorIndex = 17 Then
+ RowColorIndex = 0
+ End If
+ Next
+ Dim top_cxp = From s In DtCxP.AsEnumerable().Take(10) Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Unidad = s("Unidad").ToString()}
+ Dim resto_cxp = From s In DtCxP.AsEnumerable().Skip(10) Select New With {.Texto = "Otros", .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Unidad = s("Unidad").ToString()}
+ Dim group_resto_cxp = resto_cxp.GroupBy(Function(x) x.Texto).[Select](Function(g) New With {
+ .Texto = "Otros",
+ .Valor = Math.Round(g.Sum(Function(x) x.Valor), 2),
+ .Color = "#000000",
+ .Unidad = "MXN"
+ })
+ Dim query_cxp = top_cxp.Union(group_resto_cxp)
+
+ 'Compras x Producto TipoProveedor=1 Acreedores (Gastos)
+ DtCxPA.Reset()
+ DtCxPA.Columns.Add("Texto")
+ DtCxPA.Columns.Add("Valor")
+ DtCxPA.Columns.Add("Color")
+ DtCxPA.Columns.Add("Unidad")
+ RowColorIndex = 0
+ For Each Dr As DataRow In GvComprasAcreed.DataSource.Rows
+ If Dr("CveClasificacion").ToString <> "" Then
+ Dim Row As DataRow = Nothing
+ Row = DtCxPA.NewRow()
+ Row("Texto") = Dr("Clasificacion").ToString
+ Row("Valor") = Dr("SubTotal").ToString.FormatoNumero
+ Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString
+ Row("Unidad") = Dr("Moneda").ToString
+ DtCxPA.Rows.Add(Row)
+ RowColorIndex += 1
+ If RowColorIndex = 17 Then
+ RowColorIndex = 0
+ End If
+ End If
+ Next
+ Dim top_cxpa = From s In DtCxPA.AsEnumerable().Take(10) Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Unidad = s("Unidad").ToString()}
+ Dim resto_cxpa = From s In DtCxPA.AsEnumerable().Skip(10) Select New With {.Texto = "Otros", .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Unidad = s("Unidad").ToString()}
+ Dim group_resto_cxpa = resto_cxpa.GroupBy(Function(x) x.Texto).[Select](Function(g) New With {
+ .Texto = "Otros",
+ .Valor = Math.Round(g.Sum(Function(x) x.Valor), 2),
+ .Color = "#000000",
+ .Unidad = "MXN"
+ })
+ Dim query_cxpa = top_cxpa.Union(group_resto_cxpa)
'Cuentas por cobrar x Cliente
- DtCCxC.Reset()
- DtCCxC.Columns.Add("Texto")
- DtCCxC.Columns.Add("Valor")
- DtCCxC.Columns.Add("Color")
- DtCCxC.Columns.Add("Unidad")
+ DtCxC.Reset()
+ DtCxC.Columns.Add("Texto")
+ DtCxC.Columns.Add("Valor")
+ DtCxC.Columns.Add("Color")
+ DtCxC.Columns.Add("Unidad")
RowColorIndex = 0
- For Each Dr As DataRow In GvCCxC.DataSource.Rows
+ For Each Dr As DataRow In GvCxC.DataSource.Rows
If Not Dr("Orden").ToString = "" Then
Dim Row As DataRow = Nothing
- Row = DtCCxC.NewRow()
+ Row = DtCxC.NewRow()
Row("Texto") = Dr("GPO").ToString
Row("Valor") = Dr("Saldo").ToString.FormatoNumero
Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString
Row("Unidad") = $"{GlobalDTMonedas().FiltraParametros($"CveMoneda = {Dr("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}"
- DtCCxC.Rows.Add(Row)
+ DtCxC.Rows.Add(Row)
RowColorIndex += 1
If RowColorIndex = 17 Then
RowColorIndex = 0
End If
End If
Next
- Dim top_ccxc = From s In DtCCxC.AsEnumerable().Take(10) Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Unidad = s("Unidad").ToString()}
- Dim resto_ccxc = From s In DtCCxC.AsEnumerable().Skip(10) Select New With {.Texto = "Otros", .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Unidad = s("Unidad").ToString()}
- Dim group_resto_ccxc = resto_ccxc.GroupBy(Function(x) x.Texto).[Select](Function(g) New With {
+ Dim top_cxc = From s In DtCxC.AsEnumerable().Take(10) Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Unidad = s("Unidad").ToString()}
+ Dim resto_cxc = From s In DtCxC.AsEnumerable().Skip(10) Select New With {.Texto = "Otros", .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Unidad = s("Unidad").ToString()}
+ Dim group_resto_cxc = resto_cxc.GroupBy(Function(x) x.Texto).[Select](Function(g) New With {
.Texto = "Otros",
.Valor = Math.Round(g.Sum(Function(x) x.Valor), 2),
.Color = "#000000",
.Unidad = "MXN"
})
- Dim query_ccxc = top_ccxc.Union(group_resto_ccxc)
-
- 'Cuentas por pagar x Proveedor
- DtCPxP.Reset()
- DtCPxP.Columns.Add("Texto")
- DtCPxP.Columns.Add("Valor")
- DtCPxP.Columns.Add("Color")
- DtCPxP.Columns.Add("Unidad")
- RowColorIndex = 0
- For Each Dr As DataRow In GvCPxP.DataSource.Rows
- If Not Dr("Orden").ToString = "" Then
- Dim Row As DataRow = Nothing
- Row = DtCPxP.NewRow()
- Row("Texto") = $"{Dr("GPO").ToString} {GlobalDTMonedas().FiltraParametros($"CveMoneda = {Dr("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}"
- Row("Valor") = Dr("Saldo").ToString.FormatoNumero
- Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString
- Row("Unidad") = $"{GlobalDTMonedas().FiltraParametros($"CveMoneda = {Dr("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}"
- DtCPxP.Rows.Add(Row)
- RowColorIndex += 1
- If RowColorIndex = 17 Then
- RowColorIndex = 0
- End If
- End If
- Next
- Dim top_cpxp = From s In DtCPxP.AsEnumerable().Take(10) Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Unidad = s("Unidad").ToString()}
- Dim resto_cpxp = From s In DtCPxP.AsEnumerable().Skip(10) Select New With {.Texto = "Otros", .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Unidad = s("Unidad").ToString()}
- Dim group_resto_cpxp = resto_cpxp.GroupBy(Function(x) x.Texto).[Select](Function(g) New With {
- .Texto = "Otros",
- .Valor = Math.Round(g.Sum(Function(x) x.Valor), 2),
- .Color = "#000000",
- .Unidad = "MXN"
- })
- Dim query_cpxp = top_cpxp.Union(group_resto_cpxp)
+ Dim query_cxc = top_cxc.Union(group_resto_cxc)
+ 'Alert(Newtonsoft.Json.JsonConvert.SerializeObject(CxC.Rows))
'TODO: Indicadores x Proveedor -- Determinar qué poner en la gráfica con E172
'Serializar datos agrupándolos por 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() {}})
+ Dim json As String = Newtonsoft.Json.JsonConvert.SerializeObject(New With {.VxP = query_vxp, .CxP192 = query_cxp192, .CxP = query_cxp, .CxPA = query_cxpa, .CxC = query_cxc})
+ 'Dim json As String = Newtonsoft.Json.JsonConvert.SerializeObject(New With {.VxP = query_vxp, .CxC = New String() {}})
'Alert(json)
- RegistraScript($"CargaGraficasBarras({json})", "sdkp24223")
- 'RegistraScript($"CargaGraficasPastel({json})", "22")
+ RegistraScript($"CargaGraficas({json})", "sdkp24223")
UPPMov.Update()
End Sub
- Private Sub GraficasBarras()
- 'Dim Dt As New DataTable()
- 'Dt.Columns.Add("Texto")
- 'Dt.Columns.Add("Valor")
- 'Dt.Columns.Add("Color")
- 'Dt.Columns.Add("Moneda")
- 'Dim RowColorIndex As Integer = 0
- 'For Each Dr As DataRow In VxC.Rows
- ' If Not Dr("Orden").ToString = "" Then
- ' Dim Row As DataRow = Nothing
- ' Row = Dt.NewRow()
- ' Row("Texto") = $"{Dr("GPO").ToString} {GlobalDTMonedas().FiltraParametros($"CveMoneda = {Dr("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}"
- ' Row("Valor") = Dr("SubTotal").ToString.FormatoNumero
- ' Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString
- ' Row("Moneda") = Dr("Moneda").ToString
- ' Dt.Rows.Add(Row)
- ' RowColorIndex += 1
- ' If RowColorIndex = 17 Then
- ' RowColorIndex = 0
- ' End If
- ' End If
- 'Next
-
- 'Dim query = From s In Dt.AsEnumerable() Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = s("Moneda").ToString()}
- 'Dim json As String = Newtonsoft.Json.JsonConvert.SerializeObject(query)
- 'RegistraScript($"CargaGraficasBarras({json})", "22")
- 'UPPMov.Update()
- End Sub
End Class