nHandleHandle válido a fechar; fornecido explicitamente no exemplo.
AdvPL GuiaFClose( [nHandle] ) --> lRetFecha um handle de arquivo pertencente à rotina.
FClose retorna verdadeiro no fechamento e falso na falha; FError precisa ser consultado após a falha para obter detalhe. Um handle de arquivo não é alias de tabela. O exemplo comunitário cria um arquivo antes de fechar; a adaptação abre um arquivo de teste existente somente para leitura, verifica inclusive handle zero e fecha no caminho normal. A ausência do arquivo produz diagnóstico de abertura, sem criar substituto. (TOTVS, s.d., ref. 1)
FClose( [nHandle] ) --> lRetnHandleHandle válido a fechar; fornecido explicitamente no exemplo.
Lógico de sucesso do fechamento.
#Include "Protheus.ch"
#Include "Fileio.ch"
User Function Ed378()
Local nHandle := FOpen("editorial-test.txt", FO_READ + FO_SHARED)
// Handle zero e valido; nao usar teste maior que zero.
If nHandle >= 0
If !FClose(nHandle)
ConOut(cValToChar(FError()))
EndIf
Else
ConOut(cValToChar(FError()))
EndIf
Return NilFecha se a abertura for bem-sucedida; falhas são informadas pelo código, sem conteúdo de arquivo. 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.