Advertisement
Guest User

Untitled

a guest
Jan 16th, 2018
64
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
PL/SQL 0.90 KB | None | 0 0
  1. CREATE OR REPLACE PROCEDURE pr_generowanie_faktury (v_date DATE) AS
  2. v_id_klienta INTEGER;    
  3. v_id_komiksu INTEGER;    
  4. v_pozycja INTEGER;    
  5. v_liczba INTEGER;    
  6. v_id_faktury INTEGER;      
  7. BEGIN
  8. ---losowanie klienta i stworzenie faktury_naglowka---
  9. SELECT fn_losuj_klienta INTO v_id_klienta FROM  dual;  
  10. INSERT INTO FAKTURA_NAGLOWEK (id_klienta,data_wystawienia) VALUES (v_id_klienta,v_date);
  11. SELECT MAX(id_faktury) INTO v_id_faktury  FROM FAKTURA_NAGLOWEK;
  12.  
  13. ---losowanie ilosci pozycji faktury---    
  14. SELECT fn_losuj_wartosc(1,10) INTO v_pozycja FROM dual;          
  15.  
  16. FOR i IN 1..v_pozycja LOOP
  17. SELECT fn_losuj_produkt INTO v_id_komiksu FROM dual;
  18. SELECT fn_losuj_wartosc(1,5) INTO v_liczba FROM dual;
  19. ---dodanie pozycji do faktury---      
  20. INSERT INTO FAKTURA_DETALE (id_faktury, pozycja, id_komiksu, liczba)
  21. VALUES (v_id_faktury, i, v_id_komiksu, v_liczba);
  22.      
  23. END LOOP;
  24. END;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement