A função FieldPos tem a funcionalidade de retornar a posição dentro do dicionário de dados de um determinado campo, e se caso o campo não existe é retornado zero.

Assim, sempre que for se referenciar um determinado campo, criado por um compatibilizador, ou criado em versão/release, proteger a execução com o FieldPos.

 

Exemplo:

 

// FieldPosExample.prw

#INCLUDE "TOTVS.CH"

 

Function FieldPosExample()

       RpcSetEnv("99", "01")

      

       If FieldPos("A1_NEW") > 0

             cRet := SA1->A1_NEW

       Else

             ConOut("Field A1_NEW doesn`t exist.")

       EndIf

Return

 

Nesse exemplo, observamos como proteger de um erro, quando referenciamos a um campo (A1_NEW) que não existe.