Linha Microsiga Protheus

Árvore de páginas

Descrição

Adicionar botões a Área de Trabalho - Contratos

Exemplos

User Function AT201BTN()
Local nID := PARAMIXB[1]
Local cContrato := PARAMIXB[2]
Local aBtn :={}

If nID == 2
AADD( aBtn,{'BTN-1', {|| Alert('BTN-1 '+AAH->AAH_CONTRT)} } )
AADD( aBtn,{'BTN-2', {|| Alert('BTN-2 '+AAH->AAH_CONTRT)} } )
ElseIf nID == 3
AADD( aBtn,{'BTN-1', {|| Alert('BTN-1 '+AAM->AAM_CONTRT)} } )
AADD( aBtn,{'BTN-2', {|| Alert('BTN-2 '+AAM->AAM_CONTRT)} } )
AADD( aBtn,{'BTN-3', {|| Alert('BTN-3 '+AAM->AAM_CONTRT)} } )
EndIf

Return aBtn

Idioma

Português(Brasil)

Versões

Versões_Anteriores

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Parâmetros

nID - Identificação do Browse (2-Contrato de manutenção/3-Contrato de Serviços)
cContrato - Código do contrato

Retorno

aBtn- array contendo um array com texto do botão e bloco de código para execu~]ao

Programa Fonte

TECA201.PRW
  • Sem rótulos