code to populate a dropdown box

[canc]

Hi I have a dialog with some dropdown box's

I would like to populate the drop down box's with data only related to the customer logged in....

I have put this code in the Activate Event, to create a variable that i can use as the choice for the drop down.


cu = session.card_No
dim vFilter as C
dim client as c
vFilter = "card_no =\""+cu+"\""
client = table.external_record_content_get("[pathalias.adb_path]\users.dbf", "client_id","client_id",vfilter)

dim xfilter as c
dim cost as c
cost = table.external_record_content_get("[pathalias.adb_path]\norad.dbf", "fixed_cost_centres","fixed_cost_centres",xfilter)





When I save the dialog i get the following error :----

Errors in: event.Activate code:
Property not found
session.card_No subelement not found.



Can any one tell me where i am going wrong?

Many Thanks in advance

Miles

[drgarytraub]

Re: code to populate a dropdown box

That error msg is inconsequential (at least in my experience). If it bothers you then use eval_valid, e.g.

if eval_valid("session.whatever")
put your code in here
end if

But you can also populate the lookups right within the dropdown definition. Take a look at that - base the filter on a table and then use you session variable there.

If you need more help, say so.

[canc]

Re: code to populate a dropdown box

Hi

Thanks for your response and advice....

I have seen the Filter area, when you select you choices for the drop down.....

I am not sure how to set up the filter in this way, i guess you use the filter builder but am not sure how to go about it...

Can you give me any advice, guidance of how to get started?

Many Thanks

Miles

That error msg is inconsequential (at least in my experience). If it bothers you then use eval_valid, e.g.

if eval_valid("session.whatever")
put your code in here
end if

But you can also populate the lookups right within the dropdown definition. Take a look at that - base the filter on a table and then use you session variable there.

If you need more help, say so.

[Steve Wood]

Re: code to populate a dropdown box

You are on the right track in your first post, just add the eval_valid() part to clear the variable error. Sorry, you cannot add a filter by session variable if you select Table to define your dropdown. You have to select variable, and go about it the way you already are.

[canc]

Re: code to populate a dropdown box

Thanks Steve, So I guess I was close ish lol

This is the code I have now....in the Activate

if eval_valid("session.card_no")

cu = session.card_No
dim vFilter as C
dim client as c
vFilter = "card_no =\""+cu+"\""
client = table.external_record_content_get("[pathalias.adb_path]\users.dbf", "client_id","client_id",vfilter)

dim xfilter as c
dim cost as c
cost = table.external_record_content_get("[pathalias.adb_path]\norad.dbf", "fixed_cost_centres","fixed_cost_centres",xfilter)

end if



Can I ask, My drop down now has a list of cost centres... but I have a lot of blanks and dupes....

Can you tell me how to alter the code to take out the dupes and Blanks?

Many Thanks

Miles

[Steve Wood]

Re: code to populate a dropdown box

Alpha has lots of functions under List Management to solve that. In your case:

client = REMOVE_BLANK_LINES(client)

[canc]

Re: code to populate a dropdown box

Thanks again for your help,

and I do sorry to be a pain..... but I don;t seem to be able to get this working proper...

My drop down seems to return all the data from the table, and not the filtered data.... also its not removed the blanks or the dupes?

Here is my current code, can you see where I have it wrong?

Many Thanks

Miles

if eval_valid("session.card_no")

cu = session.card_No
dim vFilter as C
dim client as c
vFilter = "card_no =\""+cu+"\""
client = table.external_record_content_get("[pathalias.adb_path]\users.dbf", "client_id","client_id",vfilter)

dim xfilter as c

dim cost as c
xfilter = "client_id =\""+client+"\""

cost = table.external_record_content_get("[pathalias.adb_path]\norad.dbf", "fixed_cost_centres","fixed_cost_centres",xfilter)
cost = REMOVE_BLANK_LINES(cost)

dim dept as c
dept = table.external_record_content_get("[pathalias.adb_path]\norad.dbf", "fixed_department","fixed_department",xfilter)
dept = REMOVE_BLANK_LINES(dept)

dim vend as c
vend = table.external_record_content_get("[pathalias.adb_path]\norad.dbf", "airline_vendor_name","airline_vendor_name",xfilter)
vend = REMOVE_BLANK_LINES(vend)


end if

[Steve Wood]

Re: code to populate a dropdown box

Since nothing is working sounds like the problem might be how you have the dropdown set. It should be Dynamic and set to Variable, not to Table.

The second thing that I missed, is that your variables have to be session vars. So add one last line to each of your three var such as:

session.vend=vend

and then use session.vend as the variable name for the dropdown.

[canc]

Re: code to populate a dropdown box

Hi Steve

Sorry for my delay in replying to your last post....

I have been trying everything here to get this working, just noticed that I was using the wrong field name in my filter and hence why it was showing all the data from the table and not the filtered data.... feel like such a numpty!!

However I have fixed this now and have the filtered list showing, however it is still showing the blanks and dupes in the list !! arrrggggggggg

My code is below, I wonder if you would mind taking another quick look to see if it looks right? any advice would be greatly appreciated...

Many Thanks as always, best regards

Miles



if eval_valid("session.card_no")

cu = session.card_No
dim Filter as C
filter = "award_card_number =\""+cu+"\""

dim cost as c
cost = table.external_record_content_get("[pathalias.adb_path]\norad.dbf","fixed_cost_centres","fixed_cost_centres",filter)
cost = REMOVE_BLANK_LINES(cost)
session.cost = cost

dim dept as c
dept = table.external_record_content_get("[pathalias.adb_path]\norad.dbf","fixed_department","fixed_department",filter)
dept = REMOVE_BLANK_LINES(dept)
session.dept = dept

dim vend as c
vend = table.external_record_content_get("[pathalias.adb_path]\norad.dbf","airline_vendor_name","airline_vendor_name",filter)
vend = REMOVE_BLANK_LINES(vend)
session.vend = vend

end if