Descrição: | Este ponto de entrada tem por objetivo possibilitar a gravação de históricos de alteração para campos customizados na rotina de Oportunidade de Negócios / Interesses. Para isso, é necessário que exista o campo com o "mesmo nome" nas tabelas VDM (Interesses) e VDN (Históricos de Interesses) | ||
Localização: | Informe o Submenu em que estará localizada a rotina | Atualizações / Cad C e V / Oportunid Negócios | |
Eventos: | If lVCM680GH // Campos do VDM a serem gravados nos Historicos aCpos := ExecBlock("VCM680GH",.f.,.f.) // Retorno do PE deve ser um Vetor ( aCpos ) // aCpos[1] = Campos do VDM a serem gravados nos Historicos das Fases do Interesse // aCpos[2] = Campos do VDM a serem gravados nos Historicos das Fases de Financiamento If ValType(aCpos) <> "A" aCpos := {} EndIf EndIf
| Eventos: | Informe o Título da rotina |
Programa Fonte: | VEICM680 | ||
Função: | Informe o Nome do(s) produto(s) a ser utilizado ou “Todos” | ||
Retorno: | aRet = Vetor com os campos VDM a serem gravados nos Historicos das Fases Interesse e Fases de Financiamento |
Exemplo:
/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍ»±±
±±º Programa ³ VCM680GH º Autor ³ Andre Luis Almeida º Data ³ 29/10/15 º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±º Descricao³ Campos do Interesse a serem gravados nos Historicos º±±
±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±
±±º º±±
±±º Observacao: Necessario existir o campo com o "mesmo nome" nas tabelas º±±
±±º VDM (Interesses) e VDN (Historicos de Interesses) º±±
±±º º±±
±±º Exemplo: VDM_TESTE1 e VDN_TESTE1 º±±
±±º VDM_TESTE2 e VDN_TESTE2 º±±
±±º º±±
±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±
±±º º±±
±±º Vetor de Retorno º±±
±±º [1] Campos VDM a serem gravados nos Historicos das Fases Interesse º±±
±±º [2] Campos VDM a serem gravados nos Historicos das Fases Financiam º±±
±±º º±±
±±º Exemplo: º±±
±±º aRet := {,} º±±
±±º aRet[1] := {"VDM_TESTE1","VDM_TESTE2"} º±±
±±º aRet[2] := {"VDM_TESTE3","VDM_TESTE4","VDM_TESTE5"} º±±
±±º º±±
±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
User Function VCM680GH()
Local aRet := {}
MsgAlert("Ponto de Entrada VCM680GH executado com sucesso!","Atenção")
Return(aRet)
