DT_AF060BUT_Criação de botão de usuário

Ponto de Entrada

Descrição:	Ponto de entrada AF060BUT para criação de botão de usuário.
Localização:	Movimentos / Transferência
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