AF060BUT - Entry point to create user button

Description	Entry point AF060BUT to create user button.
Notes	(from version 12.1.6)
Examples	User Function AF060BUT() Local aRotX := PARAMIXB aRotX := {{"BUTTON AF060BUT","U_Af060ts1",0,2}} Return(aRotX) User function Af060ts1() MsgAlert("Call of the Entry Point AF060BUT") Return
Preview
See also
Language	Portuguese(Brazil)
Versions	Microsiga_Protheus12
Operating Systems Supported	All
Compatible with the following Databases	All
Updates
Parameters	aRotX = Array with the menu information.
Return	Array with the addition of the user menu.
Call events of the Entry Point	If ExistBlock("AF060BUT") aRotNew := ExecBlock("AF060BUT",.F.,.F.,{aRot}) For nX := 1 To len(aRotNew) aAdd(aRot,aRotNew[nX]) Next Endif
Variables	Local aRotX := PARAMIXB[1]
Source Program	ATFA060.PRW