Antigo DBU 32 bits COMPILADO COM HARBOUR

[Augusto]

Pessoal, há muitos anos não passo por aqui mas agora preciso contar com a costumeira atenção que sempre tive aqui no forum.

Como a maioria deve saber, o CLIPPER 53 no seu pacote original, contém o FONTE completo do DBU.
Essa ferramenta, não parece, mas para mim (acredito que para muitos outros) ainda é muito ÚTIL e não encontro nada na WEB que substitua a altura para uso em 64 bits (Win10)
Ok... eu sei! Existe um monte de alternativas mas nada se compara a ela, principalmente porque ela permite ser usada na linha de comando (PROMPT) e esse é o grande e mais importante "lance"!!

Sendo assim, vai a pergunta:
Algum de Vcs que mexem com o HARBOUR já teve a experiência de compilar ela em HARBOUR para poder ser usada no PROMPT do WIN10?

Aguardo um retorno e desde já agradeço a atenção!!

[Toledo]

Olá Augusto, no link abaixo você poderá copiar o DBU compilado para ser usado em 32 ou 64 bits:

DBU 32 bits

Abraços

[Augusto]

Olá Toledo!

Obrigado pelo pronto retorno.
Espero que seu NATAL tenha sido com muita PAZ e SAÚDE! O mesmo desejo para o ano que se inicia!

Sobre o DBU 32, realmente é a solução mas existe um "porém"... As tabelas da aplicação que preciso fazer manutenção tem extensão ".ESC" e não ".DBF" (essa extensão é apenas uma personalização para o cliente) e o DBU32, ao contrário do antigo não aceita abrir tabelas com essa ou outras extensões o mesmo acontecendo para os INDICES ".NTX"...
Existe alguma solução para isso ou terei que renomear tudo para .DBF ?

Aguardo seu retorno!
Obrigado!

[Toledo]

No caso deste DBU 32 bits, os arquivos de dados terão que ter a extensão DBF mesmo e os arquivos de índices tem que ter a extensão NTX.

FELIZ 2021 pra você também.

Abraços

[Augusto]

Então amigo Toledo...

Renomear tudo para DBF... sem problemas, mas renomear NTX para CDX não vai funcionar... concorda??

Dá uma olhada na IMAGEM anexa...

Abraços

[Kapiaba]

http://fivewin.com.br/index.php?/topic/ ... ent-259316

[Augusto]

Olá Kapiaba!

Então... Já é "meio" caminho andado! Esse pelo menos abre indices NTX!

Valeu pela ajuda!!

[Kapiaba]

Bom dia Augusto. Não vejo motivos para você continuar com indices velhos e lento como o .NTX, para passar a .CDX, é muito simples e não necessita nenhuma proeza.

Abs.

[Jairo Maia]

Olá Pessoal,

Não vejo motivos para você continuar com indices velhos e lento como o .NTX

Em Harbour, a partir da versão 3.2 não existe o velho RDD DBF/NTX. O Harbour foi adaptado para tratar esse RDD da mesma forma que o RDD DBF/CDX, incluindo o uso de "bags".

Assim, sistemas que forem atualizados para Harbour e usam o antigo DBF/NTX, são automaticamente adaptados para a mesma técnica do DBF/CDX, e de NTX fica apenas a extensão, não necessitando se preocupar com isso.

[Augusto]

Jairo Melo...

A aplicação em questão tem mais de 15 ANOS!! Um time que está ganhando de goleada!

Já migrei para o HARBOUR mas (por opção) não alterei os índices para CDX assim como mantive a extensão das tabelas com extensão ESC ao invés de DBF afinal, quanto menos mexer melhor, ainda mais quando o DB me permitia essa peculiaridade.

Minha questão era apenas no DBU e já, mesmo que parcialmente, resolvi...

Abraços!

[microvolution]

Assim, sistemas que forem atualizados para Harbour e usam o antigo DBF/NTX, são automaticamente adaptados para a mesma técnica do DBF/CDX, e de NTX fica apenas a extensão, não necessitando se preocupar com isso.

AH! que bom! estava aqui já há alguns anos pensando em migrar de .NTX para .CDX... ou para algum tipo de SQL...
de acordo com sua explicação. Não necessita mais né?
Então Jairo, precisa de alguma função/procedure no início do aplicativo na função MAIN() para que essa adaptação/conversão funcione, ou já é tudo automático?

Bom dia Augusto. Não vejo motivos para você continuar com indices velhos e lento como o .NTX, para passar a .CDX, é muito simples e não necessita nenhuma proeza.

Então nobre professora Kapiaba, segundo o Jairo, então não precisa mudar de .NTX para .CDX...

Resumindo, tanto faz em .NTX quanto em .CDX para o harbour 3.2 é a mesma coisa?

[Kapiaba]

Boa noite, descoheço esta técnica que o sr. Jairo explanou, seria interessante ele mostrar isso na prática.

Então, no Harbout 3.2, não é preciso informar mais o RDD a ser usado? Como no exemplo, abaixo?

Código: Selecionar todos

ANNOUNCE RDDSYS
REQUEST DBFCDX, DBFFPT

   RDDSETDEFAULT("DBFCDX")

O Harbour assume automático o .NTX, como se fosse .CDX? É isso mister Jairo?

Obg. abs.

[Jairo Maia]

Então, no Harbout 3.2, não é preciso informar mais o RDD a ser usado? Como no exemplo, abaixo?

Coloquei na mensagem que foi a partir da versão 3.2, mas na verdade foi a partir da versão 2.1. Apenas lembrando que se você não indica o RDD, o Harbour (assim como o Clipper fazia), assume o RDD DBF/NTX. Um sistema que usa DBF/CDX precisa manter a indicação do RDD, pois as extensões serão CDX e FTP para arquivos memos, enquanto no RDD DBF/NTX as extensões assumidas são NTX e DBT para arquivos memos. Entre os RDDs DBF/CDX e DBF/NTX em harbour a partir da versão 2.1 essa é a única diferença, ou seja: apenas as extensões.

O Harbour assume automático o .NTX, como se fosse .CDX? É isso mister Jairo?

Isso mesmo. E pode usar todos os recursos que se usa no DBF/CDX, tais como as Tags para criar todos os índices em um único arquivo (bag).

[microvolution]

Tags para criar todos os índices em um único arquivo (bag).

tem como postar um exemplo usando .NTX com mais recursos?

[Jairo Maia]

seria interessante ele mostrar isso na prática.

tem como postar um exemplo usando .NTX com mais recursos?

Olá Pessoal,

Salve o exemplo abaixo numa pasta vazia e compile com: Hbmk2 nome_do_exemplo

Ao rodar o exemplo perceba que o primeiro Browse mostra em ordem crescente por FirstName (indice 1), e depois em ordem crescente por City (índice 3), ou seja, assim como pode ser feito em CDX, em NTX usando Harbour também pode, ou MELHOR DIZENDO: DBF/NTX não existe mais em Harbour.

Verifique na pasta que foi criado um DBF com nome CUSTOMER.DBF e apenas um arquivo índice chamado Customer.ntx que contém os 3 índices do exemplo.

PS: Declarei o RDD apenas por clareza, se omitir, como já foi dito será assumido DBF/NTX por padrão.

Código: Selecionar todos

REQUEST DBFNTX

Procedure Main()
       
 RddSetDefault( "DBFNTX" )
       
 aEstru:={;
         { "FirstName", "C", 20, 0 },;
         { "LastName" , "C", 20, 0 },;
         { "City"     , "C", 20, 0 };
         }
 DbCreate( "CUSTOMER", aEstru )
       
 USE Customer
       
 For x:= 1 To 10
  Append Blank
  Replace FirstName With "Fisrt Name " + Hb_NToS( 10-x )
  Replace LastName With Hb_NToS( x+20 ) + " Last Name"
  Replace City With "Cidade " + Hb_NToS( x+30 )
 Next

 INDEX ON Upper(FirstName) TAG FName TO Customer
 INDEX ON Upper(LastName)  TAG LName TO Customer
 INDEX ON Upper(City)      TAG City  TO Customer
       
 Clear Screen
       
 DbGoBottom()
 DbSetOrder( 1 )          // Abrindo Indice Fname usando a Ordem do Indice (índice 1=FistName)
 Browse()

 DbGoBottom()
 DbSetOrder( "City" )    // Abrindo Indice City usando o Nome do Indice (índice 3=City)
 Browse()

Return Nil