VCM680DGR - Efetuar gravações das tabelas VDM e VDN pelo cliente após a gravação padrão de Oportunidades de Negócios

Descrição:

Este ponto de entrada está localizado na rotina Oportunidades/Interesses (VEICM680) e é utilizado para que o usuário efetue gravações das tabelas VDM e VDN no final da função de gravação padrão VCM680GRV().

Eventos:

  If lCriaH2

DbSelectArea("VDN")

RecLock("VDN",.t.)

VDN->VDN_FILIAL := xFilial("VDN")

VDN->VDN_CODHIS := GetSXENum("VDN","VDN_CODHIS")

VDN->VDN_TIPHIS := "2"

If lVDN_CODOPO

VDN->VDN_CODOPO := VDM->VDM_CODOPO

EndIf

VDN->VDN_CODINT := VDM->VDM_CODINT

VDN->VDN_FASFIN := VDM->VDM_FASFIN

VDN->VDN_CCLIBC := VDM->VDM_CCLIBC

VDN->VDN_LCLIBC := VDM->VDM_LCLIBC

VDN->VDN_CODBCO := VDM->VDM_CODBCO

VDN->VDN_NOMBCO := VDM->VDM_NOMBCO

VDN->VDN_CODAGE := VDM->VDM_CODAGE

VDN->VDN_CONCOR := VDM->VDM_CONCOR

VDN->VDN_NOMGER := VDM->VDM_NOMGER

VDN->VDN_NROTEL := VDM->VDM_NROTEL

VDN->VDN_NOMCID := VDM->VDM_NOMCID

VDN->VDN_LINCRE := VDM->VDM_LINCRE

VDN->VDN_DATHIS := IIf(!Empty(M->VDM_DTFASF),M->VDM_DTFASF,dDataBase)

VDN->VDN_HORHIS := IIf(!Empty(M->VDM_HRFASF),M->VDM_HRFASF,val(substr(Time(),1,2)+substr(Time(),4,2)))

VDN->VDN_USUHIS := __cUserId

VDN->VDN_OBSERV := oAuxGetDados:aCols[ix1,FG_POSVAR("VDM_OBSERV")] // Campo virtual digitado na aCols

If lVCM680GH // Campos do VDM a serem gravados nos Historicos das Fases de Financiamento

If len(aCpos) > 0 .and. len(aCpos[2]) > 0

For nX := 1 to len(aCpos[2])

&("VDN->VDN_"+substr(aCpos[2,nX],5)) := &("VDM->"+aCpos[2,nX])

Next

EndIf

EndIf

MsUnlock()

ConfirmSX8()

EndIf

//

EndIf

Next

If ExistBlock("VCM680GRV") // Ponto de Entrada após gravação dos campos da VDM e VDN

ExecBlock("VCM680GRV", .f., .f.)

EndIf

End Transaction

lMsHelpAuto := .f.

Endif

Return( .t. )

Função:

VCM680GRV()