نقل بيانات من Tab الى Tab

[hf.alqasem]

السلام عليكم الاعضاء الاعزاء

 

لدي two tab الأولى من نوع تابيولر والأخرى من نوع فورم

عملت Btn في Tab الثاني (من نوع فورم) عند الضغط عليه يقوم بجلب جميع السجلات في Tab الاول (من نوع تابيولر) ويضعها في TextItem في نفس Tab

 

الكود كان عبارة كيرسر يقرأ جميع السجلات ويضعها في TextItem لكن يقوم بوضع السجل الأول فقط

ملاحظة:

TextItem من نوع Varchar2(2000) وخاصيته Multi Line

 

Two Tab عبارة عن Forieng Key  لجدول على نفس الشاشة 

[hf.alqasem]

ارجو ممن يعرف الحل ان يساعدني وشكرا

[eslam elbyaly]

محنا مشعارفين كتبت ايه عشان نعرف نساعدك؟

[hf.alqasem]

ملخص اللي كتبته

اني بدي انقل البيانات من بلوك (تابيولر فيه اكتر من سجل) الى TextItem واحد في بلوك آخر

أي يتم تجميع بيانات الأعمدة كاملة لكل السجلات في TextItem

 

ان شالله يكون المطلوب واضح

[eslam elbyaly]

انت بتقول كتبت كرسور. ورينا كتبت ايه. 

[hf.alqasem]

 

declare

	x summary.case_summary%type;

	cursor s1

	is 

	select :PERSONS.NAME||' '||:PERSONS.RELATION||' ' ||:PERSONS.NATIONALITY||' '||:PERSONS.BIRTH_DATE||' '||:PERSONS.ID||' '||:PERSONS.CASE||' '||:PERSONS.NOTES 

	from PERSONS

	where RECORD_NO = :general.record_no; 

begin

	open s1;

	LOOP

	fetch s1 into x;

:summary.case_summary := x;



  EXIT WHEN :SYSTEM.LAST_RECORD ='TRUE';

   --NEXT_RECORD ;

END LOOP;

end;

 

[eslam elbyaly]

declare
	x summary.case_summary%type;
	cursor s1
	is 
	select :PERSONS.NAME||' '||:PERSONS.RELATION||' ' ||:PERSONS.NATIONALITY||' '||:PERSONS.BIRTH_DATE||' '||:PERSONS.ID||' '||:PERSONS.CASE||' '||:PERSONS.NOTES 
	from PERSONS
	where RECORD_NO = :general.record_no; 
begin
	open s1;
	LOOP
	fetch s1 into x;
:summary.case_summary := x;

  EXIT WHEN :SYSTEM.LAST_RECORD ='TRUE';
   --NEXT_RECORD ;
END LOOP;
end;

الاخطاء:

----------

1- ليه بتروح تسيليكت الداتا وهى ادامك اصلا على الشاشة. وبعدين لو هتسيليكت داتا يبقى تسيليكت اعمدة مش ايتمز, ده لو هما اصلا موجودين فى الجدول. 

2- واضح ان كل حاجة على بلوك واحد لانك مقلتش GO_BLOCK وطبعا ناقص first_record; 

3- المفروض تعين للأيتم case_summary قيمة نفسه || x> 

4- next_record; بس كده الايتم بتاعك الى عاوز تحط فيه الداتا هيتكرر طبعا. 

5- متسميش اى اوبجكت اسماء مش مفهومة زى x. 

------------------------------------------------------------

الصح:- هحطلك الداتا فى فاريابل وانت بقى ابقى عدل واعمل بيها الى انت عايزه. 

-----

DECLARE 
:RESULT VARCHAR2(200); 
BEGIN 
FIRST_RECORD; 
LOOP
RESULT := :PERSON_NAME; 
EXIT WHEN :SYSTEM.LAST_RECORD = 'TRUE'; 
NEXT_RECORD; 
END LOOP; 
END; 

تم تعديل 7 نوفمبر 2017 بواسطة eslam elbyaly

[hf.alqasem]

الف شكر ياهندسة

في ميزان حسناتك الله يجزيك الجنة
 

[eslam elbyaly]

جزانا واياكم.