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: |
| ||||||
| Retorno: |
|
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
