Descrição: | Ponto de entrada AF060BUT para criação de botão de usuário. |
Localização: | Informe o Submenu em que estará localizada a rotina |
Eventos: | If ExistBlock("AF060BUT") aRotNew := ExecBlock("AF060BUT",.F.,.F.,{aRot}) For nX := 1 To len(aRotNew) aAdd(aRot,aRotNew[nX]) Next Endif |
Programa Fonte: | ATFA060.PRW |
Retorno: | Array com a adição do menu do usuário. |
| Variáveis: | Local aRotX := PARAMIXB |
| Parâmetros: | aRotX = Array com as informações dos menus. |
| Retorno: | Array com a adição do menu do usuário. |
Exemplo:
User Function AF060BUT()
Local aRotX := PARAMIXB
aRotX := {{"BOTÃO AF060BUT","U_Af060ts1",0,2}}
Return(aRotX)
User function Af060ts1()
MsgAlert("Chamada do Ponto de entrada AF060BUT")
Return