cArqNombre con ruta si corresponde.
Guía AdvPLFOpen( cArq, [nModo], [xParam3], [lChangeCase] ) --> nRetAbre archivo existente y devuelve handle.
FOpen no crea archivo ausente. nModo combina acceso/compartición Fileio.ch; ejemplo usa lectura compartida, fuente comunitario solicita lectura/escritura. Handle cero válido y -1 fallo. Búsqueda no sigue Set Default/Set Path AdvPL según ficha; lChangeCase importa en nombres sensibles. editorial-test.txt debe existir en contexto de prueba; solo se cierra handle propio. (TOTVS, s.f., ref. 1)
FOpen( cArq, [nModo], [xParam3], [lChangeCase] ) --> nRetcArqNombre con ruta si corresponde.
nModoAcceso + compartición Fileio.ch.
xParam3Compatibilidad: Nil.
lChangeCaseAjuste de mayúsculas según build/configuración.
Handle >= 0; -1 en fallo.
#Include "Protheus.ch"
#Include "Fileio.ch"
User Function Ed388()
Local nHandle := -1
Local nError := 0
// Archivo ficticio existente en contexto de prueba; lectura compartida.
nHandle := FOpen("editorial-test.txt", FO_READ + FO_SHARED)
If nHandle < 0
nError := FError()
ConOut(cValToChar(nError))
Else
ConOut("Archivo abierto para lectura")
If !FClose(nHandle)
ConOut(cValToChar(FError()))
EndIf
EndIf
Return NilMensaje de apertura y cierre, o código de fallo. 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.