Á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