A função FieldPos tem a funcionalidade de retornar a posição de um determinado campo dentro da estrutura do alias corrente. Caso o campo não exista na estrutura, é retornado zero.

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

 

Exemplo:

 

// FieldPosExample.prw

#INCLUDE "TOTVS.CH"

 

Function FieldPosExample()

       RpcSetEnv("99", "01")

       DbSelectArea("SA1")      

       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.

  • Sem rótulos