Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- create or rpelace package group_1052 is
- vat_rate constant number := 19;
- function get_val_with_vat(p_val number) return number;
- end group_1052;
- /
- create or rpelace package group_1052 is
- function get_val_with_vat(p_val number) return number;
- begin
- return p_val * (1 + vat_rate/100);
- end get_val_with_vat;
- end group_1052;
- /
- set serveroutput on
- begin
- dbms_output.put_line('Standard VAT rate: '|| group_1052.vat_rate);
- end;
- /
- ================
- create or replace function get_value_client_year
- (p_client_id number, p_year number default null)
- return number is
- p_val number;
- begin
- if p_year is not null then
- select sum(pret*cantitate) into p_val
- fronm COMENZI t join RAND_COMENZI r on
- t.nr_comanda = r.nr_comanda where id_client = p_client_id
- and extract (year from t.data) = p_year;
- else
- select sum(pret*cantitate) into p_val
- from COMENZI t join RAND_COMENZI r on
- t.nr_comanda = r.nr_comanda where id_client=
- incomplet
- ===============================
- set serveroutput on
- begin
- dbms_output.put_line('Standard VAT rate: '|| group_1052.vat_rate);
- dbms_output.put_line('Value with standard VAT rate: '||
- group_1052.get_val_with_vat(200));
- dbms_output.put_line('Value with 5% VAT rate: '||
- group_1052.get_val_with_var(200,5);
- end;
- /
- Construct a package that has 1 function and 1 procedure (1 In param, 1 OUTparam)
- call the function and the procedure
- ===============
- create or replace package diaconita is
- function sum_of_numbers(n1 number, n2 number) return number;
- procedure Happy_Easter(p_nama varchar2, p_message OUT varchar2);
- end;
- /
- ==============
- create or replace package diaconita is
- function sum_of_numbers(n1 number, n2 number) return number;
- procedure Happy_Easter(p_nama varchar2, p_message OUT varchar2);
- end;
- /
- create or replace package body diaconita is
- function sum_of_numbers(n1 number, n2 number) return number is
- begin
- return n1+n2;
- end;
- procedure Happy_Easter(p_nama varchar2, p_message OUT varchar2) is
- begin
- p_message := 'Happy easter '|| p_name || '!';
- end;
- end;
- /
- -- calling block
- set serveroutput on
- begin
- dbms_output.put_line(diaconita.sum_of_numbers(10,20));
- end;
- /
- ====================
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement