Ponto de Entrada
Descrição: | Ponto de Entrada para adicionar botões na tela de fechamento de OS. | ||||||
Localização: | Atualizações \ Mov Oficina \ Fechamento OS Mod2 | ||||||
Eventos: | Static Function MenuDef() Local aRotina := {; {STR0002, "PesqBrw", 0, 1},; // Pesquisar {STR0003, "OXA100F", 0, 3},; // Fechar {STR0004, "OXA100LEG", 0, 4, 2, .F.},; // Legenda {STR0017, "OXA100PESQ", 0, 1}; // Pesquisa Avancada } If (ExistBlock("OXA100BT")) aRotina := ExecBlock("OXA100BT", .F., .F., aRotina) EndIf Return aRotina | ||||||
Programa Fonte: | OFIXA100.PRW | ||||||
Função: | MENUDEF() | ||||||
Parâmetros: |
| ||||||
Retorno: |
|
Exemplo:
Include totvs.ch
#Include 'Protheus.ch'
User Function OXA100BT()
aRot := PARAMIXB
aadd(aRot, {"Botao Teste", "u_BOTTESTE", 0, 1})
Return aRot
User Function BOTTESTE()
MsgAlert('Botao de Teste Acionado!', 'Botao')
Return