BEGIN
IF :mark_D = 1 THEN
    
    :RECEVED_DAT : = SYSDATE ;
        set_item_property(':Mark_d',UPDATE_ALLOWED,PROPERTY_FALSE);
        set_item_property(':RECEVED_DAT',UPDATE_ALLOWED,PROPERTY_FALSE);
ELSIF :mark_D = 0 THEN
    :RECEVED_DAT : = NULL;
    set_item_property(':Mark_d' ,UPDATE_ALLOWED,PROPERTY_TRUE);
    set_item_property(':RECEVED_DAT',UPDATE_ALLOWED,PROPERTY_TRUE);
END IF;
END;

الكود عبارة عن 2 عنصر

واحد تشك بوكس لما بيساوى 1 بيدى تاريخ اليوم فى عنصر التاريخ ولا يقبل التعديل بعد ذلك نهائيا الا اذا كانت القيمة غير 1 فى العنصرين

والعكس لما بيساوى صفر

مع الشكر

تم تعديل 24 فبراير 201511 سنة بواسطة Ahmad.Hasan

السلام عليكم

ما الخطأ في الكود ؟؟

هل يوجد رسالة خطأ ام ان الكود لا يعمل بالشكل المطلوب ؟

دة الخطأ الى بيطلع

والكود مش شغال لا يقوم بالوظيفة المطلوبة

تم تعديل 25 فبراير 201511 سنة بواسطة scdc2003

احذف :

لتكون كالتالى

set_item_property('Mark_d',UPDATE_ALLOWED,PROPERTY_FALSE);

احذف :

لتكون كالتالى

set_item_property('Mark_d',UPDATE_ALLOWED,PROPERTY_FALSE);

الاخ العزيز

لقد قمت بكتابة الكود كما قلت والحمد لله الان يعمل لكن عندما اغلق الفورم ثم اقوم بفتحها يتم السماح مرة اخرى بتغيير البيانات وهذه تمثل مشكلة كبيرة لى

تم تعديل 25 فبراير 201511 سنة بواسطة scdc2003

لقد قمت بكتابة الكود كما قلت والحمد لله الان يعمل لكن عندما اغلق الفورم ثم اقوم بفتحها يتم السماح مرة اخرى بتغيير البيانات وهذه تمثل مشكلة كبيرة لى

 

begin
IF :mark_D = 1 THEN
:RECEVED_DAT := SYSDATE ;
set_item_property('Mark_d',UPDATE_ALLOWED,PROPERTY_FALSE);
set_item_property('RECEVED_DAT',UPDATE_ALLOWED,PROPERTY_FALSE);
ELSif :mark_D = 0 THEN
:RECEVED_DAT := NULL;
END IF;
end;

السلام عليكم

ضع الكود في ترجر Pre-record على مستوى البلوك.

 

بدون:

:RECEVED_DAT := SYSDATE ;

:RECEVED_DAT := NULL;

تسلم يا احمد بيه والله شغل عالى قوى