Fórum duvida filtro em relatorio quickreport #192291
02/11/2003
0
To criando meu primeiro ´projeto´ com relatórios e estou com uma duvida sobre o quickreport, é que estou tentando criar um relatorio com um filtro entre duas datas só que o filtro só funciona se as datas escolhidas forem as mesmas.
provavelmente é alguma burrice da minha parte mas é que to começando agora no delphi, alguem pode me dizer o que ta errado no codigo abaixo ou me dar algum exemplo de como filtrar duas datas.
var
f1,f2 :tdatetime;
begin
//inicializando as variaveis
f1:=MonthCalendar1.date;
f2:=MonthCalendar2.date;
//iniciando filtro
dm.table2.setrangestart;
dm.table2data.value:=f1;
dm.table2.setrangeend;
dm.table2data.value:=f2;
dm.table2.applyrange;
//testando primeiro filtro
if(dm.table2data.value=f1)then
//testendo segundo filtro
if(dm.table2data.value=f2)then
//chamando o form filtrodata
begin
frmfiltrodata:=tfrmfiltrodata.create(application);
frmfiltrodata.quickrep1.preview;
end
else
//menssagem segunda data não encontrada
Application.MessageBox(´A data final não existe nos registros ´,´Erro - filtro incorreto´,16)
else
//menssagem primeira data não encontrada
Application.MessageBox(´A data inicial não existe nos registros ´,´Erro - filtro incorreto´,16);
//encerrando filtro
dm.table2.cancelrange;
end;
provavelmente é alguma burrice da minha parte mas é que to começando agora no delphi, alguem pode me dizer o que ta errado no codigo abaixo ou me dar algum exemplo de como filtrar duas datas.
var
f1,f2 :tdatetime;
begin
//inicializando as variaveis
f1:=MonthCalendar1.date;
f2:=MonthCalendar2.date;
//iniciando filtro
dm.table2.setrangestart;
dm.table2data.value:=f1;
dm.table2.setrangeend;
dm.table2data.value:=f2;
dm.table2.applyrange;
//testando primeiro filtro
if(dm.table2data.value=f1)then
//testendo segundo filtro
if(dm.table2data.value=f2)then
//chamando o form filtrodata
begin
frmfiltrodata:=tfrmfiltrodata.create(application);
frmfiltrodata.quickrep1.preview;
end
else
//menssagem segunda data não encontrada
Application.MessageBox(´A data final não existe nos registros ´,´Erro - filtro incorreto´,16)
else
//menssagem primeira data não encontrada
Application.MessageBox(´A data inicial não existe nos registros ´,´Erro - filtro incorreto´,16);
//encerrando filtro
dm.table2.cancelrange;
end;
Ggo_guigo
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)