Pular para o conteúdo
Início » Advpl ChkFile

Advpl ChkFile

    Tipo: Processamento

    Abre um arquivo do sistema, em modo exclusivo ou compartilhado, verificando a sua existência bem como dos índices, criando-os caso não existam. Esta função retorna verdadeiro (.T.) se o arquivo já estiver aberto ou se o Alias não for informado. Sempre que desejar mudar o modo de acesso do arquivo (de compartilhado para exclusivo ou vice-versa), feche-o antes de chamá-la.

    Sintaxe

    ChkFile(cAlias,lExcl,newAlias)

    Parâmetros

    cAlias – Alias do arquivo a ser aberto.

    lExcl – Se for informado verdadeiro (.T.), o arquivo será aberto em modo

    exclusivo, caso contrário, o arquivo será aberto em modo compar-tilhado.

    Se este parâmetro não for informado, será assumido falso (.F.).

    newAlis – Abre o arquivo com outro apelido.

    Retorna

    lRet – Retorna verdadeiro (.T.) caso tenha conseguido abrir o arquivo e falso (.F.) caso contrário.

    Exemplo

    // Exemplo de uso da função ChkFile:

    // Tenta abrir o arquivo de clientes como exclusivo:

    dbSelectArea(“SA1”)

    dbCloseArea()

    lOk := .T.

    While .T.

    IF !ChkFile(“SA1”,.T.)

    nResp := Alert(“Outro usuario usando! Tenta de novo?”,{“Sim”,”Nao”})

    If nResp == 2

    lOk := .F.

    Exit

    Endif

    :

    Endif

    EndDo

    If lOk

    // Faz o processamento com o arquivo…

    Endif

    // Finaliza

    If Select(“SA1”)

    dbCloseArea()

    Endif

    ChkFile(“SA1”,.F.)

    Return