السلام عليكم ورحمة الله

اصدقائي الاعزاء لدى فورمة بها مجموعة checkboxوبها   checkbox إسمها select all  عند التعليم عليه  تصبح جميع checkboxمعلمات وعند الضغط على إحداهن يزال التعليم من checkbox الرئيسية select all

ارجو إفادتي والسلام عليكم

 

ارفق الـ FMB

ارفق الفورم

إليكم الفورمة

select.zip

اذخل الموضوع هذا حيفيدك

 

http://www.araboug.org/ib/index.php?showtopic=52672&hl=

 

السلام عليكم

 

ضع الكود التالي داخل تريغر WHEN-CHECKBOX-CHANGED

على مستوى الايتم SELECT

IF :EMP_PERMISSION1.SELECT=1 THEN
	:EMP_PERMISSION1.UPDATE_FORM:=1;
	:EMP_PERMISSION1.READ_ONLY:=1;
	:EMP_PERMISSION1.PRINT_FORM:=1;
	:EMP_PERMISSION1.QUERY_FORM:=1;
	:EMP_PERMISSION1.ADD_NEW:=1;
ELSE
	:EMP_PERMISSION1.UPDATE_FORM:=0;
	:EMP_PERMISSION1.READ_ONLY:=0;
	:EMP_PERMISSION1.PRINT_FORM:=0;
	:EMP_PERMISSION1.QUERY_FORM:=0;
	:EMP_PERMISSION1.ADD_NEW:=0;
END IF;
	

وضع الكود التالي داخل نفس التريغر ولكن على مستوى الايتمز الباقية

مع تغيير اسم الايتم

IF :EMP_PERMISSION1.UPDATE_FORM=0 THEN
	:EMP_PERMISSION1.SELECT:=0;
END IF;

hey ..

assume tha the checkbox check value is 01

 

 

declare
top_rec integer;
cur_rec integer;
begin
go_block('Block_NAME');
top_rec := get_block_property('Block_NAME', TOP_RECORD);
cur_rec := get_block_property('Block_NAME', CURRENT_RECORD);
first_record;
loop
:Block_NAME.CHECKBOX_NAME := 1;-- if 1 is checked Value
exit when :system.last_record = 'TRUE';
down;
end loop;
last_record;
go_record(top_rec);
go_record(cur_rec);
end; 

thanks @All ...

 

بارك الله فيكم إخوتي وزادكم علما