Charting � Show Budget, Target and Actual values on single chart??

[Robert Rough]

At present I am able to represent on a Chart showing all Electricity invoices for a site and as the next site is selected the chart shows invoices particular to that site. I used and changed the Alphasports open Barchart sample xbasic to accomplish this.

What I really require to do is filter the selection to show only the invoices for a selected 12 months and using these values set a target line graph, say 15% reduced values and then as the present years invoice information is input it is set against the those to measure present performance.

Could anyone provide any light on how this may be achieved?
If not so could anyone even suggest how I can limit the invoices shown on the graph to those that I really require seeing ie 12 months.
The set up is site table to invoice table in one to many relationship
Thank You
Robert

dim SiteID as c = default ""
dim invoice_list as c as p
dim chartGen as p
dim month as c
dim units as n
dim c as ColorDefinition

c.name = "Win3D"

SiteID = Site_data->Site_idf
invoice_list = set.external_record_content_get("site_invoiceset","site_invoice_data->monthf + '|' + site_invoice_data->unitsperday","","Site_idf=" + SiteID + "")

chartGen = activex1.activex.this
chartGen.DataSeries.Clear()
'chartGen.PieLabelMode	= 1 	'scPieLabelModeInside
'chartGen.LegendPos		= 3		'scLegendPosBottom
'chartGen.BackColor		= c.RGB_Value
'chartGen.BorderColor	= c.RGB_Value
'chartGen.Caption		= "Kwh units used by Month"
chartGen.DataSeries.AddBarSeries("Units used",0)
for each invoice in invoice_list
	month	= alltrim(word(invoice.value,1,"|"))
	units	= val(word(invoice.value,2,"|"))
	month	= Month + " - " + units 
	chartGen.DataSeries(1).SeriesData.Add(month,units,0) 'scFillModeAutoSolid)
next

ChartGen.Refresh()

[Willard]

Perhaps Filtering Get_external_data?

Sorry I am not at my cumputer to check this, but I believe you can filter the get_external_data() funtion to fetch only the records you wish to choose.

the date funtion might look like this
date_begin = ask variable
date_end = end date (can automatic file for one year less the date_begin)
Chart_dates(between,date_begin,date_end)

you can use Query.create() to get the same result (not nearly as fast)

Anyway, just get your list to contain the records you want and you are done.
Anyone can help with the filter if that is what you need help with

(I could not read your filter on the quoted text - too long)

[Robert Rough]

Thank you for the response.
It really is a question of forming the filter in the statement below but just don't yet understand how to write the filter in the correct format. To date what I have been doing is copy, paste and change.

Direction would be appreciated.

Regards Robert

invoice_list = set.external_record_content_get("site_invoiceset","site_invoice_data->monthf + '|' + site_invoice_data->unitsperday","","Site_idf=" + SiteID + "")

[Willard]

You may have to set date value prior to running equation

Here is an example. Play with it in the interactive window to see if you get what you want,
remember that variables and written in quoted expressions as:
' " + variable + " " without the spaces or
quote(variable) i believe

invoice_list = set.external_record_content_get("site_invoiceset","site_invoice_data->monthf + '|' + site_invoice_data->unitsperday","","Site_idf=" + SiteID + "")

Not sure but if you are in a set you may need to go to level 1 or 2, check this out as well
dim di as D
dim d2 as D
dim d1 as D
d1 = {2/25/99} //can be date()
d2 = {3/30/98}
? between({4/15/98}, d2, d1)
= .T.
Your equation would be "Site_idf='"+ SiteID +"' .and. between(invoice_date,addyears(date(),-1),date())"

[Robert Rough]

Thanks Jack,

I'll try your suggestions and get back.

Thank you
Robert