Filtro para Relat�rios

Question

Bom � segunte, tenho que fazer um filtro para um relat�rio onde tenho um checkbox quando selecionado imprimir� todas as vendas de todos os vendedores cadastrados por exemplo, e tenho outra op��o que e...

Paulo · Answer

Ol� eder. Normalmente quando fazemos query din�micas, utilizamos uma quary base e depois de acordo com as informa��es das, se vai acrescentado condi�oes. Eu faria assim:

with clientdataset, params do
begin 
  CommandText:= �SELECT * FROM TABELA WHERE�;

  if CheckBox1.Checked then
    CommandText := CommandText + � CampoData >= :pDataIni and   CampoData <= :pDataFim�;
  ParamByName(�pDataIni�).AsDate := strtodate(DataIni.Text);
  ParamByName(�pDataFim�).AsDate := strtodate(DataFim.Text);
  Open;
end;

caso n�o use ClientdataSet, substitua o c�digo referente ao ClientDataSet pelo de seu componente.

Afterdev · Answer

Paulo blz amigo, entendi como voc� mostrou mas, meu problema � em ral��o ao edit onde tenho que digitar o c�digo do vendedor num edit.text e me retornar os dados referentes a esse vendedor, n�o sei se tenho que criar um parametro no RAVE, ou no form estou perdido em rela��o a isto.

valeu.......

Afterdev · Answer

Estou tentando fazer um filtro por codigo e n�o estoiu conseguindo, como posso resolver.....

procedure TFiltroRelComissao.BitBtn1Click(Sender: TObject);
begin
  with DM.qRelComissao do
  begin
  if checkbox1.Checked then
  begin
    DM.qRelComissao.Active:= False;
    DM.qRelComissao.ParamByName(�pDataIni�).AsDate:= strtodate(DataIni.Text);
    DM.qRelComissao.ParamByName(�pDataFin�).AsDate:= strtodate(DataFin.Text);
    DM.qRelComissao.Open;
    DM.rvComissao.ExecuteReport(�Report1�);
  end
  else
    DM.qRelComissao.SQL.Add(�select tb_vendedor.nome,tb_venda.datavenda,tb_venda.numvenda�);
    DM.qRelComissao.SQL.Add(�tb_cliente.nome,tb_venda.vlrtotal, tb_vendedor.perc_comissao, sum(tb_venda.vlrtotal * tb_vendedor.perc_comissao/100) as valorComissao�);
    DM.qRelComissao.SQL.Add(�from tb_venda, tb_cliente, tb_vendedor�);
    DM.qRelComissao.SQL.Add(�where tb_venda.idvendedor = tb_vendedor.idvendedor and tb_venda.idcliente = tb_cliente.idcliente�);
    DM.qRelComissao.SQL.Add(�and tb_vendedor.idvendedor= :pCodigo�);
    DM.qRelComissao.SQL.Add(�and tb_venda.datavenda between :pDataIni and :pDataFin�);
    DM.qRelComissao.SQL.Add(�group by tb_vendedor.nome,tb_venda.datavenda,tb_venda.numvenda�);
    DM.qRelComissao.SQL.Add(�tb_cliente.nome,tb_venda.vlrtotal,tb_vendedor.perc_comissao�);
    DM.qRelComissao.ParamByName(�pCodigo�).AsInteger:= strtoint(Edit1.Text);
    DM.qRelComissao.Open;
    DM.rvComissao.ExecuteReport(�Report1�);
  end;
end;

no caso estou utilizando o Rave para os relat�rios, n�o est� dando certo.......

F�rum Filtro para Relat�rios #365484