لدي فورم مبيعات ، تختص عمليات البيع بوكلاء وزبناء ، واريد ان اخصم قيمة المبيعات من ارصده الوكلاء
قمت باستعمال procedure ليقوم بهذه العملية وكود الـ procedure كالتالي :

PROCEDURE Agacount_decr (decr_credit IN NUMBER,
AG_ID IN NUMBER) IS credit	NUMBER;
BEGIN
SELECT AGCREDIT INTO credit FROM AGMSTR
WHERE AGID = AG_ID;
UPDATE AGMSTR
SET AGCREDIT = credit - decr_credit WHERE AGID = AG_ID;
--Raise Form_Trigger_Failure;
END

وقمت بعمل trigger من نوع post-change علي الحقل الذي اريد خصمه (السعر الكلي) ، ووضعت دخله الكود التالي :

DECLARE
RcrdFetch NUMBER;
BEGIN
RcrdFetch := 0;

SELECT COUNT(*) INTO RcrdFetch FROM AGMSTR WHERE AGMSTR.AGID = :BLKDPMSTR.C_ID;
if RcrdFetch <> 0 then
Agacount_decr (:BLKDPDTLS.T_PRICE,:BLKDPMSTR.C_ID);
END IF;
END;

المشكله انه لا يقوم بعملية الخصم
مرفق الجداول والفورمات المستخدمه علي اللنك التالي
http://www.megaupload.com/?d=6TAL2YL9
ارجو المساعده بإسهاب وتفصيل اذا امكن القاء نظره علي الفورم وجزاكم الله خيرا

لندفع الموضوع في المقدمة لعله لم يلقي الوقت الكافي للرد (-

PROCEDURE Agacount_decr (decr_credit IN NUMBER,
AG_ID IN NUMBER) IS credit NUMBER;
BEGIN
SELECT AGCREDIT INTO credit FROM AGMSTR
WHERE AGID = AG_ID;
UPDATE AGMSTR
SET AGCREDIT = credit - decr_credit WHERE AGID = AG_ID;
COMMIT;

بصراحة انا مش فاهم شئ من المثال ولكن ممكن يكون الحفظ هو المشكلة COOMIT;

PROCEDURE Agac

الاخ khalideed ، السلام عليكم ، هذا الـ PROCEDURE يعمل على خصم قيمة مشتريات الزبون(الوكيل) من حسابه الخاص (ايداع مسبق)
ارجوا التوضيح والتفصيل وجزاكم الله خيرا انشاء الله

يلا شباب ، شويه همه !