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

SELECT GEN_ID(NEWID, 1) FROM RDB$DATABASE

next value for seq

SELECT GEN_ID(NEWID, 1) FROM RDB$DATABASE

BEGIN
  FOR
    with e0 as
    (
       select
            equipmenthistory.equipmentid,
            max(equipmenthistory.equipmentpardatetime) max_of_equipmentpardatetime0
        from equipmenthistory
        where
           (
              (equipmenthistory.equipmentparslistid = 13) or
              (equipmenthistory.equipmentparslistid = 14)
           )
        group by equipmenthistory.equipmentid
        order by equipmenthistory.equipmentid
    )
        with e as
        (   
            select
                e0.equipmentid,
                e0.max_of_equipmentpardatetime0,
                max(equipmenthistory.equipmentpardatetime) max_of_equipmentpardatetime
            from e0
            where
               (
                 (equipmenthistory.equipmentparslistid = 13)
               )
            group by e0.equipmentid
            order by e0.equipmentid
        )
            select
                e.equipmentid,
                equipmentlist.shifr,
                equipmentlist.naim,
                equipmentlist.oboz,
                equipmenthistory.equipmentparvalue,
                e.max_of_equipmentpardatetime0
            from e
               left outer join equipmenthistory on (e.equipmentid = equipmenthistory.equipmentid and e.max_of_equipmentpardatetime=equipmenthistory.equipmentpardatetime)
               left outer join equipmentlist on (equipmenthistory.equipmentlistid = equipmentlist.id)
            where
            (
                  (equipmentlist.shifr like '%' || :IN_SHIFR || '%' ) and
                  (equipmentlist.naim like '%' || :IN_NAIM || '%' ) and
                  (equipmentlist.oboz like '%' || :IN_OBOZ || '%' ) and
                  (extract(year from equipmenthistory.equipmentpardatetime) like '%' || :IN_BIRTHYEAR || '%' )
            )
    order by e.max_of_equipmentpardatetime0 DESC
    INTO :EQUIPMENTID,
         :SHIFR,
         :NAIM,
         :OBOZ,
         :EQUIPMENTPARVALUE,
         :BIRTHYEAR
  DO
  BEGIN
    SUSPEND;
  END
END