AF060BUT - Ponto de entrada para criação de botão de usuário.

Ponto de entrada AF060BUT para criação de botão de usuário.

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

Português(Brasil)

Microsiga_Protheus12

Todos

Todas

aRotX = Array com as informações dos menus.

Array com a adição do menu do usuário.

If ExistBlock("AF060BUT")
    aRotNew := ExecBlock("AF060BUT",.F.,.F.,{aRot})
    For nX := 1 To len(aRotNew)
        aAdd(aRot,aRotNew[nX])
    Next
Endif

Local aRotX := PARAMIXB