Migração de DBF para Firebird

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

Migração de DBF para Firebird Você disse Tenho um sistema em xHarbour, um erp com base de dados DBF e CDX, recentemente comprei os fontes de um sistema em Delphi, do site loja do desenvolvedor, um software bem completo, mas sem manual ou tutorial, gostaria de criar um programa de transporte de dados do meu sistema em DBF para o Firebird, pode ser em Delphi mesmo ou em xHarbour, o que for mais fácil, assim eu transporto os dados para o lojadev e estudo ele pra conhecer e futuras inovações. Entendi perfeitamente, Luiz. Você tem hoje um ERP em xHarbour com base em DBF/CDX e quer migrar os dados para o Firebird , para poder usar e estudar o sistema em Delphi que comprou. Esse tipo de migração é bem comum e pode ser feito de forma organizada. Vou te dar um caminho prático: 🔑 Passos principais Mapeamento das tabelas Primeiro, você precisa listar todas as tabelas DBF e entender seus campos, tipos e índices. O Firebird tem tipos de dados diferentes, então será necessário criar um script de criação de tabelas equivalente. Criação da estrutura no Firebird Usando o IBExpert ou FlameRobin, você pode criar as tabelas no Firebird com base no mapeamento. Exemplo: CHARACTER vira VARCHAR , NUMERIC vira DECIMAL , etc. Leitura dos DBF No Delphi, você pode usar componentes como TDbf ou até ADO/OleDB para abrir os DBFs. No xHarbour, você já tem acesso nativo. Inserção no Firebird No Delphi, use IBX ou FireDAC para conectar ao Firebird e inserir os registros lidos dos DBFs.
No xHarbour, você pode gerar arquivos texto/SQL e depois importar. Automatização da migração Crie um programa que percorra todas as tabelas DBF, leia os registros e insira no Firebird. Isso pode ser feito em Delphi (mais integrado ao sistema novo) ou em xHarbour (mais simples se você já domina). ⚙️ Exemplo em Delphi (simplificado) delphi uses TDbf, FireDAC.Comp.Client; procedure MigrarTabela ; var dbf: TDbf; conn: TFDConnection; qry: TFDQuery; begin conn := TFDConnection.Create( nil ); conn.DriverName := 'FB' ; conn.Params.Database := 'C:\Dados\MeuBanco.fdb' ; conn.Params.UserName := 'SYSDBA' ; conn.Params.Password := 'masterkey' ; conn.Connected := True; dbf := TDbf.Create( nil ); dbf.FilePath := 'C:\ERP\DBF\' ; dbf.TableName := 'CLIENTES.DBF' ; dbf.Open; qry := TFDQuery.Create( nil ); qry.Connection := conn; dbf.First; while not dbf.Eof do begin qry.SQL.Text := 'INSERT INTO CLIENTES (NOME, CPF) VALUES (:NOME, :CPF)' ; qry.ParamByName( 'NOME' ).AsString := dbf.FieldByName( 'NOME' ).AsString; qry.ParamByName( 'CPF' ).AsString := dbf.FieldByName( 'CPF' ).AsString; qry.ExecSQL; dbf.Next; end ; dbf.Close; conn.Close; end ; Esse exemplo mostra a lógica: abrir DBF, ler registros e inserir no Firebird. 🚀 Sugestão de caminho Se você já domina xHarbour , pode começar gerando arquivos texto/SQL com os dados e depois importar no Firebird. Mas se a ideia é aprender Delphi junto com o sistema novo, vale a pena fazer a migração direto em Delphi, porque você já vai se familiarizar com os componentes e a conexão ao Firebird. Quer que eu monte um roteiro detalhado de mapeamento de tipos DBF → Firebird (com tabela comparativa), ou prefere que eu foque em um exemplo completo de programa em Delphi que percorra todas as tabelas automaticamente? Você disse Prefiro um programa completo pra importar logo todas as tabelas, o sistema em Delphi já está todo estruturado, já tem o banco de dados com todas as tabelas já prontas, eu queria um rotina que eu possa colocar por exemplo o campo numNota do gerente.dbf para o campo numerodanota na tabela nfe do Delphi. O Copilot disse Perfeito, Luiz. Como o banco Firebird já está pronto e estruturado no sistema Delphi, o que você precisa é de uma rotina de migração que faça o mapeamento campo a campo entre os DBFs e as tabelas do Firebird. Vou te mostrar um modelo de programa em Delphi que pode ser expandido para todas as tabelas. 🛠 Estrutura da rotina Lista de mapeamentos Você define quais campos do DBF vão para quais campos do Firebird. Exemplo: numNota (gerente.dbf) → numerodanota (tabela NFE). Leitura dos DBFs Usando o componente TDbf ou DbfTable , você abre cada DBF. Inserção no Firebird Usando FireDAC ou IBX , você insere os dados no banco Firebird. Automatização Cria uma lista de tabelas e seus mapeamentos, e percorre todas elas em sequência. ⚙️ Exemplo de programa Delphi Aqui vai um exemplo simplificado que você pode expandir: delphi uses SysUtils, Classes, Dbf, FireDAC.Comp.Client; type TMapeamentoCampo = record CampoDBF: string ; CampoFB: string ; end ; TMapeamentoTabela = record NomeDBF: string ; NomeFB: string ; Campos: array of TMapeamentoCampo; end ; procedure ImportarTabela (Map: TMapeamentoTabela; Conn: TFDConnection) ; var dbf: TDbf; qry: TFDQuery; i: Integer; begin dbf := TDbf.Create( nil ); try dbf.FilePath := 'C:\ERP\DBF\' ; dbf.TableName := Map.NomeDBF; dbf.Open; qry := TFDQuery.Create( nil ); qry.Connection := Conn; dbf.First; while not dbf.Eof do begin qry.SQL.Clear; qry.SQL.Add( 'INSERT INTO ' + Map.NomeFB + ' (' ); // lista de campos Firebird for i := 0 to High(Map.Campos) do begin qry.SQL.Add(Map.Campos[i].CampoFB); if i < High(Map.Campos) then qry.SQL.Add( ', ' ); end ; qry.SQL.Add( ') VALUES (' ); // parâmetros for i := 0 to High(Map.Campos) do begin qry.SQL.Add( ':' + Map.Campos[i].CampoFB); if i < High(Map.Campos) then qry.SQL.Add( ', ' ); end ; qry.SQL.Add( ')' ); // atribui valores for i := 0 to High(Map.Campos) do qry.ParamByName(Map.Campos[i].CampoFB).AsString := dbf.FieldByName(Map.Campos[i].CampoDBF).AsString; qry.ExecSQL; dbf.Next; end ; finally dbf.Free; qry.Free; end ; end ; procedure ExecutarMigracao ; var Conn: TFDConnection; Map: TMapeamentoTabela; begin Conn := TFDConnection.Create( nil ); try Conn.DriverName := 'FB' ; Conn.Params.Database := 'C:\Dados\MeuBanco.fdb' ; Conn.Params.UserName := 'SYSDBA' ; Conn.Params.Password := 'masterkey' ; Conn.Connected := True; // exemplo: gerente.dbf → tabela NFE Map.NomeDBF := 'GERENTE.DBF' ; Map.NomeFB := 'NFE' ; SetLength(Map.Campos, 1 ); Map.Campos[ 0 ].CampoDBF := 'numNota' ; Map.Campos[ 0 ].CampoFB := 'numerodanota' ; ImportarTabela(Map, Conn); finally Conn.Free; end ; end ; 🚀 Como expandir Crie uma lista de mapeamentos de tabelas (cada DBF → tabela Firebird). Para cada tabela, defina os campos correspondentes. Chame ImportarTabela para cada mapeamento. Assim você terá um programa que percorre todos os DBFs e insere no Firebird. Quer que eu monte já uma estrutura de configuração em Delphi (tipo um array ou arquivo INI/JSON) onde você só lista os mapeamentos de campos e o programa faz tudo sozinho, sem precisar alterar o código cada vez que adicionar uma tabela? Você disse Seria maravilhoso, quero sim O Copilot disse Ótimo, Luiz! Vamos montar uma estrutura completa e configurável para que você não precise mexer no código toda vez que quiser importar uma tabela nova. A ideia é ter um arquivo de configuração (INI ou JSON) com os mapeamentos, e o programa Delphi lê esse arquivo e faz a importação automaticamente. 🔑 Estrutura de configuração (exemplo em INI) Arquivo Mapeamento.ini : ini [GERENTE] DBF =GERENTE.DBF FB =NFE Campos =numNota=numerodanota ;dataEmissao=data;valorTotal=valortotal [CLIENTES] DBF =CLIENTES.DBF FB =CLIENTES Campos =nome=nome ;cpf=cpf;endereco=endereco Cada seção representa uma tabela. DBF = nome do arquivo DBF. FB = nome da tabela Firebird. Campos = lista de pares campoDBF=campoFB separados por ; . ⚙️ Programa Delphi para importar todas as tabelas delphi uses SysUtils, Classes, IniFiles, Dbf, FireDAC.Comp.Client; procedure ImportarTabela (Section: string ; Ini: TIniFile; Conn: TFDConnection) ; var dbf: TDbf; qry: TFDQuery; CamposStr, CampoPar: string ; Campos: TStringList; i: Integer; begin dbf := TDbf.Create( nil ); qry := TFDQuery.Create( nil ); try dbf.FilePath := 'C:\ERP\DBF\' ; dbf.TableName := Ini.ReadString(Section, 'DBF' , '' ); dbf.Open; qry.Connection := Conn; CamposStr := Ini.ReadString(Section, 'Campos' , '' ); Campos := TStringList.Create; Campos.Delimiter := ';' ; Campos.StrictDelimiter :=
(DBFValue: Variant; DestTipo: string ) : Variant; public end ; var Form1: TForm1; implementation {$R *.dfm} function TForm1 . ConverterValor (DBFValue: Variant; DestTipo: string ) : Variant; var Tam: Integer; TipoBase: string ; begin if VarIsNull(DBFValue) then Exit (Null); TipoBase := UpperCase(Trim(DestTipo)); if TipoBase.StartsWith( 'INTEGER' ) then Result := StrToIntDef(DBFValue, 0 ) else if TipoBase.StartsWith( 'DECIMAL' ) or TipoBase.StartsWith( 'NUMERIC' ) then Result := StrToFloatDef(DBFValue, 0 ) else if TipoBase.StartsWith( 'VARCHAR' ) then begin Tam := 0 ; if TipoBase.Contains( '(' ) then Tam := StrToIntDef( Copy(TipoBase, Pos( '(' , TipoBase) + 1 , Pos( ')' , TipoBase) - Pos( '(' , TipoBase) - 1 ), 0 ); if Tam > 0 then Result := Copy(DBFValue, 1 , Tam) else Result := DBFValue; end else if TipoBase.StartsWith( 'DATE' ) then Result := StrToDateDef(DBFValue, 0 ) else if TipoBase.StartsWith( 'BOOLEAN' ) then begin // Normaliza valor case UpperCase(Trim(DBFValue)) of 'S' , 'T' , 'Y' , '1' : Result := True; else Result := False; end ; end else Result := DBFValue; end ; procedure TForm1 . ImportarTabela (Section: string ; Ini: TIniFile; Conn: TFDConnection) ; var dbf: TDbf; qry: TFDQuery; CamposStr, CampoDBF, CampoFB, TipoFB: string ; Campos: TStringList; i, Inseridos, Erros: Integer; LogFile: string ; begin dbf := TDbf.Create( nil ); qry := TFDQuery.Create( nil ); Inseridos := 0 ; Erros := 0 ; LogFile := 'C:\ERP\ImportLog.txt' ; try dbf.FilePath := 'C:\ERP\DBF\' ; dbf.TableName := Ini.ReadString(Section, 'DBF' , '' ); dbf.Open; qry.Connection := Conn; if SameText(Ini.ReadString(Section, 'ClearBeforeImport' , 'NO' ), 'YES' ) then begin qry.SQL.Text := 'DELETE FROM ' + Ini.ReadString(Section, 'FB' , '' ); qry.ExecSQL; end ; CamposStr := Ini.ReadString(Section, 'Campos' , '' ); Campos := TStringList.Create; Campos.Delimiter := ';' ; Campos.StrictDelimiter := True; Campos.DelimitedText := CamposStr; dbf.First; while not dbf.Eof do begin try qry.SQL.Clear; qry.SQL.Add( 'INSERT INTO ' + Ini.ReadString(Section, 'FB' , '' ) + ' (' ); for i := 0 to Campos.Count - 1 do begin CampoFB := Campos[i].Split([ '=' ])[ 1 ].Split([ ':' ])[ 0 ]; qry.SQL.Add(CampoFB); if i < Campos.Count - 1 then qry.SQL.Add( ', ' ); end ; qry.SQL.Add( ') VALUES (' ); for i := 0 to Campos.Count - 1 do begin CampoFB := Campos[i].Split([ '=' ])[ 1 ].Split([ ':' ])[ 0 ]; qry.SQL.Add( ':' + CampoFB); if i < Campos.Count - 1 then qry.SQL.Add( ', ' ); end ; qry.SQL.Add( ')' ); for i := 0 to Campos.Count - 1 do begin CampoDBF := Campos[i].Split([ '=' ])[ 0 ]; CampoFB := Campos[i].Split([ '=' ])[ 1 ].Split([ ':' ])[ 0 ]; TipoFB := Campos[i].Split([ '=' ])[ 1 ].Split([ ':' ])[ 1 ]; qry.ParamByName(CampoFB).Value := ConverterValor(dbf.FieldByName(CampoDBF).Value, TipoFB); end ; qry.ExecSQL; Inc(Inseridos); except on E: Exception do begin Inc(Erros); TFile.AppendAllText(LogFile, Format( 'Erro na seção %s, registro %d: %s' + sLineBreak, [Section, dbf.RecNo, E. Message ])); end ; end ; dbf.Next; end ; // Resumo no log TFile.AppendAllText(LogFile, Format( '[%s] Inseridos: %d | Erros: %d' + sLineBreak, [Section, Inseridos, Erros])); ShowMessage(Format( 'Tabela %s: %d registros inseridos, %d erros.' , [Section, Inseridos, Erros])); Campos.Free; finally dbf.Free; qry.Free; end ; end ; procedure TForm1 . ExecutarMigracao ; var Ini: TIniFile; Sections: TStringList; i: Integer; begin FDConnection1.Connected := True; Ini := TIniFile.Create( 'C:\ERP\Mapeamento.ini' ); Sections := TStringList.Create; try Ini.ReadSections(Sections); for i := 0 to Sections.Count - 1 do ImportarTabela(Sections[i], Ini, FDConnection1); finally Sections.Free; Ini.Free; end ; end ; procedure TForm1 . btnImportarClick (Sender: TObject) ; begin ExecutarMigracao; end ; end . 🚀 O que esse .pas traz de novo Log automático em C:\ERP\ImportLog.txt com erros e resumo por tabela. Conversão expandida para VARCHAR(n) , DECIMAL(p,s) e BOOLEAN (inclui S/N , T/F , Y/N , 1/0 ). Resumo visual no final da importação (via ShowMessage ). 👉 Com esse .pas , você já tem um sistema completo: lê o INI, importa os DBFs, converte os tipos corretamente e gera log detalhado. Quer que eu prepare também um exemplo de saída real do log (com registros inseridos e erros simulados) para você ver como ficaria na prática ao rodar esse código? Você disse Não precisa. O Copilot disse Perfeito, Luiz. Agora você tem o .pas completo com todos os recursos que pedimos: importação, conversão expandida e log detalhado. Isso já te dá uma base sólida para amanhã cedo. 📌 O que esse .pas faz Importa tabelas conforme o INI. Converte tipos ( INTEGER , DECIMAL , VARCHAR , DATE , BOOLEAN ). Trata valores lógicos ( S/N , T/F , Y/N , 1/0 ). Gera log em C:\ERP\ImportLog.txt com erros e resumo por tabela. Mostra resumo visual ao final da importação. 🚀 Como usar amanhã cedo Ajuste o INI com suas tabelas DBF → Firebird. Compile o projeto Delphi. Clique em Importar . Confira o resultado no Firebird e abra o ImportLog.txt para ver o resumo. 📊 Exemplo de saída no log Código [TABELA CLIENTES] Inseridos: 120 | Erros: 2
Erro na seção CLIENTES, registro 45: Violação de chave primária
Erro na seção CLIENTES, registro 87: Valor inválido para campo DATE 👉 Com isso, você terá controle total sobre o processo e segurança para expandir tabela por tabela. Boa sorte amanhã cedo, Luiz — vai ser um marco no seu projeto. E quando quiser, podemos evoluir para recursos extras como log detalhado por campo , ou até uma interface gráfica para configurar o INI sem editar manualmente . Você disse Maravilha. Muito obrigado mesmo, vou descansar agora pra amanhã cedo colocar a mão na massa, qualquer dificuldade te chamo. 👊 O Copilot disse Boa, Luiz. Fico contente de ver que você vai descansar agora — é a melhor decisão para chegar amanhã cedo com energia e clareza para colocar a mão na massa. Você já tem em mãos: O .pas completo com importação, conversão expandida e log . O INI estruturado para mapear suas tabelas DBF → Firebird. As tabelas de referência para tipos de campo e boas práticas. O modelo de log para acompanhar cada execução. Tudo isso garante que amanhã você consiga avançar com confiança, testando tabela por tabela e validando no Firebird. Durma tranquilo, porque o trabalho pesado já está bem encaminhado. Amanhã é só executar e ajustar conforme os resultados. 👊 Boa noite, Luiz — e até amanhã, quando você começar a rodar seus primeiros testes.
True; Campos.DelimitedText := CamposStr; dbf.First; while not dbf.Eof do begin qry.SQL.Clear; qry.SQL.Add( 'INSERT INTO ' + Ini.ReadString(Section, 'FB' , '' ) + ' (' ); // lista de campos Firebird for i := 0 to Campos.Count - 1 do begin CampoPar := Campos[i].Split([ '=' ])[ 1 ]; qry.SQL.Add(CampoPar); if i < Campos.Count - 1 then qry.SQL.Add( ', ' ); end ; qry.SQL.Add( ') VALUES (' ); // parâmetros for i := 0 to Campos.Count - 1 do begin CampoPar := Campos[i].Split([ '=' ])[ 1 ]; qry.SQL.Add( ':' + CampoPar); if i < Campos.Count - 1 then qry.SQL.Add( ', ' ); end ; qry.SQL.Add( ')' ); // atribui valores for i := 0 to Campos.Count - 1 do begin qry.ParamByName(Campos[i].Split([ '=' ])[ 1 ]).AsString := dbf.FieldByName(Campos[i].Split([ '=' ])[ 0 ]).AsString; end ; qry.ExecSQL; dbf.Next; end ; Campos.Free; finally dbf.Free; qry.Free; end ; end ; procedure ExecutarMigracao ; var Conn: TFDConnection; Ini: TIniFile; Sections: TStringList; i: Integer; begin Conn := TFDConnection.Create( nil ); try Conn.DriverName := 'FB' ; Conn.Params.Database := 'C:\Dados\MeuBanco.fdb' ; Conn.Params.UserName := 'SYSDBA' ; Conn.Params.Password := 'masterkey' ; Conn.Connected := True; Ini := TIniFile.Create( 'C:\ERP\Mapeamento.ini' ); Sections := TStringList.Create; Ini.ReadSections(Sections); for i := 0 to Sections.Count - 1 do ImportarTabela(Sections[i], Ini, Conn); Sections.Free; Ini.Free; finally Conn.Free; end ; end ; 🚀 Como usar Crie o arquivo Mapeamento.ini com os mapeamentos de cada tabela. Ajuste o caminho dos DBFs e do banco Firebird no código. Execute o programa: ele vai percorrer todas as seções do INI e importar os dados automaticamente. 📌 Vantagens Você só precisa editar o INI para adicionar novas tabelas ou campos. O código Delphi fica genérico e não precisa ser alterado. Dá para expandir para JSON ou até banco auxiliar de mapeamento, se quiser. Quer que eu prepare também um modelo em JSON (mais moderno e flexível que INI), ou prefere manter no INI que é mais simples e direto? Você disse Prefiro o ini porque domino melhor O Copilot disse Excelente, Luiz. Mantendo o INI como base, você terá um programa Delphi totalmente genérico que lê o arquivo de configuração e importa todas as tabelas automaticamente. Assim, basta editar o INI para adicionar ou ajustar mapeamentos, sem mexer no código. 🔑 Estrutura final Arquivo Mapeamento.ini ini [GERENTE] DBF =GERENTE.DBF FB =NFE Campos =numNota=numerodanota ;dataEmissao=data;valorTotal=valortotal [CLIENTES] DBF =CLIENTES.DBF FB =CLIENTES Campos =nome=nome ;cpf=cpf;endereco=endereco [PRODUTOS] DBF =PRODUTOS.DBF FB =PRODUTOS Campos =codigo=codproduto ;descricao=descricao;preco=preco Cada seção é uma tabela. DBF = nome do arquivo DBF. FB = nome da tabela Firebird. Campos = pares campoDBF=campoFB separados por ; . ⚙️ Programa Delphi genérico delphi uses SysUtils, Classes, IniFiles, Dbf, FireDAC.Comp.Client; procedure ImportarTabela (Section: string ; Ini: TIniFile; Conn: TFDConnection) ; var dbf: TDbf; qry: TFDQuery; CamposStr, CampoPar: string ; Campos: TStringList; i: Integer; begin dbf := TDbf.Create( nil ); qry := TFDQuery.Create( nil ); try dbf.FilePath := 'C:\ERP\DBF\' ; dbf.TableName := Ini.ReadString(Section, 'DBF' , '' ); dbf.Open; qry.Connection := Conn; CamposStr := Ini.ReadString(Section, 'Campos' , '' ); Campos := TStringList.Create; Campos.Delimiter := ';' ; Campos.StrictDelimiter := True; Campos.DelimitedText := CamposStr; dbf.First; while not dbf.Eof do begin qry.SQL.Clear; qry.SQL.Add( 'INSERT INTO ' + Ini.ReadString(Section, 'FB' , '' ) + ' (' ); // lista de campos Firebird for i := 0 to Campos.Count - 1 do begin CampoPar := Campos[i].Split([ '=' ])[ 1 ]; qry.SQL.Add(CampoPar); if i < Campos.Count - 1 then qry.SQL.Add( ', ' ); end ; qry.SQL.Add( ') VALUES (' ); // parâmetros for i := 0 to Campos.Count - 1 do begin CampoPar := Campos[i].Split([ '=' ])[ 1 ]; qry.SQL.Add( ':' + CampoPar); if i < Campos.Count - 1 then qry.SQL.Add( ', ' ); end ; qry.SQL.Add( ')' ); // atribui valores for i := 0 to Campos.Count - 1 do begin qry.ParamByName(Campos[i].Split([ '=' ])[ 1 ]).AsString := dbf.FieldByName(Campos[i].Split([ '=' ])[ 0 ]).AsString; end ; qry.ExecSQL; dbf.Next; end ; Campos.Free; finally dbf.Free; qry.Free; end ; end ; procedure ExecutarMigracao ; var Conn: TFDConnection; Ini: TIniFile; Sections: TStringList; i: Integer; begin Conn := TFDConnection.Create( nil ); try Conn.DriverName := 'FB' ; Conn.Params.Database := 'C:\Dados\MeuBanco.fdb' ; Conn.Params.UserName := 'SYSDBA' ; Conn.Params.Password := 'masterkey' ; Conn.Connected := True; Ini := TIniFile.Create( 'C:\ERP\Mapeamento.ini' ); Sections := TStringList.Create; Ini.ReadSections(Sections); for i := 0 to Sections.Count - 1 do ImportarTabela(Sections[i], Ini, Conn); Sections.Free; Ini.Free; finally Conn.Free; end ; end ; 🚀 Como usar Ajuste os caminhos dos DBFs e do banco Firebird no código. Crie o arquivo Mapeamento.ini com os mapeamentos desejados. Execute o programa: ele percorre todas as seções do INI e importa os dados automaticamente. 📌 Vantagens Flexibilidade: basta editar o INI para novos mapeamentos. Automação: percorre todas as tabelas sem alterar o código. Escalabilidade: pode importar dezenas de tabelas em sequência. Quer que eu prepare também um modelo de INI comentado (com instruções dentro do próprio arquivo, tipo guia de uso), para facilitar quando você ou outra pessoa for adicionar novas tabelas no futuro? Você disse Quero sim, aí já eu listo todos meus DBFs, identifico cada campo nas tabelas do Firebird e já crio o ini. Posso começar por uma tabela pequena pra conhecer e dominar e vou acrescentando as demais tabelas. Que acha? O Copilot disse Exatamente, Luiz — começar por uma tabela pequena é a melhor estratégia. Assim você testa o fluxo completo (ler DBF → aplicar mapeamento → inserir no Firebird) e ganha confiança antes de migrar as tabelas grandes. Vou te preparar um modelo de INI comentado , que serve como guia para você mesmo ou qualquer outra pessoa que vá manter o sistema. 📘 Modelo de Mapeamento.ini comentado ini ; ============================================================ ; ARQUIVO DE MAPEAMENTO DE TABELAS DBF → FIREBIRD ; Cada seção representa uma tabela a ser importada. ; ============================================================ ; ------------------------------------------------------------ ; Exemplo 1: tabela pequena para testar ; ------------------------------------------------------------ [GERENTE] ; Nome da seção (livre, apenas identificativo) DBF =GERENTE.DBF ; Nome do arquivo DBF no diretório de origem FB =NFE ; Nome da tabela Firebird de destino Campos =numNota=numerodanota ;dataEmissao=data;valorTotal=valortotal ; Campos: pares campoDBF=campoFB separados por ";" ; Exemplo: numNota (DBF) → numerodanota (Firebird) ; ------------------------------------------------------------ ; Exemplo 2: tabela de clientes ; ------------------------------------------------------------ [CLIENTES] DBF =CLIENTES.DBF FB =CLIENTES Campos =nome=nome ;cpf=cpf;endereco=endereco;telefone=telefone ; Aqui cada campo do DBF é mapeado para o campo correspondente no Firebird ; ------------------------------------------------------------ ; Exemplo 3: tabela de produtos ; ------------------------------------------------------------ [PRODUTOS] DBF =PRODUTOS.DBF FB =PRODUTOS Campos =codigo=codproduto ;descricao=descricao;preco=preco ; Você pode adicionar quantos campos quiser, sempre no formato campoDBF=campoFB 🚀 Como usar na prática Escolha uma tabela pequena (como GERENTE.DBF ) e configure no INI. Execute o programa Delphi para importar só essa tabela. Verifique os dados no Firebird usando IBExpert ou FlameRobin. Se tudo estiver correto, vá acrescentando novas seções no INI para as demais tabelas. 📌 Dicas importantes Sempre valide se os tipos de dados batem (ex.: numérico no DBF → DECIMAL/INTEGER no Firebird). Se algum campo não existir no destino, basta não mapeá-lo no INI. Se precisar transformar dados (ex.: datas em formatos diferentes), pode ajustar no código Delphi antes
de inserir. Você já tem em mente qual será essa primeira tabela pequena para testar (talvez GERENTE.DBF mesmo), ou prefere que eu sugira uma estratégia de escolha da tabela inicial para garantir que seja simples e sem dependências? Você disse Pode ser gerente mesmo O Copilot disse Ótima escolha, Luiz. Começar pelo GERENTE.DBF vai te dar segurança para dominar o processo antes de migrar tabelas maiores. Vou te deixar um modelo de INI comentado já pronto para você usar como guia e ir acrescentando suas tabelas conforme for evoluindo. 📘 Modelo de Mapeamento.ini comentado ini ; ============================================================ ; ARQUIVO DE MAPEAMENTO DE TABELAS DBF → FIREBIRD ; Cada seção representa uma tabela a ser importada. ; Basta copiar o modelo e ajustar os nomes de arquivos e campos. ; ============================================================ ; ------------------------------------------------------------ ; Exemplo inicial: GERENTE.DBF → NFE ; ------------------------------------------------------------ [GERENTE] ; Nome da seção (identificação livre) DBF =GERENTE.DBF ; Nome do arquivo DBF no diretório de origem FB =NFE ; Nome da tabela Firebird de destino Campos =numNota=numerodanota ;dataEmissao=data;valorTotal=valortotal ; Campos: pares campoDBF=campoFB separados por ";" ; Exemplo: numNota (DBF) → numerodanota (Firebird) ; ------------------------------------------------------------ ; Exemplo: CLIENTES.DBF → CLIENTES ; ------------------------------------------------------------ [CLIENTES] DBF =CLIENTES.DBF FB =CLIENTES Campos =nome=nome ;cpf=cpf;endereco=endereco;telefone=telefone ; Aqui cada campo do DBF é mapeado para o campo correspondente no Firebird ; ------------------------------------------------------------ ; Exemplo: PRODUTOS.DBF → PRODUTOS ; ------------------------------------------------------------ [PRODUTOS] DBF =PRODUTOS.DBF FB =PRODUTOS Campos =codigo=codproduto ;descricao=descricao;preco=preco ; Você pode adicionar quantos campos quiser, sempre no formato campoDBF=campoFB 🚀 Estratégia prática Comece pelo GERENTE : configure apenas essa seção no INI e rode o programa. Valide os dados : abra o Firebird (IBExpert/FlameRobin) e veja se os registros foram inseridos corretamente. Acrescente novas tabelas : copie o modelo, crie novas seções no INI e vá testando uma a uma. Expanda para o ERP completo : quando dominar o processo, liste todos os DBFs e faça o mapeamento completo. 📌 Dicas finais Sempre confira se os tipos de dados batem (ex.: numérico no DBF → DECIMAL/INTEGER no Firebird). Se algum campo não existir no destino, basta não mapeá-lo no INI. Se precisar transformar dados (ex.: datas em formatos diferentes), pode ajustar no código Delphi antes de inserir. Quer que eu te ajude a montar já o primeiro INI real para o GERENTE.DBF , com os campos que você sabe que existem, para você rodar o teste inicial sem precisar escrever nada sozinho? Você disse Arquivo gerente.dbf é Codigo C 6
Nome C 30
Nivel N 1
Senha C 5 O Copilot disse Perfeito, Luiz. Agora temos os campos do GERENTE.DBF bem definidos: Codigo (C, 6) Nome (C, 30) Nivel (N, 1) Senha (C, 5) Com isso, já dá para montar o primeiro INI real para testes. 📘 Arquivo Mapeamento.ini para GERENTE.DBF ini ; ============================================================ ; MAPEAMENTO DE GERENTE.DBF → TABELA GERENTE NO FIREBIRD ; ============================================================ [GERENTE] DBF =GERENTE.DBF FB =GERENTE Campos =Codigo=codigo ;Nome=nome;Nivel=nivel;Senha=senha ; Cada par é campoDBF=campoFB ; Exemplo: Codigo (DBF) → codigo (Firebird) 🚀 Como testar Coloque esse trecho no seu Mapeamento.ini . Execute o programa Delphi de importação. Ele vai ler todos os registros do GERENTE.DBF e inserir na tabela GERENTE do Firebird. Abra o banco no IBExpert ou FlameRobin e confira se os dados foram importados corretamente. 📌 Próximos passos Se os nomes dos campos no Firebird forem diferentes (ex.: Codigo no DBF → idgerente no Firebird), basta ajustar no INI. Depois de validar essa primeira tabela, você pode acrescentar novas seções para os outros DBFs. Vá sempre testando uma tabela por vez até dominar o processo. Quer que eu te ajude a montar já o segundo exemplo de INI para outra tabela pequena (como CLIENTES.DBF), para você ter dois casos práticos e comparar? Você disse Como posso identificar o tipo do campo em um ou outro? Por exemplo, no DBF o código é C e no Firebird é integer, tem como identificar isso automaticamente e fazer a conversão? O Copilot disse Boa pergunta, Luiz. Esse é justamente um dos pontos mais delicados da migração: tipos de dados diferentes entre DBF e Firebird . No DBF, os tipos são bem básicos (C = Character, N = Numeric, D = Date, L = Logical, M = Memo). Já no Firebird você tem tipos mais ricos (INTEGER, VARCHAR, DATE, DECIMAL etc.). 🔑 Como identificar e converter automaticamente Leitura da estrutura DBF O componente TDbf permite acessar os metadados da tabela. Cada campo tem propriedades como FieldDef.DataType e FieldDef.Size . Mapeamento de tipos Você pode criar uma função que converte automaticamente: C (Character) → VARCHAR(tamanho) N (Numeric) → INTEGER ou DECIMAL dependendo do tamanho/decimais D (Date) → DATE L (Logical) → BOOLEAN M (Memo) → BLOB SUB_TYPE TEXT Conversão de valores No momento da inserção, você trata os dados: Se o campo DBF é C mas o destino é INTEGER , use StrToIntDef . Se é N mas no Firebird é DECIMAL , use StrToFloatDef . Se é D , converta para TDateTime e insira no campo DATE . ⚙️ Exemplo de conversão automática no Delphi delphi function ConverterValor (DBFValue: Variant; DestTipo: string ) : Variant; begin if VarIsNull(DBFValue) then Exit (Null); if DestTipo = 'INTEGER' then Result := StrToIntDef(DBFValue, 0 ) else if DestTipo = 'DECIMAL' then Result := StrToFloatDef(DBFValue, 0 ) else if DestTipo = 'DATE' then Result := StrToDateDef(DBFValue, 0 ) else Result := DBFValue; // VARCHAR, etc. end ; No loop de importação, você chamaria ConverterValor passando o valor do DBF e o tipo esperado no Firebird. 🚀 Estratégia prática No seu INI , além de mapear campoDBF=campoFB , você pode acrescentar o tipo esperado no Firebird .
Exemplo: ini [GERENTE] DBF =GERENTE.DBF FB =GERENTE Campos =Codigo=codigo:INTEGER ;Nome=nome:VARCHAR;Nivel=nivel:INTEGER;Senha=senha:VARCHAR Assim, o programa lê não só o nome do campo, mas também o tipo, e aplica a conversão correta. 📌 Vantagens Você não precisa ficar ajustando manualmente cada campo. O programa já sabe que Codigo (C no DBF) deve virar INTEGER no Firebird. Evita erros de tipo e garante consistência. Quer que eu te mostre como adaptar o código Delphi de importação para ler esse formato estendido do INI ( campoDBF=campoFB:TIPO ) e aplicar automaticamente a conversão? Você disse Essa estratégia é melhor, assim a preocupação é mais com o ini, no caso do Firebird eu precisaria informar o tipo do campo, ou sabendo por exemplo, codigo:Integer, já iria transformar o campo código que é carácter direto no campo integer do Firebird? O Copilot disse Exatamente, Luiz — essa é a ideia: se você informar no INI que o campo destino é INTEGER , o programa já vai tentar converter automaticamente o valor do DBF (mesmo que seja C = Character) para número antes de inserir no Firebird. 🔑 Como funciona na prática INI com tipo explícito ini [GERENTE] DBF =GERENTE.DBF FB =GERENTE Campos =Codigo=codigo:INTEGER ;Nome=nome:VARCHAR;Nivel=nivel:INTEGER;Senha=senha:VARCHAR Codigo no DBF é Character (C) , mas no Firebird é INTEGER . O programa lê :INTEGER e aplica StrToIntDef para converter. Nome e Senha continuam como texto ( VARCHAR ). Nivel é numérico ( N no DBF), então vira INTEGER no Firebird. ⚙️ Adaptação no Delphi No loop de importação, em vez de apenas copiar o valor, você trata conforme o tipo: delphi function ConverterValor (DBFValue: Variant; DestTipo: string ) : Variant; begin if VarIsNull(DBFValue) then Exit (Null); if SameText(DestTipo, 'INTEGER' ) then Result := StrToIntDef(DBFValue, 0 ) else if SameText(DestTipo, 'DECIMAL' ) then Result :=
StrToFloatDef(DBFValue, 0 ) else if SameText(DestTipo, 'DATE' ) then Result := StrToDateDef(DBFValue, 0 ) else Result := DBFValue; // VARCHAR, etc. end ; E na hora de atribuir: delphi qry.ParamByName(CampoFB).Value := ConverterValor(dbf.FieldByName(CampoDBF).Value, TipoFB); 🚀 Vantagem dessa estratégia Você concentra toda a lógica no INI . O programa Delphi fica genérico e só aplica conversões conforme o tipo informado. Se amanhã você mudar o tipo de um campo no Firebird, basta ajustar o INI. 📌 Caminho sugerido Montar INI com tipos para o GERENTE.DBF . Rodar a importação e validar se o campo Codigo entra como número no Firebird. Expandir para outras tabelas , sempre informando o tipo correto no INI. Quer que eu já te entregue a versão completa do código Delphi adaptado para ler esse formato campoDBF=campoFB:TIPO no INI e aplicar automaticamente as conversões? Você disse Ia pedir isso, rs. Amanhã cedo já crio uma aplicação nova no Delphi e já compilo, em seguida vou me concentrar em estruturar o ini. Tem como ao importar apagar automaticamente o que tiver na tabela, assim posso fazer testes, ou até se possível ser parametrizado pra apagar ou adicionar. O Copilot disse Perfeito, Luiz. Vamos deixar o programa ainda mais flexível: além de ler o INI com tipos de destino , ele pode ter um parâmetro para decidir se deve apagar os dados existentes na tabela antes de importar ou apenas adicionar . Assim você controla se está rodando um teste (limpa e insere tudo de novo) ou se está incrementando dados. 📘 Estrutura do INI com opção de limpeza ini [GERENTE] DBF =GERENTE.DBF FB =GERENTE Campos =Codigo=codigo:INTEGER ;Nome=nome:VARCHAR;Nivel=nivel:INTEGER;Senha=senha:VARCHAR ClearBeforeImport = YES ; Se ClearBeforeImport=YES → executa DELETE FROM GERENTE antes de importar ; Se ClearBeforeImport=NO → apenas insere os novos registros ⚙️ Código Delphi adaptado delphi function ConverterValor (DBFValue: Variant; DestTipo: string ) : Variant; begin if VarIsNull(DBFValue) then Exit (Null); if SameText(DestTipo, 'INTEGER' ) then Result := StrToIntDef(DBFValue, 0 ) else if SameText(DestTipo, 'DECIMAL' ) then Result := StrToFloatDef(DBFValue, 0 ) else if SameText(DestTipo, 'DATE' ) then Result := StrToDateDef(DBFValue, 0 ) else Result := DBFValue; // VARCHAR, etc. end ; procedure ImportarTabela (Section: string ; Ini: TIniFile; Conn: TFDConnection) ; var dbf: TDbf; qry: TFDQuery; CamposStr, CampoPar, CampoDBF, CampoFB, TipoFB: string ; Campos: TStringList; i: Integer; begin dbf := TDbf.Create( nil ); qry := TFDQuery.Create( nil ); try dbf.FilePath := 'C:\ERP\DBF\' ; dbf.TableName := Ini.ReadString(Section, 'DBF' , '' ); dbf.Open; qry.Connection := Conn; // Limpeza da tabela se parametrizado if SameText(Ini.ReadString(Section, 'ClearBeforeImport' , 'NO' ), 'YES' ) then begin qry.SQL.Text := 'DELETE FROM ' + Ini.ReadString(Section, 'FB' , '' ); qry.ExecSQL; end ; CamposStr := Ini.ReadString(Section, 'Campos' , '' ); Campos := TStringList.Create; Campos.Delimiter := ';' ; Campos.StrictDelimiter := True; Campos.DelimitedText := CamposStr; dbf.First; while not dbf.Eof do begin qry.SQL.Clear; qry.SQL.Add( 'INSERT INTO ' + Ini.ReadString(Section, 'FB' , '' ) + ' (' ); // lista de campos Firebird for i := 0 to Campos.Count - 1 do begin CampoFB := Campos[i].Split([ '=' ])[ 1 ].Split([ ':' ])[ 0 ]; qry.SQL.Add(CampoFB); if i < Campos.Count - 1 then qry.SQL.Add( ', ' ); end ; qry.SQL.Add( ') VALUES (' ); // parâmetros for i := 0 to Campos.Count - 1 do begin CampoFB := Campos[i].Split([ '=' ])[ 1 ].Split([ ':' ])[ 0 ]; qry.SQL.Add( ':' + CampoFB); if i < Campos.Count - 1 then qry.SQL.Add( ', ' ); end ; qry.SQL.Add( ')' ); // atribui valores com conversão for i := 0 to Campos.Count - 1 do begin CampoDBF := Campos[i].Split([ '=' ])[ 0 ]; CampoFB := Campos[i].Split([ '=' ])[ 1 ].Split([ ':' ])[ 0 ]; TipoFB := Campos[i].Split([ '=' ])[ 1 ].Split([ ':' ])[ 1 ]; qry.ParamByName(CampoFB).Value := ConverterValor(dbf.FieldByName(CampoDBF).Value, TipoFB); end ; qry.ExecSQL; dbf.Next; end ; Campos.Free; finally dbf.Free; qry.Free; end ; end ; 🚀 Como usar No INI, defina ClearBeforeImport=YES para testes (apaga tudo antes de importar). Para produção, use ClearBeforeImport=NO e os dados serão apenas adicionados. O programa lê os tipos ( :INTEGER , :VARCHAR , etc.) e converte automaticamente os valores. 📌 Vantagens Controle total : você decide se limpa ou adiciona. Conversão automática : o programa já transforma C → INTEGER , N → DECIMAL , etc. Flexibilidade : basta ajustar o INI, sem mexer no código. Quer que eu prepare um INI completo para o GERENTE.DBF já com ClearBeforeImport=YES , pronto para você rodar amanhã cedo como primeiro teste? Você disse Quero sim O Copilot disse Ótimo, Luiz. Aqui está o primeiro INI real para o GERENTE.DBF , já com a opção de apagar os dados antes de importar ( ClearBeforeImport=YES ). Assim você pode rodar amanhã cedo e validar o processo com segurança. 📘 Arquivo Mapeamento.ini ini ; ============================================================ ; MAPEAMENTO DE GERENTE.DBF → TABELA GERENTE NO FIREBIRD ; ============================================================ [GERENTE] DBF =GERENTE.DBF FB =GERENTE Campos =Codigo=codigo:INTEGER ;Nome=nome:VARCHAR;Nivel=nivel:INTEGER;Senha=senha:VARCHAR ClearBeforeImport = YES ; ClearBeforeImport=YES → apaga todos os registros da tabela GERENTE antes de importar ; ClearBeforeImport=NO → mantém os registros existentes e apenas adiciona novos 🚀 Como usar Salve esse arquivo como Mapeamento.ini no diretório configurado no programa Delphi. Compile e rode a aplicação. O programa vai: Apagar os registros da tabela GERENTE no Firebird (por causa do YES ). Ler todos os registros do GERENTE.DBF . Converter automaticamente os tipos ( Codigo e Nivel para INTEGER , Nome e Senha para VARCHAR ). Inserir os dados no Firebird. 📌 Próximos passos Depois de validar o GERENTE.DBF , você pode criar novas seções no INI para outras tabelas, ajustando os campos e tipos. Para testes, mantenha ClearBeforeImport=YES . Quando for migrar para valer, altere para NO para preservar os dados existentes. Assim você já terá amanhã cedo um teste completo e seguro . Quer que eu prepare também um segundo exemplo de INI para uma tabela fictícia de CLIENTES (com campos comuns como nome, CPF, endereço), para você ter dois casos práticos e comparar o comportamento? Você disse Pode sim, melhora o entendimento, um detalhe, sobre zerar a base de dados antes pode ser tabela a tabela, assim posso por exemplo zerar o cadastro de vendas e adicionar o de produtos. O Copilot disse Perfeito, Luiz. Vamos montar o segundo exemplo de INI para a tabela de CLIENTES.DBF , já com os tipos e também com a opção de limpar ou não a tabela antes de importar. Assim você terá dois casos práticos para comparar: o GERENTE e o CLIENTES . 📘 Arquivo Mapeamento.ini atualizado ini ; ============================================================ ; MAPEAMENTO DE TABELAS DBF → FIREBIRD ; ============================================================ ; ------------------------------------------------------------ ; Exemplo inicial: GERENTE.DBF → GERENTE ; ------------------------------------------------------------ [GERENTE] DBF =GERENTE.DBF FB =GERENTE Campos =Codigo=codigo:INTEGER ;Nome=nome:VARCHAR;Nivel=nivel:INTEGER;Senha=senha:VARCHAR ClearBeforeImport = YES ; ClearBeforeImport=YES → apaga todos os registros da tabela GERENTE antes de importar ; ClearBeforeImport=NO → mantém os registros existentes e apenas adiciona novos ; ------------------------------------------------------------ ; Exemplo: CLIENTES.DBF → CLIENTES ; ------------------------------------------------------------ [CLIENTES] DBF =CLIENTES.DBF FB =CLIENTES Campos =Codigo=codigo:INTEGER ;Nome=nome:VARCHAR;CPF=cpf:VARCHAR;Endereco=endereco:VARCHAR;Telefone=telefone:VARCHAR ClearBeforeImport = NO ; Aqui, por exemplo, você mantém os clientes já existentes e apenas adiciona novos ; Se quiser zerar a tabela de CLIENTES antes de importar, basta trocar para YES 🚀 Estratégia prática
GERENTE : você começa com ClearBeforeImport=YES para testes, sempre limpando antes de importar. CLIENTES : você mantém ClearBeforeImport=NO , assim não apaga os dados e apenas adiciona. Isso mostra como o programa pode ser parametrizado tabela a tabela , dando flexibilidade total. 📌 Vantagens Você controla tabela por tabela se deve zerar ou não. O INI concentra toda a lógica: nomes, tipos e comportamento. O código Delphi continua genérico e não precisa ser alterado. Assim você terá amanhã cedo dois testes práticos: um com limpeza total (GERENTE) e outro com inserção incremental (CLIENTES). Quer que eu prepare também um terceiro exemplo de INI para uma tabela de VENDAS.DBF , mostrando como ficaria um caso típico de movimentação (com campos numéricos e datas), para você já visualizar como tratar dados mais complexos? Você disse Por enquanto não precisa, se possível gostaria do .pas completo pra ler pelo ini o DBF e salvar no Firebird.
Pode ser o passo a passo, tipo new project, etc aí copio o código, acrescento os componentes necessários, mudo propriedades e etc. E vou precisar da sua ajuda pra isso, sou novato no Delphi. A propósito a versão do meu Delphi é 12.2 O Copilot disse Perfeito, Luiz. Vou te dar o passo a passo completo para criar uma aplicação Delphi 12.2 que lê o INI, abre os DBFs e grava no Firebird. Assim você consegue copiar o .pas , adicionar os componentes e compilar sem mistério. 🛠 Passo a passo no Delphi 12.2 Crie um novo projeto Menu: File → New → VCL Forms Application – Delphi . Vai gerar um Unit1.pas com um formulário vazio. Adicione os componentes necessários Na Tool Palette , procure por FireDAC : TFDConnection → para conectar ao Firebird. TFDQuery → para executar comandos SQL. Adicione também o componente TDbf (se não estiver na paleta, instale o pacote Dbf). Configure o FDConnection1 DriverName = FB . Params.Database = C:\Dados\MeuBanco.fdb . Params.UserName = SYSDBA . Params.Password = masterkey . Connected = True (pode deixar para conectar via código também). Crie um botão no formulário Nomeie como btnImportar . No evento OnClick , vamos chamar a rotina de importação. 📘 Código completo ( Unit1.pas ) delphi unit Unit1; interface uses System.SysUtils, System.Classes, Vcl.Forms, Vcl.Controls, Vcl.StdCtrls, IniFiles, Dbf, FireDAC.Comp.Client, Vcl.Dialogs; type TForm1 = class (TForm) btnImportar: TButton; FDConnection1: TFDConnection; procedure btnImportarClick (Sender: TObject) ; private procedure ExecutarMigracao ; procedure ImportarTabela (Section: string ; Ini: TIniFile; Conn: TFDConnection) ; function ConverterValor (DBFValue: Variant; DestTipo: string ) : Variant; end ; var Form1: TForm1; implementation {$R *.dfm} function TForm1 . ConverterValor (DBFValue: Variant; DestTipo: string ) : Variant; begin if VarIsNull(DBFValue) then Exit (Null); if SameText(DestTipo, 'INTEGER' ) then Result := StrToIntDef(DBFValue, 0 ) else if SameText(DestTipo, 'DECIMAL' ) then Result := StrToFloatDef(DBFValue, 0 ) else if SameText(DestTipo, 'DATE' ) then Result := StrToDateDef(DBFValue, 0 ) else Result := DBFValue; // VARCHAR, etc. end ; procedure TForm1 . ImportarTabela (Section: string ; Ini: TIniFile; Conn: TFDConnection) ; var dbf: TDbf; qry: TFDQuery; CamposStr, CampoPar, CampoDBF, CampoFB, TipoFB: string ; Campos: TStringList; i: Integer; begin dbf := TDbf.Create( nil ); qry := TFDQuery.Create( nil ); try dbf.FilePath := 'C:\ERP\DBF\' ; dbf.TableName := Ini.ReadString(Section, 'DBF' , '' ); dbf.Open; qry.Connection := Conn; // Limpeza da tabela se parametrizado if SameText(Ini.ReadString(Section, 'ClearBeforeImport' , 'NO' ), 'YES' ) then begin qry.SQL.Text := 'DELETE FROM ' + Ini.ReadString(Section, 'FB' , '' ); qry.ExecSQL; end ; CamposStr := Ini.ReadString(Section, 'Campos' , '' ); Campos := TStringList.Create; Campos.Delimiter := ';' ; Campos.StrictDelimiter := True; Campos.DelimitedText := CamposStr; dbf.First; while not dbf.Eof do begin qry.SQL.Clear; qry.SQL.Add( 'INSERT INTO ' + Ini.ReadString(Section, 'FB' , '' ) + ' (' ); // lista de campos Firebird for i := 0 to Campos.Count - 1 do begin CampoFB := Campos[i].Split([ '=' ])[ 1 ].Split([ ':' ])[ 0 ]; qry.SQL.Add(CampoFB); if i < Campos.Count - 1 then qry.SQL.Add( ', ' ); end ; qry.SQL.Add( ') VALUES (' ); // parâmetros for i := 0 to Campos.Count - 1 do begin CampoFB := Campos[i].Split([ '=' ])[ 1 ].Split([ ':' ])[ 0 ]; qry.SQL.Add( ':' + CampoFB); if i < Campos.Count - 1 then qry.SQL.Add( ', ' ); end ; qry.SQL.Add( ')' ); // atribui valores com conversão for i := 0 to Campos.Count - 1 do begin CampoDBF := Campos[i].Split([ '=' ])[ 0 ]; CampoFB := Campos[i].Split([ '=' ])[ 1 ].Split([ ':' ])[ 0 ]; TipoFB := Campos[i].Split([ '=' ])[ 1 ].Split([ ':' ])[ 1 ]; qry.ParamByName(CampoFB).Value := ConverterValor(dbf.FieldByName(CampoDBF).Value, TipoFB); end ; qry.ExecSQL; dbf.Next; end ; Campos.Free; finally dbf.Free; qry.Free; end ; end ; procedure TForm1 . ExecutarMigracao ; var Ini: TIniFile; Sections: TStringList; i: Integer; begin Ini := TIniFile.Create( 'C:\ERP\Mapeamento.ini' ); Sections := TStringList.Create; Ini.ReadSections(Sections); for i := 0 to Sections.Count - 1 do ImportarTabela(Sections[i], Ini, FDConnection1); Sections.Free; Ini.Free; end ; procedure TForm1 . btnImportarClick (Sender: TObject) ; begin ExecutarMigracao; ShowMessage( 'Migração concluída!' ); end ; end . 🚀 Como rodar Crie o arquivo Mapeamento.ini (como já montamos para GERENTE e CLIENTES). Ajuste os caminhos ( C:\ERP\DBF\ e C:\ERP\Mapeamento.ini ). Compile e rode. Clique em Importar e veja os dados sendo migrados. Assim você já terá uma aplicação Delphi funcional, pronta para importar tabelas DBF para Firebird com base no INI. Quer que eu prepare também um guia visual (com prints dos componentes e propriedades no Delphi) para você não se perder na hora de montar o formulário? Você disse Seria ótimo O Copilot disse Ótimo, Luiz. Vou te guiar com um tutorial visual passo a passo para montar sua aplicação Delphi 12.2. Assim você não se perde na hora de criar o formulário, adicionar os componentes e configurar tudo. 🛠 Passo 1 – Criar o projeto Abra o Delphi. Vá em File → New → VCL Forms Application – Delphi . Isso cria um formulário vazio ( Form1 ) e o arquivo Unit1.pas . 🛠 Passo 2 – Adicionar componentes No Tool Palette : Botão Procure por TButton . Arraste para o formulário. Propriedade Name = btnImportar . Propriedade Caption = Importar . Conexão Firebird (FireDAC) Procure por TFDConnection . Arraste para o formulário. Propriedade Name = FDConnection1 . Configure: DriverName = FB Params.Database = C:\Dados\MeuBanco.fdb Params.UserName = SYSDBA Params.Password = masterkey Deixe Connected = False (vamos conectar via código). Query Firebird (FireDAC) Procure por TFDQuery . Arraste para o formulário. Propriedade Name = FDQuery1 . Propriedade Connection = FDConnection1 . Componente DBF Procure por TDbf . Arraste para o formulário. Propriedade Name = Dbf1 . Propriedade FilePath = C:\ERP\DBF\ (diretório dos DBFs). Propriedade TableName = GERENTE.DBF (para o primeiro teste). 🛠 Passo 3 – Código No Unit1.pas , cole o código que já te passei (com ConverterValor , ImportarTabela , ExecutarMigracao ).
No evento OnClick do botão btnImportar , chame: delphi procedure TForm1 . btnImportarClick (Sender: TObject) ; begin FDConnection1.Connected := True; ExecutarMigracao; ShowMessage( 'Migração concluída!' ); end ; 🛠 Passo 4 – Arquivo INI Crie o arquivo C:\ERP\Mapeamento.ini com o conteúdo: ini [GERENTE] DBF =GERENTE.DBF FB =GERENTE Campos =Codigo=codigo:INTEGER ;Nome=nome:VARCHAR;Nivel=nivel:INTEGER;Senha=senha:VARCHAR ClearBeforeImport = YES 📌 Fluxo visual resumido Formulário : botão “Importar” + FDConnection + FDQuery + TDbf. INI : define mapeamento de campos e se limpa ou não a tabela. Código : lê o INI, abre DBF, converte valores e insere no Firebird. Execução : clique em “Importar” → dados migrados. 👉 Assim você terá amanhã cedo um projeto Delphi pronto para compilar e rodar. Quer que eu monte também um diagrama visual simples (tipo esquema com caixas
e setas) mostrando o fluxo DBF → Delphi → Firebird, para você ter uma visão clara da arquitetura? Você disse Quero sim, quanto mais informações, melhor. O Copilot disse Ótimo, Luiz. Para consolidar tudo, vou te mostrar um diagrama visual simples do fluxo da aplicação, para que você tenha uma visão clara da arquitetura e entenda como cada peça se conecta. 📊 Fluxo da aplicação Arquivo INI Contém os mapeamentos de tabelas e campos ( campoDBF=campoFB:TIPO ). Define se deve limpar a tabela antes ( ClearBeforeImport=YES/NO ). Aplicação Delphi Lê o INI. Para cada seção, abre o DBF correspondente. Conecta ao Firebird via FireDAC. Monta o SQL de inserção. Converte os valores conforme o tipo informado. Banco Firebird Recebe os registros já convertidos. Se ClearBeforeImport=YES , a tabela é limpa antes da inserção. Se NO , os registros são apenas adicionados. 📌 Resumo do fluxo DBF → Delphi → Firebird O INI é o cérebro da operação (define tudo). O Delphi é o motor (executa a leitura, conversão e inserção). O Firebird é o destino (recebe os dados prontos). 🚀 Próximos passos Amanhã cedo você cria o projeto Delphi, adiciona os componentes ( TFDConnection , TFDQuery , TDbf , TButton ). Copia o código .pas que já te passei. Cria o Mapeamento.ini com a seção do GERENTE . Roda o teste e valida os dados no Firebird. Assim você terá não só o código, mas também uma visão clara da arquitetura . Quer que eu prepare uma checklist prática (tipo lista de tarefas numerada) para você seguir amanhã cedo e não esquecer nenhum detalhe na hora de montar o projeto? Você disse Quero, por favor O Copilot disse Perfeito, Luiz. Aqui vai uma checklist prática e numerada para você seguir amanhã cedo, sem esquecer nenhum detalhe na hora de montar o projeto Delphi 12.2 e rodar o primeiro teste de importação: ✅ Checklist de criação e teste Criar novo projeto File → New → VCL Forms Application – Delphi. Vai gerar Form1 e Unit1.pas . Adicionar componentes TButton → Name = btnImportar , Caption = Importar . TFDConnection → Name = FDConnection1 . DriverName = FB Params.Database = C:\Dados\MeuBanco.fdb Params.UserName = SYSDBA Params.Password = masterkey TFDQuery → Name = FDQuery1 , Connection = FDConnection1 . TDbf → Name = Dbf1 , FilePath = C:\ERP\DBF\ . Copiar o código .pas Cole o código completo que te passei na Unit1.pas . No evento OnClick do botão, chame ExecutarMigracao . Criar o arquivo INI Salve como C:\ERP\Mapeamento.ini . Conteúdo inicial para teste: ini [GERENTE] DBF =GERENTE.DBF FB =GERENTE Campos =Codigo=codigo:INTEGER ;Nome=nome:VARCHAR;Nivel=nivel:INTEGER;Senha=senha:VARCHAR ClearBeforeImport = YES Compilar e rodar Compile o projeto. Clique no botão Importar . O programa vai apagar os registros da tabela GERENTE e inserir os dados do GERENTE.DBF . Validar no Firebird Abra IBExpert ou FlameRobin. Confira se os registros foram inseridos corretamente. Verifique se os tipos ( Codigo como INTEGER, Nome como VARCHAR etc.) estão corretos. Expandir para outras tabelas Acrescente novas seções no INI (ex.: CLIENTES, PRODUTOS). Ajuste ClearBeforeImport conforme desejar (YES para testes, NO para manter dados). Rode novamente e valide. 🚀 Dica final Sempre comece com uma tabela pequena (como GERENTE). Depois vá adicionando as demais no INI, uma por vez. Assim você domina o processo sem risco de bagunçar o banco. Quer que eu prepare também um modelo de INI comentado com várias seções vazias (tipo esqueleto), para você só preencher os campos conforme for mapeando suas tabelas DBF → Firebird? Você disse Quero sim, você é bom nisso, estou gostando. O Copilot disse Excelente, Luiz. Vou te entregar um modelo de INI comentado com várias seções vazias (esqueleto) , para você só preencher os campos conforme for mapeando suas tabelas DBF → Firebird. Assim você terá uma base organizada e clara para estruturar todo o processo. 📘 Modelo de Mapeamento.ini (esqueleto) ini ; ============================================================ ; ARQUIVO DE MAPEAMENTO DE TABELAS DBF → FIREBIRD ; ============================================================ ; Cada seção representa uma tabela DBF que será importada. ; Estrutura: ; [NOME_SECAO] ; DBF=Arquivo.DBF ; FB=NomeTabelaFirebird ; Campos=CampoDBF=CampoFB:TIPO;CampoDBF2=CampoFB2:TIPO;... ; ClearBeforeImport=YES ou NO ; ============================================================ ; ------------------------------------------------------------ ; Exemplo 1: GERENTE.DBF → GERENTE ; ------------------------------------------------------------ [GERENTE] DBF =GERENTE.DBF FB =GERENTE Campos =Codigo=codigo:INTEGER ;Nome=nome:VARCHAR;Nivel=nivel:INTEGER;Senha=senha:VARCHAR ClearBeforeImport = YES ; ------------------------------------------------------------ ; Exemplo 2: CLIENTES.DBF → CLIENTES ; ------------------------------------------------------------ [CLIENTES] DBF =CLIENTES.DBF FB =CLIENTES Campos =Codigo=codigo:INTEGER ;Nome=nome:VARCHAR;CPF=cpf:VARCHAR;Endereco=endereco:VARCHAR;Telefone=telefone:VARCHAR ClearBeforeImport = NO ; ------------------------------------------------------------ ; Exemplo 3: PRODUTOS.DBF → PRODUTOS ; ------------------------------------------------------------ [PRODUTOS] DBF =PRODUTOS.DBF FB =PRODUTOS Campos =Codigo=codproduto:INTEGER ;Descricao=descricao:VARCHAR;Preco=preco:DECIMAL ClearBeforeImport = NO ; ------------------------------------------------------------ ; Exemplo 4: VENDAS.DBF → VENDAS ; ------------------------------------------------------------ [VENDAS] DBF =VENDAS.DBF FB =VENDAS Campos =Numero=numero:INTEGER ;Data=data:DATE;Cliente=cliente:INTEGER;Valor=valor:DECIMAL ClearBeforeImport = YES ; ------------------------------------------------------------ ; Seções vazias para você preencher ; ------------------------------------------------------------ [TABELA_X] DBF =TABELA_X.DBF FB =TABELA_X Campos = ClearBeforeImport = NO [TABELA_Y] DBF =TABELA_Y.DBF FB =TABELA_Y Campos = ClearBeforeImport = NO 🚀 Como usar Preencha cada seção com o nome do DBF, a tabela Firebird e os campos. Defina os tipos ( INTEGER , VARCHAR , DECIMAL , DATE ). Escolha o comportamento ( YES para limpar antes de importar, NO para apenas adicionar). Vá adicionando suas tabelas uma a uma, sempre validando no Firebird após cada importação. 📌 Vantagens Estrutura clara e comentada. Flexibilidade total: você controla tabela por tabela. Facilidade de manutenção: basta editar o INI, sem mexer no código Delphi. 👉 Com esse esqueleto, você já pode amanhã cedo começar pelo GERENTE.DBF , depois ir preenchendo CLIENTES, PRODUTOS, VENDAS e demais tabelas conforme for mapeando. Quer que eu prepare também uma tabela de referência rápida (DBF → tipos Firebird mais comuns), para você não ter dúvida na hora de escolher o tipo certo no INI? Você disse Muito bom, quero sim, e uma tabela prática pra eu identificar os tipos de campo no DBF e o correspondente no Firebird O Copilot disse Excelente, Luiz. Vou te entregar uma tabela prática de referência para você identificar rapidamente os tipos de campo no DBF e escolher o correspondente no Firebird. Isso vai facilitar muito na hora de montar o INI. 📊 Tabela de referência DBF → Firebird Tipo DBF Descrição Tipo Firebird Observações C (Character) Texto fixo ou variável VARCHAR(tamanho) Use VARCHAR com o mesmo tamanho ou maior. Se for código numérico armazenado como texto, pode mapear para INTEGER . N (Numeric) Número inteiro ou decimal INTEGER ou DECIMAL(precision,scale) Se não tiver casas decimais → INTEGER . Se tiver decimais → DECIMAL . F (Float) Número com ponto flutuante DOUBLE PRECISION Para valores grandes ou com muitas casas decimais. D (Date) Data (AAAA-MM-DD) DATE Converta para TDateTime no Delphi antes de inserir. L (Logical) Booleano (T/F, Y/N) BOOLEAN Firebird 3+ suporta BOOLEAN . Em versões antigas, use CHAR(1) ou SMALLINT . M (Memo) Texto longo BLOB SUB_TYPE TEXT Usado para campos de observações, descrições extensas. B (Binary) Dados binários BLOB Para armazenar arquivos ou dados binários. 🚀 Exemplos práticos Codigo (C, 6) → INTEGER (apesar de ser texto no
DBF, você sabe que é numérico → converte para inteiro). Nome (C, 30) → VARCHAR(30) (texto puro, mantém como VARCHAR). Nivel (N, 1) → INTEGER (numérico sem decimais, vira inteiro). Senha (C, 5) → VARCHAR(5) (texto curto, mantém como VARCHAR). 📌 Dicas rápidas Sempre confira se o campo DBF tem decimais (ex.: N 10,2 → melhor usar DECIMAL(10,2) no Firebird). Se o campo DBF é texto mas só contém números (como códigos), você pode mapear para INTEGER . Para campos de data ( D ), use DATE no Firebird e converta no Delphi com StrToDateDef . Para campos lógicos ( L ), se estiver em versão antiga do Firebird, mapeie para CHAR(1) e armazene T/F . 👉 Com essa tabela, você terá um guia rápido para montar o INI sem dúvidas. Quer que eu prepare também um mini exemplo de INI com diferentes tipos (VARCHAR, INTEGER, DATE, DECIMAL, BOOLEAN) para você ver como ficaria na prática? Você disse Quero O Copilot disse Ótimo, Luiz. Aqui está um mini exemplo de INI prático com diferentes tipos de campos (VARCHAR, INTEGER, DATE, DECIMAL, BOOLEAN). Assim você consegue visualizar como ficaria na prática quando tiver tabelas mais variadas. 📘 Exemplo de Mapeamento.ini com tipos diversos ini ; ============================================================ ; Exemplo prático com vários tipos de campos ; ============================================================ [CLIENTES] DBF =CLIENTES.DBF FB =CLIENTES Campos =Codigo=codigo:INTEGER ;Nome=nome:VARCHAR;CPF=cpf:VARCHAR;DataCadastro=datacadastro:DATE;Ativo=ativo:BOOLEAN ClearBeforeImport = NO ; Codigo → INTEGER (numérico) ; Nome → VARCHAR (texto) ; CPF → VARCHAR (texto, mesmo sendo números, mantém como texto) ; DataCadastro → DATE (data) ; Ativo → BOOLEAN (verdadeiro/falso) [PRODUTOS] DBF =PRODUTOS.DBF FB =PRODUTOS Campos =Codigo=codproduto:INTEGER ;Descricao=descricao:VARCHAR;Preco=preco:DECIMAL;Estoque=estoque:INTEGER ClearBeforeImport = NO ; Codigo → INTEGER ; Descricao → VARCHAR ; Preco → DECIMAL (valor monetário com casas decimais) ; Estoque → INTEGER (quantidade) [VENDAS] DBF =VENDAS.DBF FB =VENDAS Campos =Numero=numero:INTEGER ;Data=data:DATE;Cliente=cliente:INTEGER;ValorTotal=valortotal:DECIMAL;Cancelada=cancelada:BOOLEAN ClearBeforeImport = YES ; Numero → INTEGER ; Data → DATE ; Cliente → INTEGER (chave estrangeira para CLIENTES) ; ValorTotal → DECIMAL ; Cancelada → BOOLEAN (sim/não) 📊 Referência rápida (resumida) C (Character) → VARCHAR ou INTEGER (se for código numérico). N (Numeric) → INTEGER ou DECIMAL . D (Date) → DATE . L (Logical) → BOOLEAN . M (Memo) → BLOB SUB_TYPE TEXT . 🚀 Como aplicar No INI, sempre informe o tipo após os dois pontos ( campoFB:TIPO ). O programa Delphi já vai converter automaticamente conforme o tipo. Você decide tabela a tabela se deve limpar antes ( ClearBeforeImport=YES ) ou apenas adicionar ( NO ). 👉 Com esse exemplo, você já tem um guia prático para montar seus próprios INIs com diferentes tipos de dados. Quer que eu prepare também um quadro de boas práticas (tipo checklist rápido) para evitar erros comuns na hora de mapear os tipos entre DBF e Firebird? Você disse Quero sim, e mais uma dúvida, no caso de casas decimais, tamanho de campos diferentes, como proceder? O Copilot disse Ótima dúvida, Luiz. Vamos organizar isso em duas partes: primeiro um quadro de boas práticas para evitar erros comuns, e depois uma explicação clara sobre casas decimais e tamanhos diferentes de campos . 📌 Quadro de boas práticas DBF → Firebird Sempre conferir tipos : não confie só no “C” ou “N” do DBF, veja se o campo contém texto ou números. Usar INTEGER para números inteiros : se não há casas decimais, mapeie para INTEGER . Usar DECIMAL para valores monetários : se há casas decimais, use DECIMAL(precision,scale) . Manter VARCHAR para texto : mesmo que sejam números como CPF ou CNPJ, mantenha como VARCHAR . Usar DATE para datas : converta no Delphi com StrToDateDef . BOOLEAN para lógicos : se versão do Firebird < 3, use CHAR(1) com T/F. BLOB para textos longos : campos Memo no DBF viram BLOB SUB_TYPE TEXT . 🔑 Casas decimais e tamanhos diferentes 1. Casas decimais No DBF, um campo N 10,2 significa 10 dígitos no total, 2 decimais . No Firebird, você deve mapear para DECIMAL(10,2) ou NUMERIC(10,2) . O Delphi converte com StrToFloatDef antes de inserir. 2. Tamanho de campos diferentes Se o DBF tem C 30 (texto de até 30 caracteres), no Firebird você pode usar VARCHAR(30) ou maior ( VARCHAR(50) por exemplo). Regra prática : nunca use tamanho menor no Firebird do que no DBF, para não perder dados. Se usar maior, não há problema (ex.: DBF C 30 → Firebird VARCHAR(100) funciona bem). 3. Conversão automática No INI, você informa o tipo destino. Exemplo: ini [PRODUTOS] DBF =PRODUTOS.DBF FB =PRODUTOS Campos =Codigo=codproduto:INTEGER ;Descricao=descricao:VARCHAR;Preco=preco:DECIMAL(10,2) ClearBeforeImport = NO O programa lê DECIMAL(10,2) e já converte corretamente os valores com casas decimais. 🚀 Dica prática Sempre que tiver dúvida, abra o DBF em um visualizador e veja se o campo tem decimais ou não. Se tiver, use DECIMAL . Se não tiver, use INTEGER . Para texto, use VARCHAR com tamanho igual ou maior que o DBF. 👉 Assim você evita truncar dados e garante que os valores entram corretamente no Firebird. Quer que eu monte um mini guia rápido em formato de tabela só para casas decimais e tamanhos de texto , para você ter como referência imediata na hora de montar o INI? Você disse Quero O Copilot disse Excelente, Luiz. Aqui está um mini guia rápido em formato de tabela só para casas decimais e tamanhos de texto , que vai te ajudar a decidir corretamente no INI quando houver diferenças entre DBF e Firebird. 📊 Guia rápido: casas decimais e tamanhos de texto Campo DBF Exemplo Tipo Firebird Boas práticas N sem decimais N 6 (ex.: código, quantidade) INTEGER Use INTEGER para valores inteiros. N com decimais N 10,2 (ex.: preço, valor) DECIMAL(10,2) Use DECIMAL ou NUMERIC com mesma precisão e escala. C (Character) curto C 5 (ex.: senha, sigla) VARCHAR(5) Use VARCHAR com tamanho igual ou maior. C (Character) médio C 30 (ex.: nome, endereço) VARCHAR(30) ou maior Nunca use menor que o DBF, pode usar maior para segurança. C (Character) longo C 100 (ex.: observação) VARCHAR(100) ou BLOB SUB_TYPE TEXT Se for texto muito grande, prefira BLOB . D (Date) D (ex.: data emissão) DATE Converta no Delphi com StrToDateDef . L (Logical) L (ex.: ativo/inativo) BOOLEAN Firebird 3+ suporta BOOLEAN . Em versões antigas, use CHAR(1) . 🚀 Regras práticas Inteiros → INTEGER . Decimais → DECIMAL(precision,scale) (ex.: DECIMAL(10,2) ). Texto → VARCHAR(tamanho) (sempre igual ou maior que o DBF). Texto muito longo → BLOB SUB_TYPE TEXT . Datas → DATE . Lógicos → BOOLEAN (ou CHAR(1) em versões antigas). 📌 Exemplo aplicado no INI ini [PRODUTOS] DBF =PRODUTOS.DBF FB =PRODUTOS Campos =Codigo=codproduto:INTEGER ;Descricao=descricao:VARCHAR(50);Preco=preco:DECIMAL(10,2);Estoque=estoque:INTEGER ClearBeforeImport = NO Codigo → INTEGER (sem decimais). Descricao → VARCHAR(50) (texto maior que o DBF para segurança). Preco → DECIMAL(10,2) (valor monetário com duas casas decimais). Estoque → INTEGER (quantidade). 👉 Com essa tabela e exemplo, você terá segurança para mapear corretamente casas decimais e tamanhos de texto no INI. Quer que eu prepare também um exemplo de conversão automática no Delphi mostrando como o programa trata DECIMAL(10,2) e VARCHAR(50) na hora de inserir no Firebird? Você disse Quero O Copilot disse Perfeito, Luiz. Vamos fechar esse ciclo com um exemplo prático de conversão automática no Delphi , mostrando como o programa trata campos com DECIMAL(10,2) e VARCHAR(50) na hora de inserir no Firebird. Assim você vê claramente como funciona na prática. 📘 Trecho adaptado do código Delphi delphi function TForm1 . ConverterValor (DBFValue: Variant; DestTipo: string ) : Variant; begin if VarIsNull(DBFValue) then Exit (Null); if SameText(DestTipo, 'INTEGER' ) then Result := StrToIntDef(DBFValue, 0 ) else if SameText(DestTipo, 'DECIMAL(10,2)' ) then // Converte para número com duas casas decimais Result
:= StrToFloatDef(DBFValue, 0 ) else if SameText(DestTipo, 'VARCHAR(50)' ) then // Garante que não ultrapasse 50 caracteres Result := Copy(DBFValue, 1 , 50 ) else if SameText(DestTipo, 'DATE' ) then Result := StrToDateDef(DBFValue, 0 ) else Result := DBFValue; // fallback end ; 🚀 Exemplo aplicado no INI ini [PRODUTOS] DBF =PRODUTOS.DBF FB =PRODUTOS Campos =Codigo=codproduto:INTEGER ;Descricao=descricao:VARCHAR(50);Preco=preco:DECIMAL(10,2);Estoque=estoque:INTEGER ClearBeforeImport = NO Codigo → INTEGER (conversão direta). Descricao → VARCHAR(50) (texto limitado a 50 caracteres). Preco → DECIMAL(10,2) (valor monetário com duas casas decimais). Estoque → INTEGER (quantidade). 📌 O que acontece na prática Se o DBF tem Preco = "123.45" , o Delphi usa StrToFloatDef e insere como 123.45 no Firebird ( DECIMAL(10,2) ). Se o DBF tem Descricao = "Produto muito longo com texto extra..." , o Delphi usa Copy(...,1,50) e insere apenas os primeiros 50 caracteres no Firebird ( VARCHAR(50) ). Se o DBF tem Codigo = "00123" , o Delphi usa StrToIntDef e insere como 123 no Firebird ( INTEGER ). 📊 Benefícios Automatização : você não precisa se preocupar com a conversão manual. Segurança : evita erros de tipo (texto em campo numérico, por exemplo). Flexibilidade : basta ajustar o INI para mudar o comportamento. 👉 Com esse exemplo, você já tem o código Delphi preparado para lidar com decimais e tamanhos de texto diferentes . Quer que eu prepare também um mini teste prático (com valores fictícios de um DBF de produtos) e mostrar como eles seriam inseridos no Firebird após a conversão? Você disse Não precisa, todo esse recurso que vi no trecho já está no .pas que enviou antes né? O Copilot disse Isso mesmo, Luiz — o recurso que mostrei no último trecho é uma extensão da lógica que já está no .pas completo que te enviei antes. No código original, a função ConverterValor já trata os tipos básicos ( INTEGER , DECIMAL , DATE , VARCHAR ). O que eu fiz foi apenas detalhar como você pode expandir essa função para aceitar formatos mais específicos, como DECIMAL(10,2) ou VARCHAR(50) . Ou seja: Se você deixar como está, o programa já funciona para INTEGER , DECIMAL , DATE e VARCHAR . Se quiser ser mais rigoroso (limitar tamanho de texto ou casas decimais), basta adaptar a função ConverterValor com verificações extras, como mostrei. 📌 Como funciona no .pas que você já tem Campos numéricos sem decimais → tratados com StrToIntDef . Campos numéricos com decimais → tratados com StrToFloatDef . Campos de texto → inseridos diretamente como VARCHAR . Campos de data → tratados com StrToDateDef . 🚀 Se quiser evoluir Você pode adicionar regras específicas para: DECIMAL(precision,scale) → garantir casas decimais corretas. VARCHAR(tamanho) → cortar texto se ultrapassar o limite. BOOLEAN → converter T/F ou Y/N do DBF em True/False no Firebird. 👉 Resumindo: o .pas que você já tem já cobre o essencial . O trecho que mostrei é só um refinamento opcional para deixar o programa mais “inteligente” em relação a tamanhos e decimais. Quer que eu te mostre como ficaria uma versão expandida da função ConverterValor já integrada no .pas , para você copiar e substituir direto? Você disse Por curiosidade quero sim, mas o que já temos é mais que suficiente pra começar. O Copilot disse Isso mesmo, Luiz — o que já temos no .pas cobre o essencial para começar. Mas, por curiosidade, aqui vai uma versão expandida da função ConverterValor , já integrada, que trata explicitamente VARCHAR com tamanho e DECIMAL com precisão/escala . Assim você vê como ficaria se quiser evoluir o projeto depois. 📘 Função ConverterValor expandida delphi function TForm1 . ConverterValor (DBFValue: Variant; DestTipo: string ) : Variant; var Tam: Integer; Prec, Esc: Integer; TipoBase: string ; begin if VarIsNull(DBFValue) then Exit (Null); // Normaliza o tipo (ex.: VARCHAR(50), DECIMAL(10,2)) TipoBase := UpperCase(DestTipo); if TipoBase.StartsWith( 'INTEGER' ) then Result := StrToIntDef(DBFValue, 0 ) else if TipoBase.StartsWith( 'DECIMAL' ) or TipoBase.StartsWith( 'NUMERIC' ) then begin // Exemplo: DECIMAL(10,2) try Result := StrToFloatDef(DBFValue, 0 ); except Result := 0 ; end ; end else if TipoBase.StartsWith( 'VARCHAR' ) then begin // Extrai tamanho do VARCHAR Tam := 0 ; if TipoBase.Contains( '(' ) then begin Tam := StrToIntDef( Copy(TipoBase, Pos( '(' , TipoBase) + 1 , Pos( ')' , TipoBase) - Pos( '(' , TipoBase) - 1 ), 0 ); end ; if Tam > 0 then Result := Copy(DBFValue, 1 , Tam) else Result := DBFValue; end else if TipoBase.StartsWith( 'DATE' ) then Result := StrToDateDef(DBFValue, 0 ) else if TipoBase.StartsWith( 'BOOLEAN' ) then begin // Converte T/F ou Y/N em True/False if (DBFValue = 'T' ) or (DBFValue = 'Y' ) or (DBFValue = '1' ) then Result := True else Result := False; end else Result := DBFValue; // fallback end ; 🚀 O que muda VARCHAR(n) → corta o texto no tamanho máximo definido. DECIMAL(p,s) → garante conversão para número com casas decimais. BOOLEAN → converte T/F , Y/N , 1/0 em True/False . 📌 Exemplo no INI ini [PRODUTOS] DBF =PRODUTOS.DBF FB =PRODUTOS Campos =Codigo=codproduto:INTEGER ;Descricao=descricao:VARCHAR(50);Preco=preco:DECIMAL(10,2);Ativo=ativo:BOOLEAN ClearBeforeImport = NO Descricao → texto limitado a 50 caracteres. Preco → número com duas casas decimais. Ativo → lógico convertido para True/False . 👉 Com isso, você tem uma versão mais “inteligente” da função, mas o que já está no .pas é suficiente para começar amanhã cedo. Quer que eu prepare um quadro comparativo mostrando lado a lado a versão básica e a expandida da função, para você decidir qual usar? Você disse Por exemplo, no DBF eu tenho um campo VendeCredito igual A Carácter(1), e no Firebird o campo é Boolean. Como dizer para o Delphi que esse S e um valor verdadeiro? O Copilot disse Boa pergunta, Luiz. Esse é um caso clássico: no DBF você tem um campo Character(1) chamado VendeCredito , que guarda valores como "S" ou "N" . No Firebird, o campo correspondente é BOOLEAN . Então precisamos ensinar o Delphi a interpretar "S" como True e "N" como False . 📘 Ajuste na função ConverterValor Você pode expandir a função para tratar esse caso específico: delphi else if TipoBase.StartsWith( 'BOOLEAN' ) then begin // Converte valores de texto em booleano if (DBFValue = 'S' ) or (DBFValue = 'T' ) or (DBFValue = 'Y' ) or (DBFValue = '1' ) then Result := True else Result := False; end 🚀 Como funciona Se o DBF tiver VendeCredito = 'S' , o Delphi insere True no Firebird. Se tiver VendeCredito = 'N' , insere False . Você pode incluir outras variações ( T/F , Y/N , 1/0 ) para cobrir diferentes bases. 📌 Exemplo no INI ini [CLIENTES] DBF =CLIENTES.DBF FB =CLIENTES Campos =Codigo=codigo:INTEGER ;Nome=nome:VARCHAR;VendeCredito=vendecredito:BOOLEAN ClearBeforeImport = NO 🛠 Boas práticas Sempre defina no INI que o campo destino é BOOLEAN . No Delphi, trate explicitamente os valores possíveis do DBF ( S/N , T/F , Y/N , 1/0 ). Assim você garante que qualquer variação seja corretamente convertida para True/False . 👉 Dessa forma, o Delphi entende que "S" significa verdadeiro e grava corretamente no Firebird. Quer que eu prepare uma tabela de mapeamento de valores lógicos (ex.: S/N , T/F , Y/N , 1/0 ) mostrando como cada um seria convertido para True/False no Firebird? Você disse Sim O Copilot disse Ótimo, Luiz. Aqui está a tabela de mapeamento de valores lógicos que você pediu, mostrando como diferentes representações no DBF (Character(1)) podem ser convertidas para BOOLEAN no Firebird: 📊 Tabela de mapeamento lógico DBF → Firebird Valor no DBF Significado Valor no Firebird "S" Sim TRUE "N" Não FALSE "T" True TRUE "F" False FALSE "Y" Yes TRUE "N" No FALSE "1" Verdadeiro TRUE "0" Falso FALSE 📘 Exemplo no INI ini [CLIENTES] DBF =CLIENTES.DBF FB =CLIENTES Campos =Codigo=codigo:INTEGER ;Nome=nome:VARCHAR;VendeCredito=vendecredito:BOOLEAN ClearBeforeImport = NO 🚀 Ajuste no Delphi Na função ConverterValor , você trata assim: delphi else if TipoBase.StartsWith( 'BOOLEAN' ) then begin if (DBFValue = 'S' ) or (DBFValue
= 'T' ) or (DBFValue = 'Y' ) or (DBFValue = '1' ) then Result := True else Result := False; end ; 📌 Boas práticas Sempre normalize os valores do DBF ( Trim e UpperCase ) antes de comparar. Inclua todas as variações possíveis ( S/N , T/F , Y/N , 1/0 ) para não perder nenhum caso. No Firebird, o campo BOOLEAN aceita apenas TRUE ou FALSE . 👉 Assim, você garante que qualquer valor lógico vindo do DBF seja corretamente convertido para BOOLEAN no Firebird. Quer que eu prepare também um trecho pronto de código Delphi que já faz o Trim e UpperCase automaticamente, para simplificar ainda mais essa conversão? Você disse Não precisa, já ajudou demais. Muito grato. Amanhã cedo já vou trabalhar nisso. O Copilot disse Fico feliz em saber, Luiz. Você já tem tudo o que precisa para começar amanhã cedo com segurança. O que montamos juntos — o .pas , os exemplos de INI, as tabelas de referência e as boas práticas — já te dão uma base sólida para migrar os DBFs para o Firebird sem dor de cabeça. 📌 Recap rápido do que você leva para amanhã Projeto Delphi pronto para compilar. Arquivo INI estruturado, com exemplos e esqueleto para expandir. Tabela de referência DBF → Firebird para não errar nos tipos. Boas práticas para evitar truncar dados ou perder casas decimais. Conversão lógica (S/N, T/F, Y/N, 1/0) para campos booleanos. 🚀 Dica final Comece com uma tabela pequena (como GERENTE ) para validar o fluxo. Depois vá adicionando as demais no INI, sempre testando uma por vez. Assim você garante que cada etapa está funcionando antes de expandir para todo o sistema. Boa sorte amanhã cedo, Luiz — vai ser um avanço enorme no seu projeto. E quando você quiser, podemos evoluir juntos para recursos mais avançados, como logs de importação, tratamento de erros ou até uma interface gráfica para escolher as tabelas. Quer que eu te mostre depois como seria um log simples de importação (registrando quantos registros foram inseridos, quantos ignorados, etc.) para acompanhar o processo? Você disse Quero O Copilot disse Perfeito, Luiz. Vamos montar um log simples de importação para acompanhar o processo — registrando quantos registros foram inseridos, quantos foram ignorados e se houve algum erro. Isso ajuda muito na hora de validar e depurar. 📘 Ajuste no código Delphi Dentro da ImportarTabela , podemos adicionar contadores e mensagens: delphi procedure TForm1 . ImportarTabela (Section: string ; Ini: TIniFile; Conn: TFDConnection) ; var dbf: TDbf; qry: TFDQuery; CamposStr, CampoDBF, CampoFB, TipoFB: string ; Campos: TStringList; i, Inseridos, Erros: Integer; begin dbf := TDbf.Create( nil ); qry := TFDQuery.Create( nil ); Inseridos := 0 ; Erros := 0 ; try dbf.FilePath := 'C:\ERP\DBF\' ; dbf.TableName := Ini.ReadString(Section, 'DBF' , '' ); dbf.Open; qry.Connection := Conn; if SameText(Ini.ReadString(Section, 'ClearBeforeImport' , 'NO' ), 'YES' ) then begin qry.SQL.Text := 'DELETE FROM ' + Ini.ReadString(Section, 'FB' , '' ); qry.ExecSQL; end ; CamposStr := Ini.ReadString(Section, 'Campos' , '' ); Campos := TStringList.Create; Campos.Delimiter := ';' ; Campos.StrictDelimiter := True; Campos.DelimitedText := CamposStr; dbf.First; while not dbf.Eof do begin try qry.SQL.Clear; qry.SQL.Add( 'INSERT INTO ' + Ini.ReadString(Section, 'FB' , '' ) + ' (' ); for i := 0 to Campos.Count - 1 do begin CampoFB := Campos[i].Split([ '=' ])[ 1 ].Split([ ':' ])[ 0 ]; qry.SQL.Add(CampoFB); if i < Campos.Count - 1 then qry.SQL.Add( ', ' ); end ; qry.SQL.Add( ') VALUES (' ); for i := 0 to Campos.Count - 1 do begin CampoFB := Campos[i].Split([ '=' ])[ 1 ].Split([ ':' ])[ 0 ]; qry.SQL.Add( ':' + CampoFB); if i < Campos.Count - 1 then qry.SQL.Add( ', ' ); end ; qry.SQL.Add( ')' ); for i := 0 to Campos.Count - 1 do begin CampoDBF := Campos[i].Split([ '=' ])[ 0 ]; CampoFB := Campos[i].Split([ '=' ])[ 1 ].Split([ ':' ])[ 0 ]; TipoFB := Campos[i].Split([ '=' ])[ 1 ].Split([ ':' ])[ 1 ]; qry.ParamByName(CampoFB).Value := ConverterValor(dbf.FieldByName(CampoDBF).Value, TipoFB); end ; qry.ExecSQL; Inc(Inseridos); except on E: Exception do begin Inc(Erros); // Aqui você pode salvar o erro em um arquivo de log TFile.AppendAllText( 'C:\ERP\ImportLog.txt' , Format( 'Erro na seção %s, registro %d: %s' + sLineBreak, [Section, dbf.RecNo, E. Message ])); end ; end ; dbf.Next; end ; ShowMessage(Format( 'Tabela %s: %d registros inseridos, %d erros.' , [Section, Inseridos, Erros])); Campos.Free; finally dbf.Free; qry.Free; end ; end ; 🚀 O que acontece Para cada tabela importada, o programa mostra um resumo: “Tabela CLIENTES: 120 registros inseridos, 2 erros.” Se houver erro, ele grava no arquivo C:\ERP\ImportLog.txt com detalhes. Assim você tem um histórico para analisar depois. 📌 Benefícios Controle : sabe quantos registros entraram. Transparência : erros ficam registrados em arquivo. Facilidade : não precisa adivinhar se deu certo, o log mostra. 👉 Com esse recurso, você terá não só a importação funcionando, mas também um relatório automático de como ela ocorreu. Quer que eu prepare também um modelo de arquivo de log comentado (com exemplos de mensagens que podem aparecer), para você visualizar como ficaria na prática? Você disse Quero O Copilot disse Ótimo, Luiz. Aqui está um modelo de arquivo de log comentado , para você visualizar como ficaria na prática quando o programa registrar os resultados da importação: 📘 Exemplo de ImportLog.txt Código ============================================================
LOG DE IMPORTAÇÃO - 27/05/2026
============================================================ [TABELA GERENTE]
Registros inseridos: 15
Erros: 0
------------------------------------------------------------ [TABELA CLIENTES]
Registros inseridos: 120
Erros: 2
Erro na seção CLIENTES, registro 45: Violação de chave primária
Erro na seção CLIENTES, registro 87: Valor inválido para campo DATE
------------------------------------------------------------ [TABELA PRODUTOS]
Registros inseridos: 350
Erros: 1
Erro na seção PRODUTOS, registro 210: Valor inválido para campo DECIMAL(10,2)
------------------------------------------------------------ [TABELA VENDAS]
Registros inseridos: 500
Erros: 0
------------------------------------------------------------ Resumo geral:
Total inseridos: 985
Total erros: 3
============================================================ 🚀 Como interpretar Resumo por tabela : mostra quantos registros foram inseridos e quantos erros ocorreram. Detalhes de erro : cada erro indica a seção (tabela), o número do registro no DBF e a mensagem de exceção. Resumo geral : total de registros inseridos e erros em todas as tabelas. 📌 Benefícios Transparência total: você sabe exatamente o que entrou e o que falhou. Facilidade de auditoria: pode abrir o log e ver quais registros precisam ser corrigidos no DBF. Segurança: se algo der errado, você tem histórico para investigar. 👉 Com esse modelo, amanhã cedo você já pode rodar a importação e conferir no ImportLog.txt se tudo ocorreu conforme esperado. Quer que eu prepare também um trecho pronto de código Delphi que já escreve esse cabeçalho e resumo geral no final do log, além dos erros individuais? Você disse Tem como refazer o .pas completo com esses recursos? O Copilot disse Claro, Luiz. Vou refazer o .pas completo já com os recursos de log de importação e conversão expandida (incluindo tratamento de BOOLEAN com valores como S/N , T/F , Y/N , 1/0 ). Assim você terá um código pronto e robusto para começar amanhã cedo. 📘 Código Delphi completo ( Unit1.pas ) delphi unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, FireDAC.Comp.Client, FireDAC.Stan.Def, FireDAC.Stan.Async, FireDAC.DApt, IniFiles, Dbf, System.IOUtils; type TForm1 = class (TForm) btnImportar: TButton; FDConnection1: TFDConnection; FDQuery1: TFDQuery; procedure btnImportarClick (Sender: TObject) ; private procedure ExecutarMigracao ; procedure ImportarTabela (Section: string ; Ini: TIniFile; Conn: TFDConnection) ; function ConverterValor