Migrar do Clipper .DBT para .FPT no Harbour

[Paulo Simas]

Pessoal, meu sistema está convertido e funcionando muito bem em Harbour.
Só tenho uma pendência: Não consigo migrar conteúdo de arquivo .DBT DO Clipper para .FPT no harbour.

[Jairo Maia]

Olá Paulo,

Use esse utilitário: MudaDBT

[JoséQuintas]

Sinceramente não lembro mais.
Se não me engano, no Clipper usei assim:

Código: Selecionar todos

USE (arquivo) VIA DBFNTX
COPY TO (arquivo2) VIA SIXCDX

[Paulo Simas]

Pessoal peço desculpas por ainda não ter respondido!

Esse executável é para processador 32, preciso de uma solução de 64 para incluir no meu instalador/atualizador de versão, ou seja, rodar em 32/64.

Estou fazendo mais alguns teste e assim que tiver um resultado envio como resolvi.

Um abraço a todos!

[Jairo Maia]

Olá Paulo,

Mas o José já passou como fazer. Veja um exemplo usando a dica dele:

Código: Selecionar todos

/*
  Exemplo de uso: DBF2FPT ArquivoNtx
  
  Resultado: Será criado os arquivos com mesmo nome de ArquivoNtx acrescido com _CDX.
             Exemplo: Clientes_CDX.DBF
                      Clientes_CDX.FPT
                      
  Depois renomei para o nome original.
*/

Request DBFNTX
Request DBFCDX

Function Main( cArqDbf )

 Use ( cArqDbf ) NEW VIA "DBFNTX"
 
 Hb_Alert( "Alias => "+Alias() + ";;RDD => " + RddName() )

 aDbStruct := DbStruct()
 DbCreate( cArqDbf+"_CDX", aDbStruct, "DBFCDX" )

 COPY TO ( cArqDbf+"_CDX" ) VIA "DBFCDX"

 Use ( cArqDbf+"_CDX" ) NEW VIA "DBFCDX"
 
 Hb_Alert( "Alias => "+Alias() + ";;RDD => " + RddName() )
 
 Browse()

Return Nil

[JoséQuintas]

Esqueci de comentar:
A dúvida é sobre Harbour, e não sobre Clipper, está no tópico errado.

O exemplo que eu dei é porque fazia assim no Clipper.
Como nunca precisei no Harbour, não posso dar certeza se é igual ou não.
Mas é só compilar uma rotina e já descobre, caso não tenha resposta aqui.

No Harbour também aceita indicar SIXCDX, por questões de conversão do Clipper pra Harbour.

Clipper é 16 bits, apesar de funcionar no Windows 32 bits.
E Harbour 32 bits funciona no Windows 64 bits.
É só comentário, porque isso confunde mesmo.

[Paulo Simas]

Migração funcionou perfeita em 32. O ideal seria rodar em 64 mas funcionou bem em 32..

[Jairo Maia]

Olá Paulo,

O ideal seria rodar em 64 mas funcionou bem em 32.

Ué... Qualquer sistema compilado em Harbour roda normalmente em 64 bits de vento em popa...

[Paulo Simas]

Grato pelas dicas, problema resolvido.
Um abraço...

[Paulo Simas]

Jairo, a transformação de DBT para FPT é realizada pelo programa de Instalação/Atualização dos meus sistemas.

Se o programa "MUDADBT.EXE" funcionasse em 64 seria melhor, mas de qualquer maneira está resolvido.

Grato pela atenção e um grande abraço!