VCA650DGR Ponto de Entrada para customizações após gravação na rotina Cad Consórcios (VEICA650)

Descrição:

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

Eventos:

Function VCA650DEP()

Local ni := 0

Local lAlt := .f.

Local cAnt := ""

Local cDep := ""

Local cQuery := ""

If Inclui .or. Altera

//

MSMM(VQ7->VQ7_OBSMEM,TamSx3("VQ7_OBSERV")[1],,&(aMemos[1][2]),1,,,"VQ7","VQ7_OBSMEM")

If Altera

M->VQ7_OBSERA += left(UPPER(UsrRetName(__CUSERID)),15)+" - "+STR0004+" "+Transform(dDataBase,"@D")+" "+STR0005+" "+left(Time(),5)+"h"+CHR(13)+CHR(10) // Alterações: / as

For ni := 1 to len(aCpoAlt)

If aCpoAlt[ni,2] <> &("M->"+aCpoAlt[ni,1])

SX3->(DbSetOrder(2))

SX3->(DbSeek(aCpoAlt[ni,1]))

If SX3->X3_TIPO $ "D/N"

cAnt := Transform(aCpoAlt[ni,2],VQ7->(X3PICTURE(aCpoAlt[ni,1])))

cDep := Transform(&("M->"+aCpoAlt[ni,1]),VQ7->(X3PICTURE(aCpoAlt[ni,1])))

Else

If !Empty(SX3->X3_CBOX)

cAnt := X3CBOXDESC(aCpoAlt[ni,1],aCpoAlt[ni,2])

cDep := X3CBOXDESC(aCpoAlt[ni,1],&("M->"+aCpoAlt[ni,1]))

Else

cAnt := aCpoAlt[ni,2]

cDep := &("M->"+aCpoAlt[ni,1])

EndIf

EndIf

lAlt := .t.

M->VQ7_OBSERA += AllTrim(RetTitle(aCpoAlt[ni,1]))+" - "+STR0006+" "+cAnt+" - "+STR0007+" "+cDep+CHR(13)+CHR(10) // De: / Para:

EndIf

Next

M->VQ7_OBSERA += repl("_",47)+CHR(13)+CHR(10)

If lAlt

MSMM(VQ7->VQ7_OBSMEA,TamSx3("VQ7_OBSERA")[1],,&(aMemoA[1][2]),1,,,"VQ7","VQ7_OBSMEA")

EndIf

EndIf

//

cQuery := "SELECT SUM(VQ9.VQ9_VALCOM) FROM "+RetSQLName("VQ9")+" VQ9 WHERE VQ9.VQ9_FILIAL='"+xFilial("VQ9")+"' AND "

cQuery += "VQ9.VQ9_TIPO='2' AND VQ9.VQ9_CODIGO='"+VQ7->VQ7_CODIGO+"' AND VQ9.VQ9_NUMNFI<>' ' AND VQ9.D_E_L_E_T_=' ' "

//

RecLock("VQ7",.f.)

VQ7->VQ7_SALDO := VQ7->VQ7_COMTOT - FM_SQL(cQuery)

MsUnLock()

//

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

If ExistBlock("VCA650DGR")

ExecBlock("VCA650DGR", .f., .f., {Inclui, VQ7->(RecNo())})

EndIf

EndIf

Return()

Função:

VCA650DEP()