السلام عليكم

يوجد عندي تقرير ولكن عند عمل RUN له يخرج هذا الخطأ

RUN 1401-:CF_1FORMULA0008':FATAL PL/SQL ERROR OCCURED
ORA01422:EXACT FETCH RETURNSMORE THAN REQUESTED NUMBER OF ROWS

ولكم جزيل الشكر

حضرتك عامل فروميولا كولم ، والفرميولا ده مرجعه اكتر من ريكورد ....
المفروض ترجع قيمة واحدة بس

يعطيك العافية

أنا بدي الفوميولا تعطيني أكتر من ريكورد
فكيف يمكنني إيجاد الخطأ ومعاجته

وشكرا

u need cursor

كما قال اخي ماهر..
استخدم CURSOR ...

انا كتبت هذا الكود

FUNCTION CF_DEPT RETURN NUMBER IS
D VARCHAR2(100);
CURSOR C IS
SELECT A.DNAME
FROM DEPT A,EMP B
WHERE A.DEPTNO=B.DEPTNO;
BEGIN OPEN C;
FETCH C INTO D; IF C%NOTFOUND
THEN
D:='NO';
RETURN (D);
CLOSE C;
EXCEPTION
WHEN NO_DATA_FOUND
THEN 
RETURN NULL;
END;

و أعطاني هذا الخطأ
REP-1401:'CF_DEPTFORMULA':FATAL PL/SQL ERROR OCCURED
ORA-06502:PL/SQL:NIMIRIC OR VALUE ERROR
فما الخطأ
وشكرا

جرب غير الكود الى التالي:

FUNCTION CF_DEPT RETURN CHAR IS

عزيزي المشكلة لديك انه تعيد اكثر من ريكورد عن طريق الكيرسر الى متغير واحد وهذا الشيء غير مقبول

لذلك يجب التأكد من الشرط المعطى ليعيد فقط ريكورد واحد عند تنفيذ الفنكشن

والمقصود هنا ريكورد واحد في كل مرة يتم منادات الفنكشن ولتم منادات الفنكشن عند كل ريكورد ضع هذه الفورملا ضمن مجموعة السجلات التي تستعلم عنها

اي ان تكون معها في مجموعة واحدة

وأتوقع ان الشرط الذي يجب اضافته على الكود هو

empno=:empno
وسيصبح الكود كالتالي

FUNCTION CF_DEPT RETURN NUMBER IS
D VARCHAR2(100);
CURSOR C IS
SELECT A.DNAME
FROM DEPT A,EMP B
WHERE A.DEPTNO=B.DEPTNO
and empno=:empno;
BEGIN OPEN C;
FETCH C INTO D; IF C%NOTFOUND
THEN
D:='NO';
RETURN (D);
CLOSE C;
EXCEPTION
WHEN NO_DATA_FOUND
THEN 
RETURN NULL;
END;

بص ياباشا .... حضرتك عندك 3 اخطاء في الكود ده
الاول زي ما قال الاخ احمد ...ان الفانكشن بترجع قيمة char مع انك قايل في تعريفها return number
تاني حاجة في موضوع ال FETCH
انت مرجع قيمتين وانت مش واخد بالك
انت بتقوله

IF C%NOTFOUND
THEN
D:='NO';
RETURN (D);

الشرط ده معناه ايه ؟؟؟؟
معناه انه لو مفيش داتا يرجع كلمة NO

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

EXCEPTION
WHEN NO_DATA_FOUND

يرجع قيمة NULL
يبقى ازاي بأه ؟؟؟؟؟؟؟

ثالث حاجة حضرتك مش قافل IF .... يعني مفيش END IF ;

ثانياً ايه فايده EXCEPTION
طالما حضرتك عامل كيرسور ....؟؟

--- كمان كلام الاخ جاد صحيح ... انت كده هتجيب كل الادارات بتاعة الموظفين ... وبالتالي هيرجع مالتي ريكورد

يبقى ممكن نعدل على الكود ويكون كده

FUNCTION cf_dept
  RETURN CHAR
IS
  d   VARCHAR2 (100);

  CURSOR c
  IS
     SELECT a.dname
       FROM dept a, emp b
      WHERE a.deptno = b.deptno AND empno =:empno;
BEGIN OPEN c;

  FETCH c
   INTO d; CLOSE c;

  RETURN NVL (d, 'NO');
END;

يعطيكم العافية جميعا
وشكرا لكم الرائع ومساعدتكم لي

والحمد لله الأمور مشيت تمام