sgd-praktikum/SQL/PLSQL.sql

CREATE OR REPLACE TYPE bookingIds AS TABLE OF NUMBER;

CREATE OR REPLACE FUNCTION mostValuableClerk(months IN NUMBER) RETURN NUMBER
IS
    startMonat DATE;
    finalclerkid NUMBER;
    maxanzahlcleanings NUMBER;
BEGIN
    IF months > 0 THEN
        startMonat := ADD_MONTHS(SYSDATE,-months);

        SELECT CLERKID, Anzahl INTO finalclerkid, maxanzahlcleanings FROM
        (
        SELECT DISTINCT CLERKID, COUNT(CLERKID) AS Anzahl
          From
          (
            SELECT clcl.CLERKID
            FROM CLEANINGCLERK clcl
             INNER JOIN CLEANINGPLAN clpl ON clcl.CLEANINGPLANID = clpl.CLEANINGPLANID
             WHERE clpl."date" >= startMonat
             )
        GROUP BY CLERKID ORDER BY Anzahl desc
        )
        WHERE ROWNUM <= 1;
    ELSE
        RAISE_APPLICATION_ERROR(-20111, 'Nur Positive Werte (>0) sind als Eingabe erlaubt');
    END IF;

    return finalclerkid;
END;

CREATE OR REPLACE FUNCTION getLastBookings(months IN NUMBER) RETURN bookingIds
IS
    CURSOR bookingsCursor IS SELECT BOOKINGID FROM BOOKING WHERE ARRIVALDATE >= ADD_MONTHS(SYSDATE,-months);
    ids bookingIds;
BEGIN
        ids := bookingIds();
        FOR booking IN bookingsCursor
        LOOP
            ids.extend;
            ids(ids.count) := booking.BOOKINGID;
            DBMS_OUTPUT.PUT_LINE(booking.BOOKINGID);
        END LOOP;
        return ids;
END;

CREATE OR REPLACE PROCEDURE rooms(clientz IN NUMBER, months IN NUMBER)

IS
    CURSOR roomCursor is
    SELECT br.ROOMNUMBER
    FROM BOOKINGROOM br INNER JOIN (
        SELECT *
        FROM BOOKING INNER JOIN CLIENT
        ON BOOKING.CLIENTID = CLIENT.PERSONID
        WHERE CLIENT.PERSONID = clientz AND BOOKING.ARRIVALDATE >= add_months(sysdate, -months)
    ) bookings ON br.BOOKINGID = bookings.BOOKINGID;
BEGIN
    FOR number IN roomCursor
        LOOP
            DBMS_OUTPUT.PUT_LINE(number.ROOMNUMBER);
        END LOOP;
END rooms;

CREATE OR REPLACE TRIGGER booking_created
AFTER INSERT OR UPDATE OR DELETE
ON BOOKINGROOM
FOR EACH ROW
DECLARE
    cleaningDate DATE;
BEGIN
    IF INSERTING OR UPDATING THEN
        SELECT arrivalDate INTO cleaningDate FROM BOOKING
        WHERE BOOKING.BOOKINGID = :NEW.bookingId;
        cleaningDate := cleaningDate - 1;
        INSERT INTO CLEANINGPLAN VALUES (cleaningplan_seq.nextval, cleaningDate, 90, :NEW.roomNumber);
    ELSIF DELETING THEN
        SELECT arrivalDate INTO cleaningDate FROM BOOKING
        WHERE BOOKING.BOOKINGID = :OLD.bookingId;
        cleaningDate := cleaningDate - 1;
        DELETE FROM CLEANINGPLAN
            WHERE "date" = cleaningDate AND :OLD.roomNumber = CLEANINGPLAN.ROOMNUMBER;
    END IF;
END;

CREATE OR REPLACE TRIGGER cleaning_while_booked 
BEFORE INSERT OR UPDATE
ON CleaningPlan
FOR EACH ROW
DECLARE 
	bookingcount NUMBER;
BEGIN
	SELECT COUNT(bk.bookingId) INTO bookingcount 
	FROM Booking bk INNER JOIN BookingRoom br ON bk.bookingId = br.bookingId 
	WHERE br.roomNumber = :NEW.roomNUMBER AND bk.arrivalDate <= :NEW."date" AND bk.departureDate >= :NEW."date";
	IF bookingcount > 0 THEN
		RAISE_APPLICATION_ERROR(-20111, 'CleaningPlan liegt in gebuchtem Zeitraum');
	END IF;
END;

CREATE OR REPLACE TRIGGER total_price
BEFORE INSERT OR UPDATE OR DELETE ON BOOKING
FOR EACH ROW
DECLARE
	total_price NUMBER;
    nights NUMBER;
BEGIN
    IF DELETING THEN
        DBMS_OUTPUT.PUT_LINE('Buchung erfolgreich storniert');
    ELSIF UPDATING AND :NEW.COST < :OLD.COST THEN
        RAISE_APPLICATION_ERROR(-20111, 'Buchungen dürfen nicht vergünstigt werden!');
        nights := :NEW.DEPARTUREDATE - :NEW.ARRIVALDATE;
        IF nights < 1 THEN
            RAISE_APPLICATION_ERROR(-20111, 'Invalide Dauer: Mindestens eine Nacht muss gebucht werden!');
        END IF;
    ELSE
        nights := :NEW.DEPARTUREDATE - :NEW.ARRIVALDATE;
        IF nights < 1 THEN
            RAISE_APPLICATION_ERROR(-20111, 'Invalide Dauer: Mindestens eine Nacht muss gebucht werden!');
        END IF;
        total_price := nights * :NEW.COST;
        dbms_output.put_line('Gesamtpreis:');
        dbms_output.put_line(total_price);
    END IF;
END;