اخي الكريم TROYMAN ممكن لوسمحت مساعدة لو تكرمت

حضرتك وضعت لي كود بروسيدجر لحذف الدم الذي مر عليه 3 سنوات

ممكن لوسمحت عمل ذلك الصلاحية لمدة 45 يوماً ويقوم بحذفه؟ من فضلك

وفقك الله

تم تعديل 20 مارس 200916 سنة بواسطة sonic

السلام عليكم...

عدّل بالكيرسر :

create or replace procedure pro_Exp
is
cursor cur is select * from operations where (sysdate-OperationDate)>45;
begin for rec in cur loop
update BloodType set Balance=Balance-rec.QuantityPerLiter
where ID=rec.BloodTypeID;
delete from Operations where OperationID=rec.OperationID;
end loop;
commit;
end;
/ 
;

أنا حذفت الـ if لأنو ما لها شغل .. نسيانها من المرة الماضية
بس نصيحة لا تستخدم أي كود بمشاريعك قبل ما تفهم كل سطر فيه...

تم تعديل 21 مارس 200916 سنة بواسطة TROYMAN

جزاك الله كل خير اخي الكريم ولا تخف باذن الله اقوم بفهم طريقة عمل الكود ولكن الذي وقف معي هو عملية تحديد 45 يوم لهذا سالتك بهذا الموضوع

بارك الله فيك اخي الكريم ووفقك دنيا واخرة

تم تعديل 21 مارس 200916 سنة بواسطة sonic

يوجد لدي error في ال Balance لا اعرف لماذا مع اني استخدم الكود القديم ولم يظهر لي مثل هذا ال error

انظر جزاك الله خير

يبدو أن هناك مشكلة باسم الحقل...
إذا كان الكود القديم يعمل بشكل صحيح يكفي أن تعدل عليه مايلي:

بالكيرسر ضع

where (sysdate-OperationDate)>45;

بدلاً من

where (sysdate-OperationDate)/360>3;

مع العلم أن الفرق بين تاريخين هو دائماً بالأيام...

و قم بحذف:

f boolean :=false;
if f then
f:=true;
end if;

تم تعديل 21 مارس 200916 سنة بواسطة TROYMAN

نفس المشكلة لا اعرف لماذا

اتعبتك معي اخي الكريم

هل السبب يجب عمل Declear لل Balance ؟

تم تعديل 21 مارس 200916 سنة بواسطة sonic