Erro ao gerar arquivo txt
21/02/2003
0
procedure TfEnvio.BitBtn1Click(Sender: TObject);
begin
data:=datetostr(date);
data:=Copy(data,1,Length(data)-5);
Delete(data,Pos(´/´,data),1); ///Delata o caracter ´/´
/// namearq:=´M´+´´+edtempresa.text+´´+data;
namearq:=´M´+´´+edtemp+´´+data;
path:= edtEscolha.text+´\´+namearq+´.txt´;
with dmEnvio.qryImporta, sql do
begin
clear;
close;
add(´select (l.nomecidade) as NomeAtend,(c.nomecidade) as NomeCidade,´);
add(´u.* from usuario u, localatend l, cidade c´);
add(´where u.idlocalatendimento = l.idlocalatend´);
add(´and u.idcidade = c.idcidade´);
add(´and ((dtcadastro >= :D1) and (dtcadastro <= :D2))´);
add(´and usuemp = ´´´+edtEmpresa.Text+´´´´);
add(´and enviado =´´N´´´);
ParamByName(´D1´).AsDateTime := Trunc(fEnvio.DateTimePicker1.date);
ParamByName(´D2´).AsDateTime := Trunc(fEnvio.DateTimePicker2.Date);
open;
end;
AssignFile(F, path);
Rewrite(F);
dmEnvio.qryImporta.First;
While not dmEnvio.qryImporta.Eof Do
Begin
Writeln(F, dmEnvio.qryImportaidseq.Value);
dmEnvio.qryImporta.Next;
end;
CloseFile(F);
Faco a criacao do arquivo txt, mas quando ele comeca a gerar aparece o seguinte erro:
´Invalid File Name´
O que significa este erro??
Qual a solucao????
Grato.
Evandro Araujo de Abreu
Cpd - Uniodonto Campinas
E-mail: sistemas@uniodontocamp.com.br
19 - 37314020
begin
data:=datetostr(date);
data:=Copy(data,1,Length(data)-5);
Delete(data,Pos(´/´,data),1); ///Delata o caracter ´/´
/// namearq:=´M´+´´+edtempresa.text+´´+data;
namearq:=´M´+´´+edtemp+´´+data;
path:= edtEscolha.text+´\´+namearq+´.txt´;
with dmEnvio.qryImporta, sql do
begin
clear;
close;
add(´select (l.nomecidade) as NomeAtend,(c.nomecidade) as NomeCidade,´);
add(´u.* from usuario u, localatend l, cidade c´);
add(´where u.idlocalatendimento = l.idlocalatend´);
add(´and u.idcidade = c.idcidade´);
add(´and ((dtcadastro >= :D1) and (dtcadastro <= :D2))´);
add(´and usuemp = ´´´+edtEmpresa.Text+´´´´);
add(´and enviado =´´N´´´);
ParamByName(´D1´).AsDateTime := Trunc(fEnvio.DateTimePicker1.date);
ParamByName(´D2´).AsDateTime := Trunc(fEnvio.DateTimePicker2.Date);
open;
end;
AssignFile(F, path);
Rewrite(F);
dmEnvio.qryImporta.First;
While not dmEnvio.qryImporta.Eof Do
Begin
Writeln(F, dmEnvio.qryImportaidseq.Value);
dmEnvio.qryImporta.Next;
end;
CloseFile(F);
Faco a criacao do arquivo txt, mas quando ele comeca a gerar aparece o seguinte erro:
´Invalid File Name´
O que significa este erro??
Qual a solucao????
Grato.
Evandro Araujo de Abreu
Cpd - Uniodonto Campinas
E-mail: sistemas@uniodontocamp.com.br
19 - 37314020
Anonymous
Curtir tópico
+ 0
Responder
Posts
21/02/2003
Aroldo Zanela
[quote=´Evandro´]procedure TfEnvio.BitBtn1Click(Sender: TObject);
begin
data:=datetostr(date);
data:=Copy(data,1,Length(data)-5);
Delete(data,Pos(´/´,data),1); ///Delata o caracter ´/´
/// namearq:=´M´+´´+edtempresa.text+´´+data;
namearq:=´M´+´´+edtemp+´´+data;
path:= edtEscolha.text+´\´+namearq+´.txt´;
with dmEnvio.qryImporta, sql do
begin
clear;
close;
add(´select (l.nomecidade) as NomeAtend,(c.nomecidade) as NomeCidade,´);
add(´u.* from usuario u, localatend l, cidade c´);
add(´where u.idlocalatendimento = l.idlocalatend´);
add(´and u.idcidade = c.idcidade´);
add(´and ((dtcadastro >= :D1) and (dtcadastro <= :D2))´);
add(´and usuemp = ´´´+edtEmpresa.Text+´´´´);
add(´and enviado =´´N´´´);
ParamByName(´D1´).AsDateTime := Trunc(fEnvio.DateTimePicker1.date);
ParamByName(´D2´).AsDateTime := Trunc(fEnvio.DateTimePicker2.Date);
open;
end;
AssignFile(F, path);
Rewrite(F);
dmEnvio.qryImporta.First;
While not dmEnvio.qryImporta.Eof Do
Begin
Writeln(F, dmEnvio.qryImportaidseq.Value);
dmEnvio.qryImporta.Next;
end;
CloseFile(F);
Faco a criacao do arquivo txt, mas quando ele comeca a gerar aparece o seguinte erro:
´Invalid File Name´
O que significa este erro??
Qual a solucao????
Verifique as permissões de gravação.
begin
data:=datetostr(date);
data:=Copy(data,1,Length(data)-5);
Delete(data,Pos(´/´,data),1); ///Delata o caracter ´/´
/// namearq:=´M´+´´+edtempresa.text+´´+data;
namearq:=´M´+´´+edtemp+´´+data;
path:= edtEscolha.text+´\´+namearq+´.txt´;
with dmEnvio.qryImporta, sql do
begin
clear;
close;
add(´select (l.nomecidade) as NomeAtend,(c.nomecidade) as NomeCidade,´);
add(´u.* from usuario u, localatend l, cidade c´);
add(´where u.idlocalatendimento = l.idlocalatend´);
add(´and u.idcidade = c.idcidade´);
add(´and ((dtcadastro >= :D1) and (dtcadastro <= :D2))´);
add(´and usuemp = ´´´+edtEmpresa.Text+´´´´);
add(´and enviado =´´N´´´);
ParamByName(´D1´).AsDateTime := Trunc(fEnvio.DateTimePicker1.date);
ParamByName(´D2´).AsDateTime := Trunc(fEnvio.DateTimePicker2.Date);
open;
end;
AssignFile(F, path);
Rewrite(F);
dmEnvio.qryImporta.First;
While not dmEnvio.qryImporta.Eof Do
Begin
Writeln(F, dmEnvio.qryImportaidseq.Value);
dmEnvio.qryImporta.Next;
end;
CloseFile(F);
Faco a criacao do arquivo txt, mas quando ele comeca a gerar aparece o seguinte erro:
´Invalid File Name´
O que significa este erro??
Qual a solucao????
ShowMessage(path); // Vê se o que aparece é um nome válido AssignFile(F, path); Rewrite(F); dmEnvio.qryImporta.First; While not dmEnvio.qryImporta.Eof Do Begin Writeln(F, dmEnvio.qryImportaidseq.Value); dmEnvio.qryImporta.Next; end; CloseFile(F);
Verifique as permissões de gravação.
Responder
21/02/2003
Dor_poa
por acaso a variavel path não esta vazia ou com um nome inválido???
Responder
Clique aqui para fazer login e interagir na Comunidade :)