nPosNuméricoObrigatório
Posição ordinal válida no alias.
FUNçãOEm revisão
FieldGet
FieldGet( nPos ) --> xRetLê o valor do campo na posição atual do registro.
Visão geral
FieldGet usa posição ordinal, não nome. Posição inválida pode retornar Nil com advertência; tipo depende da estrutura, e queries podem exigir TCSetField para datas/lógicos. O fonte GitHub avança três registros de SA1 e lê o quinto campo sem testar EOF. A adaptação localiza ED_COD por FieldPos e confirma registro válido antes da leitura, sem pressupor posição fixa. Somente o tipo é mostrado. EDTRB é um alias próprio de teste já aberto; ED_COD, quando usado, é campo caractere de tamanho 10 do esquema didático. (TOTVS, s.d., ref. 1)
Sintaxe
FieldGet( nPos ) --> xRetParâmetros
Retorno
Conteúdo do campo, conforme seu tipo; Nil nos casos documentados de erro.
Exemplo comentado
#Include "Protheus.ch"
User Function Ed384()
Local nPosicao
Local xValor
If Select("EDTRB") > 0
nPosicao := EDTRB->(FieldPos("ED_COD"))
// Nome presente nao basta: o cursor tambem deve ser valido.
If nPosicao > 0 .And. !EDTRB->(Eof())
xValor := EDTRB->(FieldGet(nPosicao))
ConOut(ValType(xValor))
EndIf
EndIf
Return NilResultado esperado
Tipo esperado C no esquema de teste; valor do campo não é exposto. Em revisão: exemplo editorial não compilado nem executado em Protheus. Conferir includes, release, RDD e contexto antes de homologar.
- Usar somente tabela própria de teste com estrutura conhecida. Qualificar alias, conferir posição do registro e administrar alterações de contexto conforme o contrato do chamador.
- Em revisão: exemplo editorial não compilado nem executado em Protheus. Conferir includes, release, RDD e contexto antes de homologar.
Comentários
Ainda não há comentários aprovados.
Entre com Google ou Microsoft para comentar.