select 
    equipmentpars.equipmentid,
    equipmentlist.shifr,
    equipmentlist.naim,
    equipmentlist.oboz,
    equipmentpars.equipmentpardatetime
from equipmentpars
   left outer join equipment on (equipmentpars.equipmentid = equipment.id)
   left outer join equipmentlist on (equipment.equipmentlistid = equipmentlist.id)
   left outer join equipmentparslist on (equipmentpars.equipmentparslistid = equipmentparslist.id)
where 
   (
      (equipmentpars.equipmentpardatetime = 2012)
   )
order by equipmentlist.shifr, equipmentlist.naim, equipmentlist.oboz

where 
   (
      (extract(year from equipmentpars.equipmentpardatetime)=2013)
   )

BEGIN
  FOR
    select
        equipmentpars.equipmentid,
        equipmentlist.shifr,
        equipmentlist.naim,
        equipmentlist.oboz,
        equipmentparslist.equipmentpar,
        equipmentpars.equipmentparvalue,
        maxvalue(equipmentpars.equipmentpardatetime)
    from equipmentparslist
       right outer join equipmentpars on (equipmentparslist.id = equipmentpars.equipmentparslistid)
       left outer join equipment on (equipmentpars.equipmentid = equipment.id)
       left outer join equipmentlist on (equipment.equipmentlistid = equipmentlist.id)
    where
       (
          (equipmentpars.equipmentid = :IN_EQUIPMENTID )
       )
    group by equipmentpars.equipmentid
    INTO :EQUIPMENTID,
         :SHIFR,
         :NAIM,
         :OBOZ,
         :EQUIPMENTPAR,
         :EQUIPMENTPARVALUE,
         :BIRTHYEAR
  DO
  BEGIN
    SUSPEND;
  END
END

select 
    equipmentpars.equipmentid,
    equipmentlist.shifr,
    equipmentlist.naim,
    equipmentlist.oboz,
    equipmentparslist.equipmentpar,
    max( equipmentpars.equipmentparvalue, ) max_of_equipmentparvalue,
    max( equipmentpars.equipmentpardatetime, ) max_of_equipmentpardatetime
from equipmentparslist
   right outer join equipmentpars on (equipmentparslist.id = equipmentpars.equipmentparslistid)
   left outer join equipment on (equipmentpars.equipmentid = equipment.id)
   left outer join equipmentlist on (equipment.equipmentlistid = equipmentlist.id)
group by equipmentpars.equipmentid, equipmentlist.shifr, equipmentlist.naim, equipmentlist.oboz, equipmentparslist.equipmentpar

BEGIN
  FOR
    with e as
    (
        select
            equipmentpars.equipmentid,
            equipmentparslist.equipmentpar,
            max(equipmentpars.equipmentpardatetime) max_of_equipmentpardatetime
        from equipmentparslist
           right outer join equipmentpars on (equipmentparslist.id = equipmentpars.equipmentparslistid)
        where 
           (
              (equipmentparslist.equipmentpar = 'Номер изделия')
           )
        group by equipmentpars.equipmentid, equipmentparslist.equipmentpar
        order by equipmentpars.equipmentid
    )
    select
        e.equipmentid,
        equipmentlist.shifr,
        equipmentlist.naim,
        equipmentlist.oboz,
        equipmentpars.equipmentparvalue,
        e.max_of_equipmentpardatetime
    from e
       left outer join equipmentpars on (e.equipmentid = equipmentpars.equipmentid and e.max_of_equipmentpardatetime=equipmentpars.equipmentpardatetime)
       left outer join equipment on (e.equipmentid = equipment.id)
       left outer join equipmentlist on (equipment.equipmentlistid = equipmentlist.id)
    
    INTO :EQUIPMENTID,
         :SHIFR,
         :NAIM,
         :OBOZ,
         :EQUIPMENTPARVALUE,
         :BIRTHYEAR
  DO
  BEGIN
    SUSPEND;
  END
END

BEGIN
  FOR
    with e as
    (
        select
            equipmentpars.equipmentid,
            equipmentparslist.equipmentpar,
            max(equipmentpars.equipmentpardatetime) max_of_equipmentpardatetime
        from equipmentparslist
           right outer join equipmentpars on (equipmentparslist.id = equipmentpars.equipmentparslistid)
        where 
           (
              (equipmentparslist.equipmentpar = 'Номер изделия') and
              (equipmentpars.equipmentid = :in_equipmentid)
           )
        group by equipmentpars.equipmentid, equipmentparslist.equipmentpar
        order by equipmentpars.equipmentid
    )
    select
        e.equipmentid,
        equipmentlist.shifr,
        equipmentlist.naim,
        equipmentlist.oboz,
        equipmentpars.equipmentparvalue,
        e.max_of_equipmentpardatetime
    from e
       left outer join equipmentpars on (e.equipmentid = equipmentpars.equipmentid and e.max_of_equipmentpardatetime=equipmentpars.equipmentpardatetime)
       left outer join equipment on (e.equipmentid = equipment.id)
       left outer join equipmentlist on (equipment.equipmentlistid = equipmentlist.id)
    
    INTO :EQUIPMENTID,
         :SHIFR,
         :NAIM,
         :OBOZ,
         :EQUIPMENTPARVALUE,
         :BIRTHYEAR
  DO
  BEGIN
    SUSPEND;
  END
END

procedure TFReleaseEquipment.EquipmentFilter(equipmentid_: integer);
begin
  equipmentfilteredcount := 0;
  with DM, Self do
  begin
    IBQuery.SQL.Clear;
    if equipmentid_ <> 0 then
      IBQuery.SQL.Add ('execute procedure EQUIPMENTWITHLATESTNUMBERSSEL (' + inttostr(equipmentid_) + ')')
    else
      IBQuery.SQL.Add ('execute procedure EQUIPMENTWITHLATESTNUMBERS ("' +
        shifrEdit.Text + '","' + naimEdit.Text + '","' + obozEdit.Text + '","' +
        numberEdit.Text + '","' + birthyearEdit.Text + '")');
//    IBQuery.Transaction.StartTransaction;
    IBQuery.ExecSQL;
//ShowMessage('2');
//    IBQuery.Transaction.Commit;
//ShowMessage('3');
//    IBQuery.Transaction.Active:=false;
ShowMessage('RecordCount='+IntToStr(IBQuery.RecordCount));
  end;
end;

    IBQuery.Transaction.StartTransaction;
    IBQuery.ExecSQL;
    IBQuery.Transaction.Commit;
    IBQuery.Open;

procedure TFReleaseEquipment.EquipmentFilter(equipmentid_: integer);
begin
  equipmentfilteredcount := 0;
  with DM, Self do
  begin
    IBQuery.SQL.Clear;
    if equipmentid_ <> 0 then
//      IBQuery.SQL.Add ('execute procedure EQUIPMENTWITHLATESTNUMBERSSEL (1)')//' + inttostr(equipmentid_) + ')')
      IBQuery.SQL.Add ('select * from EQUIPMENTWITHLATESTNUMBERSSEL (1)')//' + inttostr(equipmentid_) + ')')
    else
      IBQuery.SQL.Add ('execute procedure EQUIPMENTWITHLATESTNUMBERS ("' +
        shifrEdit.Text + '","' + naimEdit.Text + '","' + obozEdit.Text + '","' +
        numberEdit.Text + '","' + birthyearEdit.Text + '")');
//    IBQuery.Transaction.StartTransaction;
//    IBQuery.Transaction.Active:=True;
//    IBQuery.ExecSQL;
//    IBQuery.Transaction.Commit;
    IBQuery.Open;
//    IBQuery.Transaction.Active:=false;
ShowMessage('RecordCount='+IntToStr(IBQuery.RecordCount));
  end;
end;

      IBQuery.SQL.Add ('select * from EQUIPMENTWITHLATESTNUMBERS ("' +
        shifrEdit.Text + '","' + naimEdit.Text + '","' + obozEdit.Text + '","' +
        numberEdit.Text + '","' + birthyearEdit.Text + '")');
ShowMessage(IBQuery.SQL.Text);
    IBQuery.Open;

      IBQuery.SQL.Add ('select * from EQUIPMENTWITHLATESTNUMBERS (''' +
        shifrEdit.Text + ''',''' + naimEdit.Text + ''',''' + obozEdit.Text + ''',''' +
        numberEdit.Text + ''',''' + birthyearEdit.Text + ''')');