我正在使用 Oracle APEX，并且有一个 SQL 过程，可以为客户进行预订，然后向该客户添加所需数量的表。
我面临的问题是，当我提交表单并启动程序时，没有成功消息，因此用户无法查看他们的预订是否成功。我不能在按下提交按钮后使用重定向，因为如果程序失败，它不会显示我的应用程序错误。
如您所见，我尝试实施解决方案来显示成功消息，但不起作用。请参阅IF我代码中的最后一条语句，了解我试图实现的目标。
create or replace PROCEDURE AssignTable2(
p_KlantNaam VARCHAR2,
p_KlantEmail VARCHAR2,
p_KlantTelefoon NUMBER,
p_ReservatieDatum DATE,
p_BeginTijd TIMESTAMP,
p_EindTijd TIMESTAMP,
p_NumKlanten NUMBER
) AS
v_RequiredTafels NUMBER;
v_AssignedTafels NUMBER := 0;
v_AvailableTafels NUMBER;
v_TafelID NUMBER;
v_ReservatieID NUMBER;
v_KlantID NUMBER;
BEGIN
v_RequiredTafels := CEIL(p_NumKlanten / 4.0);
DBMS_OUTPUT.PUT_LINE('After selecting table: v_RequiredTafels = ' || TO_CHAR(v_RequiredTafels));
-- Check for available tables
-- Check for available tables
SELECT COUNT(t.id) INTO v_AvailableTafels
FROM TAFEL t
WHERE t.id NOT IN (
SELECT rt.FK_TAFELID
FROM RESERVATIE r
INNER JOIN RESERVATIETAFEL rt ON r.id = rt.FK_RESERVATIEID
WHERE r.datum = p_ReservatieDatum and t.FK_STATUS = 1
AND (
-- Check for overlap with existing reservations
(p_BeginTijd < r.eind_tijd + INTERVAL '1' HOUR AND p_BeginTijd >= r.begin_tijd)
OR (p_EindTijd > r.begin_tijd AND p_EindTijd <= r.eind_tijd)
OR (r.begin_tijd >= p_BeginTijd AND r.eind_tijd <= p_EindTijd)
-- Check for overlap with existing reservations that start before the new time slot
OR (r.begin_tijd < p_BeginTijd AND r.eind_tijd > p_BeginTijd)
-- Check for overlap with existing reservations that end after the new time slot
OR (r.begin_tijd < p_EindTijd AND r.eind_tijd > p_EindTijd)
)
);
DBMS_OUTPUT.PUT_LINE('After selecting table: v_AvailableTafels = ' || TO_CHAR(v_AvailableTafels));
DBMS_OUTPUT.PUT_LINE('Time slot: ' || TO_CHAR(p_BeginTijd) || ' - ' || TO_CHAR(p_EindTijd));
IF v_AvailableTafels < v_RequiredTafels THEN
RAISE_APPLICATION_ERROR(-20001, 'Sorry maar er zijn niet genoeg tafels op het gekozen moment met uw aantal gasten, probeer een andere tijdstip');
ELSE
IF p_KlantNaam IS NOT NULL THEN
INSERT INTO EX_KLANT (naam, email, telefoon)
VALUES (p_KlantNaam, p_KlantEmail, p_KlantTelefoon)
RETURNING id INTO v_KlantID;
ELSE
RAISE_APPLICATION_ERROR(-20002, 'KlantNaam mag niet leeg zijn');
END IF;
IF p_ReservatieDatum IS NOT NULL THEN
if p_ReservatieDatum > TRUNC(SYSDATE) THEN
-- Insert a new reservation
INSERT INTO RESERVATIE (FK_EX_KLANTID, num_klanten, datum, begin_tijd, eind_tijd)
VALUES (v_KlantID, p_NumKlanten, p_ReservatieDatum, p_BeginTijd, p_EindTijd)
RETURNING id INTO v_ReservatieID;
ELSE
RAISE_APPLICATION_ERROR(-20004, 'Reservatiedatum mag niet de dag voor vandaag zijn');
END IF;
ELSE
RAISE_APPLICATION_ERROR(-20003, 'Reservatie datum mag niet leeg zijn');
END IF;
-- Loop until we have assigned enough tables
WHILE v_AssignedTafels < v_RequiredTafels LOOP
SELECT t.id INTO v_TafelID
FROM (
SELECT t.id, t.code
FROM TAFEL t
LEFT JOIN RESERVATIETAFEL rt ON t.id = rt.FK_TAFELID
LEFT JOIN RESERVATIE r ON rt.FK_RESERVATIEID = r.id
WHERE t.FK_STATUS = 1 AND (r.id IS NULL OR r.datum <> p_ReservatieDatum OR r.eind_tijd < p_BeginTijd OR r.begin_tijd > p_EindTijd)
AND NOT EXISTS (
SELECT 1
FROM RESERVATIETAFEL rt
WHERE rt.FK_TAFELID = t.id
AND rt.FK_RESERVATIEID IN (
SELECT r.id
FROM RESERVATIE r
WHERE (r.datum = p_ReservatieDatum)
AND (r.begin_tijd <= p_EindTijd)
AND (r.eind_tijd >= p_BeginTijd)
)
)
ORDER BY t.code
) t
WHERE ROWNUM = 1;
-- Insert into RESERVATIETAFEL table
INSERT INTO RESERVATIETAFEL (FK_RESERVATIEID, FK_TAFELID)
VALUES (v_ReservatieID, v_TafelID);
v_AssignedTafels := v_AssignedTafels + 1;
END LOOP;
END IF;
IF v_AssignedTafels = v_RequiredTafels THEN
-- RAISE_APPLICATION_ERROR(-20005, 'procedure succesfull!');
APEX_APPLICATION.G_NOTIFICATION := 'Procedure successful! All ' || v_RequiredTafels || ' tafels have been assigned.';
END IF;
END;
我可以像处理其他错误一样使用应用程序错误，但感觉不对，因为它看起来像是一条错误消息，而不是一条成功消息。
有没有办法仅在程序成功时重定向页面？我认为仅使用 SQL 是不可能做到这一点的。