azeae

CREATE OR REPLACE
PROCEDURE P2_2_HOOGSTE_VOORRAADWAARDE AS 
 TYPE TYPE_REC_VOORRAADWAARDE IS RECORD(
      WHID    S_INVENTORY.WAREHOUSE_ID%TYPE,
      WHVALUE NUMBER
  );
 
    TYPE TYPE_COL_VOORRAAD
    IS TABLE OF TYPE_REC_VOORRAADWAARDE
    INDEX BY PLS_INTEGER;
 
    t_voorraad  TYPE_COL_VOORRAAD;
BEGIN
    SELECT WAREHOUSE_ID, SUM(I.AMOUNT_IN_STOCK * P.SUGGESTED_WHLSL_PRICE) Waarde
    BULK COLLECT INTO t_voorraad
    FROM S_INVENTORY I, S_PRODUCT P
    WHERE I.PRODUCT_ID = P.ID
    GROUP BY WAREHOUSE_ID
    ORDER BY Waarde DESC;
 
    DBMS_OUTPUT.PUT_LINE('De 3 voorraadruimten met de hoogste voorraadwaarde :');
    FOR I IN 1..3 LOOP
      DBMS_OUTPUT.PUT_LINE('Voorraadruimte: ' || t_voorraad(I).WHID ||' Waarde: ' ||t_voorraad(I).WHVALUE);
    END LOOP;
 
END P2_2_HOOGSTE_VOORRAADWAARDE;