Создание и вызов функции в программе pl / sql

Question

Я создал функцию для возврата идентификатора аренды, который затем используется в анонимной программе PL / SQL, которая вычисляет общую стоимость аренды с учетом цены арендуемого инструмента и количества единиц времени, за которые он был арендован. (например, инструмент за 5 долларов, арендованный на 4 часа = общая сумма за аренду 20 долларов).

Код для создания функции:

create or replace function return_rentalID (rental_id rental.rid%type)
     return integer is
     returned_rentalID integer;

begin
     select rid
     into returned_rentalID
     from rental
     where rental_id = rental.rid;
     return returned_rentalID;
exception
     when NO_DATA_FOUND
         then dbms_output.put_line('Rental ID Not Found');
         return -1;
end;

Код для вызова функции:

declare
     returned_rentalID integer;
     units rental.num_unit%type;
     unit_price tool_price.price%type;
     rental_id rental.rid%type;

begin
     returned_rentalID := return_count(1);

     if returned_rentalID > 0 then

         select num_unit
         into units
         from rental
         where rid = returned_rentalID;

         select tp.price
         into unit_price
         from tool_price tp, rental r
         where tp.tid = r.tid
         and tp.tuid = r.tuid
         and rid = returned_rentalID;

         dbms_output.put_line('The Total Cost of this rental is $' || unit_price * units);

     else dbms_output.put_line('Rental ID Not Found');
     end if;
end;

Программа работает правильно, если я использую код аренды 1 в качестве параметра или любой код аренды, который не существует;однако, для всех других действительных арендных идентификаторов, я все равно получаю ту же сумму, что и при сдаче арендного идентификатора 1.

Кто-нибудь имеет представление о том, что вызвало это? Я знаю, что использование функции для возврата арендного идентификатора (return_rentalID) является излишним и необязательным;однако, это упражнение для удобного создания и вызова функций, поэтому оно необходимо.

Я действительно, очень ценю любую предоставленную информацию!

Ниже приведен пример кода для таблиц, которые я использую:

create table tool_price
(tid int, --- too id 
tuid int, --- time unit id
price number,
primary key(tid,tuid),
foreign key(tid) references tool,
foreign key(tuid) references time_unit
);

--- mower, $20 per 4 hours. $30 per day 
insert into tool_price values(1,1,5.00);
insert into tool_price values(1,2,30);
insert into tool_price values(1,3,120);

insert into tool_price values(2,1,7.00);
insert into tool_price values(2,2,40);
insert into tool_price values(2,3,160);

insert into tool_price values(3,1,6.00);
insert into tool_price values(3,2,32);
insert into tool_price values(3,3,125);

insert into tool_price values(4,1,7.00);
insert into tool_price values(4,2,40);
insert into tool_price values(4,3,160);

create table rental 
(
rid int, --- rental id 
cid int, --- customer id 
tid int, --- tool id
tuid int, --- time unit id
num_unit int, --- number of units, if unit = 1 hour, num_unit = 5 means 5 hours. 
start_time timestamp, -- rental start time 
end_time timestamp, --- suppose rental end_time 
return_time timestamp,--- actual return time 
credit_card varchar(20),
total number, --- total charge 
primary key (rid),
foreign key(cid) references cust,
foreign key(tid) references tool,
foreign key(tuid) references time_unit
);
-- John rented a mower for 4 hours, 
insert into rental values(1,1,1,1,4,timestamp '2019-08-01 
10:00:00.00',null,null,'123456789',null);

-- susan rented a small carpet cleaner for one day 
insert into rental values(2,2,3,2,1,timestamp '2019-08-11 
10:00:00.00',null,null,'123456789',null);

--susan also rented a small mower for 5 hours, before 8 am case  
insert into rental values(3,2,1,1,5,timestamp '2019-08-12 
21:00:00.00',null,null,'123456789',null);

--david also rented a small carpet cleaner for 4 hours, after 10 pm case
insert into rental values(4,3,3,1,4,timestamp '2019-08-13 
19:00:00.00',null,null,'12222828828',null);

Answer 1

Написание отдельной функции для проверки существования идентификатора может быть излишним, вы можете упростить свой блок и избавиться от функции следующим образом:

declare
     v_total number(10,2);   
begin
     select tp.price * r.num_unit into v_total  
     from rental r
     join tool_price tp on (tp.tid = r.tid and tp.tuid = r.tuid)
     where r.rid = p_rental_id;  -- rental_id for total is to be calculated

     dbms_output.put_line('The Total Cost of this rental is $' || v_total);
exception 
    when NO_DATA_FOUND then
        dbms_output.put_line('No data found');
    when others then    
        raise;
end 

Что касается данных, проверьте, что у вас естьв таблицах, если требуется, вы можете запустить sql напрямую (удалив в предложении) с любого клиента.

Примечание: У меня нет удобной базы данных для запуска и проверки, возможна незначительная синтаксическая ошибка, но концепция и конструкция действительны.

Answer 2

Прежде всего, спасибо, что включили пример данных. Я изменил ваш второй оператор выбора на соединение ANSI и получил разные значения для 1,2 и 3:

   SELECT tp.price
      INTO unit_price
      FROM tool_price  tp
           INNER JOIN rental r ON tp.tid = r.tid AND tp.tuid = r.tuid
     WHERE rid = returned_rentalid;

Я не смог полностью продублировать ваши результаты, так как в вашем примере нет функции return_count.