nPosPosición ordinal válida en alias.
Guía AdvPLFieldGet( nPos ) --> xRetLee valor del campo en registro actual.
FieldGet usa posición ordinal, no nombre. Posición inválida puede devolver Nil con advertencia; tipo depende de estructura y queries pueden requerir TCSetField para fecha/lógico. GitHub avanza tres registros SA1 y lee quinto campo sin EOF. Adaptación localiza ED_COD y verifica registro antes de leer sin posición fija. Solo muestra tipo. 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)
FieldGet( nPos ) --> xRetnPosPosición ordinal válida en alias.
Contenido según tipo; Nil en errores documentados.
#Include "Protheus.ch"
User Function Ed384()
Local nPosicion
Local xValor
If Select("EDTRB") > 0
nPosicion := EDTRB->(FieldPos("ED_COD"))
// Campo presente no basta: comprobar cursor valido.
If nPosicion > 0 .And. !EDTRB->(Eof())
xValor := EDTRB->(FieldGet(nPosicion))
ConOut(ValType(xValor))
EndIf
EndIf
Return NilTipo esperado C según esquema; contenido no expuesto. En revisión: ejemplo editorial no compilado ni ejecutado en Protheus. Comprobar includes, release, RDD y contexto antes de probar.
Desarrollado con Usina Docs · Alpha
© 2026 Usina.BR. Todos los derechos reservados. TOTVS, Protheus, Microsiga y sus respectivos logotipos son marcas de sus titulares. Guía AdvPL es independiente y utiliza citas limitadas, atribuidas y justificadas por fines educativos. Consulta los Términos de Uso. Términos de Uso
Comentarios
Todavía no hay comentarios aprobados.
Inicia sesión con Google o Microsoft para comentar.