Linha Microsiga Protheus

Árvore de páginas

01. DADOS GERAIS

Produto:

TOTVS Backoffice

Linha de Produto:

Linha Protheus

Segmento:

Backoffice

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

04. RETORNO

Não há.

05. EXEMPLO


Exemplo de execução
#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