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

Ventas Rep Productos servicios correcion grafica

Browse Source
This commit is contained in:
rakcsle
2022-06-30 10:26:36 -07:00
parent 2607b0c34f
commit 523085d3bb
5 changed files with 26 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Ventas/RepProductosServicios.aspx
View File

@@ -546,7 +546,7 @@
"title": "Ventas"
}],
"graphs": [{
"balloonText": "[[category]]: <b>[[value]]</b> [[Moneda]]",
"balloonText": "[[Texto]]: <b>[[value]]</b> [[Moneda]]",
"colorField": "Color",
"fillAlphas": 1,
"lineAlpha": 0.1,
@@ -560,7 +560,7 @@
"cursorAlpha": 0,
"zoomable": false
},
"categoryField": "Texto",
"categoryField": "Categoria",
"categoryAxis": {
"gridPosition": "start",
"labelRotation": 90
@@ -579,7 +579,7 @@
"dataProvider":
data,
"valueField": "Valor",
"titleField": "Texto",
"titleField": "Categoria",
"outlineAlpha": 0.4,
"depth3D": 0,
"balloonText": "[[title]]<br><span style='font-size:14px'><b>[[value]]</b> ([[percents]]% [[Moneda]])</span>",

6
Ventas/RepProductosServicios.aspx.vb
View File

@@ -686,7 +686,7 @@ Partial Class Ventas_RepProductosServicios
Row("Valor") = Dr("IVA").ToString.FormatoNumero
Case 4
Row("Valor") = Dr("Cantidad").ToString.FormatoNumero
Row("Texto") = $"{Dr("GPO").ToString} Cantidad"
Row("Texto") = $"{Dr("GPO").ToString}"
End Select
Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString
@@ -699,10 +699,10 @@ Partial Class Ventas_RepProductosServicios
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 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(), .Categoria = s("Texto").ToString()}
If DdlVer.SelectedValue.ToEntero = 4 Then
query = From s In Dt.AsEnumerable() Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = ""}
query = From s In Dt.AsEnumerable() Select New With {.Texto = s("Texto").ToString() & " Cantidad", .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = "", .Categoria = s("Texto").ToString()}
End If
Dim json As String = Newtonsoft.Json.JsonConvert.SerializeObject(query)