Função: ChkFile - Verifica existência de arquivo
Esta função abre um arquivo do sistema, em modo exclusivo ou compartilhado. Checa a existência do arquivo bem como dos índices, criando-os caso não existam.
ChkFile - Verifica existência de arquivo ( [ cAlias], [ lExcl], [ cNewAlias], [ bCreateArq], [ uPar5], [ uPar6], [ uPar7], [ cSX2], [ lIndexOpen] ) --> lRet
Nome | Tipo | Descrição | Obrigatório | Referência |
cAlias | Caracter | Alias do arquivo a ser aberto. | ||
lExcl | Lógico | Se for informado .T. o arquivo será aberto em modo exclusivo, caso contrário o arquivo será aberto em modo compartilhado. Default é .F. | ||
cNewAlias | Caracter | Novo alias do arquivo. | ||
bCreateArq | Bloco de código | Bloco de código a ser executado antes da criação da tabela, caso ela ainda não exista. | ||
uPar5 | Qualquer | Não utilizado. | ||
uPar6 | Qualquer | Não utilizado. | ||
uPar7 | Qualquer | Não utilizado | ||
cSX2 | Caracter | Alias da tabela SX2 quando o nome que está sendo utilizado for diferente de "SX2". | ||
lIndexOpen | Lógico | Determina se abre o índice da tabela. Default é .T. |
-
lRet(logico)
- Retorna verdadeiro (.T.) caso tenha conseguido abrir o arquivo e falso (.F.) caso contrário.
Observação:
- Sempre que desejar mudar o modo de acesso do arquivo (de compartilhado para exclusivo ou vice-versa) feche-o antes de chamae a função ChkFile.
- Esta função sempre retorna verdadeiro se o arquivo já estiver aberto;
- Esta função sempre retorna falso se o alias não tiver sido informado.
// 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 EndifEndDoIf lOk // Faz o processamento com o arquivo...Endif// FinalizaIf Select("SA1") dbCloseArea()EndifChkFile("SA1",.F.)Return
Protheus 10
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas