Perguntas Ponto de Entrada FA090SE5

Bom dia Senhores!
Estou utilizando o PE FA090SE5, para gravação do E5_Histor na baixa automática. Utilizei a função posicione para pegar o nome do fornecedor principal nos títulos de impostos. Mas não estou conseguindo.

Alguém pode me ajudar?

Segue fonte abaixo.

#INCLUDE "rwmake.ch"
#INCLUDE "Protheus.ch"

User Function FA090SE5()

Local aAreaAtu := GetArea()

Begin Sequence

cHistor := PARAMIXB[1]

If !Empty(SE2->E2_TITPAI)

xNomFor := AllTrim(SE2->E2_NOMFOR)

If AllTrim(SE2->E2_FORNECE) == "UNIAO"
If AllTrim(SE2->E2_Naturez) == "21306"
xNomFor := "CCP"
ElseIf AllTrim(SE2->E2_Naturez) == "21304"
xNomFor := "IRRF"
Else
xNomFor := AllTrim(SE2->E2_Naturez)
End
End

cHistor := "PG IMP." + SE2->E2_NUM + "-" + xNomFor + "-" + Posicione("SE2",1,xFilial("SE2")+SE2->E2_TITPAI,"SE2->E2_NOMFOR")

Else

cHistor := "PAGTO TIT." + AllTrim(SE2->E2_NUM) + "-" + AllTrim(SE2->E2_NOMFOR)

End

End Sequence

RestArea( aAreaAtu )

Return cHistor