obrigada!
Accept p_idlocacao prompt ' Entre com o id da locacao : ' ;
Accept p_idfita prompt ' Entre com o ID da fita : ' ;
Declare
v_idlocacao locacao.id_locacao%type := &p_idlocacao ;
v_idfita fitas.id_fitas%type := &p_idfita;
v_verloca number(1);
v_fita_alugada number(1);
v_verfita number(2);
begin
select count(*) into v_verloca from locacao where id_locacao = v_idlocacao;
select count(*) into v_verfita from fitas where id_fitas = v_idfita ;
select count(*) into v_fita_alugada
from locacao a, itens_locacao b, fitas c
where a.id_locacao = b.id_locacao and
b.id_fitas = c.id_fitas and
b.id_fitas = v_idfita and
a.dataentrega is null ;
if v_verloca = 0 then
dbms_output.put_line (' Esse id de locacao não existe');
elsif v_verfita = 0 then
dbms_output.put_line (' Esta fita não existe');
elsif v_fita_alugada >= 10 then
dbms_output.put_line (' Esta fita não tem em estoque');
else
insert into itens_locacao values (v_idlocacao,v_idfita);
end if;
commit work ;
end ;
/
