create SEQUENCE dodaj_kl
minvalue 70
maxvalue 9999
start with 71
increment by 1
;

create SEQUENCE dodaj_umowe
minvalue 90
maxvalue 9999
start with 91
increment by 1
;

create SEQUENCE dodaj_rachunek
minvalue 90
maxvalue 9999
start with 91
increment by 1
;


  create or replace procedure dod_kl(

    imie klienci.imie_klienta%type,
    nazwisko klienci.nazwisko_klienta%type,
    adres klienci.adres_klienta%type,
    miastoo klienci.miasto%type,
    pes klienci.pesel%type,
    rodzaj_u umowa.rodzaj_umowy%type,
    id_f FIRMA.ID_FIRMY%type,
    cena_p rachunki.cena_pradu%type,
    zuzycie rachunki.zuzycie_w_kwh%type

  )
  is
  begin
    insert into klienci values(dodaj_kl.nextval, imie, nazwisko, adres, miastoo, pes);
    insert into umowa values(dodaj_umowe.nextval, sysdate, sysdate + INTERVAL '2' YEAR, rodzaj_u, dodaj_kl.currval, id_f);
    insert into rachunki values(dodaj_rachunek.nextval , cena_p, zuzycie,dodaj_umowe.currval);

  end;