كيف وضع كود يقوم بحساب الزيادة والنقصان

[sonic]

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

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

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

وفقك الله

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

[TROYMAN]

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

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

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 مارس 2009 بواسطة TROYMAN

[sonic]

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

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

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

[sonic]

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

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

[TROYMAN]

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

بالكيرسر ضع

where (sysdate-OperationDate)>45;

بدلاً من

where (sysdate-OperationDate)/360>3;

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

و قم بحذف:

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

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

[sonic]

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

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

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

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