How to Change Numeric Value into Character Value in Reports at run-time?

Question

Hi,
I am creating some reports, in which i am facing a problem.
i have an AMOUNT field of "NUMBER" data type in a table, I want to show the AMOUNT value in Character at run-rime.
For example, if AMOUNT is 12000 then it should be converted into Character like "Twelve Thosand".
Please help me to make it clear.
Thanking you in advance.

Answer 1

u can get decimal points through this function
FUNCTION amt_2_word(amt varchar2) RETURN Char IS
BEGIN
     declare
          --TYPE v_arr IS VARRAY(6) of varchar2(3);
          len number;
          i number;
          t_amt varchar2(100);
          t_word varchar2(20000);
          last_3rd varchar2(1);
          main varchar2(1000); -- number in format main.sub
          --v_main v_arr := v_arr('00','0','00','00','000');
          v_main1 varchar2(3) := '00';
          v_main2 varchar2(3) := '0';
          v_main3 varchar2(3) := '00';
          v_main4 varchar2(3) := '00';
          v_main5 varchar2(3) := '000';
          sub varchar2(1000);
          res_1 varchar2(32000);
          res_2 varchar2(32000);
          res_3 varchar2(32000);
          res_4 varchar2(32000);
          res_5 varchar2(32000);
          res varchar2(32000);
     begin
          t_amt := lpad(amt, 10, '0');
          len := length(amt);
          i := instr(amt, '.');
          if i = 0 then
               main := lpad(amt, 10, '0');
               sub := '';
          else
               main := lpad(left(amt, instr(amt, '.')-1), 10, '0');
               sub := rpad(right(amt, len - instr(amt, '.')), 2, '0');
          end if;
          v_main1 := right(main, 2);
          v_main2 := left(right(main, 3), 1);
          v_main3 := left(right(main, 5), 2);
          v_main4 := left(right(main, 7), 2);
          v_main5 := left(main, 3);
          if v_main1 <> '00' then
               res_1 :=getTwo(v_main1);
          end if;
          if v_main2 <> '0' then
               res_2 := getOne(v_main2) || ' Hundred ';
          end if;
          if v_main3 <> '00' then
               res_3 := getTwo(v_main3) || ' Thousand ';
          end if;
          if v_main4 <> '00' then
               res_4 := getTwo(v_main4) || ' Lac ';
          end if;
          if v_main5 <> '000' then
               last_3rd := left(right(v_main5, 3), 1);
               if last_3rd <> '0' then
                    res_5 := getOne(last_3rd) || ' Hundred ';
               end if;
               res_5 := res_5 || getTwo(right(v_main5, 2)) || ' Crore ';
          end if;
          res := 'Rupees ' || res_5 || res_4 || res_3 || res_2 || res_1 || ' ';
          if sub is null then
               res := res || 'Only';
          else
               res_1 := getTwo(sub);
               res := res || 'and Paise ' || res_1 || ' Only';
          end if;
          return res;
     end;
END;
u write this PL SQL in ur databse and u can use this function and get amount to word