كود مجننى

عندى 2 جدول
واحد صرف ادوية
والثانى مرتجع ادوية
عايز لما اجى ارجع الادوية يوصل لحد اخر الصرف وبعد كدة يطلع معدش يسجل
يعنى صرفت 10 امبول مثلا
ورجعت 10 امبول بعد كدة يطلع رسالة ان معدش مرتجع
الكود ناقص فيه حتة مش عارفها

declare
s number;
d number;
n number;
begin
if :global.operation=1 then

select sum(drug_d.count)
into s
from drug_d
where patient_code= : P_ret_bill.patient_code
AND ITEM= : P_RET_D.ITEM
;
select sum (P_RET_D.count)
into d
from P_RET_D
where patient_code= : P_ret_bill.patient_code
AND ITEM= : P_RET_D.ITEM;

if D > s then
message ('GGGGGGG');

ELSIF :count > s then

SET_ALERT_PROPERTY('AL1',ALERT_MESSAGE_TEXT,' ãä ÝÖáß ÇáßãíÉ ÇáãÑÊÌÚÉ ãä åÐÇ ÇáÕäÝ ÃßËÑ ãä ÇáãÈÇÚÉ = '|| s );
N:=SHOW_ALERT('AL1');
RAISE FORM_TRIGGER_FAILURE;
end if;
end if;

---exception
-- WHEN others THEN
-- NULL;

end;