Calc procedure help require

Question

hi all,
i m using oracle 9i and oracle developer suite 6i for building reports
i have written a procedure that will do the calculation
PROCEDURE calc IS
TALLOW NUMBER;
TTAKEN NUMBER;
TPROFIT NUMBER;
TLOSS NUMBER;
BEGIN
     SELECT TIMEALLOWED,TIMETAKEN INTO TALLOW,TTAKEN FROM PRTEMPINCENT;
     TPROFIT:=ROUND((GREATEST((ROUND(TALLOW,2) - ROUND(TTAKEN,2)),0)/ROUND(TTAKEN,2)) * 100,2);
     TLOSS:=ROUND((ABS(LEAST((ROUND(TALLOW,2) - ROUND(TTAKEN,2)),0))/ROUND(TTAKEN,2)) * 100,2);
     INSERT INTO PRTEMPINCPL(CARDCODE,JOBCARDNO,SHOP,TIMEALLOWEDHRS,TIMETAKENHRS,
                          TIMESAVED,TIMELOST,PROFIT,LOSS,REMARKS)
                          SELECT '5',JOBCARDNO,SHOP,TIMEALLOWED,TIMETAKEN,TIMESAVED,TIMELOST,TPROFIT,TLOSS
       DECODE(SIGN(TIMEALLOWED - TIMETAKEN),1,'ABN.PRFT',-1,'LOSS')
FROM PRTEMPINCENT
WHERE ((PAYPERIOD= :P_1
AND  (TIMETAKEN )>( TIMEALLOWED ))
OR((TIMEALLOWED )>(TIMETAKEN )AND(((TIMEALLOWED )  -  
(TIMETAKEN )  )
/(TIMETAKEN)*100)>50));
END;this code fetch the timeallowed and timetaken from the prtempincent table, does the calculation and then i want to insert them to another table and show them in report
i call this procedure in after paramenter function of report
but i gives me error ora-1422 extract fetch more then require number of rows
wht modification should i do in the following procedure that i fetch record on by one and then insert in the other table
Regards
Abhi

Answer 1

HI Manu,
thanks for your reply
well i just modified my procedure to my need
PROCEDURE calc IS
TALLOWHRS NUMBER;
TTAKENHRS NUMBER;
TTAKENMINS NUMBER;
TALLOWMINS NUMBER;
TCLOCKHRS NUMBER;
TCLOCKMINS NUMBER;
TALLOW NUMBER;
TTAKEN NUMBER;
TSAVED NUMBER;
TLOST NUMBER;
BTTAKEN NUMBER;
CURSOR Cur_Cursor IS SELECT C.TIMEALLOWEDHRS,C.TIMEALLOWEDMINS,C.TIMETAKENHRS,C.TIMETAKENMINS,A.TIMECLOCKEDHRS,A.TIMECLOCKEDMINS,B.TIMETAKEN
FROM PRTRINCH C,PRTRINCG A,PRTRINCE B;
BEGIN
     OPEN Cur_Cursor;
      FETCH Cur_Cursor INTO TALLOWHRS,TALLOWMINS,TTAKENHRS,TTAKENMINS,TCLOCKHRS,TCLOCKMINS,BTTAKEN;
      CLOSE Cur_Cursor;
TALLOW:=TO_NUMBER ( FLOOR ((((TALLOWHRS*60+TALLOWMINS)/(TTAKENHRS*60+TTAKENMINS))*
(TCLOCKHRS*60+TCLOCKMINS)) / 60)) || ':'|| TO_NUMBER ( MOD ((((TALLOWHRS*60+TALLOWMINS)/(TALLOWHRS*60+TALLOWMINS))*
(TCLOCKHRS*60+TCLOCKMINS)), 60), 'FM00');     
TTAKEN:=TO_CHAR( FLOOR (BTTAKEN / 60)) || ':'|| TO_CHAR ( MOD (BTTAKEN, 60), 'FM00');
TSAVED:=      greatest(TO_NUMBER ( FLOOR (((((TALLOWHRS*60+TALLOWMINS)/(TTAKENHRS*60+TTAKENMINS))*(TCLOCKHRS*60+TCLOCKMINS))-
   (TCLOCKHRS*60+TCLOCKMINS))/ 60)) || ':'||
   TO_NUMBER ( MOD (((((TALLOWHRS*60+TALLOWMINS)/(TTAKENHRS*60+TTAKENMINS))*(TCLOCKHRS*60+TCLOCKMINS))-
   (TCLOCKHRS*60+TCLOCKMINS)), 60), 'FM00'),0);
TLOST:=  greatest(TO_NUMBER ( FLOOR (((TCLOCKHRS*60+TCLOCKMINS)-(((TALLOWHRS*60+TALLOWMINS)/(TTAKENHRS*60+TTAKENMINS))*
(TCLOCKHRS*60+TCLOCKMINS)))  / 60)) || ':'
                        || TO_NUMBER ( MOD (((TCLOCKHRS*60+TCLOCKMINS)-(((TALLOWHRS*60+TALLOWMINS)/(TTAKENHRS*60+TTAKENMINS))*
(TCLOCKHRS*60+TCLOCKMINS))) , 60), 'FM00'),0);
INSERT INTO PRTEMPINCENT(JOBCARDNO,CARDCODE,SHOP,TICKETNO,TIMEALLOWED,TIMETAKEN,TIMESAVED,TIMEWORKED,ALLOCATION,TIMELOST,PAYPERIOD)
                (select distinct b.jobcardno,'5',b.SHOP,a.TICKETNO,TALLOW,TTAKEN,TSAVED,0,C.WORKORDERNO,TLOST,:P_1
                                         from prtrincg a,prtrince b,prtrinch c
                            where b.payperiod = :P_1
                              and b.jobcardno = a.jobcardno(+)
                              and b.shop = a.shop(+)
                             --and b.ticketno = a.ticketno(+)
                              and c.jobcardno = b.jobcardno(+)
                              and c.shop = b.shop(+)
                              and a.empno=b.empno
                              and b.filename = 'PRTRINCG');
END;kindly see it and tell me is it ok?? when i m running my report its giving me ora-6502 error pl/sql numeric or value error
can u say me wht i m doing wrong??
Regards
Abhi