VCA660DGR Ponto de Entrada para customizações após gravação na rotina Cad Seguros (VEICA660)

Descrição:

Este Ponto de Entrada está localizado na rotina Cad Seguros (VEICA660), executado após gravação de um registro, tem como finalidade possibilitar customizações.

Eventos:

Function VCA660071_GravacaoAposPadrao(oModel)

Local nCntFor := 0

Local lAlt := .f.

Local cAnt := ""

Local cDep := ""

Local cQuery := ""

Local cObsAlt := ""

Local nObsTam := 0

Local lInclui := .t.

If oModel:GetOperation() == MODEL_OPERATION_INSERT .or. oModel:GetOperation() == MODEL_OPERATION_UPDATE

//

cQuery := "SELECT SUM(VQ9_VALCOM)"

cQuery += " FROM "+RetSQLName("VQ9")

cQuery += " WHERE VQ9_FILIAL='"+xFilial("VQ9")+"'"

cQuery += " AND VQ9_TIPO='3'"

cQuery += " AND VQ9_CODIGO='"+VQ8->VQ8_CODIGO+"'"

cQuery += " AND VQ9_NUMNFI<>' '"

cQuery += " AND D_E_L_E_T_=' '"

//

DbSelectArea("VQ8")

RecLock("VQ8",.f.)

VQ8->VQ8_SALDO := VQ8->VQ8_COMTOT - FM_SQL(cQuery)

MsUnLock()

//

If oModel:GetOperation() == MODEL_OPERATION_UPDATE

////////////////////////////////////////

// MEMO com o Historico de Alteracoes //

////////////////////////////////////////

lInclui := .f.

nObsTam := TamSx3("VQ8_OBSERA")[1]

cObsAlt := E_MSMM(VQ8->VQ8_OBSMEA,nObsTam) // Buscar MEMO

cObsAlt += left(UPPER(UsrRetName(__CUSERID)),15)+" - "+STR0004+" "+Transform(dDataBase,"@D")+" "+STR0005+" "+left(Time(),5)+"h"+CHR(13)+CHR(10) // Alteracoes: / as

For nCntFor := 1 to len(aCpoAltVQ8)

If aCpoAltVQ8[nCntFor,2] <> &("VQ8->"+aCpoAltVQ8[nCntFor,1])

If aCpoAltVQ8[nCntFor,4] == "G" // Get

cAnt := Transform(aCpoAltVQ8[nCntFor,2],aCpoAltVQ8[nCntFor,3])

cDep := Transform(&("VQ8->"+aCpoAltVQ8[nCntFor,1]),aCpoAltVQ8[nCntFor,3])

ElseIf aCpoAltVQ8[nCntFor,4] == "C" // Combo

cAnt := X3CBOXDESC(aCpoAltVQ8[nCntFor,1],aCpoAltVQ8[nCntFor,2])

cDep := X3CBOXDESC(aCpoAltVQ8[nCntFor,1],&("VQ8->"+aCpoAltVQ8[nCntFor,1]))

EndIf

lAlt := .t.

cObsAlt += AllTrim(RetTitle(aCpoAltVQ8[nCntFor,1]))+" - "+STR0006+" "+cAnt+" - "+STR0007+" "+cDep+CHR(13)+CHR(10) // De: / Para:

EndIf

Next

If lAlt

cObsAlt += repl("_",47)+CHR(13)+CHR(10)

MSMM(VQ8->VQ8_OBSMEA,nObsTam,,cObsAlt,1,,,"VQ8","VQ8_OBSMEA") // Gravar MEMO

EndIf

EndIf

//

// Ponto de Entrada para verificações customizadas após Gravação realizada com sucesso

If ExistBlock("VCA660DGR")

ExecBlock("VCA660DGR", .f., .f., {lInclui, VQ8->(RecNo())})

EndIf

EndIf

Return()

Função:

VCA660071_GravacaoAposPadrao()