| Producto: | TOTVS Backoffice |
|---|---|
| Línea de producto: | Línea Protheus |
| Segmento: | Backoffice |
| Módulo: | Financiero (SIGAFIN) |
| Función: | Compensación entre carteras (FINA450) |
| País: | Brasil |
Punto de entrada que permite manejar los movimientos generados por la compensación entre carteras. Se llamada después de la compensación de todos los títulos.
| Posición | Tipo | Descripción |
|---|---|---|
| 1 | Vector | Vector con los RECNO de la tabla SE5 generados por medio de la rutina. |
No hay.
#include 'Protheus.ch'
User Function F450SE5()
Local aArray := aClone(ParamIXB) // Array aSE5Recs con los RECNO de la SE5 involucrados en la compensación
Local nI
Local nReg
DbSelectArea("SE5")
nReg := Recno() // Graba la actual posición en la tabla de Mov. Bancarios
For nI := 1 to Len(aArray)
DbGoTo(aArray[nI][2])
If aArray[nI][1] == "P"
MsgInfo("Compensación de título por pagar. " + chr(10) + chr(13) + "N° del título: " + SE5->E5_NUMERO)
Else
MsgInfo("Compensación por cobrar. " + chr(10) + chr(13) + "N° del título: " + SE5->E5_NUMERO)
EndIf
next
DbGoTo(nReg) // Se ubica en la SE5 en la posición inicial
Return NIL