Autor
Mensagem
Postado em: 31/8/2010 9:44:22 AM
Bom dia a todos, gostaria de saber como faço para trabalhar com parametros no quickreport?
Att,
Cleverson Melo.
Postado em: 31/8/2010 11:22:00 AM
Assim, de acordo com um parametro que eu passar o relatório é mostrado .
Postado em: 31/8/2010 11:40:05 AM
Queria gerar um relatório de acordo com a data que eu passar como parametro.
Postado em: 31/8/2010 3:58:23 PM
Eu fiz na Query mesmo, mas quando vou abrir o relatório, ele abre vazio.
Está dessa forma:
Na Query =
select * from veiculacao
where DATAFIM BETWEEN :DATAINI AND :DATAFIM
No botão onde chama o formulário
CLIENTDATASET.FETCHPARAMS;
CLIENTDATASET.PARAMS.PARAMBYNAME('DATAINI').VALUE:=EDIT1.TEXT;
CLIENTDATASET.PARAMS.PARAMBYNAME('DATAFIM').VALUE:=EDIT2.TEXT;
CLIENTDATASET.OPEN;
FORM_RELATORIO.QUICKREP1.PREVIEW;
Postado em: 31/8/2010 7:25:42 PM
CLIENTDATASET.FETCHPARAMS;
CLIENTDATASET.PARAMS.PARAMBYNAME('DATAINI').AsDateTime:=StrToDate(EDIT1.TEXT);
CLIENTDATASET.PARAMS.PARAMBYNAME('DATAFIM').AsDateTime:=StrToDate(EDIT2.TEXT);
CLIENTDATASET.OPEN;
//Para ver se retornou registro
ShowMessage(IntToStr(ClientDataset.RecordCount));
FORM_RELATORIO.QUICKREP1.PREVIEW;
Postado em: 1/9/2010 10:58:55 AM
Não deu certo, ele está retornando vazio, mas no banco ele retorna alguns registros. Isso tá muito estranho
Postado em: 1/9/2010 11:09:58 AM
Ele está setado no ClientDataSet, Ele está funcionando, só não funciona quando coloco os parametros.
Postado em: 1/9/2010 11:29:53 AM
Faz o seguinte, abra o seu quickreport e verifique se na aba de propriedades dele o campo dataset, esta setado no datasource do seu formulario do relatório. Se ele nao estiver aparecendo você ira abrir as Fields de sua Query e clicar em qualquer uma delas e arrastar o campo selecionado para dentro do seu quick report, irá aparcer uma mensagem clique em ok. Após ter feito isso veja se ao selecionar o campo DataSet de seu quickreport isa aparecer a sua consulta. Qualquer coisa posta aqui.
Postado em: 1/9/2010 3:59:40 PM
Eu fiz outros testes e ele não está aceitando nenhum parametro.
Postado em: 1/9/2010 4:10:02 PM
Ele não está reconhecendo esse comando (prepare).
Postado em: 1/9/2010 4:21:29 PM
Lá na Query a propriedade Data Type está ftDate
E value está vazio, é isso mesmo?
Postado em: 1/9/2010 4:42:14 PM
Alguém pode me mostrar algum exemplo por favor?
Postado em: 1/9/2010 4:57:45 PM
Está sim
Postado em: 2/9/2010 8:21:55 AM
Mas quando eu tiro os parametros ele mostra todos os registros.
Postado em: 2/9/2010 2:10:13 PM
Sim, ele retorna os registros.
Postado em: 2/9/2010 4:23:33 PM
Eu coloquei assim agora e ele está mostrando a contagem dos registros, porém não está mostrando no relatório, ele está setando para a query certa, verifiquei.
with DmRelatorio.CdsVeiculacao do
begin
close;
FetchParams;
Params.ParamByName('DATAINI').AsDate:=DataInicial.Date;
Params.ParamByName('DATAFIM').AsDate:=DataFinal.Date;
Open;
ShowMessage(IntToStr(RecordCount)); //aqui ele está mostrando a contagem
end;
with FmRelatVeiculacao do
begin
QuickRep1.Preview;
Release;
FmRelatVeiculacao:=nil;
end;
FmRelatorioVeiculacao.Close;
end;
begin
close;
FetchParams;
Params.ParamByName('DATAINI').AsDate:=DataInicial.Date;
Params.ParamByName('DATAFIM').AsDate:=DataFinal.Date;
Open;
ShowMessage(IntToStr(RecordCount)); //aqui ele está mostrando a contagem
end;
with FmRelatVeiculacao do
begin
QuickRep1.Preview;
Release;
FmRelatVeiculacao:=nil;
end;
FmRelatorioVeiculacao.Close;
end;
Postado em: 2/9/2010 4:37:34 PM
Postado em: 2/9/2010 5:09:31 PM
Já verifiquei, ele está apontando para seus respectivos campos.
Postado em: 3/9/2010 10:03:43 AM
Só consegui abrir o seu projeto, não consegui roda-lo pois minha versão do delphi e do firebird é inferior a sua, mas vamos a algumas modificações:
No FmRelatorioVeiculacao, tem uma unit desnecessaria, que não está sendo usada para nada.
uses UDmRelatorio, UnRelatorioVeiculacao, UFmRelatorioAgendamento;//Retire UFmRelatorioAgendamento
Deixe assim:
uses UDmRelatorio, UnRelatorioVeiculacao;
No trecho de código abaixo, pode simplificar:
with FmRelatVeiculacao do
begin
QuickRep1.Preview;
Release;
FmRelatVeiculacao:=nil;
end;
FmRelatorioVeiculacao.Close;
begin
QuickRep1.Preview;
Release;
FmRelatVeiculacao:=nil;
end;
FmRelatorioVeiculacao.Close;
Substitua por apenas:
FmRelatVeiculacao.QuickRep1.Preview;
Vamos ao relatório agora:
procedure TFmRelatVeiculacao.FormCreate(Sender: TObject);
begin
inherited;
DmRelatorio.CdsVeiculacao.Open;
end;
begin
inherited;
DmRelatorio.CdsVeiculacao.Open;
end;
O evento acima, não deve existir de jeito nenhum e talvez seja isso que está fazendo seu relatório vir vazio, pois, no FmRelatorioVeiculacao, você já ta dando open no cdsVeiculacao, lembra?
with DmRelatorio.CdsVeiculacao do
begin
close;
FetchParams;
Params.ParamByName('DATAINI').AsDate:=DataInicial.Date;
Params.ParamByName('DATAFIM').AsDate:=DataFinal.Date;
Open;
ShowMessage(IntToStr(RecordCount));
end;
begin
close;
FetchParams;
Params.ParamByName('DATAINI').AsDate:=DataInicial.Date;
Params.ParamByName('DATAFIM').AsDate:=DataFinal.Date;
Open;
ShowMessage(IntToStr(RecordCount));
end;
No evento abaixo:
procedure TFmRelatVeiculacao.FormDestroy(Sender: TObject);
begin
inherited;
DmRelatorio.CdsAgendamento.Close;
DmRelatorio.Free;
DmRelatorio:=nil;
end;
begin
inherited;
DmRelatorio.CdsAgendamento.Close;
DmRelatorio.Free;
DmRelatorio:=nil;
end;
Retire a linha:
DmRelatorio.CdsAgendamento.Close;
Pois, você não ta usando CdsAgendamento para nada.
Pois, você não ta usando CdsAgendamento para nada.
Faça as modificações e teste, para ver como irá funcionar.
Qualquer coisa, cole aqui o código fonte apenas destas duas units.
Postado em: 3/9/2010 10:28:37 AM
Fiz as modificações, mas continua do mesmo jeito.
Tá muito estranho, pois parece que está normal.
Postado em: 4/9/2010 8:44:50 AM
E aí galera deu certo rsrs
Fiz a construção do relatório novamente.
Muito estranho, mas o importamte é que deu certo agora.
Obrigado a todos pelas ajudas.
