| FRM-40737 ILLEGAL RESTRICTED PROCEDUTRE COMMIT IN PRE-INSERT TRIGGER [message #84684] |
Fri, 16 April 2004 23:26  |
Jamil
Messages: 13
Registered: December 2003
|
Junior Member |
|
|
Dear Friends
I have this problem my code in the pre-insert trigger as follow :
DECLARE
LOC_QTY_ON_HAND NUMBER(8);
LOC_OLD_QTY NUMBER(8);
LOC_QTY_REC NUMBER(8);
BEGIN
IF :SYSTEM.RECORD_STATUS ='NEW' OR :SYSTEM.RECORD_STATUS='INSERT' AND NVL(:REC_DETAILS.QTY,0) !=0 THEN
SELECT (NVL(QTY_ON_HAND,0) - (:REC_DETAILS.QTY)),QTY_ON_HAND
INTO :GLOBAL.LOC_QTY_ON_HAND,:GLOBAL.LOC_OLD_QTY
FROM MAINTENANCE_ITEM
WHERE ITEM_CODE = :D_ITEM_CODE;
UP_DATA;
END IF;
END;
------ procedure UP_DATA
-------
PROCEDURE UP_DATA IS
BEGIN
IF :GLOBAL.LOC_QTY_ON_HAND >=0 THEN
SHOW_MESSAGE('ITEM_CODE'||:D_ITEM_CODE);
SHOW_MESSAGE('QTY'||:GLOBAL.LOC_QTY_ON_HAND);
UPDATE MAINTENANCE_ITEM
SET QTY_ON_HAND = :GLOBAL.LOC_QTY_ON_HAND
WHERE ITEM_CODE = :D_ITEM_CODE;
COMMIT_FORM;
MESSAGE('لقد تمت عملية الحفظ');
ELSIF :GLOBAL.LOC_QTY_ON_HAND < 0 THEN
SHOW_MESSAGE('الكمية الباقية غير ممكن أن تكون اقل من صفر !!! الكمية الباقية ='||:GLOBAL.LOC_OLD_QTY);
RAISE FORM_TRIGGER_FAILURE;
END IF;
END;
When I saved the record it display the following message :
FRM-40737 Illegal restricted procedure commit in PRE-INSERT trigger
My Email is jamil_shaibani@yahoo.co.uk
Best Regards
Jamil
|
|
|
|
|
|
] 
Blog
Search
Help
Members
Register
Login
Home
