PHC: Buscar Referência nas Linhas de Compra a Fornecedores

[Aprendiz_MZ]

Saudações,

Estou enfrentando dificuldades ao tentar  buscar a referência na linha de compra a fornecedores, após copiar as linhas de um dossier interno (Encomenda).

É crucial que eu encontre essa referência para discernir se se trata de uma encomenda ou de uma requisição interna. Isso, por sua vez, me permitirá inserir automaticamente o valor padrão no campo do armazém.

O que tentei:

• Criei um valor por defeito | Tabela: FN | Campo: FN.ARMAZEM | Assim que começa a introduzir | O comando xbase é um programa

Comando xbase:

select fo
select fn

if not empty (fn.fnstamp)
       msg(fn.ref)
endif

return fn.armazem

Ao inserir uma nova compra ou copiar as linhas de DI, a mensagem aparece vazia, corre antes da linha ser carregada.

Como posso solucionar essa questão?

Agradeço antecipadamente pela atenção.

[pc.cesar]

select fo
select fn
go top

scan
if not empty (fn.fnstamp)        
msel = [select nmdos from bi where bi.obistamp=']+fn.bistamp+[']

u_sqlexec(msel, [C1])

select c1

if c1.nmdos='Encomenda'
replace  fn.armazem with 1
else 
replace  fn.armazem with 2
endif

endscan

return fn.armazem

[Aprendiz_MZ]

Obrigado, funcionou perfeitamente!