Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada

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:
NomeTipoDescrição

aNewBut

Vetor

Vetor 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 | 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