select
                 q.rdb$db_key as dbkey
                ,q.id
                ,q.doc_id as snd_list_id
                ,q.snd_id as snd_data_id
                ,q.snd_qty
                ,q.snd_purchase
                ,q.snd_retail
                ,q.snd_optype_id
                ,q.rcv_optype_id
            from qdistr q
            where
                  q.snd_optype_id = :snd_optype_id
                  and q.rcv_optype_id  = :rcv_optype_id
                  and q.ware_id = :ware_id
            order by q.doc_id, q.snd_id
            as cursor cq

create or alter view v_cancel_customer_reserve as
select h.id
from doc_list h
where
    h.optype_id = fn_oper_retail_reserve()
;

execute block
as
  declare n int = 1000;
  declare i int;
  declare v_min_x int;
  declare v_max_x int;
  declare v_min_id double precision;
  declare v_max_id double precision;
  declare v_cur_id double precision;
  declare v_stt varchar(80);
  declare t0 timestamp;
  declare x int;
  declare c smallint = 1;
begin
   select min(id)-0.5 from t into v_min_id;
   select max(id)+0.5 from t into v_max_id;
   select min(x) from t into v_min_x;
   select max(x) from t into v_max_x;
   x=v_min_x + rand()*( v_max_x - v_min_x );
   if (c = 1) then
     v_stt = 'select id from t where x = :x and id >= :y ORDER BY id rows 1';
   else
     v_stt = 'select id from t where x = :x and id >= :y ORDER BY id+0 rows 1';

   t0='now';
   i=n;
   while (i > 0) do
   begin
      execute statement (v_stt) ( x := :x, y := v_min_id + rand()*( v_max_id - v_min_id ) ) into v_cur_id;
      i = i-1;
   end
   update or insert into t_log(trn_id, done_searchs, avg_ms_for_one_search)
   values( current_transaction, :n, datediff(millisecond from :t0 to cast('now' as timestamp)) / :n );

end