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

كل عام وانتم بالف خير وانتم اكثر معرفة وسعادة...

لدي مشكلة اتمنى المساعدة فيها والاستفسار للجميع وخصوصا اخي pali oracle جزاه الله عنا كل خير.


اعمل على button يقوم بتحويل تقرير الى اكسل.



الكود الموجود داخل الbutton يحتوي على cursor بالطبع نضع بدا خله جملة ال select التي تقوم باحضار البيانات من الجداول بالضرورة.

المشكلة: جملة ال select الاصلية في التقرير تقوم بجلب جميع البيانات من جدول واحد ماعدا حقل وا حد يجلب من جدول اخر عن طريق formula .

المطلوب:كيف اقوم بجلب قيمة الحقل (من الجدول الاخر) داخل ال cursor هل اقوم بعمل 2 cursors ام ماهي الفكرة.

تم تعديل 19 ديسمبر 200916 سنة بواسطة man alman

السلام عليكم
بامكانك أخي عمل Join بين الجدولين .. واحضار الحقل من الجدول الثاني ...
ان واجهتك مشكلة الرجاء ارفاق الجدولين وجملة السيليكت اللي انت كتبتها وسيتم حل الموضوع ان شاءالله..
تحياتي

السلام عليكم
بامكانك أخي عمل Join بين الجدولين .. واحضار الحقل من الجدول الثاني ...
ان واجهتك مشكلة الرجاء ارفاق الجدولين وجملة السيليكت اللي انت كتبتها وسيتم حل الموضوع ان شاءالله..
تحياتي

[font="Tahoma"]جزاك الله عنا خيرا اخي pali oracle ...

مرفق لك عزيزي ملف يحوي كل التفاصيل...

وجزاك الله خيرا.[/font]

tfile.txt

السلام عليكم
جرب هذه الكويري:

Select A.Tp, 
   A.Code,
   A.Dateh,
   A.Dateg,
   A.Remarka, 
   Nvl(A.Ej.Debit,0) Db1,
   A.Num1,
   A.Dat1,
   A.Dsc1,
   A.Num2,
   A.Dat2,
   A.Dsc2,
   A.Knd, 
   A.Acc_Code,
   A.Owner,
   B.Descr
 From Act.Expadj A,
   Act.Genkinds B
Where Acc_Code In('14','5301')	 
  And Ej.Acc_Chapter	=0 
  And Ej.Debit		  >0.01 
  And Ej.Yr1			=:Fyr1 
  And Ej.Yr2			=:Fyr2 
  And Ej.Dateg		 >=:S_Dt_G 
  And Ej.Dateg		 <=:E_Dt_G
  And A.Acc_Code		= B.Acc_Code
  And B.Debcrd		  = 1
  And B.Value		   =:Knd 
Order By A.Dateg

السلام عليكم
جرب هذه الكويري:

Select A.Tp, 
   A.Code,
   A.Dateh,
   A.Dateg,
   A.Remarka, 
   Nvl(A.Ej.Debit,0) Db1,
   A.Num1,
   A.Dat1,
   A.Dsc1,
   A.Num2,
   A.Dat2,
   A.Dsc2,
   A.Knd, 
   A.Acc_Code,
   A.Owner,
   B.Descr
 From Act.Expadj A,
   Act.Genkinds B
Where Acc_Code In('14','5301')	 
  And Ej.Acc_Chapter	=0 
  And Ej.Debit		  >0.01 
  And Ej.Yr1			=:Fyr1 
  And Ej.Yr2			=:Fyr2 
  And Ej.Dateg		 >=:S_Dt_G 
  And Ej.Dateg		 <=:E_Dt_G
  And A.Acc_Code		= B.Acc_Code
  And B.Debcrd		  = 1
  And B.Value		   =:Knd 
Order By A.Dateg

تحية عطرة اخي pali oracle

الكود لاغبار علية ...
ولكن واجهتني مشكلة في كيفية ادخاله داخل ال loop ..
وكاني توصلت لي كود واود رأيك فيه...

كـود SQL

FOR Rec1 IN S
LOOP
--------------------------------GET DATA FROM CURSOR-------------------------
c1:= NVL(Rec1.DB1 ,' ');
c2:= NVL (Rec1.OWNER,' ');
c3:= NVL (Rec1.REMARKA,' ');
c4:= NVL(Rec1.NUM1,' ');
c5:= NVL(Rec1.DAT1,' ');
c6:= NVL(Rec1.NUM2,' ');
c6:= NVL(Rec1.DAT2,' ');
c7:= NVL(Rec1.CODE,' ');
--c7:= NVL(Rec1.CODE,' ');
--c5 := NVL (Rec1.A5, ' ');
-- c6 := NVL (Rec1.A6, ' ');
-- c7 := NVL (Rec1.A7, ' ');
-- c8 := NVL (Rec1.A8,' ');
-- c9 := NVL (Rec1.A9,' ');
--c10 := NVL (Rec1.A10,' ');
--c11 := NVL (Rec1.A11,' ');
--c12 := NVL (Rec1.A12,' ');
--c13 := NVL (Rec1.A13,' ');
--c14 := NVL (Rec1.A14,' ');
--c15 := NVL (Rec1.A15,' ');
declare
C VARCHAR2(50);

cursor x is select descr
from ACT.genkinds
where acc_code=rec1.acc_code and debcrd=1 AND VALUE=rec1.KND;
begin
open x;
fetch x into c;
close x;
c8:=nvl(c,' ');
end ;