cArqNome com caminho quando necessário.
AdvPL GuiaFOpen( cArq, [nModo], [xParam3], [lChangeCase] ) --> nRetAbre um arquivo existente e devolve seu handle.
FOpen não cria um arquivo ausente. nModo combina acesso e compartilhamento definidos em Fileio.ch; o exemplo escolhe somente leitura compartilhada, enquanto o fonte comunitário solicita leitura/escrita. Handle zero é válido e -1 é falha. A busca não segue Set Default/Set Path do AdvPL conforme a ficha, e lChangeCase requer atenção em nomes sensíveis a caixa. O arquivo editorial-test.txt deve existir no contexto de teste; o fragmento fecha apenas seu próprio handle. (TOTVS, s.d., ref. 1)
FOpen( cArq, [nModo], [xParam3], [lChangeCase] ) --> nRetcArqNome com caminho quando necessário.
nModoAcesso + compartilhamento de Fileio.ch.
xParam3Compatibilidade: Nil.
lChangeCaseAjuste de caixa de nomes conforme build/configuração.
Handle >= 0; -1 em falha.
#Include "Protheus.ch"
#Include "Fileio.ch"
User Function Ed388()
Local nHandle := -1
Local nErro := 0
// Arquivo ficticio existente no contexto de teste; leitura compartilhada.
nHandle := FOpen("editorial-test.txt", FO_READ + FO_SHARED)
If nHandle < 0
nErro := FError()
ConOut(cValToChar(nErro))
Else
ConOut("Arquivo aberto para leitura")
If !FClose(nHandle)
ConOut(cValToChar(FError()))
EndIf
EndIf
Return NilMensagem de abertura seguida de fechamento, ou código de falha. Em revisão: exemplo editorial não compilado nem executado em Protheus. Conferir includes, release, RDD e contexto antes de homologar.
© 2026 Usina.BR. Todos os direitos reservados. TOTVS, Protheus, Microsiga e seus respectivos logotipos são marcas de seus titulares. O AdvPL Guia é independente e utiliza citações limitadas, atribuídas e justificadas por finalidade educativa. Consulte os Termos de Uso. Termos de Uso
Comentários
Ainda não há comentários aprovados.
Entre com Google ou Microsoft para comentar.