Exportar dados para arq. TXT

Delphi

01/10/2003

Olá pessoal,

Estou utilizando o TADOQuery com o TADOConnection para acessar o BD.
Estou gerando um arquivo txt com os dados dos clientes da empresa, mais quando um campo está vazio ele pega como padrão o dado do registro anterior do mesmo campo.
[b:9311d46fde]Não sei mais o que fazer!!!![/b:9311d46fde]

Rewrite(Txt);
DmFin.ADOQ_Equifax.First;
if not DmFin.ADOQ_Equifax.Eof then
repeat
Write(Txt,DmFin.ADOQ_EquifaxCli_JF.value);
Write(Txt,FormataCNPJ(DmFin.ADOQ_EquifaxCli_Cnpj.value));
Write(Txt,FormataRazaoSocial(DmFin.ADOQ_EquifaxCli_Raz_Soc.Value));
Write(Txt,FormataRazaoSocial(DmFin.ADOQ_EquifaxCli_Nom_Fant.Value));
Write(Txt,´M´);
Write(Txt,FormataEndereco(DmFin.ADOQ_EquifaxCli_End.Value));
Write(Txt,FormataCidade(DmFin.ADOQ_EquifaxCli_Cidade.Value));
Write(Txt,DmFin.ADOQ_EquifaxCli_Estado.Value);
DmFin.ADOQ_Equifax.Next;
until DmFin.ADOQ_Equifax.Eof;
CloseFile(Txt);


Vscruz

Vscruz

Curtidas 0

Respostas

Genial_reis

Genial_reis

01/10/2003

procedure TformCg0102.bt_sairClick(Sender: TObject);
begin
Close;
end;


Function TestaData(Data:string):Boolean;
Begin
try
strtodate(Data);
result := true
Except
result := False ;
end;
end;

function AjustaStr ( str: String; tam: Integer ): String;
begin
while Length ( str ) < tam do
str := str + ´ ´;
if Length ( str ) > tam then
str := Copy ( str, 1, tam );
Result := str;
end;


// inicio do form
procedure TformCg0102.FormCreate(Sender: TObject);
begin
table1.Open;
query1.Open;
table1.FindFirst;
table3.Open;
table2.Open;
table4.Open;
table4.FindFirst;
end;

// codigo para pesquisa por chave
procedure TformCg0102.SpeedButton1Click(Sender: TObject);
begin
strcard:=inputbox(´Pesquisa´, ´Número do Carão !!´,´´);
table1.indexname:=´PrimaryKey´;
table1.findnearest([strcard]);
end;


// codigo para exportaçao da base em texto
procedure TformCg0102.SpeedButton2Click(Sender: TObject);
var
F: TextFile;
begin
AssignFile (F, ´c:\temp\teste.txt´ );
Rewrite(f);
query1.first;
while not query1.EOF do
begin
Write (f, AjustaStr ( query1.FieldByName ( ´NOME´ ).AsString,55 ) );
Write (f, AjustaStr ( query1.FieldByName ( ´COD_ESTABELE´ ).AsString,6 ) );
Write (f, AjustaStr ( query1.FieldByName ( ´NUMEROCARTAO´ ).AsString,11 ) );
Write (f, AjustaStr ( query1.FieldByName ( ´DATA_TRANS´ ).AsString,9 ) );
Write (f, AjustaStr ( query1.FieldByName ( ´DATAVALIDA´ ).AsString,9 ) );
Write (f, AjustaStr ( query1.FieldByName ( ´VALOR1´ ).AsString,8 ) );
Write (f, AjustaStr ( query1.FieldByName ( ´VALOR2´ ).AsString,8 ) );
Write (f, AjustaStr ( query1.FieldByName ( ´STATUS´ ).AsString,3 ) );
WriteLn ( f );
query1.Next;
end;
CloseFile ( f );
If messagedlg(´Arquivo Gerado Gerado com Sucesso !!!!´,mtinformation,[mbok],0) = mrok then
formCg0102.Show;

end;


Qualquer coisa me manda um e-mail
Tecnologia@quanta-jle.com.br


GOSTEI 0
POSTAR