ALPHA EMPLOYEES : Where's OnClick : Can Alpha trap this event for desktop?

[Jeff@Listbrokers]

Re: ALPHA EMPLOYEES : Where's OnClick : Can Alpha trap this event for desktop?

How many entries are there in your listbox? If is a manageable number then possibly a set of radio buttons might be more appropriate. The radio buttons object should respond to the onchange event as they are clicked.

PS I did respond to your private message, quite lengthily, but I did so through my email notification of the message which means the reply went to never-never land. If Aaron can send it back to me I'll send it to you. Meanwhile, no hard feelings. I just feel that it is impossible to give too much info in a post, but it is easy to leave something out.

Thank you for being down to earth. It seems that people sometimes take things too personally. I'm not here to flame anyone. I'm just trying to add to my and the collective knowledge of this community. I do agree with you about never giving to much information. I could see the ambiguity in my original post. My apoligies. I will definitely make it a point to be more explicit in future posts.

Moving forward. :)

It is a dynamic list. It basically works like this:

[Finian Lennon]

Re: ALPHA EMPLOYEES : Where's OnClick : Can Alpha trap this event for desktop?

Jeff:

I think what you need is code placed in the OnChange event for your listboxes.

Each time you change the focus within the list, the OnChange event will fire for the item you have just clicked.

F.

[Mike Wilson]

Re: ALPHA EMPLOYEES : Where's OnClick : Can Alpha trap this event for desktop?

The listbox is dynamically populated by the user. The user selects an item from list A, clicks add, and the value from A gets put into a table associated with list B. The OnClick() goes here.

Jeff,

It�s a new day� So the �listbox B� is actually a Browse. If you wish for an event to occur when selecting a �choice� from the B Browse, this is equivalent to selecting a record or �Fetching�� a record. What you might then try is to put the update code on the Browse B OnFetch event.

Mike W

[Jeff@Listbrokers]

Re: ALPHA EMPLOYEES : Where's OnClick : Can Alpha trap this event for desktop?

Jeff:

I think what you need is code placed in the OnChange event for your listboxes.

Each time you change the focus within the list, the OnChange event will fire for the item you have just clicked.

F.

Thank you for your response.

I tried using the OnChange event. Using debug, the variables associated with the fields I'm trying to update all appear to get set with the proper values, but they don't actually show up in the fields until I click on another item.

In other words, when I click on a record in Listbox B the cooresponding values don't show. If I then click on a different value in Listbox B the values that were supposed to show up for the original record I selected, show up one record record late. Mabye I'm having a refreshing/resynching problem? I will post the script.

[Jeff@Listbrokers]

Re: ALPHA EMPLOYEES : Where's OnClick : Can Alpha trap this event for desktop?

Jeff,

It’s a new day… So the “listbox B’ is actually a Browse. If you wish for an event to occur when selecting a ‘choice’ from the B Browse, this is equivalent to selecting a record or “Fetching”’ a record. What you might then try is to put the update code on the Browse B OnFetch event.

Mike W

Thank you... Moving forward. :) The listbox is a listbox object. Unfortunately, it doesn't have the OnFetch event. Both listboxes have a table associated with them. Listbox A get's dynamically populated from a table, based on a variable set from a selection made in a combo box. Listbox B is populated by a table. This table gets rows added to it when the 'Add' button is clicked.

Using the OnClick event does seem to populate the variables associated with the fields I'm trying to update, but the fields themselves don't actually show the values until the record in listbox B loses focus.

[Jeff@Listbrokers]

Re: ALPHA EMPLOYEES : Where's OnClick : Can Alpha trap this event for desktop?

To anyone that's still following this. :)

Here's the function that gets called by the OnChange event of Listbox B.

' Function takes 3 arguments.
' formname is the name of the parentform of Listbox B. (Count_Form)
' selected_table is the name of the table associated with Listbox B. (selected_areacodes)
' fieldname is the name of the field in the table that matches the value selected in Listbox B. (Areacode)

' This function is called in the OnClick Event as follows:

populateCountsSelected("Count_Form", "selected_areacodes", "Areacode")

FUNCTION populateCountsSelected as L (formname as C, selected_table as C, fieldname as C)
 option strict
 DIM tblname as C
 DIM tbl as P
 DIM qry as P
 DIM nrecs as N
 DIM frm as P
 DIM mode as C
 DIM query.filter as C
 DIM query.order as C
 DIM query.options as C
 frm = obj(formname)
 tbl = table.get(selected_table)
 if (tbl.mode_get() <> 0) then
  END
 end if
 
[COLOR=red]' set the filter = varPicked (this is the value associated with listbox B) + [/COLOR]
[COLOR=#ff0000]' CountId (a unique ID)[/COLOR]
 query.filter = fieldname +" = "+S_QUOTE(alltrim(VAR->varPicked))+" .and. CountID = "+S_QUOTE(alltrim(parentform.TIF_Count_Form_CountID.text))
 query.options = ""
 
[COLOR=red]' create the query[/COLOR]
 qry = tbl.query_create()
 
[COLOR=red]' get the number of records[/COLOR]
 nrecs = qry.records_get()
 
[COLOR=red]' how many records did we find? should be 1 always.[/COLOR]
 if (nrecs <> 1) then
  [COLOR=red]' if not, clear query, prompt user and end script.[/COLOR]
  qry.drop()
  ui_msg_box("Error","There are "+nrecs+" records. This is an error. Max # recs. = 1")
  query.order = ""
  query.filter = ""
  populateCountsSelected = .f.
 else
  [COLOR=red]' we found 1 record, set the variables associated with the fields [/COLOR]
  VAR->varAgeMin = tbl.Age_Min
  VAR->varAgeMax = tbl.Age_Max
  VAR->varIncomeMin = tbl.Income_Min
  VAR->varIncomeMax = tbl.Income_Max
  VAR->varOmit = tbl.Omit
  VAR->varHousehold = tbl.Household
  VAR->varTempState = CSTATE(tbl.state)
 
  [COLOR=red]' clear the query[/COLOR]
  qry.drop()
  query.order = ""
  query.filter = ""
  [COLOR=red]' resynch the form[/COLOR]
  frm.resynch()
  frm.Activate()
  populateCountsSelected = .t.
 end if 
 [COLOR=red]' manually delete the pointers... why not?[/COLOR]
 delete tbl
 delete qry
 delete frm 
END FUNCTION

[Jeff@Listbrokers]

Re: ALPHA EMPLOYEES : Where's OnClick : Can Alpha trap this event for desktop?

Ok. Thanks you all for your help. I got it working. The code in red below got it working. I was trying to set the variables that were bound to the fields as opposed to setting the fields themselves. Does anyone have any ideas as to why setting the variables themselves would cause the behavior I described? If the fields are based on the variables and the variables get set, shouldn't that equate to the field being set?

FUNCTION populateCountsSelected as L (formname as C, selected_table as C, fieldname as C)
 option strict
 DIM tblname as C
 DIM tbl as P
 DIM qry as P
 DIM nrecs as N
 DIM frm as P
 DIM mode as C
 DIM query.filter as C
 DIM query.order as C
 DIM query.options as C
 frm = obj(formname)
 tbl = table.get(selected_table)
 if (tbl.mode_get() <> 0) then
  END
 end if
  
 query.filter = fieldname +" = "+S_QUOTE(alltrim(VAR->varPicked))+" .and. CountID = "+S_QUOTE(alltrim(parentform.TIF_Count_Form_CountID.text))
 query.options = ""
 qry = tbl.query_create()
 nrecs = qry.records_get()
 if (nrecs <> 1) then
  qry.drop()
  ui_msg_box("Error","There are "+nrecs+" records. This is an error. Max # recs. = 1")
  query.order = ""
  query.filter = ""
  populateCountsSelected = .f.
 else
'  VAR->varAgeMin = tbl.Age_Min
'  VAR->varAgeMax = tbl.Age_Max
'  VAR->varIncomeMin = tbl.Income_Min
'  VAR->varIncomeMax = tbl.Income_Max
'  VAR->varOmit = tbl.Omit
'  VAR->varHousehold = tbl.Household
'  VAR->varTempState = CSTATE(tbl.state)
  [COLOR=red]frm.COMBOBOX_Count_Form_Consumer_AgeMin = tbl.Age_Min
  frm.COMBOBOX_Count_Form_Consumer_AgeMax = tbl.Age_Max
  frm.TIF_Count_Form_Consumer_IncomeMin = tbl.Income_Min
  frm.TIF_Count_Form_Consumer_IncomeMax = tbl.Income_Max
  frm.CHECKBOX_Count_Form_Omit_Area_Codes = tbl.Omit
  frm.RADIO_Counts_Form_Households = tbl.Household
  frm.COMBOBOX_Count_Form_Areacode_SelectState = CSTATE(tbl.state)
[/COLOR]   
  qry.drop()
  query.order = ""
  query.filter = ""
  frm.resynch()
  frm.Activate()
  populateCountsSelected = .t.
 end if 
 delete tbl
 delete qry
 delete frm 
END FUNCTION

[Finian Lennon]

Re: ALPHA EMPLOYEES : Where's OnClick : Can Alpha trap this event for desktop?

Jeff:

You need some code to explicitly refresh the other listbox. Something like
topparent:listbox2.refresh()
should do it.

It's not clear to me where the variables reside. Are they objects on the form? If so you should explicitly refresh those also.

F.

[Jeff@Listbrokers]

Re: ALPHA EMPLOYEES : Where's OnClick : Can Alpha trap this event for desktop?

Jeff:

You need some code to explicitly refresh the other listbox. Something like
topparent:listbox2.refresh()
should do it.

It's not clear to me where the variables reside. Are they objects on the form? If so you should explicitly refresh those also.

F.

Finian,

According to the help files:

The <OBJECT>.RESYNCH() method does a new query, re-fetches all data for the form or browse, and then repaints it.

That should cover the refreshing of the all of the objects on the form, correct?

The variables are session variables, created by the form containing all of the fields and listboxes. Each variable is bound to a field on my form.

[Finian Lennon]

Re: ALPHA EMPLOYEES : Where's OnClick : Can Alpha trap this event for desktop?

<That should cover the refreshing of the all of the objects on the form, correct?
>

Yes it should. I'm still living in V5 where, in the kind of situation you describe and in my experience, it's necessary to explicitly refresh all (changing) objects on a form for the form to immediately display changes correctly in all environments.

F.

[Jeff@Listbrokers]

Re: ALPHA EMPLOYEES : Where's OnClick : Can Alpha trap this event for desktop?

<That should cover the refreshing of the all of the objects on the form, correct?
>

Yes it should. I'm still living in V5 where, in the kind of situation you describe and in my experience, it's necessary to explicitly refresh all (changing) objects on a form for the form to immediately display changes correctly in all environments.

F.

I know how you feel... I'm still trying to get used to the way things are done in V7. I'm traditionally a C/C++/C# programmer. I also had a 5 month crash course in A4 V2. Which, with it's limited feature set, I was able to master quite quickly. Alpha 5 with it's robust features, but not as robust documentation/help, it has been a little more challenging to fully understand. Although, through trial and error, Dr. Wayne's X-Basic for Everyone, and the great people here on this forum, I'm finally starting to see the forest for the trees. :)