VCA660ABT Inclusão de opções no Outras Ações do Browse na Rotina Cad Seguros (VEICA660)

Ponto de Entrada

Descrição:

Este Ponto de Entrada será executado na rotina Cad Seguros (VEICA660) e permite a inclusão de opções no Outras Ações do Browse.

Localização:

Atualizações \ Cad Financeiro \ Cad Seguros (VEICA660)

Eventos:

Static Function MenuDef()

Local aRotina := {}

ADD OPTION aRotina TITLE STR0031 ACTION 'VIEWDEF.VEICA660' OPERATION 2 ACCESS 0 // Visualizar

ADD OPTION aRotina TITLE STR0032 ACTION 'VIEWDEF.VEICA660' OPERATION 3 ACCESS 0 // Incluir

ADD OPTION aRotina TITLE STR0033 ACTION 'VIEWDEF.VEICA660' OPERATION 4 ACCESS 0 // Alterar

ADD OPTION aRotina TITLE STR0034 ACTION 'VIEWDEF.VEICA660' OPERATION 5 ACCESS 0 // Excluir

ADD OPTION aRotina TITLE STR0035 ACTION 'VCA660051_RenovarSeguro()' OPERATION 4 ACCESS 0 // Renovar

ADD OPTION aRotina TITLE STR0036 ACTION 'VCA660061_BancoDeConhecimento("1")' OPERATION 4 ACCESS 0 // Banco de Conhecimento do Seguro

ADD OPTION aRotina TITLE STR0037 ACTION 'VCA660041_ImpressaoSeguro()' OPERATION 8 ACCESS 0 // Imprimir

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

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

EndIf

Return aRotina

Programa Fonte:

VEICA660.PRW

Função:

MenuDef()

Parâmetros:

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

Retorno:

Nome	Tipo	Descriçã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 | VCA660ABT | Autor | MIL | Data | 16/06/2020 |##

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

##|Descrição | Inclusão no MenuDef() da Rotina Cad Seguros (VEICA660) |##

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

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

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

*/

User Function VCA660ABT()

Local aRot := ParamIxb[1]

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

Return aRot