01. DATOS GENERALES

Producto:

Línea de producto:


Segmento:

Módulo:Financiero (SIGAFIN)
Función:

Compensación entre carteras (FINA450)

País:Brasil

02. VISIÓN GENERAL

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çãoTipoDescrição
1VetorVetor contendo os RECNOs da tabela SE5 gerados pela rotina.

04. DEVOLUCIÓN

Não há.

05. EJEMPLO


#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