Browse Question

[Jeff Richards]

I have an embedded browse on Order Entry Form.
The fields are Style#, Qty, description and price.
The style number is chosen by a lookup table and completes the other fields.
I would like to use the "enter" key to start a new record after choosing the QTY of the item. I could use a skip function, However I need to change the description or price from time to time.

Any Solutions?

thanks

[Keith Hubert]

Re: Browse Question

Hi Jeff,

Have a look at AlphaSports, that works just the way you describe.

[Jeff Richards]

Re: Browse Question

Thanks for the response. Actually, in Alpha sports you have to enter to the last line before it drops down to a new record.
I want it to drop down after entering the QTY.

[gmeredith17]

Re: Browse Question

Never tried it with a browse but can you use the forms onkey event. Check to see if the browse qty column is the current active object when the enter key is pressed, if so start new record.

Geoff

[gmeredith17]

Re: Browse Question

Try the following code in the form onkey event.

active_object= current_object()
active_object=right(active_object, 4)

if sys_key_down("ENTER") then
	if  active_object = ":Qty" then 
		topparent:Browse1.new_record()
	    else
	end if
		
end if

[Keith Hubert]

Re: Browse Question

What would happen if Qty was the last column in the browse?

[Jeff Richards]

Re: Browse Question

The following does not work. Any other suggestions?
active_object= current_object()
active_object=right(active_object, 4)

if sys_key_down("ENTER") then
if active_object = ":Qty" then
topparent:Browse1.new_record()
else
end if

end if

[Tbaker]

Re: Browse Question

Jeff

Try this in the onkey event

IF a_user.key.value = "{ENTER}" .and. browse1.active()="Qty" THEN
	
    a_user.key.handled = .T.

    IF a_user.key.event = "down" THEN
		:form1:browse1.Commit()
         :form1:browse1.new_record()

    END IF

END IF

You would have to change :browse1.active() to whatever you named your browse (maybe browse1) and then also change :form1:browse1 to whatever you called the form and the browse.

Tom

[gmeredith17]

Re: Browse Question

Jeff,

I think there is a timing issue with my script which causes it to start a new record not only for the qty column but the one prior to it as well.

Tom's script works (and I will be adding it to my useful code list) but I would use the alias topparent or this instead of the explicit form name. That way if the form is opened more than once it should still work.

IF a_user.key.value = "{ENTER}" .and. browse1.active()="Qty" THEN
	
    a_user.key.handled = .T.

    IF a_user.key.event = "down" THEN
       [COLOR="Red"]topparent[/COLOR]:browse1.Commit()
       [COLOR="Red"]topparent[/COLOR]:browse1.new_record()

    END IF

END IF

or

[CODE]IF a_user.key.value = "{ENTER}" .and. browse1.active()="Qty" THEN
	
    a_user.key.handled = .T.

    IF a_user.key.event = "down" THEN
       [COLOR="Red"]this[/COLOR].browse1.Commit()
       [COLOR="Red"]this[/COLOR].browse1.new_record()

    END IF

END IF

[/CODE]
I would be interested in any thoughts which of the two relative addresses is the most appropriate. Both seem to work but I wonder if there is a reason to use one rather than the other. Appreciate anyones thoughts regarding these suggestions as I don't want to lead Jeff down the wrong route.

I have attached an example if it helps.

I experimented further and it seems to work without using the form name. Just

	browse1.Commit()
       browse1.new_record()

What would be best practice?