Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

Descrição

Adicionar botões a Área de Trabalho - Contratos

Exemplos

User Function AT201BTN()
Local nID := PARAMIXB1
Local cContrato := PARAMIXB2
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