السلام عليكم

 

في عند مشكلة عند الحفظ عندي( ( TWO LIST  (RULE_NO_1_F،MACHINES_NO_F)

 

ويوجد علاق بين اليستان ولكن المشكلة عند عملية الحفظ

ــــــــــــــــــــــــــــــــــــــــــــــــــــــــ

في حدث WHEN_LIST_CHANGED

 

 

Declare
Rg_City Recordgroup;
Rg_Name Varchar2(40) := 'ORDER_REPAIR';
List_Id Item := Find_Item('ORDER_REPAIR.RULE_NO_1_F');
VtSTOPPING Number;
it_id1 Item;
it_id2 Item;

Begin

Rg_City := Find_Group(Rg_Name);

If Not Id_Null(Rg_City) Then
Delete_Group(Rg_Name);
End If;

Rg_City :=Create_Group_From_Query(Rg_Name ,
'Select MACHINES_name, to_char(MACHINES_NO) From MACHINES
Where  TYPE_M=59 and MACHINES.MACHINES_NO_1 ='
|| :ORDER_REPAIR.MACHINES_NO_F);
Set_Record_Property(:System.Cursor_Record,'ORDER_REPAIR',Status,NEW_STATUS  );
VtSTOPPING:=Populate_Group(Rg_Name);
Populate_List('ORDER_REPAIR.RULE_NO_1_F', Rg_Name);

End;

 

ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ

 

وفي في حدث WHEN-NEW-FORM-INSTANCE

 

-------LIST_1

declare
 
 cursor get2 is  select MACHINES_NO,MACHINES_name from MACHINES
 where TYPE_M=58
 
 ;
BEGIN

for rec1 in get2
loop
 
 ADD_LIST_ELEMENT('MACHINES_NO_F',rec1.MACHINES_NO,rec1.MACHINES_name,rec1.MACHINES_NO ) ;

 end loop; 
 
End;

 
 
 
----------------------------------------------------------------------------- ----**----
-------LIST_2

 declare
 
 cursor get2 is  select MACHINES_NO,MACHINES_name from MACHINES
 where TYPE_M=59

 ;
BEGIN

for rec1 in get2
loop
 
 ADD_LIST_ELEMENT('RULE_NO_1_F',rec1.MACHINES_NO,rec1.MACHINES_name,rec1.MACHINES_NO ) ;

 end loop; 
 
End;

 
 

 

 

كل شي ماشي تمام ماعذا عند عملية الحفظ لايحفظ

الا اذا حذفت الكود الموجود في حدث WHEN_LIST_CHANGED

 

ياشباب ارجو مساعدتكم

 

مرفق لكم صورة

 

 

 

 

 

 

 

 

 

 

 

المساعدة ياشباب

 

الحمدلله احتلت معي المشكلة كانت في كود الحفظ