creating charts

[[email protected]]

Hi all

Has anybody got an example of creating charts with simplecharts, I want a chart by month showing invoices total for the account that is active in a account table which also hold the invoice totals for each account by month i have tried following the docs example but I am a little lost.

Andy

[[email protected]]

Hi All

Can somebody point me in the right direction I have a set "acc-totals made for two tables "account_charge_Type" & " acc_month" I am trying to graph invoice totals for the active account by month, the account field in account_charge_type is Acno & the same in acc-month and the months in acc_month jan-Dec, here is the code i am using but the error I am getting is content expression is not valid, any help you can give would be gratefully received

Andy


dim list as C

Dim account as c

dim desc as C

dim num as N

dim k as N = 1



chart = activex1.activex.this

account = account_charge_type->acno

list = set.external_record_content_get("acc-totals", "account_charge_type->acno + '|' + acc-month->jan", "acc-month->jan", "account_charge_type->acno = " + quote(account))



chart.DataSeries.clear()



for each x in list

desc = word(x, 1, "|")

num = val(word(x, 2, "|"))

' create a new DataSeries for each data point

chart.DataSeries.AddBarSeries(desc, 0)

' add each data point to a different DataSeries

chart.DataSeries(k).SeriesData.Add(" ", num)

k = k + 1

next



chart.refresh()

[mronck]

SimpleChart

Andy,

First of all it is important whether you use the Lite Version or the Standard version of SimpleChart. The Lite version is shipped with Alpha Five as a standard bundle, the standard version you will need to purchase from Imagio.

Here is a code example that works with the Lite version that I just received from Selwyn Rabins and which might help you.
I would furthermore like to advise you to try to use the SimpleChart functionality available through action scripting as a part of Xdialog if you are having trouble generating the code yourself.

Here is the sample code:

'Create an XDialog dialog box to prompt for parameters.
DIM SHARED varC_result as C
DIM sc_FuncCode AS C = <<%CodeFunctions%
FUNCTION DisplayChart AS V ( pChart AS P, arrData AS P, pDef AS P)
         pChart.Caption = ""
         pChart.ShowLegend = .t.
         pChart.LegendPos = 3
         pChart.ChartData.Clear()
                 
        FOR EACH x IN arrData
                 IF eval_valid("x.Label") .AND. eval_valid("x.Value")
                          IF x.Label <> ""
                                    pChart.ChartData.Add(x.Label, x.Value,0)
                          END IF
                 END IF
        NEXT

END FUNCTION

FUNCTION GetData AS V ( arrData AS P, pDef AS P, lv AS P )
arrData.resize(line_count(pDef.Values))
arrData.initialize_properties("Label|Value", pDef.Values)
END FUNCTION


%CodeFunctions%
DIM sc_Funcs AS P = compile_template(sc_FuncCode)
DIM sc_arrData[1] AS P
DIM sc_arrData[1].Label AS C
DIM sc_arrData[1].Value AS N
DIM global sc AS P
DIM global sc.Object AS P
DIM global sc.Class AS C = "SimpleChartLite.PieChart"         <<<<<<<<< you will need to change this line so that it refers to the full version and not simple chart lite

DIM sc_pDef AS P
DIM sc_pDef.Values AS C = <<%txt%
Alpha Sports Cap|4.80
Alpha Sports Fishing Hat|3.99
Alpha Sports Sweatband|1.75
Alpha Sports T-Shirt|5.99
Arctic Trek Ground Mat|8.75
Arctic Trek Wool Cap|3.99
Arctic Trek Wool Mittens|10.50
%txt%
ok_button_label = "&OK"
cancel_button_label = "&Cancel"
ui_modeless_dlg_box("Alpha Five",<<%dlg%
{startup=init}
{region}
{activex=100,20sc};
{endregion};
{line=1,0};
{region}
<10OK> <10Cancel>;
{endregion};
%dlg%,<<%code%
if a_dlg_button = "Cancel" then 
         ui_modeless_dlg_close("Alpha Five")
end if 
if a_dlg_button = "init" then 
         a_dlg_button = ""
         sc_Funcs.GetData(sc_arrData, sc_pDef, local_variables())
         sc_Funcs.DisplayChart(sc.Object, sc_arrData, sc_pDef)
         sc.Object.Refresh()

end if
IF a_dlg_button = "sc_refresh"
         sc_Funcs.GetData(sc_arrData, sc_pDef, local_variables())
         sc_Funcs.DisplayChart(sc.Object, sc_arrData, sc_pDef)
         sc.Object.Refresh()

END IF
%code%)

[[email protected]]

Hi Marcel

I have been trying to use the xbasic action scripting, my problem is that when i change the account my graph is not changing, I have setup a variable of account and in the filter have said that "account=var->account" but It does not change, any ideas

Andy

[mronck]

Hi Andy,

I have, but I do not know whether it can be embedded into the functionality of your application, but here it comes:

I would skip the variable and use an argument instead.
You can define arguments right in the action script, it is a standard feature.
Most of the time variables are filled anyway with users feedback, so in that case the use of the embedded argument functionality would only seem logical.
Look at the settings of the action script parameters and go from there.

However, as said, can�t look into your app whether it is in place there or not.

Kind regards,

Marcel

[[email protected]]

Thanks Marcel,

I have got it working

Andy

[Edward Larrabee]

You can also refer to Creating Charts with SimpleChart.