create or alter procedure GET_EMPTY
as
declare variable TBNAME varchar(250);
declare variable SQLCONTAR varchar(250);
declare variable REGISTROS integer;
begin
  for select rdb$relation_name from rdb$relations where rdb$view_blr is null and (rdb$system_flag is null or rdb$system_flag = 0) into :tbname do
    begin
    --  sqlcontar = 'delete from ' || tbname;
  --    execute statement sqlcontar into :registros;
      if ((tbname <> 'NOTA_FISCAL') And  (tbname <> 'ITEM_NOTA_FISCAL') And (tbname <> 'PARAMETR')
      And (tbname <> 'PARAMETRO2') And (tbname <> 'PARAMETRO3') ) then
        begin
         sqlcontar = 'delete from ' || tbname;
          execute statement sqlcontar;
        end
    end
    END