PEVCM510 - Manutenção do Registro Agenda CeV

Este Ponto de Entrada é executado após a gravação da Agenda do CEV e possibilita a manutenção do registro criado da agenda.

/*/\{Protheus.doc\} PEVCM510

@author MIL
@since 09/09/2014
@description PONTO DE ENTRADA APOS CRIACAO DA AGENDA DO CEV

/*/
User Function PEVCM510

MsgAlert("Ponto de Entrada PEVCM510 executado com Sucesso")

return

Português(Brasil)

Todas

Todos

Todas

DbSelectArea("VC1")
nPosicao := VC1->(RecNo())
RecLock("VC1",.T.)
VC1->VC1_FILIAL := xFilial("VC1")
VC1->VC1_TIPAGE := cTpACEV
VC1->VC1_DATAGE := DataValida(dDatCEV)
VC1->VC1_CODVEN := cVenCEV
VC1->VC1_CODCLI := cCliCEV
VC1->VC1_LOJA := cLojCEV
VC1->VC1_ORIGEM := cOriCEV
VC1->VC1_TIPORI := cTpOrig
VC1->VC1_EMIFIC := cEmiFic
MSUnlock()
M->VC1_OBJETI := cObjetiv
If lObjetivo
MSMM(VC1->VC1_OBSOBJ,TamSx3("VC1_OBJETI")[1],,&(aMemObj[1][2]),1,,,"VC1","VC1_OBSOBJ")
EndIf
If Empty(cOriCEV)
RecLock("VC1",.f.)
VC1->VC1_ORIGEM := strzero(VC1->(RecNo()),10)
MsUnlock()
EndIf
If !Empty(cObsCEV)
DbSelectArea("SX3")
DbSetOrder(1)
DbSeek("VC1")
While !Eof() .and. (X3_arquivo == "VC1")
&("M->"+Alltrim(x3_campo)) := CriaVar(x3_campo)
If Alltrim(x3_campo) == "VC1_OCORRE"
nReclam := x3_tamanho
EndIf
dbskip()
Enddo
DbSelectArea("VC1")
RecLock("VC1",.f.)
M->VC1_OCORRE := cObsCEV+Chr(13)+Chr(10)
MSMM(VC1->VC1_OCOMEM,TamSx3("VC1_OCORRE")[1],,&(aMemos[1][2]),1,,,"VC1","VC1_OCOMEM")
MsUnlock()
EndIf
//PONTO DE ENTRADA APOS CRIACAO DA AGENDA DO CEV
If ExistBlock("PEVCM510")
ExecBlock("PEVCM510",.f.,.f.)
EndIf

VEICM510.PRW