Advertisement
Guest User

Untitled

a guest
Apr 19th, 2019
126
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.41 KB | None | 0 0
  1. create or rpelace package group_1052 is
  2. vat_rate constant number := 19;
  3. function get_val_with_vat(p_val number) return number;
  4. end group_1052;
  5. /
  6.  
  7. create or rpelace package group_1052 is
  8. function get_val_with_vat(p_val number) return number;
  9. begin
  10. return p_val * (1 + vat_rate/100);
  11. end get_val_with_vat;
  12.  
  13. end group_1052;
  14. /
  15.  
  16. set serveroutput on
  17. begin
  18. dbms_output.put_line('Standard VAT rate: '|| group_1052.vat_rate);
  19. end;
  20. /
  21.  
  22. ================
  23.  
  24.  
  25. create or replace function get_value_client_year
  26. (p_client_id number, p_year number default null)
  27. return number is
  28. p_val number;
  29. begin
  30. if p_year is not null then
  31. select sum(pret*cantitate) into p_val
  32. fronm COMENZI t join RAND_COMENZI r on
  33. t.nr_comanda = r.nr_comanda where id_client = p_client_id
  34. and extract (year from t.data) = p_year;
  35. else
  36. select sum(pret*cantitate) into p_val
  37. from COMENZI t join RAND_COMENZI r on
  38. t.nr_comanda = r.nr_comanda where id_client=
  39.  
  40. incomplet
  41.  
  42.  
  43. ===============================
  44.  
  45.  
  46. set serveroutput on
  47. begin
  48. dbms_output.put_line('Standard VAT rate: '|| group_1052.vat_rate);
  49. dbms_output.put_line('Value with standard VAT rate: '||
  50. group_1052.get_val_with_vat(200));
  51.  
  52. dbms_output.put_line('Value with 5% VAT rate: '||
  53. group_1052.get_val_with_var(200,5);
  54. end;
  55. /
  56.  
  57. Construct a package that has 1 function and 1 procedure (1 In param, 1 OUTparam)
  58. call the function and the procedure
  59.  
  60.  
  61. ===============
  62.  
  63.  
  64. create or replace package diaconita is
  65. function sum_of_numbers(n1 number, n2 number) return number;
  66. procedure Happy_Easter(p_nama varchar2, p_message OUT varchar2);
  67. end;
  68. /
  69.  
  70. ==============
  71.  
  72.  
  73. create or replace package diaconita is
  74. function sum_of_numbers(n1 number, n2 number) return number;
  75. procedure Happy_Easter(p_nama varchar2, p_message OUT varchar2);
  76. end;
  77. /
  78.  
  79. create or replace package body diaconita is
  80. function sum_of_numbers(n1 number, n2 number) return number is
  81. begin
  82. return n1+n2;
  83. end;
  84.  
  85. procedure Happy_Easter(p_nama varchar2, p_message OUT varchar2) is
  86. begin
  87. p_message := 'Happy easter '|| p_name || '!';
  88. end;
  89. end;
  90. /
  91.  
  92. -- calling block
  93.  
  94. set serveroutput on
  95. begin
  96. dbms_output.put_line(diaconita.sum_of_numbers(10,20));
  97. end;
  98. /
  99.  
  100.  
  101. ====================
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement