Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 6

changes.mady.by.user Leandro Melo Marangoni

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Leandro Melo Marangoni

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin

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:
NomeTipoDescrição

aHeadDesp

Matriz

ParamIxb[1] - aHeader dos campos em uso da tabela VVD.

aColsDesp

Matriz

ParamIxb[2] - aCols contendo as informaçoes informações dos campos em uso da tabela VVD.

nAba

Numérico

ParamIxb[3] - De qual Aba se trata a chamada

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:

VM040DEL Ponto de Entrada para que o Usuário possa realizar Operações Extras na Exclusão de Despesas/Receitas - Linha Microsiga Protheus - TDN (totvs.com)