--csomag fej
create or replace package kezel as

procedure beszur(p_osszeg konyveles.osszeg%type,p_leiras konyveles.leiras%type,p_bevetel_kiadas konyveles.bevetel_kiadas%type);
function torol1(p_azon konyveles.azonosito%type)return konyveles.osszeg%type;
function torol2(p_ossz konyveles.osszeg%type,beki konyveles.bevetel_kiadas%type)return number;
procedure kiir;
function egyenleg return number;
function leker return number;

end kezel;

--csomag törzs
create or replace package body kezel as

n number;

--procedure beszur

procedure beszur(p_osszeg konyveles.osszeg%type,p_leiras konyveles.leiras%type,p_bevetel_kiadas konyveles.bevetel_kiadas%type) is
azon konyveles.azonosito%type default 0;
begin

select max(azonosito)
into azon
from konyveles;

if azon=0 then azon:=1;
else azon:=azon+1;
end if;

insert into konyveles(azonosito,osszeg,leiras,bevetel_kiadas)
values(azon,p_osszeg,p_leiras,p_bevetel_kiadas);
n:=n+1;

commit;

end beszur;

--function torol1

function torol1(p_azon konyveles.azonosito%type)return konyveles.osszeg%type is
ossz konyveles.osszeg%type;

begin

select osszeg
into ossz
from konyveles
where p_azon=azonosito;

delete from konyveles
where azonosito=p_azon;

return ossz;
n:=n+1;

commit;

end torol1;

--function torol2

function torol2(p_ossz konyveles.osszeg%type,bevkiad konyveles.bevetel_kiadas%type)return number is
szum number;

begin

select sum(osszeg)
into szum
from konyveles
where osszeg<p_ossz and bevetel_kiadas=bevkiad;

delete from konyveles
where osszeg<p_ossz and bevetel_kiadas=bevkiad;

return szum;
n:=n+1;

commit;

end torol2;

--procedure kiir

procedure kiir is

cursor c1 is
select *
from konyveles;

begin

for i in c1
loop
dbms_output.put_line(i.azonosito||' '||i.osszeg||' '||i.leiras||' '||i.bevetel_kiadas);
end loop;

n:=n+1;
end kiir;

--function egyenleg

function egyenleg return number is
bevetel number;
kiadas number;

begin

select sum(osszeg)
into bevetel
from konyveles
where bevetel_kiadas='bevétel';

select sum(osszeg)
into kiadas
from konyveles
where bevetel_kiadas='kiadás';

return  bevetel-kiadas;
n:=n+1;
end egyenleg;


function leker return number is
begin
return n;
end leker;

begin

delete from konyveles;

end kezel;