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

Reportes Ventas

Browse Source
This commit is contained in:
rakcsle
2024-09-12 15:47:16 -07:00
parent 04e9410f53
commit 032b7914e4
7 changed files with 70 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Ventas/RepVentasPeriodo.aspx.vb
View File

@@ -396,14 +396,18 @@ Partial Class RepVentasPeriodo
Dim moneda As String = DbRow("Moneda").ToString
Dim total As String = DbRow("GPO").ToString
If total <> "Total Peso Mexicano" Then
If moneda = "Peso Mexicano" Then
If moneda.ToUpper.Contains("PESO") Then
Info = String.Format("{2}['{1}',{0}],", DbRow(ColValue), DbRow(ColTitle), Info)
End If
End If
Next
Info = Info.Remove(Info.Length - 1, 1)
SBJSScript.AppendFormat("graficahighcharts('{0}','{1}','{2}','{3}',[{4}],1,'{5}');", divcontainer.ClientID, Titulo, SubTitulo, YReferencia, Info, XReferencia)
If Info.Length > 0 Then
Info = Info.Remove(Info.Length - 1, 1)
SBJSScript.AppendFormat("graficahighcharts('{0}','{1}','{2}','{3}',[{4}],1,'{5}');", divcontainer.ClientID, Titulo, SubTitulo, YReferencia, Info, XReferencia)
End If
Else
SBJSScript.AppendFormat("graficahighcharts('{0}','{1}','{2}','{3}',[{4}],1,'{5}');", divcontainer.ClientID, Titulo, SubTitulo, YReferencia, " ", XReferencia)
End If