اخواني الاعزاء

عندي مشكلة في فورم اريد ربط خاصية enabled
بحقل تاريخ اذا كان اول يوم في السنة يكون yes
وباقي ايام السنة يكون no
فقمت بعمل الاتي كمحاولة ولكنها لم تنجح ولا اعرف لماذا؟؟؟؟

DECLARE
BEGIN
--START CASH
IF :y_cash.ddate='1-1-2005'
then
SET_ITEM_PROPERTY(':y_cash1.strt_cash',enabled,'yes');
else
SET_ITEM_PROPERTY(':y_cash1.strt_cash',enabled,'no');
END IF;


END;

الاخ الكريم

عند استخدام Set_Item_property
لا تستخدم ":" قبل اسم العنصر
لذلك لتصحيح الامر اكتبه كما يلى

DECLARE
BEGIN --START CASH
IF :y_cash.ddate='1-1-2005'
then 
SET_ITEM_PROPERTY('y_cash1.strt_cash',enabled,'yes');
else
SET_ITEM_PROPERTY('y_cash1.strt_cash',enabled,'no');
END IF;


END;

تم تعديل 1 أغسطس 200520 سنة بواسطة Osama Soliman

شكرا اخي علي الرد

ولكن نفذت ما قلت ونفس الخطا

كنت اود ان اسالك اضعها في اي تريجر؟؟؟؟؟

السلام عليكم ...
1. عند التعامل مع التاريخ بالنسبة للأوراكل يجب ان تستخدم الصيغة المستخدمه في SQL و هي DD-MON-YYYY و عليك تغيير شكل التاريخ عندك الى الشكل التالي 01-JAN-2005 .

2. يجب إعطاء SET_ITEM_PROPERTY متغيرات صحيحة ( باراميترز ) و ذلك على النحو التالي :
SET_ITEM_PROPERTY('y_cash1.strt_cash',enabled,PROPERTY_TRUE);

• يجب عدم و ضع : مع اول باراميتر
  

مع الباراميتر الإخير لا نستخدم 'YES' أو 'NO' نستخدم PROPERTY_TRUE أو PROPERTY_FALSE .

و هذا الكود بعد التصحيح:
DECLARE
BEGIN
--START CASH
IF :y_cash.ddate='01-JAN-2005'
then
SET_ITEM_PROPERTY('y_cash1.strt_cash',enabled,PROPERTY_TRUE);
else
SET_ITEM_PROPERTY('y_cash1.strt_cash',enabled,PROPERTY_FALSE);
END IF;


END;

الاخ الفاضل

كما علق اخي babor_kaz واخي Osama
يجوز وصحيح الذي كتبوه ويمكن كتابته ايضا بالشكل التالي

وكذلك حتى يمكنك التعديل يجب كتابة NAVIGABLE

DECLARE
BEGIN --START CASH
IF TO_CHAR(:y_cash.ddate,'DD-MON-YYYY')=TO_CHAR('01-JAN-2005','DD-MON-YYYY');
then 
SET_ITEM_PROPERTY('y_cash1.strt_cash',ENABLED,PROPERTY_TRUE);

SET_ITEM_PROPERTY('y_cash1.strt_cash',NAVIGABLE,PROPERTY_TRUE);
else

SET_ITEM_PROPERTY('y_cash1.strt_cash',ENABLED,PROPERTY_FALSE);

SET_ITEM_PROPERTY('y_cash1.strt_cash',NAVIGABLE,PROPERTY_FALSE);

END IF;
END;

تم تعديل 2 أغسطس 200520 سنة بواسطة Admin05

الاخوة الاعزاء

شاكر جداً لمتابعتكم

ولكن نفذت ما قلتم ولكن دون نتيجة وتظهر رسالة خطأ

FRM-40735:الزنادWHEN-NEW-FORM-INSTANCE تسبب في استثناء غير معالج ORA-01843

ORA-01843

ORA-01843not a valid month

Cause:A date specified an invalid month. Valid months are: January-December (for format code MONTH), Jan-Dec (for format code MON).

Action:Enter a valid month value in the correct format.

الاخ ADMIN05
اعتقد ان اجابتك هي الشافية ولكن ارجو مراجعة الكود

لانه يضهر رسالة خطا عند سطر IF بسبب وجود ; في نهاية السطر

وبعد ازالتها تظهر رسالة خطا عند =TO_CHAR الثانية ولا اعلم لماذا؟؟؟؟؟؟؟؟؟

تعديل الكود

DECLARE
BEGIN --START CASH
IF TO_CHAR(:y_cash.ddate,'DD-MM-YYYY')='01-01-2005' then 
SET_ITEM_PROPERTY('y_cash1.strt_cash',ENABLED,PROPERTY_TRUE);

SET_ITEM_PROPERTY('y_cash1.strt_cash',NAVIGABLE,PROPERTY_TRUE);
else

SET_ITEM_PROPERTY('y_cash1.strt_cash',ENABLED,PROPERTY_FALSE);

SET_ITEM_PROPERTY('y_cash1.strt_cash',NAVIGABLE,PROPERTY_FALSE);

END IF;
END;

شكرا