Autor
Mensagem
Informações sobre o chamado:
Criado em: 31/8/2010 9:44:22 AM
Status deste chamado: em andamento
Última ação ref. este chamado: Chamado resp. pelo usuario
Ver histórico do chamado
Criado em: 31/8/2010 9:44:22 AM
Status deste chamado: em andamento
Última ação ref. este chamado: Chamado resp. pelo usuario
Ver histórico do chamado
#ID: 385219 
Postado em: 31/8/2010 9:44:22 AM
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.
#ID: 385231 Postado em: 31/8/2010 11:22:00 AM
Postado em: 31/8/2010 11:22:00 AM
Assim, de acordo com um parametro que eu passar o relatório é mostrado .
#ID: 385235 Postado em: 31/8/2010 11:40:05 AM
Postado em: 31/8/2010 11:40:05 AM
Queria gerar um relatório de acordo com a data que eu passar como parametro.
#ID: 385279 Postado em: 31/8/2010 3:58:23 PM
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;
#ID: 385303 Postado em: 31/8/2010 7:25:42 PM
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;
#ID: 385344 Postado em: 1/9/2010 10:58:55 AM
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
#ID: 385350 Postado em: 1/9/2010 11:09:58 AM
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.
#ID: 385361 Postado em: 1/9/2010 11:29:53 AM
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.
#ID: 385405 Postado em: 1/9/2010 3:59:40 PM
Postado em: 1/9/2010 3:59:40 PM
Eu fiz outros testes e ele não está aceitando nenhum parametro.
#ID: 385412 Postado em: 1/9/2010 4:10:02 PM
Postado em: 1/9/2010 4:10:02 PM
Ele não está reconhecendo esse comando (prepare).
#ID: 385413 Postado em: 1/9/2010 4:13:12 PM
Postado em: 1/9/2010 4:13:12 PM
Tente assim
#Código
</span></div><div><span class="Apple-style-span" style="font-family: verdana; font-size: small; line-height: 17px; ">CLIENTDATASET.CLOSE;</span></div>CLIENTDATASET.FETCHPARAMS;<div>CLIENTDATASET.PARAMS.PARAMBYNAME('DATAINI').AsDateTime:=StrToDate(EDIT1.TEXT);</div><div>CLIENTDATASET.PARAMS.PARAMBYNAME('DATAFIM').AsDateTime:=StrToDate(EDIT2.TEXT);</div><div>CLIENTDATASET.OPEN;</div><div>
#ID: 385416 Postado em: 1/9/2010 4:18:10 PM
Postado em: 1/9/2010 4:18:10 PM
Só melhorando um pouco o código:
#Código
</FONT></SPAN></DIV>
<DIV><SPAN style="LINE-HEIGHT: 17px; FONT-FAMILY: verdana; FONT-SIZE: small" class=Apple-style-span><FONT size=2>With <SPAN style="LINE-HEIGHT: 17px; FONT-FAMILY: verdana; FONT-SIZE: small" class=Apple-style-span><FONT size=2>CLIENTDATASET</FONT></SPAN> do</FONT></SPAN></DIV>
<DIV><SPAN style="LINE-HEIGHT: 17px; FONT-FAMILY: verdana; FONT-SIZE: small" class=Apple-style-span><FONT size=2>begin<O:P></O:P></FONT></SPAN></DIV>
<DIV><SPAN style="LINE-HEIGHT: 17px; FONT-FAMILY: verdana; FONT-SIZE: small" class=Apple-style-span><FONT size=2> CLOSE;</FONT></SPAN></DIV><FONT size=2> FETCHPARAMS; </FONT>
<DIV><FONT size=2> PARAMS.PARAMBYNAME('DATAINI').AsDateTime:=StrToDate(EDIT1.TEXT);</FONT></DIV>
<DIV><FONT size=2> PARAMS.PARAMBYNAME('DATAFIM').AsDateTime:=StrToDate(EDIT2.TEXT);</FONT></DIV>
<DIV><FONT size=2> OPEN;</FONT></DIV>
<DIV><FONT size=2>end;</FONT></DIV>
<DIV><FONT size=2>
#ID: 385417 Postado em: 1/9/2010 4:21:29 PM
Postado em: 1/9/2010 4:21:29 PM
Lá na Query a propriedade Data Type está ftDate
E value está vazio, é isso mesmo?
#ID: 385421 Postado em: 1/9/2010 4:42:14 PM
Postado em: 1/9/2010 4:42:14 PM
Alguém pode me mostrar algum exemplo por favor?
#ID: 385429 Postado em: 1/9/2010 4:57:45 PM
Postado em: 1/9/2010 4:57:45 PM
Está sim
#ID: 385471 Postado em: 2/9/2010 8:21:55 AM
Postado em: 2/9/2010 8:21:55 AM
Mas quando eu tiro os parametros ele mostra todos os registros.
#ID: 385531 Postado em: 2/9/2010 2:10:13 PM
Postado em: 2/9/2010 2:10:13 PM
Sim, ele retorna os registros.
#ID: 385557 Postado em: 2/9/2010 4:23:33 PM
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;
#ID: 385560 Postado em: 2/9/2010 4:37:34 PM
Postado em: 2/9/2010 4:37:34 PM
#ID: 385564 Postado em: 2/9/2010 5:09:31 PM
Postado em: 2/9/2010 5:09:31 PM
Já verifiquei, ele está apontando para seus respectivos campos.
#ID: 385602 Postado em: 3/9/2010 10:03:43 AM
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.
#ID: 385605 Postado em: 3/9/2010 10:28:37 AM
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.
#ID: 385668 Postado em: 4/9/2010 8:44:50 AM
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.
