Histórico da Página

Descrição:

Ponto de Entrada para realizar operações na alteração de despesas/receitas. Executado após salvar os dados na tabela VDD e VVA e anter de gerar o financeiro, ainda dentro da transação.

Eventos:

Do While !( cQAlias )->( Eof() )

DbSelectArea("VVA")

DbGoTo(( cQAlias )->( RECVVA ))

RecLock("VVA",.f.)

VVA->VVA_DESVEI := nDCliAtu

VVA->VVA_RECVEI := nRCliAtu

VVA->VVA_TOTDES := VVA->VVA_DESVEI+VVA->VVA_DESCLI+VVA->VVA_SEGVIA+VVA->VVA_VALASS+VVA->VVA_VALREV+VVA->VVA_ASSIMP+VVA->VVA_DESFIX

VVA->VVA_LUCLQ1 := VVA->VVA_LUCBRU-VVA->VVA_JUREST-VVA->VVA_ACESSO-VVA->VVA_VDESCO-VVA->VVA_DESCLI-VVA->VVA_SEGVIA-VVA->VVA_VALASS-VVA->VVA_VALREV-VVA->VVA_DESVEI-VVA->VVA_ASSIMP-VVA->VVA_COMVDE-VVA->VVA_COMGER-VVA->VVA_COMPAT

VVA->VVA_LUCLQ2 := VVA->VVA_LUCLQ1-VVA->VVA_DESFIX+(VVA->VVA_REDCUS+VVA->VVA_RECVEI-VVA->VVA_DSPFIN)

MsUnlock()

( cQAlias )->( DbSkip() )

EndDo

( cQAlias )->( dbCloseArea() )

//

DbSelectArea("VVA")

If nRecVVA > 0

DbGoTo(nRecVVA)

EndIf

//

If ExistBlock("VM040ALT")

ExecBlock("VM040ALT",.f.,.f., { aHeadDR,aColsDR } )

EndIf

Função:

FS_GRVVM040()