TK10BTCL - Inclusão de botões na barra superior da rotina Consulta o Perfil do Contato

A finalidade do ponto de entrada TK10BTCL é incluir botões de usuário na barra superior da janela da rotina Consulta o Perfil do Contato.

User Function TK10BTCL()

Local aBut := {}

aAdd(aBut, {"BMPUSER","TESTE 1",{|| UserTeste() }})

Return aBut

Static Function UserTeste()

Alert("TESTE")

Return Nil

Português (Brasil)

Microsiga_Protheus11 e Microsiga_Protheus12

Todos

TOTVSDBAccess

Nil

aBut --> Tipo Array - Sendo: { cResource, cToolTip, {|| bAction } }

cResource --> Caracter - Nome do resource (imagem utilizada como ícone) do botão a ser criado.
cToolTip --> Caracter - ToolTip (descritivo) do botão a ser criado.
bAction --> Bloco de código - Ação (função) a ser executada ao click do mouse sobre o botão a ser criado.

TK10BTCL( Nil ) --> aBut

TMKC010.PRW