begin
  for
     select r.id_sklad,sum(r.kol) as kol,date_add
     from rashod_memo rm, rashod r
     where
         rm.id=r.id and rm.locate=2
     group by id_sklad, date_add
     into :id_sklad,:kol,:date_add
  do
    begin
      select kol,date_add from price where date_add=:date_add
      into :kol_price,:date_add2;
    end
end

begin
  for
     select r.id_sklad,sum(r.kol) as kol,date_add
     from rashod_memo rm, rashod r
     where
         rm.id=r.id and
         rm.locate=2
     group by id_sklad, date_add
     into :id_sklad,:kol,:date_add
  do
    begin
      date_add3=date_add+0.00001157407;
      select kol,date_add from price where date_add>=:date_add and date_add<=:date_add3 and locate=2
      into :kol_price,:date_add2;
      suspend;
    end
end

CREATE DOMAIN TYP_TIMESTAMP AS
TIMESTAMP;

CREATE DOMAIN TYP_NUMERIC AS
NUMERIC(15,2);

create or alter procedure "NEW_PROCEDURE"
as
declare variable ID_SKLAD TYP_INTEGER;
declare variable KOL TYP_NUMERIC;
declare variable DATE_ADD TYP_TIMESTAMP;
declare variable DATE_ADD2 TYP_TIMESTAMP;
declare variable DATE_ADD3 TYP_TIMESTAMP;
declare variable KOL_PRICE TYP_INTEGER;
begin