AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

E172 Rep Indicador ordenar gráficas de manera descendiente

Browse Source 
- Excepto cxc porque son dos series, tienen que estar en el orden que vienen
This commit is contained in:
MLopez
2022-12-15 14:11:46 -07:00
parent 1ced90bf32
commit 7151f961c5
1 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
General/RepIndicadorResumen.aspx.vb
View File

@@ -225,7 +225,7 @@ Partial Class General_RepIndicadorResumen
.Valor = Math.Round(g.Sum(Function(x) x.Valor), 2),
.Unidad = "MXN"
})
Dim query_vxp = top_vxp.Union(group_resto_vxp)
Dim query_vxp = top_vxp.Union(group_resto_vxp).OrderByDescending(Function(x) x.Valor)
'Dim query_vxp = top_vxp.Concat(From e In resto_vxp Group e By e.Texto Into gpo = Group)
'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()
@@ -255,7 +255,7 @@ Partial Class General_RepIndicadorResumen
.Valor = Math.Round(g.Sum(Function(x) x.Valor), 2),
.Unidad = "MXN"
})
Dim query_comp_productores = top_comp_productores.Union(group_resto_comp_productores)
Dim query_comp_productores = top_comp_productores.Union(group_resto_comp_productores).OrderByDescending(Function(x) x.Valor)
'Compras TipoProveedor=1 Acreedores (Gastos)
DtCompAcreed.Reset()
@@ -284,7 +284,7 @@ Partial Class General_RepIndicadorResumen
.Valor = Math.Round(g.Sum(Function(x) x.Valor), 2),
.Unidad = "MXN"
})
Dim query_comp_acreed = top_comp_acreed.Union(group_resto_comp_acreed)
Dim query_comp_acreed = top_comp_acreed.Union(group_resto_comp_acreed).OrderByDescending(Function(x) x.Valor)
'Cuentas por cobrar x Cliente -- Saldo
DtCxC.Reset()
@@ -313,7 +313,7 @@ Partial Class General_RepIndicadorResumen
.Valor = Math.Round(g.Sum(Function(x) x.Valor), 2),
.Unidad = "MXN"
})
Dim query_cxc = top_cxc.Union(group_resto_cxc)
Dim query_cxc = top_cxc.Union(group_resto_cxc) '.OrderByDescending(Function(x) x.Valor)
'Alert(Newtonsoft.Json.JsonConvert.SerializeObject(CxC.Rows))
'Cuentas por cobrar x Cliente -- Recuperado
@@ -343,7 +343,7 @@ Partial Class General_RepIndicadorResumen
.Valor = Math.Round(g.Sum(Function(x) x.Valor), 2),
.Unidad = "MXN"
})
Dim query_cxcr = top_cxcr.Union(group_resto_cxcr)
Dim query_cxcr = top_cxcr.Union(group_resto_cxcr) '.OrderByDescending(Function(x) x.Valor)
'CxP proveedores
DtCxP192.Reset()
@@ -372,7 +372,7 @@ Partial Class General_RepIndicadorResumen
.Valor = Math.Round(g.Sum(Function(x) x.Valor), 2),
.Unidad = "MXN"
})
Dim query_cxp192 = top_cxp192.Union(group_resto_cxp192)
Dim query_cxp192 = top_cxp192.Union(group_resto_cxp192).OrderByDescending(Function(x) x.Valor)
'CxP NO proveedor
DtCxP.Reset()
@@ -401,7 +401,7 @@ Partial Class General_RepIndicadorResumen
.Valor = Math.Round(g.Sum(Function(x) x.Valor), 2),
.Unidad = "MXN"
})
Dim query_cxp = top_cxp.Union(group_resto_cxp)
Dim query_cxp = top_cxp.Union(group_resto_cxp).OrderByDescending(Function(x) x.Valor)
'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, .CompProductores = query_comp_productores, .CompAcreed = query_comp_acreed, .CxC = query_cxc, .CxCR = query_cxcr, .CxP192 = query_cxp192, .CxP = query_cxp})