Action button on a browse, possible?

[Beltronics]

I see new features on V9 which include buttons on a browse. Is it possible to look at a browse of purchase order items and click on a button on each line of the browse which would set values and post records?
This would set the focus to that row, set the qty rcvd to equal qty ordered, set rcvd_dt to date(), set B/O to zero, then save the record and then the field rules would do the usual posting?
Then, the user could click the button in the next row or three rows down.

I have in mind a Purchase Order header as parent and then ordered items as child in the browse on the form.

[Daniel Weiss]

Re: Action button on a browse, possible?

Yes Buttons can be added in browses which can any event an otherc an do

[Daniel Weiss]

Re: Action button on a browse, possible?

here is an example

[Beltronics]

Re: Action button on a browse, possible?

I watched the video on the Alpha site but wasn't sure. Thanks for the info. I'll figure it out or be back here with more questions.

[Beltronics]

Re: Action button on a browse, possible?

Well, maybe you can do it but I can't.
I placed an embedded browse on a form.
I placed a generic action button as a last column.
I can't define the generic action "on push" with action scripting so;
I copied the action script xbasic code from a button on a form that does the same thing and pasted the code into the generic action xbasic definition. When I click on the button, it does absolutely nothing. I don't even get an error message.
I attached the xbasic code I pasted.

[Stan Mathews]

Re: Action button on a browse, possible?

Edit the script to add the line

debug(1)

as the first line.

Then you can step through what is happening when you press the button.

[Daniel Weiss]

Re: Action button on a browse, possible?

you must define your script in the "Events" of the browse between the

FUNCTION GROUP_ID_ButtonClick AS V ( event AS C, data AS C , row AS N )
	this.Set_Viewport_row(row)
put your code here

END FUNCTION

right click on the browse, select events

FUNCTION GROUP_ID_ButtonClick AS V ( event AS C, data AS C , row AS N )
	this.Set_Viewport_row(row)
	AddEditGroupFormula("Edit",table.current().Group_Id,topparent:TOTAL_HEAD.value,topparent:CURRENT_PHASE.value,table.current().recno())
END FUNCTION

FUNCTION GROUP_ID0_ButtonClick AS V ( event AS C, data AS C , row AS N )
	this.Set_Viewport_row(row)
	AddEditGroupFormula("delete",table.current().Group_Id,topparent:TOTAL_HEAD.value,topparent:CURRENT_PHASE.value,table.current().recno())
END FUNCTION

[Beltronics]

Re: Action button on a browse, possible?

Thank you both for your help. It's a bit above my abilities but, I'll give it a try. Right now I'm battling a bigger problem which locks up my program so, until I solve that one, this design issue will have to take a back seat. Thanks again. Now, to my lost indexes problem.