1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53
|
PACKAGE Pk_MISE_A_JOUR
AS
--
-- ---
--
FUNCTION Rec_Update Return BOOLEAN
IS
--
v_Ret BOOLEAN := False;
--
BEGIN
-- Mise à jour de la table xxxxxxxxxxxxxx
UPDATE xxxxxxx SET xxxxxxxxxxxxxxx;
--
IF SQL%ROWCOUNT > 0
THEN
v_Ret := TRUE;
END IF;
--
RETURN v_Ret;
--
END Rec_Update;
--
-- ---
--
PROCEDURE P_Verif_UPDATE (event_in VARCHAR2)
AS
--
V_F_Ret BOOLEAN;
--
BEGIN
--
V_F_Ret := Rec_Update;
--
IF event_in = 'WHEN-VALIDATE-ITEM'
THEN
IF V_F_Ret = TRUE
THEN
commit;
ELSE
IF :SYSTEM.FORM_STATUS = 'CHANGED'
THEN
Rollback;
ELSE
Message ('Mise à jour impossible, l'erreur suivante s''est produite : '|| sqlerrm);
RAISE FORM_TRIGGER_FAILURE;
END IF;
END IF;
END IF;
END P_Verif_UPDATE;
END Pk_MISE_A_JOUR; |
Partager