السلام عليكم

عندي مشكله في التقرير
بيكون فيه 3 اعمده من نوع رقم ومن جدول
وابغى يكون فيه عمود رابع من نوع رقم ايضا ويعمل عمليات حسابيه على العمودين الاخيرين بشرط من العمود الاول ولنفرض قيمة العمود اللي ضفته صفر
مثلا
لو كانت قيمة العمود الاول =1 المفروض العمود اللي ضفته = 0+ العمود الاول
ويروح للسطر الي بعده في التقرير والمفروض يكون العمود اللي ضفلته =قيمة هذا العمود الي حسبنها في المره الاولى - العمود الثاني
وهكذا يحتفظ بالقيمة ويستخدمها في الريكورد الي بعده
انا عملتها في formula column بس جالس يحسب لي الناتج لكل ريكورد لحاله

ياليت تلاقون لي حل

وشكرا

السلام عليكم
بامكانك الاستفادة من هذه الفكرة:

Declare
Cursor C Is
Select First_Col       
  From Ur_Table;  
 
 Vn_Count Number;
Begin
Vn_Count := 0;
For Rec In C Loop
 Vn_Count := Vn_Count - Nvl(First_Col, 0);
Vn_Count := Vn_Count + 1;
End Loop;
End;

ومن ثم تعمل Return لــ Vn_Count

بالتوفيق.

السلام عليكم

اخي
لم تنفع الطريقه
وحاااااااولت باكثر من طريقه وصار لي زمااان احاول ومافي شي بيطلع

ياريت تلاقي لي حل اخر

هذا الكود الي كتبته في pl/sql formula

function CF_1Formula return Number is total number;
begin
declare
cursor c is select
BDATE,CREDITOR,DEBTOR,debitNo,creditNo
FROM BOND_DETAILS, BONDS
WHERE ((BOND_DETAILS.VOUCHERID = BONDS.VOUCHERID)
and (bdate between and :d1)

and ((debitNo = :ACTNO) or (creditNo = :ACTNO )));
begin
total :=0;
for rec in c
loop

if :ACTNO IN(114001,626002) THEN
if :creditor is null then
total := total + nvl(:debtor,0);
else
total := total - nvl(:creditor,0);
end if;
else
total := total - nvl(:debtor,0);
total := total + nvl(:creditor,0);
END IF;

return total;
-- total :=total +1;
end loop;



end;
end;


وهذا الشكل الي ابغاه يظهر لي في التقرير
depetor creditor CF_1
1800 1800
16200 1800
0 16200

بيكون total=total+deptor=18000
total=total-creditor=18000-1800=16200
total=total-creditor=16200-16200=0

يارب القى حل

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

Declare
Total        Number;
Cursor C Is 
Select Bdate,
      Creditor,
      Debtor,
      Debitno,
      Creditno
 From Bond_Details, 
      Bonds
Where Bond_Details.Voucherid = Bonds.Voucherid
  And Bdate Between  And :D1
  And Debitno = :Actno Or Creditno = :Actno;
Begin
Total :=0;
For Rec In C Loop
If :Actno In(114001,626002) Then
 If Rec.Creditor Is Null Then
  Total := Total + Nvl(Rec.Debtor,0);
 Else
  Total := Total - Nvl(Rec.Creditor,0);
 End If;
Else
  Total := Total - Nvl(Rec.Debtor,0);
  Total := Total + Nvl(Rec.Creditor,0);
End If;
Return Total;
End Loop;

بالتوفيق.

السلام عليكم

actNo هذا براميتر وليس عمود من الجدول

تم تعديل الكود السابق.

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

انا فهمت من كلامك انك عاوز تجيب مجموع العمودين للصف الاول وتضعها فى العمود الثالث

بعد كدة تجيب مجموع العمودين للصف الثانى + قيمة العمود الثالث للصف الاول وتضعها فى العمود الثالث فى الصف الثانى وهكذا

f_1 هنفترض ان العمود الاول اسمة

f_2 واسم العمود الثانى

f_3 باسم formula وهنعمل

تحتوى على هذا الكود


function fun_name return number
is
begin
return nvl(:f_1,0)+ nvl(:f_2,0);
end;


بعد عمل الفورميولا لا تقوم باظهارها فى التقرير

بل نقوم بانشاء
summary داخل الجروب

ونجعل

function sum
source f_3
reset at report

summary ثم قم باظهار ال

على التقرير وسوف تجد ما تريد

جرب ورد

محمد ابوالعلا Oracle Developer
0020166064944
[email protected]

السلام عليكم
اخ احمد..الكود مايطلع النتيجه المطلوبه

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

ارسم الحقل اللى مصدر بياناتة summary على نفس الجروب اللى موجود فية الحقلين كمان ارسم ال summary داخل الجروب

شككوووووووووووووور اخوي وماقصرت طلع بالشكل المطلوب
بس ممكن تفهمني ؟؟؟؟؟ لاني بصراحه سويت الي قلت لي عليه وضبط بس مافهمت

السلام عليكم

عندي سؤال اخر
عندي تقرير فيه قروبين وجبت المجموع لكل قروب
بعدين ابغى اجيب حاصل طرح مجموع القروب الاول - مجموع القروب الثاني
وليس حاصل مجموعهما

كيف اجيب حاصل الطرح؟
وشكرا

انشىء فورميولا على مستوى التقرير ككل
وضع بها هذا الكود
FUNCTION FUN1 RETURN NUMBER
IS
RETURN :G1-:G2;
END;