Página 1 de 2
Antigo DBU 32 bits COMPILADO COM HARBOUR
Enviado: 30 Dez 2020 01:25
por 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!!
Antigo DBU 32 bits COMPILADO COM HARBOUR
Enviado: 30 Dez 2020 05:19
por 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
Antigo DBU 32 bits COMPILADO COM HARBOUR
Enviado: 30 Dez 2020 12:28
por 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!
Antigo DBU 32 bits COMPILADO COM HARBOUR
Enviado: 30 Dez 2020 13:12
por 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
Antigo DBU 32 bits COMPILADO COM HARBOUR
Enviado: 30 Dez 2020 13:53
por 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
Antigo DBU 32 bits COMPILADO COM HARBOUR
Enviado: 30 Dez 2020 18:30
por Kapiaba
Antigo DBU 32 bits COMPILADO COM HARBOUR
Enviado: 30 Dez 2020 20:41
por Augusto
Olá Kapiaba!
Então... Já é "meio" caminho andado! Esse pelo menos abre indices NTX!
Valeu pela ajuda!!
Antigo DBU 32 bits COMPILADO COM HARBOUR
Enviado: 31 Dez 2020 08:12
por 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.
Antigo DBU 32 bits COMPILADO COM HARBOUR
Enviado: 31 Dez 2020 08:48
por Jairo Maia
Olá Pessoal,
Kapiaba escreveu: 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.
Antigo DBU 32 bits COMPILADO COM HARBOUR
Enviado: 31 Dez 2020 13:24
por 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!
Antigo DBU 32 bits COMPILADO COM HARBOUR
Enviado: 31 Dez 2020 14:50
por microvolution
Jairo Maia escreveu: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?
Kapiaba escreveu: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?
Antigo DBU 32 bits COMPILADO COM HARBOUR
Enviado: 01 Jan 2021 01:07
por 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.
Antigo DBU 32 bits COMPILADO COM HARBOUR
Enviado: 01 Jan 2021 19:36
por Jairo Maia
Kapiaba escreveu: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.
Kapiaba escreveu: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).
Antigo DBU 32 bits COMPILADO COM HARBOUR
Enviado: 02 Jan 2021 14:46
por microvolution
Jairo Maia escreveu:Tags para criar todos os índices em um único arquivo (bag).
tem como postar um exemplo usando .NTX com mais recursos?
Antigo DBU 32 bits COMPILADO COM HARBOUR
Enviado: 02 Jan 2021 18:21
por Jairo Maia
Kapiaba escreveu:seria interessante ele mostrar isso na prática.
microvolution escreveu: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