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 de gerar o financeiro, ainda dentro da transação. | |||||||||
Localização: | Atualizações / Mov. Atendimento / Despesas/receitas | |||||||||
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 | |||||||||
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
//MsgInfo("Ponto de entrada VM040ALT executado com sucesso!")
Return
OBS: Este Ponto de Entrada se relaciona com os Pontos de Entrada abaixo: