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

ارجو المساعدة:

انني قد برمجت ال dynamic lov with parameter
و المشكلة كالتالي:

انني اريد ان تظر ال lov ب filter عند تمرير القيمة 2
و لكن ال lov تعمل لكن لا تعمل filtering on lov
اي filter before display filter


علما انني املك اربعة lovs اثنين منهما ب filter و الاثنين الاخرين بدون ارجو المساعدة و اترككم مع الكود

[b]PROCEDURE create_lov_rg(p_item_id in varchar2 ,p_item_name in varchar2, p_item_name0 in varchar2 ,p_filter number) IS

rg_name VARCHAR2(40) := 'lov_rg';
v_lov_name varchar2(40) ;
rg_id RecordGroup;
lov_id LOV ;
it_id item;
errcode NUMBER;
Q1 varchar2(2000);
Q2 varchar2(2000);
b_name varchar2(200);

b_item_1 varchar2(50);
b_item_2 varchar2(50);
b_item_3 varchar2(50);

value boolean;
BEGIN rg_id := Find_Group( rg_name );
b_name := :system.current_block;
b_item_1 := b_name||'.'||p_item_id;
b_item_2 := b_name||'.'||p_item_name;
b_item_3 := b_name||'.'||p_item_name0;

set_form_property(name_in('SYSTEM.CURRENT_FORM'), INTERACTION_MODE, NON_BLOCKING);
if p_filter = 1 then 
if :parameter.p_lang_id = 1 then

lov_id := Find_LOV('DIC_LOV');
v_lov_name := 'DIC_LOV';
else
lov_id := Find_LOV('DIC_LOV0');
v_lov_name := 'DIC_LOV0';
end if;
elsif p_filter =2 then
if :parameter.p_lang_id = 1 then

lov_id := Find_LOV('DIC_F_LOV');
v_lov_name := 'DIC_F_LOV';
else
lov_id := Find_LOV('DIC_F_LOV0');
v_lov_name := 'DIC_F_LOV0';
end if;
end if;

it_id := find_item(b_item_1);
set_item_property(it_id,LOV_NAME,v_lov_name);


rg_id := Find_Group( rg_name );


Q1 := 'select student_id, first_name||'' ''||mid_name||'' ''||last_name student_name,null student_name_s
from sis_students ';

Q2 := 'select student_id, null student_name,
first_name_s||'' ''||mid_name_s||'' ''||last_name_s student_name_s 
from sis_students ';

if ID_NULL(rg_id) then
rg_id := Create_Group( rg_name);
end if;



if :parameter.p_lang_id = 1 then
errcode := Populate_Group_With_Query( rg_id,Q1); 
else
errcode := Populate_Group_With_Query( rg_id,Q2); 
end if;





if :parameter.p_lang_id =1 then
set_lov_column_property(lov_id,1,TITLE,p_item_id);
set_lov_column_property(lov_id,2,TITLE,p_item_name);
set_lov_column_property(lov_id,2,width,400);
else
set_lov_column_property(lov_id,1,TITLE,p_item_id);
set_lov_column_property(lov_id,2,TITLE,p_item_name);
set_lov_column_property(lov_id,2,width,0); 
set_lov_column_property(lov_id,3,TITLE,p_item_name0);
set_lov_column_property(lov_id,3,width,400);
end if;





value := show_lov(lov_id); 
if value then
if :parameter.p_lang_id = 1 then
copy(:parameter.p_lov_1,b_item_1);
copy(:parameter.p_lov_2,b_item_2);
else
copy(:parameter.p_lov_1,b_item_1);
copy(:parameter.p_lov_3,b_item_3);
end if;
end if;


END;
[/b]

تم تعديل 10 يونيو 200916 سنة بواسطة mustafagamiel

الكود في المرفقات

dynamic_lov.txt

للتوضيح ان الكود يجب ان يعمل على اللغتين العربي و الانجليزي

يا جماعة الموضوع صلة اكثر من حوالي اربعة ايام 56 قراءة بدون و لا رد

و ين يا اخوان الردود هل المشكلة عدم فهم كيفية عمل الكود او ان الكود صعب الفهم

و انني اعلم انه ليس صعب الفهم على كثير منكم نقطة الخلاف
ان هذا الكود يعمل مئة بالمئة و لكن مشكلتي هي عندما اريد
ان اعمل فلتر على ال lov من lov property
فان الكود لايعمل و ارجوا منكم الرد لان الموضوع ليس بالصعب