browse - change column

[martinwcole]

I vuguely recall that there is new way to determine if the column has been changed in a browse or embedded browse, but cannot find in wiki

any ideas?

[Al Buchholz]

Re: browse - change column

http://support.alphasoftware.com/Wha...e_Improvements

Browse Events - New Browse Events - Several new browse events are now supported for both stand alone and embedded browse layouts. OnSave - fires when a record in the Browse layout is saved. CanSave - fires when the user tries to save a record. The event can be cancelled by calling the cancel() function. <Column>_onChange - fires when data in a browse column is changed. The <Column> events are defined by inserting the appropriate functions calls into the Browse, Events script. For example, here is how to define an event handler for the 'lastname' column in a browse:
For a stand alone Browse, select Browse, Events, Events. For an embedded Browse, select Object, Event, Event, or right click on the Browse and select Events, Events
In the 'Events' script, define this function:
function lastname_OnChange as v ()
ui_msg_box("On Change Event for Browse. Browse name is: ",this.name())
end function
Note that the 'this' alias refers to the browse object that contains the browse column.

[MikeC]

Re: browse - change column

Al,
I have used the embedded browse OnChange event quite often, but the OnSave and CanSave I remember trying when it was first introduced and could not get them to work....if they do work, either I coded incorrectly then or it has been fixed in later versions(??).

Have you used the latter two sucessfully?

[Al Buchholz]

Re: browse - change column

Mike

You're asking a lot this close to kick off......

The onsave and cansave(right click gets you to the events) are in a different grouping(events - events - a function for each field object) than the onchange... and I don't remember any problem with those save events...

What issues are you having?

[martinwcole]

Re: browse - change column

equivocation, equivocation, equivocation. What I meant to ask was this:

if you open a form where an embedded browse is the first object in the tab order, and the first column is the first object in the browse tab order - am trying to trap when the user changes to a different column, so I can clear a query based on the previous column.

got an idea - will post results if it works

[Al Buchholz]

Re: browse - change column

equivocation, equivocation, equivocation.

a man of many skills - including a linguist

[MikeC]

Re: browse - change column

Use of the

if Browse1.active()="Your column's object name"
  'do something....
end if

may be of use--I have used it to limit data deletion to only certain columns as example.


Al, I see the events for a browse's OnSave and CanSave--I just remember trying both and not a thing happened--as if there was no code whatsoever IOW--had a messagebox to test if it fired and did not....but have not tried it since (back in v8), but will now that you state you have had them working.

[martinwcole]

Re: browse - change column

I was able to work a solution for my particular need, but it does not lend itself to general use - i.e., if the user has changed columns, from the column change event itself

here is code in the onkey even for a form that dynamically searches on any column

what I wanted was, that if you were searching in column1, and had typed "abc" and then changed to column2, and typed "g," to kill the current query for the form, but then start a new query based on the character you had typed for the column you were active in

if this.active()="browse1"
 if a_user.key.value="{enter}" .and. a_user.key.event="down" 
  a_user.key.handled=.t.
  ans="yes"
  rnum=tbl.recno()
  parentform.index_set("")  
  this.close()
  end
 end if
 tbl=table.current()
 if a_user.key.event="down"
  if left(a_user.key.value,1)="{" then 
   ' it's a special key or backspace or function key
   select
    case a_user.key.value="{BACKSPACE}"
     if posn>0 then 
      posn=posn-1
      tempstr=iif(posn=0,"",left(tempstr,posn))
      if len(tempstr)=0
       sys_send_keys("{f5}")
       end
      end if 
      tempstore.value=tempstr
      goto next1
     end if
    case a_user.key.value="{LEFT}"
     posn=iif(posn>1,posn-1,0)
    case a_user.key.value="{RIGHT}"
     posn=iif(posn<len(tempstr),posn+1,posn)
    case a_user.key.value="{DELETE}"
     tempstr=iif(posn>1,left(tempstr,posn),"")+substr(tempstr,posn+2,len(tempstr)-posn)
    case a_user.key.value="{END}"
     posn=len(tempstr)
    case else
     ' do nothing
   end select
   ' pass all special characters to form 
   a_user.key.handled=.f.
   tempstore.value=alltrim(tempstr)
   goto next1
  else
[COLOR="Sienna"]   if browse1.active()=colcur
   else
    temp=a_user.key.value
    posn=0; tempstr=""; tempstore.value=""
    parentform.baseQueryRun(".t.", "company")    
    xbasic_wait_for_idle()
    tempstr=alltrim(temp)
    colcur=browse1.active()
    tempstore.value=alltrim(tempstr)    
    posn=1
    goto next1
   end if [/COLOR]
   if posn=len(tempstr) then 
    posn=posn+1
    tempstr=tempstr+a_user.key.value
   else
    tempstr=left(tempstr,posn)+a_user.key.value+substr(tempstr,posn+1,len(tempstr)-posn) 
    posn=posn+1
   end if
   a_user.key.handled=.f.
   next1:    
   tempstore.value=alltrim(tempstr)   
   if browse1.active()="file_number" 
    query.filter="var->tempstr $ carnumber"   
   elseif browse1.active()="company"
    query.filter="var->tempstr $ company"   
   elseif browse1.active()="description"
    query.filter="var->tempstr $ description"   
   elseif browse1.active()="received"
    query.filter="var->tempstr $ dtoc(received)"   
   elseif browse1.active()="closed"
    query.filter="var->tempstr $ dtoc(closed)"   
   else
    end
   end if
   if a5_get_records_in_query("carlog",query.filter) = 0
    msgbox("Sorry","No records found.")
    sys_send_keys("{f5}")
    end 
   end if
   parentform.BaseQueryRun(query.filter,"company")
   end 
  end if
 end if ' a_user.key.event="down" 
end if

[Jeff Fried]

Re: browse - change column

http://support.alphasoftware.com/Wha...e_Improvements

Browse Events - New Browse Events - Several new browse events are now supported for both stand alone and embedded browse layouts. OnSave - fires when a record in the Browse layout is saved. CanSave - fires when the user tries to save a record. The event can be cancelled by calling the cancel() function. <Column>_onChange - fires when data in a browse column is changed. The <Column> events are defined by inserting the appropriate functions calls into the Browse, Events script. For example, here is how to define an event handler for the 'lastname' column in a browse:
For a stand alone Browse, select Browse, Events, Events. For an embedded Browse, select Object, Event, Event, or right click on the Browse and select Events, Events
In the 'Events' script, define this function:
function lastname_OnChange as v ()
ui_msg_box("On Change Event for Browse. Browse name is: ",this.name())
end function
Note that the 'this' alias refers to the browse object that contains the browse column.

Al,

Is this only a available to do in Xbasic and not Action Scripting? Do you know if you can create a field rule for this rather than create the logic at the browse or form level?

Jeff

[Jeff Fried]

Re: browse - change column

Al,
I have used the embedded browse OnChange event quite often, but the OnSave and CanSave I remember trying when it was first introduced and could not get them to work....if they do work, either I coded incorrectly then or it has been fixed in later versions(??).

Have you used the latter two sucessfully?

Where is there an embedded browse OnChange event? I can't find one. How do you get to it?

Jeff

[SNusa]

Re: browse - change column

Hey, this post might help. It includes a "mini-app" (v.11 desktop) I built (and updated not long ago) that shows exactly when each browse & table event fires...... (I'd bet it will work in v.10.) ~ It shows in "real time" the events firing as you edit, change add and move around in the browse....

http://msgboard.alphasoftware.com/al...l=1#post631600

Actually, it shows not only browse events, but table events and also field level events. (all of them I think)
~As each event "occurs", the most recent event is displayed at the TOP of the list, & the list scrolls down.

[Al Buchholz]

Re: browse - change column

Al,

Is this only available to do in Xbasic and not Action Scripting?

Yes Only xbasic. No it's not in action scripting.

Do you know if you can create a field rule for this rather than create the logic at the browse or form level?

Jeff

You could use the canwrite and onwrite field rule events, but they are fired later in the sequencing.

Where is there an embedded browse OnChange event? I can't find one. How do you get to it?

Jeff

Follow the instructions carefully and you'll see how it works. Look for what is described. Events - events