PROCEDURE ZAPISAC IS
TMP_NUM NUMBER;
  BEGIN
	TMP_NUM:=SHOW_ALERT('POTW');	
	IF TMP_NUM=ALERT_BUTTON1 THEN

		insert into kalendarz_pracy_form
                   (kod,rok,miesiac,dzien,zaklad,id_formy,cyklez1,czyszczz1,
                    cyklez2,czyszczz2,cyklez3,czyszczz3)
 values
                (:kal.kod,:kal.rok,:kal.miesiac,:kal.dzien,:nagl.zaklad,:nagl.id_formy,
 :kal.cyklez1,:kal.czyszczz1,:kal.cyklez2,:kal.czyszczz2,
                    :kal.cyklez3,:kal.czyszczz3);
   
  
    message ('Dokonano zapisu');
    commit_form;
		
	ELSE if TMP_NUM=ALERT_BUTTON2 THEN
		exit_form(no_commit);
		message ('Zrezygnowano z zapisu');
	END IF;
	END IF;
END;