السلام عليكم

أختكم طالبه مبتدئة وأعمل على مشروعي 

عندي جدول على شاشة واريد تغيير لون الريكورد لكل ذكر لون أخضر والأنثى بلون بنفسجي

حاولت بهذا الكود ولكنه يغير لون الأيتم وليس الريكود كامل

 

if :TYP = 1 then
​Set_Item_Instance_Property( 'TYP', current_record, VISUAL_ATTRIBUTE,'GREEN');
else ​Set_Item_Instance_Property( 'TYP', current_record, VISUAL_ATTRIBUTE,'PLUE');
end if;

 

اريد تغيير الريكود كامل وليس أيتم واحد فقط

كذلك عند عرض التقرير 

 

فما الحل ارجوكم

ارجوكم

 

 

 

وعليكم السلام 

تفضلي هذا الكود يقوم بعمل تلوين للريكود.

declare

		cur_itm   VARCHAR2(80); 
  cur_block VARCHAR2(80) := :System.Cursor_Block; 
	begin
if :TYP=1  then
  cur_itm   := Get_Block_Property( cur_block, FIRST_ITEM ); 
  WHILE ( cur_itm IS NOT NULL ) LOOP 
    cur_itm := cur_block||'.'||cur_itm; 
    Display_Item( cur_itm, 'GREEN'); 
    cur_itm := Get_Item_Property( cur_itm, NEXTITEM ); 
  END LOOP;
 else 
  cur_itm   := Get_Block_Property( cur_block, FIRST_ITEM ); 
  WHILE ( cur_itm IS NOT NULL ) LOOP 
    cur_itm := cur_block||'.'||cur_itm; 
    Display_Item( cur_itm, 'PLUE'); 
    cur_itm := Get_Item_Property( cur_itm, NEXTITEM ); 
  END LOOP;
  
end if;
end;

موفقه,,

شكرا لك أخي  المبرمج الصاعد أنا اريد تغيير اللون على الصف كامل وليس أيتم محدد 

كما يظهر بالصورة المرفقة

 

فهل هناك طريقة لعلم ذلك في الشاشة والريببورت

 

فيما يخص الفورم

يتم وضع الكود التالي في تريجر POST-QUERY على مستوى البلوك

 

 

declare
        cur_itm   varchar2(80);
        cur_block  varchar2(80) :=:system.cursor_block;
begin  if  nvl(:TYPE,0) =1 then
                cur_itm:=get_block_property(cur_block,first_item);
                while (cur_itm is not null) loop
                       cur_itm := cur_block||'.'||cur_itm;
                     Display_Item(   cur_itm, 'x');
                       -- set_block_property('tkt',CURRENT_ROW_BACKGROUND_COLOR,'r250g0b0');
                cur_itm:=get_item_property(cur_itm,nextitem);
end loop; end if ; end;

بالتوفيق ...