01. DADOS GERAIS
Produto: | Solucoes_totvs_cross |
---|
SolucaoCross | TOTVS Backoffice |
---|
|
|
---|
Linha de Produto: | |
---|
Segmento: | |
---|
Módulo: | Financeiro (SIGAFIN) |
---|
Função: | Compensação entre carteiras (FINA450) |
---|
País: | Brasil |
---|
02. VISÃO GERAL
Ponto de entrada que permite manipular as movimentações geradas pela compensação entre carteiras. É chamado após a compensação de todos os títulos.
03. PARÂMETROS
Posição | Tipo | Descrição |
---|
1 | Vetor | Vetor contendo os RECNOs da tabela SE5 gerados pela rotina. |
04. RETORNO
Não há.
05. EXEMPLO
Bloco de código |
---|
language | java |
---|
theme | Midnight |
---|
firstline | 1 |
---|
title | Exemplo de execução |
---|
linenumbers | true |
---|
|
#include 'Protheus.ch'
User Function F450SE5()
Local aArray := aClone(ParamIXB) // Array aSE5Recs contendo os RECNO da SE5 envolvidos na compensação
Local nI
Local nReg
DbSelectArea("SE5")
nReg := Recno() // Guarda a atual posição na tabela de Mov. Bancários
For nI := 1 to Len(aArray)
DbGoTo(aArray[nI][2])
If aArray[nI][1] == "P"
MsgInfo("Compensação de título a Pagar. " + chr(10) + chr(13) + "N° do título: " + SE5->E5_NUMERO)
Else
MsgInfo("Compensação a receber. " + chr(10) + chr(13) + "N° do título: " + SE5->E5_NUMERO)
EndIf
next
DbGoTo(nReg) // Posiciona na SE5 na posição inicial
Return NIL |
...