Date Based dropdown list filter does not filter

[Steve Bovino]

I seem to have this problem in V6 and V7. I have a table that has only one field, a date field. I have set up a dialog component with a dropdown box. I am trying to filter the date and no matter what expression I use (the epxressions checked out fine in the epxression bulder) no filtering takes place.
I set up another test dbf file also using dates and a dialog with a dropwdown box, same results. All values display. Character based dropdowns work fine. I can create a query that works fine with the same expression. Has anybody else seen this? Code from the component is noted below.

Steve

With tmpl.Variable_Info[1]
	.Fieldname = "DropDownBox1"
	.Scope = "Local"
	.DisplayFormat = ""
	.DisplayUnFormat = ""
	.Type = "D"
	.Varname = "DROPDOWNBOX1"
	.Controltype = "DropDownBox"
	.DropdownBox.InLineStyle = ""
	.DropdownBox.Type = "Dynamic"
	.DropdownBox.StyleFieldIfError = .t.
	.DropdownBox.ErrorInLineStyle = ""
	.DropdownBox.Size = 1
	.DropdownBox.selectStyle = "Single"
	.DropdownBox.NotInListRule = "Add To List if Not Null"
	.DropDownBox.Datasource = "DBF-Table"
	.DropDownBox.Table = "c:\jfkdb\week_ending.dbf"
	.DropDownBox.DisplayValueField = "Week_Ending"
	.DropDownBox.StoredValueField = ""
	.DropDownBox.maxchoices = 0
	.DropDownBox.Filter = "Week_Ending > date()"
	.InitialValue = ""
	.Column.Hide = .f.
	.Column.Heading = "DropDownBox1"

[Selwyn Rabins]

you may have to set the filter by overriding the settings of the component.

what you want is this:

.DropDownBox.Filter = "Week_Ending > " + s_quote(date())



this will result a filter property of:

.DropDownBox.Filter = "Week_Ending > {10/10/2005}"

which is what you want.

[Steve Bovino]

Selwyn:

That did not work. I tried your expression in the choices section of the dialog control for filter. Also tried it in the advanced section as an overide. Same result, all records are displayed. Also, set it up as an overide on the page in the appropriate section. No go. Yet, the same filter expression works in querys and forms on the desktop. Thanks,

Steve

Delete tmpl_week_ending
DIM tmpl_week_ending as P
tmpl_week_ending = a5w_load_component("week_ending")
'Following code allows you to override settings in the saved component, and specify the component alias (componentName property).
'Tip: Keep the componentName property short because this name is used in page URLs, and it will help keep the URLs short.
'Each component on a page must have a unique alias (componentName property).
with tmpl_week_ending
	componentName = "week_ending"
.DropDownBox.Filter ="Week_Ending > " + s_quote(date())
end with

[Selwyn Rabins]

You have not overrwidden settings correctly.

The property that you want to override is:

Variable_info[1].DropDownBox.Filter = "Week_Ending > " + s_quote(date())

[Steve Bovino]

Still no filtering. Here is the code from the page.

Steve

Delete tmpl_week_ending
DIM tmpl_week_ending as P
tmpl_week_ending = a5w_load_component("week_ending")
'Following code allows you to override settings in the saved component, and specify the component alias (componentName property).
'Tip: Keep the componentName property short because this name is used in page URLs, and it will help keep the URLs short.
'Each component on a page must have a unique alias (componentName property).
with tmpl_week_ending
	componentName = "week_ending"
Variable_info[1].DropDownBox.Filter = "Week_Ending > " + s_quote(date())
end with

[Steve Bovino]

Attached is zip file with table and component.

[Selwyn Rabins]

I was able to duplicate the problem.
It seems that Alpha Five is assuming that the field in the dropdown list is a character value.

You can easily work around this by accomodating Alpha Five. When you define the choices for the Dropdown list, you can specify that the field to display is:

"" + Date

Rather than just:

Date

This will convert the field from a date value to a character value, and my solution will work.

convert_type(date,"C")

will also work just as well.


On further reflection, there is an even easier solution.

In the Dialog's Activate event, add this code

dim date_list as c
date_list = table.external_record_content_get("[PathAlias.ADB_Name]/invoice_header","''+date","date","date>" + s_quote(date())

Then, when you define the choices for the dropdownbox, specify that it is a dynamic list that is bound to a variable. specify the 'date_list' variable.

[Steve Bovino]

Thanks Selwyn for the quick response and fix.

Steve

[Steve Bovino]

Selwyn:

I am using you suggestion for the activate form property. It works fine on the local web. I receive this error from the server based WAS which is version 6 of course.


Errors in: event.Activate code:
The system cannot find the path specified.
PathAlias.ADB_Name]/week_ending.DBF

Is this due to the fact the this a feature available under v 7? If so, I can work around it until 7 is released. Thanks,

Steve

[Selwyn Rabins]

Selwyn:

I am using you suggestion for the activate form property. It works fine on the local web. I receive this error from the server based WAS which is version 6 of course.


Errors in: event.Activate code:
The system cannot find the path specified.
PathAlias.ADB_Name]/week_ending.DBF

Is this due to the fact the this a feature available under v 7? If so, I can work around it until 7 is released. Thanks,

Steve

No, it has nothing to do with V7. You are not using any V7 features here. It does not look like the component was properly published, or perhaps the alias was not defined in your Profile when you published.

Your event code has this in it:

[PathAlias.ADB_Name]\week_ending.dbf

(you have written a forward slash. i presume you meant a backslash)

You should have a path defined for this alias 'PathAlias.adb_name' in your profile.

When you publish the component, the code in the event should have gotten changed to

c:\mydata\week_ending.dbf

(assuming that the alias [pathAlias.adb_name] was defined to be "c:\mydata". of course, in your case it will be different)

[Steve Bovino]

For some reason when I publish this particular component the path alias is not being translated. here is the code from the component. I am not having this problem with other components.

Steve

%code%
tmpl.events.Activate = <<%code%
dim date_list as c 
date_list = table.external_record_content_get("PathAlias.ADB_Name]\week_ending","''+week_ending","week_ending","week_ending>" + s_quote(date()))

[Steve Bovino]

corrected code from component Still not translating.

%code%
tmpl.events.Activate = <<%code%
dim date_list as c 
date_list = table.external_record_content_get("[PathAlias.ADB_Name]\week_ending","''+week_ending","week_ending","week_ending>" + s_quote(date()))

[Selwyn Rabins]

What is the name of the Profile that you are publishing to?

How are the aliases for this profile defined?

[Steve Bovino]

the profile is called LAN and the alias is defined as:

[PathAlias.ADB_Path] = c:\a5webroot\jfkdata

[Selwyn Rabins]

It makes no sense to me that the alias would not be replaced by the actual value when the component was published. I don't know how this could happen. I have never seen it before.

You could just hard code the event script to use 'c:\a5webroot\jfkdata' in place of [PathAlias.ADB_Path] and then publish.