Descrição: | Este Ponto de Entrada será executado na rotina Cad Consórcios (VEICA650) e permite a inclusão de opções no Outras Ações do Browse. | ||||||
Localização: | Atualizações \ Cad Financeiro \ Cad Consórcios (VEICA650) | ||||||
Eventos: | Function VEICA650() Private cCadastro := STR0001 // Cadastro de Consorcios Private aMemos := {{"VQ7_OBSMEM","VQ7_OBSERV"}} // Memo Observacao Private aMemoA := {{"VQ7_OBSMEA","VQ7_OBSERA"}} // Memo Alteracoes Private aNewBut := {} Private aCpoAlt := {} // Campos a terem historico de Alteracoes // aAdd(aCpoAlt,{"VQ7_STATUS",}) aAdd(aCpoAlt,{"VQ7_DATALT",}) // AADD(aNewBut, {STR0003,"VCA650IMP()",0,2} ) // Impressão Consorcios If (ExistBlock("VCA650ABT")) // Ponto de Entrada para adicionar opções no Menu aNewBut := ExecBlock("VCA650ABT", .f., .f., {aNewBut}) EndIf // MV_PAR01 := "" // Compatibilizacao da consulta VX3 (modelo do veiculo) DbSelectArea("VQ7") axCadastro("VQ7",cCadastro,"VCA650EXC()",,aNewBut,{ || VCA650INI() },{ || VCA650INI() },{ || VCA650DEP() }) Return .T. | ||||||
Programa Fonte: | VEICA650.PRW | ||||||
Função: | VEICA650() | ||||||
| Parâmetros: |
| ||||||
| Retorno: |
|
Exemplo:
Include totvs.ch
/*
===============================================================================
###############################################################################
##+----------+------------+-------+-----------------------+------+----------+##
##|Função | VCA650ABT | Autor | MIL | Data | 16/06/2020 |##
##+----------+------------+-------+-----------------------+------+----------+##
##|Descrição | Inclusão no aNewBut da Rotina Cad Consórcios (VEICA650) |##
##+----------+--------------------------------------------------------------+##
###############################################################################
===============================================================================
*/
User Function VCA650ABT()
Local aRot := ParamIxb[1]
aadd(aRot, {"Executar Exemplo", "U_M_EXEMPLO()", 0, 2})
Return aRot
