Filtros Delphi 2010 e rave report
Olá,Boa noite.
Gente,vocês poderiam alguns exemplos para mim de telas com filtros no delphi 2010 com o rave report????
Eu andei caçando muito na net sobre isso,mas não encontrei nada algo assim,ae vim por aqui para ver se saísse alguma coisa,acho que tem mais chances aqui ^^
Então pessoal,o que vocês puderem postar de link aqui sobre isso,vai ser muito bom,ando precisando de ajuda nisso de montão,caso alguém também possa fornecer algum contato para mim e esteja disponivel para conversarmos para resolver isso,vai ser ótimo.
Quero montar telas de filtros e poder unir com o rave report,mas não acho nada :/.
Então é isso galera,vamos la,conto com vocês =]
Abraços,Tchau.
Gente,vocês poderiam alguns exemplos para mim de telas com filtros no delphi 2010 com o rave report????
Eu andei caçando muito na net sobre isso,mas não encontrei nada algo assim,ae vim por aqui para ver se saísse alguma coisa,acho que tem mais chances aqui ^^
Então pessoal,o que vocês puderem postar de link aqui sobre isso,vai ser muito bom,ando precisando de ajuda nisso de montão,caso alguém também possa fornecer algum contato para mim e esteja disponivel para conversarmos para resolver isso,vai ser ótimo.
Quero montar telas de filtros e poder unir com o rave report,mas não acho nada :/.
Então é isso galera,vamos la,conto com vocês =]
Abraços,Tchau.
Tayguara Carvalho
Curtidas 0
Respostas
Savério Jr.
11/12/2010
aqui faz o filtro
Ds.DataSet.Filtered := False;
xid := IntToStr(ds.DataSet.FieldByName('clientes_id').AsInteger);
Ds.dataset.filter := 'clientes_id = ' + Quotedstr(xid);
Ds.DataSet.Filtered := True;
aqui chama o relatorio
Stream := TMemoryStream.create;
DMReport.RvNDRWriter1.Stream := Stream;
DMReport.RvProject1.ExecuteReport('ficha_clientes');
FrmPreviewRave := TFrmPreviewRave.create(Self, Stream, 'Ficha de Clientes');
try
FrmPreviewRave.ShowModal();
finally
FreeAndNil(FrmPreviewrave);
DS.DataSet.Filtered := false;
end;
Ds.DataSet.Filtered := False;
xid := IntToStr(ds.DataSet.FieldByName('clientes_id').AsInteger);
Ds.dataset.filter := 'clientes_id = ' + Quotedstr(xid);
Ds.DataSet.Filtered := True;
aqui chama o relatorio
Stream := TMemoryStream.create;
DMReport.RvNDRWriter1.Stream := Stream;
DMReport.RvProject1.ExecuteReport('ficha_clientes');
FrmPreviewRave := TFrmPreviewRave.create(Self, Stream, 'Ficha de Clientes');
try
FrmPreviewRave.ShowModal();
finally
FreeAndNil(FrmPreviewrave);
DS.DataSet.Filtered := false;
end;
GOSTEI 0