---------------------------------------------------------------------------------------------------

</b>
DECLARE
	  cURSOR main  IS  SELECT screen_name
						  FROM user_privs
						  WHERE userid=:global.userid; 
						
	  screen_name varchar2(30);
	  
BEGIN
 OPEN main;
	 loop
		  FETCH main INTO screen_name;
		  exit when main%notfound;
		 
		 if  screen_name='customers' then
			 SET_ITEM_PROPERTY('cust',enabled,PROPERTY_true );	
		 end if;
 -----------------------		
		 if  screen_name='sales' then
			 SET_ITEM_PROPERTY('SALES',enabled,PROPERTY_true );
		 end if;
 -----------------------	
		 if  screen_name='purchase' then		 
					  SET_ITEM_PROPERTY('purchase',enabled,PROPERTY_true );				  
		 end if;
	 end loop;	 
 CLOSE main;
end;
<b>

------------------------------------------------------------------------------------------------------------------

الكود ده شغال كويس بس هوة غلط كل اللى انا عاوزه انى بدل ماكنب اسم القسم داخل جملة

if
هوة يجبها لوحده
زى كدة
if screen_name='purchase' then
انا مش عاوز اكتب
purchase
------------------------------------------------------------------------------------------------------------------
ولكم جزيل الشكر

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

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

اشكرك اخى على الاستجابه
هوه الكود ده موجود داخل فورمة
main WHEN-NEW-FORM-INSTANCE
بحيث لما المستخدم يدخل يتم التعرف عليه من خلال الرقم
وبعدين يتم تفعيل الازرار المؤدية للفورم الى مسموحلو باستخدامه
الباشمهمدس قالى الكود صح بس المفروض ينكتب بشكل ثانى
جملة if
المطلوب هل من طريقة اخرى لكتابة جملة if
ولك جزيل الشكر

اخي الكريم
انا مش فاهم المطلوب بالظبط ، بس هحاول اختصر الكود على حسب ما فهمت
أولاً ... حضرتك سمي الزراير بنفس اسم الشاشات بالظبط ، مثال شاشة 'customers' ، الرزرار بتاعها يكون اسمه 'customers' وهكذا

ثانيا غير الكود إلى

BEGIN OPEN main;
        loop
             FETCH main INTO screen_name; exit when main%notfound;
            
            if  screen_name IN('customers' , 'sales','purchase' )then
                SET_ITEM_PROPERTY(screen_name,enabled,PROPERTY_true );    
           ELSE 
                SET_ITEM_PROPERTY(screen_name,enabled,PROPERTY_FALSE );    
            end if;
         end loop;     
    CLOSE main;
end;

ده طبعاً على أساس انك عايز تعمل 3 شاشات دول بس ، اما لو كنت عايز حل يمشي مع أي عدد من الشاشات فياريت توضح جدول اليوسر ، وصلاحياته
وانا معاك في أي حاجة ، وربنا ييسر ونقدر نحل المشلكة


أما إذا كان اليوسر المسجل في هذا الجدول له صلاحية على الشاشة المسجلة بالجدول ، إذاً لاداعي ل IF
ويكون الكود مباشر
مثال :

BEGIN OPEN main;
        loop
             FETCH main INTO screen_name; exit when main%notfound;
            
             SET_ITEM_PROPERTY(screen_name,enabled,PROPERTY_true );    
   
         end loop;     

    CLOSE main;
end;