1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
create or replace procedure setpreis(r integer, p integer, m integer) as vpreis produkt.preis%type; begin select preis into vpreis from produkt where pnr = p; update rechnung set pges = pges + vpreis * m where rnr = r; end; /