Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada

Descrição:

Este Ponto de Entrada será executado na rotina Lib/transf Box (OFIOM190) e permite a inclusão de opções personalizadas no Outras Ações do Browse.

Localização:

Atualizações \ Mov Oficina \ Lib/transf Box (OFIOM190)

Eventos:

Static Function MenuDef()

Local aRotina := {;

{STR0001, "AxPesqui" , 0, 1},; // "Pesquisar"

{STR0002, "OFIOM190L", 0, 2},; // "Lib BOX/Veic"

{STR0003, "OFIOM190L", 0, 3} ; // "Mudar Box"

}

If ExistBlock("OM190AROT")

aRecebe := ExecBlock("OM190AROT", .f., .f., {aRotina})

If (ValType(aRecebe) == "A")

aRotina := aClone(aRecebe)

EndIf

EndIf

Return aRotina

Programa Fonte:

OFIOM190.PRW

Função:

MENUDEF()

Retorno:

aRot - Vetor - Vetor que compõe as opções atualizadas pelo ponto de entrada do browse da rotina.

Parâmetros:

aRotina - Vetor - Vetor que compõe as opções padrão do browse da rotina.

Exemplo:

#Include 'Protheus.ch'

/*

===============================================================================

###############################################################################

##+----------+------------+-------+-----------------------+------+----------+##

##|Função | OM190AROT | Autor | MIL | Data | 04/09/18 |##

##+----------+------------+-------+-----------------------+------+----------+##

##|Descrição | Inclusão no aRotina de Liberação de Veiculos/Box & |##

## Transferencia de Veiculo p/ Novo Box |##

##+----------+--------------------------------------------------------------+##

##+----------+--------------------------------------------------------------+##

###############################################################################

===============================================================================

*/

User Function OM190AROT()

Local aRot := ParamIxb[1]

aadd(aRot, {"Executar Exemplo", "U_M_EXEMPLO", 0, 4})

Return(aRot)