اتمنى انى تجوابنى عن سوالى انا عندى شاشه فيه مستر وتدايليس عايز اخلى الجزا بتاع الداتليز فى حاله لم اليوزار يرن الشاشه تكون الجزا بتاع الداتليز سطر بلون اخضروسطر اصفر فى حاله الاستعلام اتمنى انا  يكون السوال مفهموم واتمنى من الاخواه الاعزاء فى المنتدى سرعه الرد لانه موضوع مهم ليه  بنسبه كبيره وجزاكم الله خيرا

 

في حالة الإستعلام راح تسختدم في post-query : set_item_property(item_name',visual_attribute,'visual_attrinute_name')

و في visual attribute تستخدم الاوان اللي بدك اياه 

و ممكن تعرف اكثر من واحد الاول للاستعلام و التاني اللي انت بدك اياه 

بس ياريس هى ديه الجمله الى انا عمله بس مش بتتنفذ للاسف والجمله  هى :

 If :AAEATTECAR08.AAEATTE003 = 1 Then    
   Set_Item_Instance_Property(':AAEATTECAR08.AAEATTE001',Current_Record,Visual_Attribute,'aa' );
 Else
   Set_Item_Instance_Property(':AAEATTECAR08.AAEATTE001',Current_Record,Visual_Attribute,'nn' );
 End If;
End;

السلام عليكم

ممكن تجرب طلايقه اخلاي بخلاف IF

اقصد طريقه

post-query : set_item_property

اعتقد انها قد تكون ادق وافضل

 

والله المستعان

اول الكود يوضوع فى الحدث  post_query   

والكود هو

IF :AAEATTE003=1 THEN
      :M:='الحضور';
                            set_item_instance_property( 'AAEATTECAR08.AAEATTE004', CURRENT_RECORD, VISUAL_ATTRIBUTE, 'AA' );
                                set_item_instance_property( 'AAEATTECAR08.AAEATTE001', CURRENT_RECORD, VISUAL_ATTRIBUTE, 'AA' );
                                set_item_instance_property( 'AAEATTECAR08.AAATTE006', CURRENT_RECORD, VISUAL_ATTRIBUTE, 'AA' );
                                set_item_instance_property( 'AAEATTECAR08.AAATTE005', CURRENT_RECORD, VISUAL_ATTRIBUTE, 'AA' );
                                set_item_instance_property( 'AAEATTECAR08.AAATTE007', CURRENT_RECORD, VISUAL_ATTRIBUTE, 'AA' );
                                set_item_instance_property( 'AAEATTECAR08.TIM', CURRENT_RECORD, VISUAL_ATTRIBUTE, 'AA' );
                                set_item_instance_property( 'AAEATTECAR08.D', CURRENT_RECORD, VISUAL_ATTRIBUTE, 'AA' );
                                set_item_instance_property( 'AAEATTECAR08.P', CURRENT_RECORD, VISUAL_ATTRIBUTE, 'AA' );
                                set_item_instance_property( 'AAEATTECAR08.L', CURRENT_RECORD, VISUAL_ATTRIBUTE, 'AA' );
                                set_item_instance_property( 'AAEATTECAR08.DE', CURRENT_RECORD, VISUAL_ATTRIBUTE, 'AA' );
                                set_item_instance_property( 'AAEATTECAR08.M', CURRENT_RECORD, VISUAL_ATTRIBUTE, 'AA' );
                                set_item_instance_property( 'AAEATTECAR08.AAEATTE003', CURRENT_RECORD, VISUAL_ATTRIBUTE, 'AA' );
                                ELSE    
    :M:='الانصراف';
                        set_item_instance_property( 'AAEATTECAR08.AAEATTE004', CURRENT_RECORD, VISUAL_ATTRIBUTE, 'NN' );
                                set_item_instance_property( 'AAEATTECAR08.AAEATTE001', CURRENT_RECORD, VISUAL_ATTRIBUTE, 'NN' );
                                set_item_instance_property( 'AAEATTECAR08.AAATTE006', CURRENT_RECORD, VISUAL_ATTRIBUTE, 'NN' );
                                set_item_instance_property( 'AAEATTECAR08.AAATTE005', CURRENT_RECORD, VISUAL_ATTRIBUTE, 'NN' );
                                set_item_instance_property( 'AAEATTECAR08.AAATTE007', CURRENT_RECORD, VISUAL_ATTRIBUTE, 'NN' );
                                set_item_instance_property( 'AAEATTECAR08.TIM', CURRENT_RECORD, VISUAL_ATTRIBUTE, 'NN' );
                                set_item_instance_property( 'AAEATTECAR08.D', CURRENT_RECORD, VISUAL_ATTRIBUTE, 'NN' );
                                set_item_instance_property( 'AAEATTECAR08.P', CURRENT_RECORD, VISUAL_ATTRIBUTE, 'NN' );
                                set_item_instance_property( 'AAEATTECAR08.L', CURRENT_RECORD, VISUAL_ATTRIBUTE, 'NN' );
                                set_item_instance_property( 'AAEATTECAR08.DE', CURRENT_RECORD, VISUAL_ATTRIBUTE, 'NN' );
                                set_item_instance_property( 'AAEATTECAR08.M', CURRENT_RECORD, VISUAL_ATTRIBUTE, 'NN' );
                                set_item_instance_property( 'AAEATTECAR08.AAEATTE003', CURRENT_RECORD, VISUAL_ATTRIBUTE, 'NN' );
                    
            
                                
END IF;

واتمنى من الاصدقاء الدعاء لى واتمنى ان يفيد الاخوه الاعزاءفى المنتديا وشكرا

السلام عليكم... 

لدي مشروع ب الجامعة واجهتني مشكله هو عندما اريد تغير لون سجل في الديتيلز حاولت اعمل كود ولكن يلون لي الحقل كامل ولا يلتزم ب الشروط ولا شيء  يلون لي الحقل كامل الموجود في الديتيلز ولا يلتزم مثلا اذا كان الحالة 1, بلون واذا كانت 2 بلون اخر  

begin 

FIRST_RECORD;
LOOP
    EXIT WHEN :SYSTEM.LAST_RECORD = 'TRUE';

    IF :T_BORING2.BORROWING_STATE IS NOT NULL THEN
        IF :T_BORING2.BORROWING_STATE = 1 THEN
            SET_ITEM_INSTANCE_PROPERTY('T_BORING2.NUM_BOOK', CURRENT_RECORD, VISUAL_ATTRIBUTE, 'VISUAL_ATTRIBUTE34');
        ELSIF :T_BORING2.BORROWING_STATE = 2 THEN
            SET_ITEM_INSTANCE_PROPERTY('T_BORING2.NUM_BOOK', CURRENT_RECORD, VISUAL_ATTRIBUTE, 'VA_NORMAL');
        ELSE
            SET_ITEM_INSTANCE_PROPERTY('T_BORING2.NUM_BOOK', CURRENT_RECORD, VISUAL_ATTRIBUTE, 'VISUAL_ATTRIBUTE32');
        END IF;
    ELSE
        SET_ITEM_INSTANCE_PROPERTY('T_BORING2.NUM_BOOK', CURRENT_RECORD, VISUAL_ATTRIBUTE, 'VISUAL_ATTRIBUTE31');
    END IF;

    NEXT_RECORD;
END LOOP;

end;