Linha Microsiga Protheus - Espanhol

Atalhos

Árvore de páginas

01. DATOS GENERALES

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

02. VISIÓN GENERAL

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.

03. PARÁMETROS


PosiciónTipoDescripción
1VectorVector con los RECNO de la tabla SE5 generados por medio de la rutina.

04. DEVOLUCIÓN

No hay.

05. EJEMPLO


Ejemplo de ejecución
#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