Transferência de dados através de arquivos .txt - Parte I

Natal DevMedia: Assine hoje e ganhe 3 meses gr�tis

Transfer�ncia de dados atrav�s de arquivos .txt - Parte I

Introdu��o

Um problema encontrado por desenvolvedores � a transfer�ncia de dados entre empresas parceiras (Ex.: Pedidos, tabelas de pre�o, cadastro de cliente, etc) ou entre empresas comerciais e bancos (Ex.: Arquivos de remessa e retorno de valores).

Embora os arquivos XML sejam utilizados pelos sistemas atuais (Ex.: SNGPC/ANVISA, NF-e) para resolver este problema, existem sistemas legados (Ex.: CNAB/FEBRABAN) que ainda utilizam a gera��o de arquivos texto seguindo um layout pr�-definido por uma ou ambas as partes.

Este artigo n�o tem a inten��o de definir qual a melhor solu��o, e sim, mostrar como podemos trabalhar com arquivos texto neste contexto.

Tabelas utilizadas neste artigo para Transmiss�o e Recebimentos

Crie um banco de dados com o nome ClubeDelphi_Transf.fdb. Neste artigo foi utilizado o Firebrid 2.0, mas fique a vontade para utilizada o SGBD da sua prefer�ncia.

Tabela Cliente

Criando o gerador utilizado pela tabela cliente

create generator Gen_Cliente;

Obs₁: Criamos esse gerador para acumular o �ltimo c�digo usado pelo �Trigger�(Veja mais a frente) no momento de incluir um novo cliente.

Criando a tabela cliente

create table Cliente(

Codigo integer not null,

CPF char(14) not null,

Nome varchar(50) not null,

Ender varchar(50),

Bairro varchar(30),

Cidade varchar(30),

UF char(2),

DtNasc date

);

Obs₂: Usamos dois campos para alfanum�rico, o varchar e o char. A diferen�a entre os dois � bem simples. Um campo varchar(50) est� indicando a quantidade m�xima de caracteres, mas caso voc� use apenas um caractere, as outras quarenta e nove posi��es ser�o �desprezadas�. J� um campo char(14) quer dizer que se voc� incluir apenas um caractere, as outras trezes posi��es ser�o preenchidas com espa�o.

Obs₃: Ap�s a defini��o do tipo dos tr�s primeiros campos aparece �not null�. Essa instru��o informa ao Firebird que � obrigat�rio entrar com um valor nos mesmos para cada registro informado, ou seja, n�o � permitido deix�-los em branco.

Criando a chave primaria da tabela cliente

alter table Cliente

add primary key(Codigo);

Obs₄: Nesse exemplo criamos uma chave primaria simples. Caso fossemos criar uma chave composta usando, por exemplo, os campo Codigo e CPF bastar�amos, na linha, ter escrito �primary key(Codigo, CPF)�.

Obs₅: Embora seja permitido criar a chave primeira junto com a cria��o da tabela, nesse exemplo criamos a chave primeira depois de termos criado a tabela. Para criarmos junto com a tabela s� seria preciso colocar uma virgula ap�s a defini��o do campo �DtNasc� e incluir �primary key(Codigo)� como mostrado abaixo:

create table Cliente(

Codigo integer not null,

CPF char(14) not null,

Nome varchar(50) not null,

Ender varchar(50),

Bairro varchar(30),

Cidade varchar(30),

UF char(2),

DtNasc date,

primary key (Codigo)

);

Criando o trigger utilizado pela tabela cliente

set term^;

create trigger TCliente for Cliente

active before insert position 0

as begin

new.Codigo = gen_id(Gen_Cliente, 1);

end;

Obs₆: O Firebird n�o possui um campo do tipo Autoincremente, mas podemos driblar isso com o uso do �Trigger� como mostrado acima.

Obs₇: A linha �create trigger TCliente for Cliente� manda o SGBD criar um �Trigger� com o nome �TCliente� para a tabela �Cliente�.

Obs₈: A linha �active before insert� pede que esse �Trigger� seja acionado antes de se inserir um novo registro. O comando �position 0� informa que caso exista mais de um �active before insert�, esse ser� o primeiro a ser executado. Caso existisse um segundo �active before insert� o comando ir� aparecer �position 1�.

Obs₉: O �begin... end� informa o inicio e o fim de um bloco de c�digo.

Obs₁₀: A linha �new.Codigo = gen_id(Gen_Cliente, 1);� utilize a fun��o �gen_id( )� para incrementar em 1(um) o gerador �Gen_Cliente�(criado anteriormente) e jogar esse valor no campo �Codigo� do novo registro.

Tabela Produto

Criando a tabela produto

create table Produto(

Codigo varchar(13) not null,

Descr varchar(50) not null,

Valor numeric(15, 2) not null

);

Criando a chave primaria da tabela produto

alter table Produto

add primary key(Codigo);

Ap�s ter criado as tabelas, trigger e generators, fa�a uma c�pia da base e renomeia para ClubeDelphi_Rec.fdb, essa base ser� usada para receber os dados gerados. Vale ressaltar que embora a base de recebimento seja igual a de transfer�ncia(nome das tabelas, campos, tipos e tamanhos), nem sempre isso acontece na vida real.

Incluindo Dados na Base de Transmiss�o

Vamos agora alimentar a base ClubeDelphi_Transf.fdb com alguns registros como mostrado a seguir:

Incluindo registros na tabela cliente

insert into Cliente(CPF, Nome, Ender, Bairro, Cidade, UF, DtNasc)

values ('111.111.111-11', 'Jose da Silva', 'Rua da Flores, 123', 'Romeirao', 'Juazeiro do Norte', 'CE', '12/31/1970');

commit;

insert into Cliente(CPF, Nome, Ender, Bairro, Cidade, UF, DtNasc)

values ('222.222.222-22', 'Maria da Silva', 'Rua Sao Pedro, 234', 'Centro', 'Juazeiro do Norte', 'CE', '02/28/1975');

commit;

insert into Cliente(CPF, Nome, Ender, Bairro, Cidade, UF, DtNasc)

values ('333.333.333-33', 'Joao Carvalho', 'Rua Sao Jose, 345', 'Salesianos', 'Juazeiro do Norte', 'CE', '10/01/1980');

commit;

insert into Cliente(CPF, Nome, Ender, Bairro, Cidade, UF, DtNasc)

values ('444.444.444-44', 'Joana Alencar', 'Rua Padre Cicero, 456', 'Matriz', 'Juazeiro do Norte', 'CE', '01/10/1985');

commit;

Obs₁₁: N�o foi informado o campo �Codigo� pois o mesmo ser� gerado pelo trigger da tabela.

Obs₁₂: Note que a data est� no formato MM/DD/AAAA, este � o formato aceito pelo comando insert para data quando se utiliza a barra �/�.

Obs₁₃: Como esses dados s�o apenas para quest�es did�ticas, os CPF informados s�o inv�lidos.

Incluindo registros na tabela produto