Perguntas Campo real X Campo virtual

Com o posicione que você fez só vai funcionar mesmo no virtual, no caso de campo real vc teria de utilizar um ponto de entrada para efetuar a gravação do nome do fornecedor, lembrando que:

Esse recurso que vc colocou só vai servir para notas de entrada normal:

Se for uma nota de devolução ou beneficiamento você deverá pegar o nome no cadastro do cliente e não no cadastro do fornecedor ok.

O Ideal é a criação de um campo Real, e utilizar um ponto de entrada para a gravação do nome:

e tratar o tipo da nota

Exemplo

If SF1->F1_TIPO $'B*D'
cNome := Posicione("SA1",1,xFilial("SA1")+SF1->F1_FORNECE+SF1->F1_LOJA,"A1_NOME")
Else
cNome := Posicione("SA2",1,xFilial("SA2")+SF1->F1_FORNECE+SF1->F1_LOJA,"A2_NOME")
Endif

If RecLock("SF1",.f.)
SF1->F1_NFORNE := cNome
MsUnlock()
Endif
Return .t.


Abraços espero ter ajudado.