--S9

create or replace
procedure Anlieferung (p_artikelbez varchar, p_datum date, p_stueck int) as
anz int := p_stueck;
hlnr int := 0;
belegt int := 0;
begin
	hlnr := kek.lnr;
  for kek in(select lb.lnr, lb.stueck, l.stueckkap from lagerbuchung lb join lager l on lb.lnr = l.lnr where lb.lnr = l.lnr) loop

    if hlnr != kek.lnr then
      hlnr := kek.lnr;
      anz := 0;
    end if;

    anz := anz + kek.stueck;

    if anz > 0 then
      insert into lagerbuchung(lfndnr,datum,stueck,anr,lnr) values(1,p_datum,p_stueck,1,hlnr);
    end if;

  end loop;
end Anlieferung;
/

exec Anlieferung('Äpfel','27.11.2015',40)