Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada

Descrição:

Este Ponto de Entrada será executado na rotina Informações Adicionais sobre o Cliente CEV (VEICM560) e permite a inclusão de opções no Outras Ações do Browse.

Localização:

Atualizações \ Mov C e V \ Cliente Dados Adic (VEICM560)

Eventos:

Static Function MenuDef()

Local aRotina := {}

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

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

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

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

{STR0009,"VEICM560X(1)", 0 , 6},; // Atualiza Vendedor

{STR0039,"VEICM560X(2)", 0 , 6},; // Atualiza Periodicidade

{STR0016,"VCM560A1()" , 0 , 4},; // Chama Cadastro de Clientes (SA1) - Visualizar/Alterar

{STR0026,"VM560PESQ()" , 0 , 1},; // Pesquisa Avancada.

{STR0006,"AXDELETA" , 0 , 5}} // Excluir

If (ExistBlock("VCM560MD")) // Ponto de Entrada para adicionar opções no Menu

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

EndIf

Return aRotina

Programa Fonte:

VEICM560.PRW

Função:

MenuDef()

Parâmetros:
NomeTipoDescrição
aRotinaVetorVetor que compõe as opções padrão do browse da rotina.

Retorno:

NomeTipoDescrição
aRotVetor

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

Exemplo:

Include totvs.ch

/*

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

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

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

##|Função | VCM560MD | Autor | MIL | Data | 05/06/18 |##

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

##|Descrição | Inclusão no aRotina de Informacoes Adicionais |##

##|----------|--sobre o Cliente CEV --------------------------------------|##

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

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

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

*/

User Function VCM560MD()

Local aRot := ParamIxb[1]

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

Return(aRot)