Relatorio Fastreport

[joveci guedes de almeida]

Pessaoal estou tentando impimir um relatorio por data mais quando coloco data inicial  e final sempre sair todos os registro nao sai somente a data que eu quero coloquei aqui em baixo 

a minha rotina o que esta errado alguem pode mim ajudar.

agradeco desde ja..

 

if cbb_ordem.ItemIndex = 0 then ordem := 'data';
  if cbb_ordem.ItemIndex = 1 then ordem := 'codcliente';

  if cbb_relatorio.itemindex = 0 then

  begin
    qrrelorcamento.close;
    qrrelorcamento.sql.clear;
    qrrelorcamento.SQL.add('select * from c000056 where data BETWEEN :datai and :dataf order by ' + ordem);
    qrrelorcamento.params.ParamByName('datai').asdatetime := edtinicio.date;
    qrrelorcamento.params.ParamByName('dataf').asdatetime := edtfinal.date;
    qrrelorcamento.open;
    FRMMODULO.QRRELATORIO.FIELDBYNAME('LINHA2').ASSTRING := 'PERIODO: ' + edtinicio.TEXT + ' A ' + edtfinal.TEXT;
    frxrelorcamento.LoadFromFile('\Sac\server\rel\f00069A.fr3');
    frxrelorcamento.ShowReport;
  end;

[Juliomar Marchetti]

Boa tarde

está a procura de alguém para fazer isso seria?

[Dfox]

1 hora atrás, joveci guedes de almeida disse:

Pessaoal estou tentando impimir um relatorio por data mais quando coloco data inicial  e final sempre sair todos os registro nao sai somente a data que eu quero coloquei aqui em baixo 

a minha rotina o que esta errado alguem pode mim ajudar.

agradeco desde ja..

 

if cbb_ordem.ItemIndex = 0 then ordem := 'data';
  if cbb_ordem.ItemIndex = 1 then ordem := 'codcliente';

  if cbb_relatorio.itemindex = 0 then

  begin
    qrrelorcamento.close;
    qrrelorcamento.sql.clear;
    qrrelorcamento.SQL.add('select * from c000056 where data BETWEEN :datai and :dataf order by ' + ordem);
    qrrelorcamento.params.ParamByName('datai').asdatetime := edtinicio.date;
    qrrelorcamento.params.ParamByName('dataf').asdatetime := edtfinal.date;
    qrrelorcamento.open;
    FRMMODULO.QRRELATORIO.FIELDBYNAME('LINHA2').ASSTRING := 'PERIODO: ' + edtinicio.TEXT + ' A ' + edtfinal.TEXT;
    frxrelorcamento.LoadFromFile('\Sac\server\rel\f00069A.fr3');
    frxrelorcamento.ShowReport;
  end;

tenta assim

  qrrelorcamento.params.ParamByName('datai').asdate := edtinicio.date;
  qrrelorcamento.params.ParamByName('dataf').asdate := edtfinal.date;