Perguntas Ponto de Entrada - Solicitação de Compra - MT120ISC

Pessoal, boa tarde!

Estou desenvolvendo a função abaixo que tem por objetivo gravar os campos Descrição do Produto e a Unidade Requisitante no Pedido de Compra, porém vinda da Solicitação de Compra.

Até a Descrição do Produto está tudo bem...

Porém na Unidade Requisitante não está dando certo... alguém pode me ajudar???

Segue abaixo o fonte:

***********************************
User Function MT120ISC ()
***********************************

Local nPTipo := aScan(aHeader,{|x| AllTrim(x[2])=="C7_XXDESC"})
Local vRet := aCols[N,Ascan(aHeader,{|X| Upper(AllTrim(X[2])) == "C7_XXUNREQ"})]
Local vNumSc := aCols[N,Ascan(aHeader,{|X| Upper(AllTrim(X[2])) == "C7_NUMSC" })]
Local vIteSc := aCols[N,Ascan(aHeader,{|X| Upper(AllTrim(X[2])) == "C7_ITEMSC"})]


//...Código desenvolvido pelo usuario para carregar campos do usuario da SC para o PC
If nTipoPed ==1 //Variavel que contem o tipo do pedido(1=Sc 2= Contrato de parceria)
aCols[n][nPTipo] := SC1->C1_XXDESC
If !Empty(vNumSc) .And. !Empty(vIteSc)
DbSelectArea("SC1")
vRecSc1 := Recno()
vOrdemSc1 := IndexOrd()
DbSetOrder(1)
If DbSeek(xFilial("SC1")+vNumSc+vIteSc)
vRet := POSICIONE("SY3",1,xFILIAL("SY3")+SC1->C1_UNIDREQ,"Y3_DESC")
Endif
DbSetOrder(vOrdemSc1)
DbGoTo(vRecSc1)
End if
RestArea(cArea)
EndIf

Return (vRet)

Obrigada!

Flávia Mártis
Este endereço de email está sendo protegido de spambots. Você precisa do JavaScript ativado para vê-lo.