Не работает условие поиска

[Scorpuha]

в коде идет проверка таблицы на наличии записей с текущей датой и выводом сообщения о количестве записей

begin
   datamodule2.Attestat.Filtered:=false;
   while datamodule2.Attestat.Eof do
   begin
  if datamodule2.Attestat.FieldByName('Data_pereatestat').AsString = DateToStr(Now) then

     datamodule2.Attestat.Filter:= 'Tabel='+('12');
      datamodule2.Attestat.Filtered:=true;
    Showmessage  ('Êîëè÷åñòâî ñîòðóäíèêîâ ='+ IntToSTR(datamodule2.Attestat.recordcount));
    end;

      Showmessage  ('Ñåãîäíÿ íèêîìó íå íàäî ñäàâàòü ýêçàìåíû!!!'{+ IntToSTR(datamodule2.Attestat.recordcount)});

     end;

[Stilet]

 if trunc(datamodule2.Attestat.FieldByName('Data_pereatestat').AsFloat) = Date then

не?

[Scorpuha]

не находит записи, хотя в таблице есть записи с полем Tabel=12 и с текущей датой.

[Toxa]

это все решаемо на уровне SQL

лучше в Attestat передать параметром дату и тогда уже фильтровать
а то и вообще на уровне SQL все посчитать

[Stilet]

begin
   datamodule2.Attestat.Filtered:=false;
     datamodule2.Attestat.Filter:= 'Tabel=12 and Data_pereatestat='+Quotedstr(DateToStr(Date));
      datamodule2.Attestat.Filtered:=true;
   while datamodule2.Attestat.Eof do   begin
    Showmessage  ('Êîëè÷åñòâî ñîòðóäíèêîâ ='+ IntToSTR(datamodule2.Attestat.recordcount));
 datamodule2.Attestat.Next;
    end;

Не?

[Scorpuha]

Сообщение от Toxa

а в чем собственно вопрос?
или вы похвастаться?

странноватый код, фильтровать таблицу, в которой бегаем по записям, результат будет не предсказуем, можем быстрой выйти из цикла, а можем и не выйти вообще

цикл уже применил для пробы,

Сообщение от Toxa

как я понял из кода, надо получить кол-во записей на дату и по определенному табелю,
это все решаемо на уровне SQL

а без SQL никак? просто ADOTable filter использовать можно?

[Scorpuha]

Сообщение от Stilet

begin
   datamodule2.Attestat.Filtered:=false;
     datamodule2.Attestat.Filter:= 'Tabel=12 and Data_pereatestat='+Quotedstr(DateToStr(Date));
      datamodule2.Attestat.Filtered:=true;
   while datamodule2.Attestat.Eof do   begin
    Showmessage  ('Êîëè÷åñòâî ñîòðóäíèêîâ ='+ IntToSTR(datamodule2.Attestat.recordcount));
 datamodule2.Attestat.Next;
    end;

Не?

ага, заработало, добавив сообщение о количестве сотрудников
а как можно отбирать записи не конкретному числу в поле Tabel а по всему столбцу пройтись?

[Stilet]

а по всему столбцу пройтись?

Э-э-эм... не понял...
Может задачу-то опишешь?

[Scorpuha]

нужно найти все табельные номера у которых сегодня есть переаттестация

[Stilet]

А, ну так убери Tabel=12 из фильтра.