EXECUTE BLOCK RETURNS
….
AS  declare variable ID_EQUIP integer; 
declare variable LAB_ID integer;
declare variable COUNT_REC integer;
declare variable CALIBR_INT integer;


declare procedure LAST_CERT(ID_EQUIP integer, CALIBR_INT integer) 
   returns(NUMBER_CERT varchar(25), LAST_DATE date, DEVICE_ID_CL integer, COUNT_REC integer) 
as  begin
  if (:CALIBR_INT is null) 
    then :CALIBR_INT = -1;
   
    for execute statement
      'SELECT ce.NUMBER_CERT, ce.DATE_OUT, ce.DEVICE_ID_CL FROM CERTIFICATE ce  left join CERTIFICATE b on ce.DEVICE_ID_CL = b.DEVICE_ID_CL and ce.DATE_OUT < b.DATE_OUT where b.DEVICE_ID_CL is NULL and ce.DEVICE_ID_CL in ('||ID_EQUIP||') and (DATEADD(month, '||CALIBR_INT||', ce.DATE_OUT)<current_date)'
     on external '…\BD1.fdb'  as user 'SYSDBA' password 'masterkey'
        into :NUMBER_CERT, :LAST_DATE, :DEVICE_ID_CL  do suspend;

end


     begin 
        for select eq.ID, eq.HOST_LABORATORY, eq.CALIBRATION_INTERVAL
           from EQUIPMENT eq where ARCHIVE in (1) and PASSPORT = 1
               order by eq.NAME, eq."TYPE", eq.NUMBER, eq.NEMBER_INVENTORY
                   into :ID_EQUIP, :LAB_ID, :CALIBR_INT

      do for 
         select eq.ID, eq.NAME, eq."TYPE", eq.NUMBER, eq.NEMBER_INVENTORY, eq.PRODUCER, eq.YEAR_BEGIN, eq.CALIBRATION_INTERVAL, eq.NAME_TEST, eq.REMARK,
             eq.USER_ID, eq.DEPARTMENT_ID, eq.TIME_EDIT, eq.ARCHIVE, eq.SPECIFICATION, eq.DEVICE_DEPARTMENT_ID, eq.TYPE_SERIES, eq.DISLOCATION,                eq.TYPE_EQUIP, eq.PASSPORT, eq.HOST_LABORATORY, eq.HOST_USER, eq.COUNT_CERT, rl.NAME_SHORT_LAB, lc.NUMBER_CERT, lc.LAST_DATE 
           from EQUIPMENT eq
             left join RECIEVE_LAB(:LAB_ID) rl on rl.id = eq.HOST_LABORATORY
             left join LAST_CERT(:ID_EQUIP, :CALIBR_INT) lc on eq.ID = lc.DEVICE_ID_CL
               where eq.ID = :ID_EQUIP
 and lc.LAST_DATE is not null            //помогает избавится от записей не удовлетворяющих условию даты сертификата
  or lc.DEVICE_ID_CL is null   //по идее должно выводить те строки "EQUIPMENT", которых нет в табл. «CERTIFICATE»

                   into ID, NAME, "TYPE", NUMBER, NEMBER_INVENTORY, PRODUCER, YEAR_BEGIN, CALIBRATION_INTERVAL, NAME_TEST, REMARK, USER_ID, DEPARTMENT_ID, TIME_EDIT, ARCHIVE,
                     SPECIFICATION, DEVICE_DEPARTMENT_ID, TYPE_SERIES, DISLOCATION, TYPE_EQUIP, PASSPORT, HOST_LABORATORY, HOST_USER, COUNT_CERT, NAME_SHORT_LAB, NUMBER_CERT, LAST_DATE do suspend; END

select eq.ID, eq.NAME, eq."TYPE", eq.NUMBER, eq.NEMBER_INVENTORY, eq.PRODUCER, eq.YEAR_BEGIN, eq.CALIBRATION_INTERVAL, eq.NAME_TEST, eq.REMARK,
             eq.USER_ID, eq.DEPARTMENT_ID, eq.TIME_EDIT, eq.ARCHIVE, eq.SPECIFICATION, eq.DEVICE_DEPARTMENT_ID, eq.TYPE_SERIES, eq.DISLOCATION,                eq.TYPE_EQUIP, eq.PASSPORT, eq.HOST_LABORATORY, eq.HOST_USER, eq.COUNT_CERT, rl.NAME_SHORT_LAB, lc.NUMBER_CERT, lc.LAST_DATE 
           from EQUIPMENT eq
             left join RECIEVE_LAB(:LAB_ID) rl on rl.id = eq.HOST_LABORATORY
             left join LAST_CERT(:ID_EQUIP, :CALIBR_INT) lc on eq.ID = lc.DEVICE_ID_CL
               where eq.ID = :ID_EQUIP
  AND lc.DEVICE_ID_CL is null

AND lc.DEVICE_ID_CL is null

:NUMBER_CERT = -1;
:LAST_DATE = null;
:DEVICE_ID_CL = -1;

   declare procedure LAST_CERT(ID_EQUIP integer, CALIBR_INT integer)
     returns(NUMBER_CERT varchar(25), LAST_DATE date, DEVICE_ID_CL integer)
      as begin

if (:CALIBR_INT is null) then :CALIBR_INT = -1;
   for execute statement

   'SELECT count(*) FROM CERTIFICATE ce left join CERTIFICATE b on ce.DEVICE_ID_CL = b.DEVICE_ID_CL and ce.DATE_OUT < b.DATE_OUT
   where b.DEVICE_ID_CL is NULL and ce.DEVICE_ID_CL in ('||ID_EQUIP||')
and (DATEADD(month, '||CALIBR_INT||', ce.DATE_OUT)<current_date) into :COUNT_REC;

   if (:COUNT_REC <> 0) then
     SELECT ce.NUMBER_CERT, ce.DATE_OUT, ce.DEVICE_ID_CL FROM CERTIFICATE ce
        left join CERTIFICATE b on ce.DEVICE_ID_CL = b.DEVICE_ID_CL and ce.DATE_OUT < b.DATE_OUT
      where b.DEVICE_ID_CL is NULL and ce.DEVICE_ID_CL in ('||ID_EQUIP||')
             and (DATEADD(month, '||CALIBR_INT||', ce.DATE_OUT)<current_date)
               into :NUMBER_CERT, LAST_DATE, :DEVICE_ID_CL;
   else
      begin
    :NUMBER_CERT = -1;
    :LAST_DATE = null;
    :DEVICE_ID_CL = -1;
   end'
  on external 'D:\Database\Plan.fdb'  as user 'SYSDBA' password 'masterkey'
  into :NUMBER_CERT, :LAST_DATE, :DEVICE_ID_CL
       do suspend;
     end

    ADataSet.SelectSQL.Clear;
    ADataSet.SelectSQL.Add(L_SQL1);
    ADataSet.SelectSQL.Add('order by '+ AColumn.FieldName+' ');
    ADataSet.SelectSQL.Add(L_SQL2);
   ADataSet.Active := true;

  ADataSet.SelectSQL.Clear;
  ADataSet.SelectSQL.Add(L_SQL);
  ADataSet.Active := true;