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 |
...
