Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- alter user maluricag_44 identified by stud;
- --pachete--
- --au 2 comp principale: 1.specificatii:parte publica, contine antetul functiilor si procedurilor, este obligatorie
- -- 2. corpul:implementarea functiilor si procedurilor anuntate in specificatii+functii si proceduri private, este optionala
- create or replace package grupa_1044 is
- cota_tva constant number :=19;
- function get_val_cu_tva(p_val number) return number;
- end;
- /
- create or replace package body grupa_1044 is
- function get_val_cu_tva(p_val number) return number
- is
- begin
- return p_val + (1+cota_tva/100);
- end get_val_cu_tva;
- function get_val_cu_tva(p_val number, p_cota number) return number
- end grupa_1044;
- /
- set serveroutput on
- begin
- dbms_output.put_line('cota standard TVA: ' || grupa_1044.cota_tva);
- dbms_output.put_line('Valoare cu standard TVA: ' || grupa_1044.get_val_cu_tva(200));
- end;
- /
- select * from user_source where name='GRUPA_1044';
- select id_client, nume_client, grupa_1044.get_val_com(id_client);
- from clienti;
- --sa se construiasca un pachet ce contine o functie si o procedura si sa se apeleze functia si procedura--
- create or replace package malurica_1044 is
- curs_euro constant number :=4.63;
- function get_curs_euro(p_curs_euro number) return number;
- end;
- /
- create or replace package body malurica_1044 is
- function get_curs_euro(p_curs_euro number) return number
- is
- begin
- return p_curs_euro
- end get_curs_euro;
- function get_curs_euro(p_curs_euro, number, p_curs_euro number) return number
- end malurica_1044;
- set serveroutput on
- begin
- dbms_output.put_line('curs schimb euro: ' || malurica_1044.curs_euro);
- end;
- /
- create or replace package diaconita is function suma(n1 number, n2 number) return number;
- procedure Paste_Fericit(p_nume varchar2, p_urare OUT varchar2);
- end;
- create or replace package body diaconita is function suma(n1 number, n2 number) return number
- is
- begin
- return n1+n2;
- end suma;
- procedure Paste_Fericit(p_nume varchar2, p_urare OUT varchar2);
- end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement