Compensação entre carteiras (FINA450)
| Produto: | |
|---|---|
| Linha de Produto: | |
| Segmento: | |
| Módulo: | Financeiro (SIGAFIN) |
| Função: | Compensação entre carteiras (FINA450) |
| País: | Brasil |
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.
| Posição | Tipo | Descrição |
|---|---|---|
| 1 | Vetor | Vetor contendo os RECNOs da tabela SE5 gerados pela rotina. |
Não há.
#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 |