PM200BUT - Permite incluir botões

Descrição

O ponto de entrada PM200BUT permite incluir botões de usuários na inclusão de um projeto, em Ações relacionadas.

Observações

Exemplos

User Function PM200BUT()
Local aButtons := {}
Aadd( aButtons, {'Novo Botão' , { | | AxPesqui() },'0',2} ) 
Return(aButtons)

Preview

Veja também

Idioma

Português(Brasil)

Versões

Microsiga Protheus 11

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Updates

Parâmetros

Nenhum

Retorno

aButtom(vetor)
Retorna o array de botões de usuário.

Eventos de chamada do Ponto de Entrada

If nOperation == 3 .and. ExistBlock("PM200BUT")
aUsButtons := ExecBlock("PM200BUT",.F.,.F.)
If ValType(aUsButtons) == "A"
For nI := 1 To Len(aUsButtons)
oView:AddUserButton( aUsButtons[nI][1], aUsButtons[nI][3], aUsButtons[nI][2],NIL,NIL)
Next nI
Endif
EndIf

Variáveis

Programa Fonte

PMSA200.PRW