- Cuentas por cobrar - Gráfica
+ Cuentas por cobrar - Gráfica Saldo(MXN)
@@ -384,8 +385,32 @@
+
+
+
+
+
+
+
+ Cuentas por cobrar - Gráfica Recuperado
+
+
+
+
+
+
-
+
@@ -448,10 +473,10 @@
tooltip: {
formatter: function (tooltip) {
var tooltiptext = tooltip.defaultFormatter.call(this, tooltip);
- var isCurrency = /^(\d|-)?(\d|,)*\.?\d*$/.test(/(.*?)<\/b>/.exec(tooltiptext));
- if (isCurrency) {
- tooltiptext = tooltiptext.replace("", "$");
- }
+ //var isCurrency = /^(\d|-)?(\d|,)*\.?\d*$/.test(/(.*?)<\/b>/.exec(tooltiptext));
+ //if (isCurrency) {
+ // tooltiptext = tooltiptext.replace("", "$");
+ //}
tooltiptext = tooltiptext.replace("", " " + this.point.unit + "");
console.log(tooltiptext)
return tooltiptext
@@ -496,8 +521,7 @@
$('#' + "chartdiv_cxp192").highcharts({ ...chartconfig, series: [{ ...chartconfig.series[0], type: 'pie', data: customAccessor(json["CxP192"]) }] })
$('#' + "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"]) }] })
-
+ $('#' + "chartdiv_cxc").highcharts({ ...chartconfig, series: [{ ...chartconfig.series[0], data: customAccessor(json["CxC"]) }, { type: 'line', keys: ['name', 'y', 'ignore', 'unit'], data: customAccessor(json["CxCR"]) }] })
//AmCharts.makeChart("chartdiv_cxp192", { ...chartconfig, dataProvider: json["CxP192"] }); // Compras x Producto ProveedorClasificacion 192
//AmCharts.makeChart("chartdiv_cxc", { ...chartconfig, dataProvider: json["CxC"] }); // Cuentas por Cobrar x Cliente
diff --git a/General/RepIndicadorResumen.aspx.vb b/General/RepIndicadorResumen.aspx.vb
index 5e2c0a4ce..8e6e21eef 100644
--- a/General/RepIndicadorResumen.aspx.vb
+++ b/General/RepIndicadorResumen.aspx.vb
@@ -83,11 +83,11 @@ Partial Class General_RepIndicadorResumen
Dim FechaCorte As String = $"31/12/{Now.Year}"
- 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"
- GvCxC.DataSource = ObjMovtos.DtResultados.DefaultView.ToTable
- End If
+ '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"
+ ' 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
@@ -105,6 +105,9 @@ Partial Class General_RepIndicadorResumen
'Gastos (Compras acreedores)
ObjCitrus.DTSetResultados.Tables(2).DefaultView.Sort = "Moneda,SubTotal DESC"
GvComprasAcreed.DataSource = ObjCitrus.DTSetResultados.Tables(2).DefaultView.ToTable
+ 'Cuentas x Cobrar
+ ObjCitrus.DTSetResultados.Tables(3).DefaultView.Sort = "SaldoMN DESC"
+ GvCxC.DataSource = ObjCitrus.DTSetResultados.Tables(3).DefaultView.ToTable
End If
ObjVentas.Dispose()
@@ -119,6 +122,7 @@ Partial Class General_RepIndicadorResumen
GvCxC.DataBind()
If GvCxC.DataSource IsNot Nothing Then
GvCxC.HeaderRow.Cells(1).Text = "Saldo"
+ GvCxC.HeaderRow.Cells(2).Text = "Recuperado"
End If
'Mostrar gráficos solo si hay datos en su respectiva tabla
@@ -139,8 +143,10 @@ Partial Class General_RepIndicadorResumen
End If
If GvCxC.Rows.Count > 0 Then
UPGraficaCxC.Visible = True
+ 'UPGraficaCxCRec.Visible = True
Else
UPGraficaCxC.Visible = False
+ 'UPGraficaCxCRec.Visible = False
End If
If GvCxP.Rows.Count > 0 Then
UPGraficaCxP.Visible = True
@@ -155,7 +161,7 @@ Partial Class General_RepIndicadorResumen
'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 GvCxC.Rows.Count = 0 AndAlso GvCxP.Rows.Count = 0) Then Exit Sub
- GraficasPastel()
+ Graficas()
'GraficasBarras()
End Sub
Protected Sub GvVxP_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvVxP.RowDataBound
@@ -191,13 +197,14 @@ Partial Class General_RepIndicadorResumen
End If
End If
End Sub
- Protected Sub GvCCxC_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvCxC.RowDataBound
+ Protected Sub GvCxC_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
+ If e.Row.DBCampo("CveCliente") = "" 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(0).Text = $"Total {GlobalDTMonedas().FiltraParametros($"CveMoneda = {e.Row.DBCampo("CveMoneda").ToString}").Rows(0)("Moneda").ToString}"
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()
@@ -273,9 +280,9 @@ Partial Class General_RepIndicadorResumen
DtColor.Rows.Add(RowColor)
End Sub
- Private Sub GraficasPastel()
+ Private Sub Graficas()
- Dim DtVxP, DtCxP192, DtCxP, DtCxPA, DtCxC As New DataTable
+ Dim DtVxP, DtCxP192, DtCxP, DtCxPA, DtCxC, DtCxCR As New DataTable
Dim RowColorIndex As Integer = 0
'Ventas x Producto
@@ -412,7 +419,7 @@ Partial Class General_RepIndicadorResumen
})
Dim query_cxpa = top_cxpa.Union(group_resto_cxpa)
- 'Cuentas por cobrar x Cliente
+ 'Cuentas por cobrar x Cliente -- Saldo
DtCxC.Reset()
DtCxC.Columns.Add("Texto")
DtCxC.Columns.Add("Valor")
@@ -420,13 +427,13 @@ Partial Class General_RepIndicadorResumen
DtCxC.Columns.Add("Unidad")
RowColorIndex = 0
For Each Dr As DataRow In GvCxC.DataSource.Rows
- If Not Dr("Orden").ToString = "" Then
+ If Not Dr("CveCliente").ToString = "" Then
Dim Row As DataRow = Nothing
Row = DtCxC.NewRow()
- Row("Texto") = Dr("GPO").ToString
- Row("Valor") = Dr("Saldo").ToString.FormatoNumero
+ Row("Texto") = Dr("RazonSocial").ToString
+ Row("Valor") = Dr("SaldoMN").ToString.FormatoNumero
Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString
- Row("Unidad") = $"{GlobalDTMonedas().FiltraParametros($"CveMoneda = {Dr("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}"
+ Row("Unidad") = "MXN" '$"{GlobalDTMonedas().FiltraParametros($"CveMoneda = {Dr("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}"
DtCxC.Rows.Add(Row)
RowColorIndex += 1
If RowColorIndex = 17 Then
@@ -443,12 +450,45 @@ Partial Class General_RepIndicadorResumen
.Unidad = "MXN"
})
Dim query_cxc = top_cxc.Union(group_resto_cxc)
+
+ 'Cuentas por cobrar x Cliente -- Recuperado
+ DtCxCR.Reset()
+ DtCxCR.Columns.Add("Texto")
+ DtCxCR.Columns.Add("Valor")
+ DtCxCR.Columns.Add("Color")
+ DtCxCR.Columns.Add("Unidad")
+ RowColorIndex = 0
+ For Each Dr As DataRow In GvCxC.DataSource.Rows
+ If Not Dr("CveCliente").ToString = "" Then
+ Dim Row As DataRow = Nothing
+ Row = DtCxCR.NewRow()
+ Row("Texto") = Dr("RazonSocial").ToString
+ Row("Valor") = Dr("RecuperadoMN").ToString.FormatoNumero
+ Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString
+ Row("Unidad") = "MXN" '$"{GlobalDTMonedas().FiltraParametros($"CveMoneda = {Dr("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}"
+ DtCxCR.Rows.Add(Row)
+ RowColorIndex += 1
+ If RowColorIndex = 17 Then
+ RowColorIndex = 0
+ End If
+ End If
+ Next
+ Dim top_cxcr = From s In DtCxCR.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_cxcr = From s In DtCxCR.AsEnumerable().Skip(10) Select New With {.Texto = "Otros", .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Unidad = s("Unidad").ToString()}
+ Dim group_resto_cxcr = resto_cxcr.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_cxcr = top_cxcr.Union(group_resto_cxcr)
+
'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, .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, .CxP192 = query_cxp192, .CxP = query_cxp, .CxPA = query_cxpa, .CxC = query_cxc, .CxCR = query_cxcr})
'Dim json As String = Newtonsoft.Json.JsonConvert.SerializeObject(New With {.VxP = query_vxp, .CxC = New String() {}})
'Alert(json)
RegistraScript($"CargaGraficas({json})", "sdkp24223")