Histórico da Página

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.

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.

Função:

VEICA650()