Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada

Descrição:

Este ponto de entrada esta localizado na rotina Contatos CEV, possibilita inserir/retirar colunas/campos no listbox de Oportunidade/Interesses localizado no canto inferior esquerdo da rotina.

Localização:

Consultas \ C e V \ Contatos CEV (VEICC500)

Eventos:

Private aCposInter := { "VDM_CODMAR" , "VV2_DESMOD" , "VDM_DATINT" , "VDM_DATLIM" , "VDK_DESFAS" } // VDL / VDM / VDK / VV2 / VVC

//

Default cPCodCli   := cCodCli

Default cPLojCli   := cLojCli

Default dPDtAgeI   := CtoD("")

Default dPDtAgeF   := CtoD("")

//

If ExistBlock("VC500INT")

    aCposInter := ExecBlock("VC500INT",.f.,.f.,{aCposInter}) // Retorna vetor com os campos/colunas dos Interesses (Oportunidade) - Podem ser utilizados todos os campos REAIS das tabelas VDL / VDM / VDK / VV2 / VVC

EndIf

Programa Fonte:

VEICC500

Função:

VEICC500

Parâmetros:
NomeTipoDescriçãoObrigatório
aCposInterVetorVetor contendo os campos default que deverão aparecer no listbox de Oportunidade/Interesses da rotina Contato CEVSim

Retorno:

NomeTipoDescrição
aRetCposVetorVetor contendo os campos REAIS das tabelas VDL, VDM, VDK, VV2 e VVC que deverão aparecer no listbox de Oportunidade/Interesses da rotina Contato CEV

Exemplo:

User Function VC500INT()  

Local aRetCpos := ParamIxb[1] // Vetor padrao { "VDM_CODMAR" , "VV2_DESMOD" , "VDM_DATINT" , "VDM_DATLIM" , "VDK_DESFAS" }

MsgInfo("Ponto de entrada VC500INT executado com sucesso!")

Return aClone(aRetCpos)