Perguntas Solicitação de compras

Boa tarde Pessoal!

Estou com um problema interessante... Preciso pegar o ID do superior do usuário, cadastrado no configurador, e gravar em 3 campos customizados na solicitação de compras (C1_XSUP01 / C1_XSUP02 / C1_XSUP03) porém não estou conseguindo.

Segue o fonte que estou utilizando. Fiquem a vontade para manipular.

#INCLUDE "RWMAKE.CH"
#INCLUDE "PROTHEUS.CH"
#INCLUDE "TOPCONN.CH"

/*±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍͱ±
±±ºDescricao ³Rotina utilizada para gravar o SUPERIOR do cadastro de º±±
±±º ³usuários nos campos C1_XSUP01 / C1_XSUP02 / C1_XSUP03 º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͱ±*/

//************************
User Function MT110LOK()
//************************
//posicionando SC1 - Solicitações de Compras
dbSelectArea("SC1")
dbsetorder(1)
//Variáveis
aReturn := FWSFUsrSup(SC1->C1_USER)
acols := {}
tI := 1
//Localizando posicao na linha dentro do ARRAY
possup01 := ascan(aheader,{|x| x[2] = "C1_XSUP01"})
possup02 := ascan(aheader,{|x| x[2] = "C1_XSUP02"})
possup03 := ascan(aheader,{|x| x[2] = "C1_XSUP03"})

Reclock ("SC1", .T.)

for tI = 1 to len(acols)
for nI = 1 to len(aReturn)
if nI = 1
acols[ti, acol1] := aReturn[nI]
elseif nI = 2
acols[ti, acol2] := aReturn[nI]
elseif nI = 3
acols[tI, acol3] := aReturn[nI]
endif
next nI
next tI

MSUNLOCK()
Return