Problem with seting FILTER
lazarus / 16-Databases

----------------------------------------------------------------------
ribarvlada · 2011-09-01 13:02

Data base - Firebird 2.5
ZeosDB 7

When I set filter, from date to date, I can not see any record.
What is wrong with my code

 Code: [Select]procedure TFormVozila.BitBtnIzvPojStampaClick(Sender:
TObject);
var
  cDat1, cDat2, cFilter: string;
begin
  cDat1:=DateToStr(ZVDateTimePickerIzvOdDatuma.Date);
  cDat2:=DateToStr(ZVDateTimePickerIzvDoDatuma.Date);
  RLLabelIzvPojOdDatuma.Caption:=cDat1;
  RLLabelIzvPojDoDatuma.Caption:=cDat2;
  cFilter:='(DATUMPOLASKA>='+cDat1+') and (DATUMPOLASKA<='+cDat2+')
and (REGBR='+QuotedStr(EditIzvRegBr.Caption)+')';
  ZQueryNalog.Filter:=cFilter;
  ZQueryNalog.Filtered:=True;
  ZQueryNalog.First;
  RLReportPojedina.Preview(NIL);
  RLReportPojedina.ClosePreview;
  RLReportPojedina.Visible:=False;
end;
where DATUMPOLASKA is field Date type at table NALOG?

----------------------------------------------------------------------
User137 · 2011-09-01 15:45

I would test by debugging the variable cFilter and see if it looks
correct. That looks complicated.