السلام عليكم شباب

مساكم الله بالخير

عندي سؤال بسيط أرجو من الاخوة اصحاب الخبرات ومن أكرمهم الله بالفهم , أن يتعاونو معي في النقاش حوله ..

 

لدي Data Block فيه العديد من السجلات تعرض عليه ..

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

 

مثلا

إذا كان محتوى العنصر = 1 يجعل لون الحقل كامل بلون أحمر

وإذا كان محتوى العنصر = 2 يجعل لون الحقل كامل بلون أخضر

وهكذا ...

 

وفقكم الله ...

السلام عليكم 

 

قمت بعمل مثال لما طلبت وهو كالتالي 

 

1- انشاء جدول يحتوي على حقل الحالة الذي تم عمل الشرط بناء عليه " اذا كان وحد يجعل اللون ازرق واذا كان 2 يجعل اللون اخضر "

2 - انشاء شاشة تحتوي على DATA BLOCK من نوع TABULAR 

3- انشاء 2 / ATTRIBUTE وحدة للون الازرق والثانية للون الاخضر 

4 انشاء البروسجر التالي :

PROCEDURE add_event_rec_va
IS
   cur_itm       VARCHAR2 (80);
   cur_block     VARCHAR2 (80) := :SYSTEM.Cursor_Block;
   curr_record   NUMBER;
BEGIN
   cur_itm := GET_BLOCK_PROPERTY (cur_block, FIRST_ITEM);

   WHILE (cur_itm IS NOT NULL)
   LOOP
      cur_itm := cur_block || '.' || cur_itm;
      Curr_record := :SYSTEM.Cursor_Record;
      IF :COLOR_ITEM.STATUS = 1
      THEN
         SET_ITEM_INSTANCE_PROPERTY (cur_itm,
                                     CURRENT_RECORD,
                                     VISUAL_ATTRIBUTE,
                                     'ODD');
      ELSE
         SET_ITEM_INSTANCE_PROPERTY (cur_itm,
                                     CURRENT_RECORD,
                                     VISUAL_ATTRIBUTE,
                                     'EVENT');
      END IF;
      cur_itm := GET_ITEM_PROPERTY (cur_itm, NEXTITEM);
   END LOOP;
END;
 ---------And  Now u will the  above  screen shot....

5- استدعاء البروسجر السابق من خلال تريقر POST-QUERY على مستو البلوك 

 

 

بالتوفيق 

Example_Color_Item.rar

رااااائع أخي  anas

السلام عليكم 

 

قمت بعمل مثال لما طلبت وهو كالتالي 

 

1- انشاء جدول يحتوي على حقل الحالة الذي تم عمل الشرط بناء عليه " اذا كان وحد يجعل اللون ازرق واذا كان 2 يجعل اللون اخضر "

2 - انشاء شاشة تحتوي على DATA BLOCK من نوع TABULAR 

3- انشاء 2 / ATTRIBUTE وحدة للون الازرق والثانية للون الاخضر 

4 انشاء البروسجر التالي :

PROCEDURE add_event_rec_va
IS
   cur_itm       VARCHAR2 (80);
   cur_block     VARCHAR2 (80) := :SYSTEM.Cursor_Block;
   curr_record   NUMBER;
BEGIN
   cur_itm := GET_BLOCK_PROPERTY (cur_block, FIRST_ITEM);

   WHILE (cur_itm IS NOT NULL)
   LOOP
      cur_itm := cur_block || '.' || cur_itm;
      Curr_record := :SYSTEM.Cursor_Record;
      IF :COLOR_ITEM.STATUS = 1
      THEN
         SET_ITEM_INSTANCE_PROPERTY (cur_itm,
                                     CURRENT_RECORD,
                                     VISUAL_ATTRIBUTE,
                                     'ODD');
      ELSE
         SET_ITEM_INSTANCE_PROPERTY (cur_itm,
                                     CURRENT_RECORD,
                                     VISUAL_ATTRIBUTE,
                                     'EVENT');
      END IF;
      cur_itm := GET_ITEM_PROPERTY (cur_itm, NEXTITEM);
   END LOOP;
END;
 ---------And  Now u will the  above  screen shot....

5- استدعاء البروسجر السابق من خلال تريقر POST-QUERY على مستو البلوك 

 

 

بالتوفيق 

أشكررررررك من أعماق قلبي أخي الغالي بش مهندس أنس ..

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

رااااائع أخي  anas

تحياتي لك اخي فيصل 

 

السلام عليكم 

 

قمت بعمل مثال لما طلبت وهو كالتالي 

 

1- انشاء جدول يحتوي على حقل الحالة الذي تم عمل الشرط بناء عليه " اذا كان وحد يجعل اللون ازرق واذا كان 2 يجعل اللون اخضر "

2 - انشاء شاشة تحتوي على DATA BLOCK من نوع TABULAR 

3- انشاء 2 / ATTRIBUTE وحدة للون الازرق والثانية للون الاخضر 

4 انشاء البروسجر التالي :

PROCEDURE add_event_rec_va
IS
   cur_itm       VARCHAR2 (80);
   cur_block     VARCHAR2 (80) := :SYSTEM.Cursor_Block;
   curr_record   NUMBER;
BEGIN
   cur_itm := GET_BLOCK_PROPERTY (cur_block, FIRST_ITEM);

   WHILE (cur_itm IS NOT NULL)
   LOOP
      cur_itm := cur_block || '.' || cur_itm;
      Curr_record := :SYSTEM.Cursor_Record;
      IF :COLOR_ITEM.STATUS = 1
      THEN
         SET_ITEM_INSTANCE_PROPERTY (cur_itm,
                                     CURRENT_RECORD,
                                     VISUAL_ATTRIBUTE,
                                     'ODD');
      ELSE
         SET_ITEM_INSTANCE_PROPERTY (cur_itm,
                                     CURRENT_RECORD,
                                     VISUAL_ATTRIBUTE,
                                     'EVENT');
      END IF;
      cur_itm := GET_ITEM_PROPERTY (cur_itm, NEXTITEM);
   END LOOP;
END;
 ---------And  Now u will the  above  screen shot....

5- استدعاء البروسجر السابق من خلال تريقر POST-QUERY على مستو البلوك 

 

 

بالتوفيق 

أشكررررررك من أعماق قلبي أخي الغالي بش مهندس أنس ..

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

 

بالتوفيق واشكرك على هذا الدعاء ...