TOTVSTEC

Árvore de páginas

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
  • Sem rótulos