Histórico da Página
Ponto de Entrada
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 antes de gerar o financeiro, ainda dentro da transação. | ||||||||||||
Localização: | Atualizações / Mov. Atendimento / Despesas/receitas | ||||||||||||
Eventos: | Static Function VM040038_PEVM040ALT(aHead,aCols,nAba) 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., { aHeadDRaHead,aCols,aColsDR nAba } ) EndIfReturn | ||||||||||||
Programa Fonte: | VEIVM040.PRW | ||||||||||||
Função: | FS_GRVVM040() | ||||||||||||
Parâmetros: |
| ||||||||||||
Retorno: | Não há. |
Exemplo:
Include totvs.ch
User Function VM040ALT()
Local aHeadDR := ParamIxb[1] // Cabeçalho Despesas
Local aColsDR := ParamIxb[2] // Itens Despesas
Local nAba := ParamIxb[3] // Aba
MsgInfo("Ponto de entrada VM040ALT executado com sucesso! Aba: "+cValToChar(nAba))
Return
OBS: Este Ponto de Entrada se relaciona com os Pontos de Entrada abaixo: