GetDBExtension
Retorna a extensão em uso para as tabelas acessadas através do driver ou RDD "DBFCDX"
Sintaxe
GetDBExtension()
Retorno
Nome | Tipo | Descrição |
---|---|---|
cRet | caractere | Retorna a extensão dos arquivos em uso. |
Observações
- A função irá ler os valores que estão nas chaves LocalDBExtension e LocalFiles na seção do ambiente no arquivo ini do Application Server.
- O valor padrão da chave LocalDBExtension, para quando a mesma não for informada, será ".dtc" se LocalFiles tiver valor CTree e for um Protheus 8 ou superior; caso contrário, será ".dbf".
- Se o valor em LocalDBExtension não começar com "." (ponto) e não tiver pelo menos 2 caracteres (além do ponto), o valor retornado será ".dbf".
- Em builds geradas a partir de 07/05/2018, a validação da configuração foi flexibilizada para permitir extensões com tamanho a partor de 3 caracteres contando com o ".", e caso a extensão informada não for válida, ela passa a ser a extensão default do driver informado na configuração LocalFiles.
- Para o Driver ADS, a extensão default é ".dbf", para o Driver CTREE a extensão default é ".dtc", e para os Drivers SQLITE e/ou SQLITECLI, a extensão default é ".db".
Exemplos
user function test1() Local cLocal := "" Local cDBExt := "" Local cRet := "" if IsSrvUnix() .Or. IsSrv64() cLocal := GetSrvProfString( "LocalFiles", "CTREE" ) else cLocal := GetSrvProfString( "LocalFiles", "ADS" ) endif cLocal := Upper( cLocal ) if cLocal == "CTREE" cDBExt := GetSrvProfString( "LocalDBExtension", ".dtc" ) else cDBExt := GetSrvProfString( "LocalDBExtension", ".dbf" ) endif cDBExt := Lower( cDBExt ) if ( Len( cDBExt ) < 3 ) .Or. ( Left( cDBExt, 1 ) != "." ) cDBExt := ".dbf" endif cRet := GetDBExtension() if cRet == cDBExt conout( "Valores iguais: " + cRet ) else conout( "Valores diferentes" ) conout( "Esperado: " + cDBExt ) conout( "Retornado: " + cRet ) endif return
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas