FUNCIóNEn revisión

FieldBlock

FieldBlock( cField ) --> bRet

Crea bloque para leer o asignar campo.

FieldBlockAdvPL

01 · DESCRIPCIÓN GENERAL

Descripción general

Bloque FieldBlock lee sin valor y asigna al recibir valor. No todo Eval es lectura neutra. Campo inexistente puede crear bloque y fallar al evaluar. Adaptación GitHub comprueba campo/posición, evalúa sin escritura y conserva contexto EDTRB al crear/evaluar. Muestra tipo, no datos. EDTRB es alias propio de prueba abierto; ED_COD, si se utiliza, es campo carácter de tamaño 10 del esquema didáctico. (TOTVS, s.f., ref. 1)

02 · SINTAXIS

Sintaxis

FieldBlock( cField ) --> bRet

Parámetros

cField

CarácterObligatorio

Nombre de campo existente en alias.

Retorno

Bloque de acceso; error de definición puede devolver Nil.

03 · EJEMPLO PRÁCTICO

Ejemplo comentado

#Include "Protheus.ch"

User Function Ed383()
    Local bLectura
    Local xValor
    If Select("EDTRB") > 0
        If EDTRB->(FieldPos("ED_COD")) > 0 .And. !EDTRB->(Eof())
            bLectura := EDTRB->(FieldBlock("ED_COD"))
            // Sin segundo argumento: no asignar campo.
            xValor := EDTRB->(Eval(bLectura))
            ConOut(ValType(xValor))
        EndIf
    EndIf
Return Nil

Resultado esperado

Con estructura/registro preparados, tipo esperado C sin modificación. En revisión: ejemplo editorial no compilado ni ejecutado en Protheus. Comprobar includes, release, RDD y contexto antes de probar.

BUENAS PRÁCTICAS

Usar solo tabla propia con estructura conocida. Calificar alias, comprobar posición y administrar contexto según contrato.
En revisión: ejemplo editorial no compilado ni ejecutado en Protheus. Comprobar includes, release, RDD y contexto antes de probar.

Contenido relacionado

REFERENCIAS

Estado: En revisión
Página creada el: 26/10/2026 a las 13:44
Última revisión el: 26/10/2026 a las 13:44
Idioma original: Portugués
Revisión: Usina.BR