Conversion of total amount in words

Question

hi all,
i am using dev6i reports, and i have a problem that how i can convert the net amount(through formula column)in words.
for example
net amount is RS.277000/- (in words . two hundred & seventy seven only)..
thanks in advance

Answer 1

Hi,
By selecting the To_Char(....'JSP') will work only for the number's which have no fractional part. For that you have to use a function like below.
CREATE OR REPLACE FUNCTION Fn_Get_Num_To_Words (Num_Source NUMBER, Str_Cur_Code VARCHAR2, Str_Decimal_Code VARCHAR2) RETURN VARCHAR2 IS
      Str_Source  VARCHAR2(16);
      Str_Final   VARCHAR2(255);
BEGIN
      Str_Source := TO_CHAR(Num_Source, '099999999999.99');
      IF TO_NUMBER(SUBSTR(Str_Source, 1, 4)) <> 0 THEN
           Str_Final := Str_Final || TO_CHAR(TO_DATE(TO_NUMBER(SUBSTR(Str_Source, 1, 4)), 'J'), 'JSP') || ' BILLION ';
      END IF;
      IF TO_NUMBER(SUBSTR(Str_Source, 5, 3)) <> 0 THEN
           Str_Final := Str_Final || TO_CHAR(TO_DATE(TO_NUMBER(SUBSTR(Str_Source, 5, 3)), 'J'), 'JSP') || ' MILLION ';
      END IF;
      IF TO_NUMBER(SUBSTR(Str_Source, 8, 3)) <> 0 THEN
           Str_Final := Str_Final || TO_CHAR(TO_DATE(TO_NUMBER(SUBSTR(Str_Source, 8, 3)), 'J'), 'JSP')|| ' THOUSAND ';
      END IF;
      IF TO_NUMBER(SUBSTR(Str_Source, 11, 3)) <> 0 THEN
           Str_Final := Str_Final || TO_CHAR(TO_DATE(TO_NUMBER(SUBSTR(Str_Source, 11, 3)), 'J'), 'JSP')||' ';
      END IF;
      IF TO_NUMBER(SUBSTR(Str_Source, 15, 2)) <> 0 THEN
           Str_Final := Str_Final || ' & '|| TO_CHAR(TO_DATE(TO_NUMBER(SUBSTR(Str_Source, 15, 2)), 'J'), 'JSP') || ' ' || Str_Decimal_Code || '.';
      END IF;
      IF Str_Final IS NOT NULL THEN
           Str_Final := Str_Cur_Code || ' ' || Str_Final || 'ONLY';
      END IF;
      RETURN Str_Final;
EXCEPTION WHEN OTHERS THEN RETURN NULL;
END;Regards,
Manu.
If my response or the response of another was helpful, please mark it accordingly