Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin

Ponto de Entrada

Descrição:

Este Ponto de Entrada será executado na rotina Veiculos Modelo 2 (VEIXA010) e permite a inclusão de opções no Outras Ações do Browse.

Localização:

Atualizações \ Cad Veiculos \ Veiculos Modelo 2 (VEIXA010)

Eventos:

Static Function MenuDef()

Local aRotina := { { STR0002 ,"AxPesqui", 0 , 1,,.f.},; // Pesquisar

{ STR0003 ,"VXA010V" , 0 , 2},; // Visualizar

{ STR0004 ,"VXA010I" , 0 , 3},; // Incluir

{ STR0005 ,"VXA010A" , 0 , 4},; // Alterar

{ STR0006 ,"VXA010E" , 0 , 5},; // Excluir

{ STR0011 ,"VXA010LVEI", 0, 1 },; // Pesquisar Chassi

{ STR0009 ,"VXA010R" , 0 , 5},; // Replicar

{ STR0004+" "+GetNewPar("MV_MIL0106","AMS") ,"VXA010IAMS" , 0 , 3},; // Incluir

{ STR0016 ,"VX010BCO" , 0 , 7}} // Bco Conhecimento


If (ExistBlock("VX010MD")) // Ponto de Entrada para adicionar opes no Menu

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

EndIf

Return aRotina

Programa Fonte:

VEIXA010.PRW

Função:

MenuDef()

Parâmetros:
NomeTipoDescrição

aRotina

Vetor

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

Retorno:
NomeTipoDescrição

aRot

Vetor

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

Exemplo:

Include totvs.ch

/*

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

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

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

##|Função | VX010MD | Autor | MIL | Data | 08/07/2020 |##

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

##|Descrição | Inclusão no aRotina da Rotina Veiculos Modelo 2 (VEIXA010) |##

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

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

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

*/

User Function VX010MD()

Local aRot := ParamIxb[1]


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

Return aRot