Rave - Fazer com que só imprima com ID solicitado do usuario

Delphi

04/09/2007

Tenho um form de impressão que que tem um Edit e três botões.
Esse edit é para que o usuário só imprima o ID a sua escolha.
Tenho esse código que chama o projeto no rave:
procedure TR_LANCAMENTO.imprimirClick(Sender: TObject);
begin
  RvSystem1.DefaultDest := rdpreview;
  RvSystem1.DoNativeOutput := true;
  RvSystem1.RenderObject := nil;
  RvSystem1.OutputFileName :=´´;
  rprojectLancamentos.Open;
  rprojectLancamentos.SelectReport(´r_lancamento´, false);
  rprojectLancamentos.Execute;
  rprojectLancamentos.Close;
end;


Teria que implementar neste mesmo evento?
Vai aí como está meu SqlDataSet:
select id_lancamento_projeto, id_projeto, cod_ordenado_m, quantidade_m, material.descricao, material.un,
material.preco_unitario, total from lancamento_projeto
left join material on (cod_ordenado_m=COD_ORDENADO)
where id_projeto =:id_projeto order by id_projeto


Se vcs reparam o id_projeto está com : na frente para receber o valor. Só não sei fazer isso com o relatório.

Alguem tem alguma ideia?


Jpauloss

Jpauloss

Curtidas 0

Respostas

Jpauloss

Jpauloss

04/09/2007

Resolvi assim:
Coloquei no evento OnValidateRow do componente RvDataSetConnection:
procedure TF_LANCAMENTO_PROJETO.rdscLancamentosValidateRow(
  Connection: TRvCustomConnection; var ValidRow: Boolean);
begin
 ValidRow := grid.SelectedRows.CurrentRowSelected;
end;


Daí seleciono as linhas que quero e mando imprimir.


GOSTEI 0
Jpauloss

Jpauloss

04/09/2007

Resolvi assim: Coloquei no evento OnValidateRow do componente RvDataSetConnection: 
procedure TF_LANCAMENTO_PROJETO.rdscLancamentosValidateRow(
  Connection: TRvCustomConnection; var ValidRow: Boolean);
begin
 ValidRow := grid.SelectedRows.CurrentRowSelected;
end;
Daí seleciono as linhas que quero e mando imprimir.


E se for um edit pra o cliente selecione o ID sesejado, como fazer?


GOSTEI 0
Jpauloss

Jpauloss

04/09/2007

Tem como colocar algum parametro?


GOSTEI 0
POSTAR