1. CREATE TRIGGER obrotfifo
2. AFTER INSERT ON pozycjedokumentu
3. FOR EACH ROW
4. WHEN (NEW.handlowymagazynowy='M' AND NEW.kierunekmagazynu=-1)
5.  
6. DECLARE
7.  
8. konroz NUMBER(10);
9. dataroz DATE;
10. iloscroz NUMBER;
11. algo NUMBER(1);
12. okres NUMBER(1);
13. ile NUMBER;
14. dataprz DATE;
15. cena NUMBER(12,2);
16. dokprz NUMBER(10);
17. partia NUMBER(10);
18. konprz NUMBER(10);
19. magazyn NUMBER(10);
20. pozdok NUMBER(10);
21.  
22. BEGIN
23. iloscroz:=:NEW.ilosc;
24. SELECT kontrahent INTO konroz FROM DOKUMENTY
25. WHERE id=:NEW.dokument;
26. SELECT data INTO dataroz FROM DOKUMENTY
27. WHERE id=:NEW.dokument;
28. SELECT algorytm INTO algo FROM MAGAZYNY
29. WHERE (id=:NEW.magazyn);
30. SELECT id INTO okres FROM OKRESYMAGAZYNOWE
31. WHERE (czyzamkniety='N');
32.  
33. GOTO skok;
34.  
35. <<skok2>>
36. iloscroz:=(iloscroz-ile);
37. DELETE FROM zasoby
38. WHERE (towar=:NEW.towary AND data=dataprz);
39.  
40. <<skok>>
41. SELECT MIN(data) INTO dataprz FROM ZASOBY
42. WHERE (towar=:NEW.towary AND magazyn=magazynroz);
43. SELECT ilosc INTO ile FROM zasoby
44. WHERE (towar=:NEW.towary AND data=dataprz AND magazyn=:NEW.magazyn);
45. SELECT cena INTO cena FROM zasoby
46. WHERE (towar=:NEW.towary AND data=dataprz AND magazyn=:NEW.magazyn);
47. SELECT dokument INTO dokprz FROM zasoby
48. WHERE (towar=:NEW.towary AND data=dataprz AND magazyn=:NEW.magazyn);
49. SELECT partiatowaru INTO partia FROM zasoby
50. WHERE (towar=:NEW.towary AND data=dataprz AND magazyn=:NEW.magazyn);
51. SELECT kontrahent INTO konprz FROM zasoby
52. WHERE (towar=:NEW.towary AND data=dataprz AND magazyn=:NEW.magazyn);
53. SELECT pozycjadokumentu INTO pozdok FROM zasoby
54. WHERE (towar=:NEW.towary AND data=dataprz AND magazyn=:NEW.magazyn);
55.  
56. WHILE iloscroz >= ile AND algo=0 LOOP
57.     INSERT INTO obroty
58.     VALUES (s_id_ob.NEXTVAL, ile, cena, dataprz, :NEW.cena,
59.     dataroz, dokprz, :NEW.dokument, partia, :NEW.towary, :NEW.magazyn,
60.     okres, konprz, konroz, pozdok, :NEW.id);
61. GOTO skok2;
62. END LOOP;
63.  
64. IF algo=0 AND iloscroz !=0 THEN  
65.   INSERT INTO obroty
66.   VALUES (s_id_ob.NEXTVAL, iloscroz, cena, dataprz,
67.   :NEW.cena, dataroz, dokprz, :NEW.dokument, partia, :NEW.towary,
68.   :NEW.magazyn, okres, konprz, konroz, pozdok, :NEW.id);
69. END IF;
70.  
71. UPDATE zasoby
72.   SET ilosc = (ilosc-iloscroz)
73.   WHERE towar=:NEW.towary AND data=dataprz;
74.  
75. END;
76. /