Histórico da Página

#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 nilNIL