Cursor should be at Current checkbox

Question

Hi All,
I have written the coding.If i check the record,and do some calculations affter click on Pre-Calculate Button again the cursor is going to 1st record.
plss can any one help me in this issue..
In WHEN_BUTTON_PRESSED trigger i have written the coding
     DECLARE     
                    CURRENTRECORD NUMBER;
begin
     /* HERE IS THE CODE FOR DISCOUNT RATE IF THE USER CHECKS ALL FOR SELECT FOR DISCOUNT RATE AS WELL AS DISCOUNT REASON */
BEGIN
          DECLARE
               CURRENT_DISCOUNT NUMBER;
               CURRENT_REASON VARCHAR2(100);     
          BEGIN
               CURRENT_DISCOUNT:=:XXSY_DISCOUNT_MANAGER_V.DISCOUNT_RATE ;
               CURRENT_REASON:=:XXSY_DISCOUNT_MANAGER_V.DISCOUNT_REASON;
               CURRENTRECORD :=:SYSTEM.CURSOR_RECORD;
               FND_MESSAGE.SET_STRING(CURRENTRECORD);
               FND_MESSAGE.SHOW;
               IF :XXSY_DISCOUNT_MANAGER_V.SELECT='Y' THEN
--               go_block('XXSY_DISCOUNT_MANAGER_V');
               FIRST_RECORD;
               WHILE TRUE LOOP
               :XXSY_DISCOUNT_MANAGER_V.DISCOUNT_RATE:= CURRENT_DISCOUNT;
               :XXSY_DISCOUNT_MANAGER_V.DISCOUNT_REASON:= CURRENT_REASON;
                    NEXT_RECORD;
                         IF :System.Last_Record = 'TRUE' THEN                    
                         :XXSY_DISCOUNT_MANAGER_V.DISCOUNT_RATE:=CURRENT_DISCOUNT;
                         :XXSY_DISCOUNT_MANAGER_V.DISCOUNT_REASON:=CURRENT_REASON;
                    exit;
                         END IF;     
               END LOOP;
               END IF;
--               go_block('XXSY_DISCOUNT_MANAGER_V');
               FIRST_RECORD;
               WHILE TRUE LOOP
                    if :XXSY_DISCOUNT_MANAGER_V.DISCOUNT='Y' THEN
               :XXSY_DISCOUNT_MANAGER_V.DISCOUNT_RATE:= CURRENT_DISCOUNT;
               :XXSY_DISCOUNT_MANAGER_V.DISCOUNT_REASON:= CURRENT_REASON;
                    end if;
                              NEXT_RECORD;
                    IF :System.Last_Record = 'TRUE' AND :XXSY_DISCOUNT_MANAGER_V.DISCOUNT='Y' THEN                    
                    :XXSY_DISCOUNT_MANAGER_V.DISCOUNT_RATE:=CURRENT_DISCOUNT;
                    :XXSY_DISCOUNT_MANAGER_V.DISCOUNT_REASON:=CURRENT_REASON;
               exit;
                    ELSE if :System.Last_Record = 'TRUE' and :XXSY_DISCOUNT_MANAGER_V.DISCOUNT <>'Y' then
                         exit;
end if;
                    END IF;
               END LOOP;
               END;               
END;
--     go_block('XXSY_DISCOUNT_MANAGER_V');
     FIRST_RECORD;
     WHILE TRUE LOOP
     if :XXSY_DISCOUNT_MANAGER_V.DISCOUNT = 'Y' AND :XXSY_DISCOUNT_MANAGER_V.NO_CHARGE_FLAG ='N' then
                    :XXSY_DISCOUNT_MANAGER_V.OVERRIDE_UNIT_PRICE:=round((((100-:XXSY_DISCOUNT_MANAGER_V.DISCOUNT_RATE)/100)*:XXSY_DISCOUNT_MANAGER_V.LIST_PRICE),2);
                    :XXSY_DISCOUNT_MANAGER_V.EXTENDED_PRICE := round((:XXSY_DISCOUNT_MANAGER_V.OVERRIDE_UNIT_PRICE)*(:XXSY_DISCOUNT_MANAGER_V.QUANTITY),2);
                    :XXSY_DISCOUNT_MANAGER_V.NET_PRICE := :XXSY_DISCOUNT_MANAGER_V.EXTENDED_PRICE;
          END IF;     
               NEXT_RECORD;
          IF :System.Last_Record = 'TRUE' THEN
if :XXSY_DISCOUNT_MANAGER_V.DISCOUNT = 'Y' AND :XXSY_DISCOUNT_MANAGER_V.NO_CHARGE_FLAG ='N' then     
               :XXSY_DISCOUNT_MANAGER_V.OVERRIDE_UNIT_PRICE:=round((((100-:XXSY_DISCOUNT_MANAGER_V.DISCOUNT_RATE)/100)*:XXSY_DISCOUNT_MANAGER_V.LIST_PRICE),2);
                    :XXSY_DISCOUNT_MANAGER_V.EXTENDED_PRICE := round((:XXSY_DISCOUNT_MANAGER_V.OVERRIDE_UNIT_PRICE)*(:XXSY_DISCOUNT_MANAGER_V.QUANTITY),2);
                    :XXSY_DISCOUNT_MANAGER_V.NET_PRICE := :XXSY_DISCOUNT_MANAGER_V.EXTENDED_PRICE;
          END IF;
          exit;
          END IF;
     END LOOP;
               FND_MESSAGE.SET_STRING(CURRENTRECORD);
               FND_MESSAGE.SHOW;               
go_record(CURRENT_RECORD);
end;
Pls check and pls let me know.
Even i have given display message it is displying the record ,but again itis giong to 1st record.
pls help me
Regards
Prasad.

Answer 1

hi
Try this before get the current record number :
GO_BLOCK( 'XXSY_DISCOUNT_MANAGER_V') ;
CURRENTRECORD :=:SYSTEM.CURSOR_RECORD ;
then your code and maybe u have to back to the previouse record to not break your calculation
Finally at the end of trigger
GO_BLOCK( 'XXSY_DISCOUNT_MANAGER_V') ;
go_record(CURRENT_RECORD);
end ;