Purchase Order Total?

[rehan]

I have a Purchase Order XX.
The total amount for the PO is 100.50

1) One Hundred Rupees and 50 Paise.
2) One Hundred dollar and 50 cents

How can i show this in words in a customize report?
where can i fine paise or cents in oracle applications? is it provided

Thanks in advance
Rehan

[admin]

http://asktom.oracle.com/pls/asktom/f?p ... 7603857650

[OracleAppsTechno]

First You have to create Formla Column

and in that formula column you have to define.... like this

begin
DECLARE
COMM_IN_CHAR VARCHAR2(17);
TYPE RecType IS RECORD (Word VARCHAR2(20));
TYPE TableType IS TABLE OF RecType
INDEX BY BINARY_INTEGER;
Words TableType;
RETURN_WORDS VARCHAR2(500);

begin
Words( 0).WORD := ' ';
Words( 1).WORD := 'ONE ';
Words( 2).WORD := 'TWO ';
Words( 3).WORD := 'THREE ';
Words( 4).WORD := 'FOUR ';
Words( 5).WORD := 'FIVE ';
Words( 6).WORD := 'SIX ';
Words( 7).WORD := 'SEVEN ';
Words( .WORD := 'EIGHT ';
Words( 9).WORD := 'NINE ';
Words(10).WORD := 'TEN ';
Words(11).WORD := 'ELEVEN ';
Words(12).WORD := 'TWELVE ';
Words(13).WORD := 'THIRTEEN ';
Words(14).WORD := 'FOURTEEN ';
Words(15).WORD := 'FIFTEEN ';
Words(16).WORD := 'SIXTEEN ';
Words(17).WORD := 'SEVENTEEN ';
Words(18).WORD := 'EIGHTEEN ';
Words(19).WORD := 'NINTEEN ';
Words(20).WORD := 'TWENTY ';
Words(21).WORD := 'TWENTY ONE ';
Words(22).WORD := 'TWENTY TWO ';
Words(23).WORD := 'TWENTY THREE ';
Words(24).WORD := 'TWENTY FOUR ';
Words(25).WORD := 'TWENTY FIVE ';
Words(26).WORD := 'TWENTY SIX ';
Words(27).WORD := 'TWENTY SEVEN ';
Words(28).WORD := 'TWENTY EIGHT ';
Words(29).WORD := 'TWENTY NINE ';
Words(30).WORD := 'THIRTY ';
Words(31).WORD := 'THIRTY ONE ';
Words(32).WORD := 'THIRTY TWO ';
Words(33).WORD := 'THIRTY THREE ';
Words(34).WORD := 'THIRTY FOUR ';
Words(35).WORD := 'THIRTY FIVE ';
Words(36).WORD := 'THIRTY SIX ';
Words(37).WORD := 'THIRTY SEVEN ';
Words(38).WORD := 'THIRTY EIGHT ';
Words(39).WORD := 'THIRTY NINE ';
Words(40).WORD := 'FORTY ';
Words(41).WORD := 'FORTY ONE ';
Words(42).WORD := 'FORTY TWO ';
Words(43).WORD := 'FORTY THREE ';
Words(44).WORD := 'FORTY FOUR ';
Words(45).WORD := 'FORTY FIVE ';
Words(46).WORD := 'FORTY SIX ';
Words(47).WORD := 'FORTY SEVEN ';
Words(48).WORD := 'FORTY EIGHT ';
Words(49).WORD := 'FORTY NINE ';
Words(50).WORD := 'FIFTY ';
Words(51).WORD := 'FIFTY ONE ';
Words(52).WORD := 'FIFTY TWO ';
Words(53).WORD := 'FIFTY THREE ';
Words(54).WORD := 'FIFTY FOUR ';
Words(55).WORD := 'FIFTY FIVE ';
Words(56).WORD := 'FIFTY SIX ';
Words(57).WORD := 'FIFTY SEVEN ';
Words(58).WORD := 'FIFTY EIGHT ';
Words(59).WORD := 'FIFTY NINE ';
Words(60).WORD := 'SIXTY ';
Words(61).WORD := 'SIXTY ONE ';
Words(62).WORD := 'SIXTY TWO ';
Words(63).WORD := 'SIXTY THREE ';
Words(64).WORD := 'SIXTY FOUR ';
Words(65).WORD := 'SIXTY FIVE ';
Words(66).WORD := 'SIXTY SIX ';
Words(67).WORD := 'SIXTY SEVEN ';
Words(68).WORD := 'SIXTY EIGHT ';
Words(69).WORD := 'SIXTY NINE ';
Words(70).WORD := 'SEVENTY ';
Words(71).WORD := 'SEVENTY ONE ';
Words(72).WORD := 'SEVENTY TWO ';
Words(73).WORD := 'SEVENTY THREE ';
Words(74).WORD := 'SEVENTY FOUR ';
Words(75).WORD := 'SEVENTY FIVE ';
Words(76).WORD := 'SEVENTY SIX ';
Words(77).WORD := 'SEVENTY SEVEN ';
Words(78).WORD := 'SEVENTY EIGHT ';
Words(79).WORD := 'SEVENTY NINE ';
Words(80).WORD := 'EIGHTY ';
Words(81).WORD := 'EIGHTY ONE ';
Words(82).WORD := 'EIGHTY TWO ';
Words(83).WORD := 'EIGHTY THREE ';
Words(84).WORD := 'EIGHTY FOUR ';
Words(85).WORD := 'EIGHTY FIVE ';
Words(86).WORD := 'EIGHTY SIX ';
Words(87).WORD := 'EIGHTY SEVEN ';
Words(88).WORD := 'EIGHTY EIGHT ';
Words(89).WORD := 'EIGHTY NINE ';
Words(90).WORD := 'NINETY ';
Words(91).WORD := 'NINETY ONE ';
Words(92).WORD := 'NINETY TWO ';
Words(93).WORD := 'NINETY THREE ';
Words(94).WORD := 'NINETY FOUR ';
Words(95).WORD := 'NINETY FIVE ';
Words(96).WORD := 'NINETY SIX ';
Words(97).WORD := 'NINETY SEVEN ';
Words(98).WORD := 'NINETY EIGHT ';
Words(99).WORD := 'NINETY NINE ';

COMM_IN_CHAR := TO_CHAR(:CS_G_AMOUNT,'fm000000000009.90');

IF (SUBSTR(COMM_IN_CHAR,1,1) != '0') THEN
RETURN_WORDS := WORDS(TO_NUMBER(SUBSTR(COMM_IN_CHAR,1,1))).WORD || 'HUNDRED ' ;
END IF;

IF (SUBSTR(COMM_IN_CHAR,2,2) != '00') THEN
RETURN_WORDS := WORDS(TO_NUMBER(SUBSTR(COMM_IN_CHAR,2,2))).WORD || 'BILLION ' ;
END IF;

IF (SUBSTR(COMM_IN_CHAR,4,1) != '0') THEN
RETURN_WORDS := RETURN_WORDS ||WORDS(TO_NUMBER(SUBSTR(COMM_IN_CHAR,4,1))).WORD || 'HUNDRED ' ;
END IF;

IF (SUBSTR(COMM_IN_CHAR,5,2) != '00') THEN
RETURN_WORDS := RETURN_WORDS||WORDS(TO_NUMBER(SUBSTR(COMM_IN_CHAR,5,2))).WORD || 'MILLION ' ;
END IF;

IF (SUBSTR(COMM_IN_CHAR,7,1) != '0') THEN
RETURN_WORDS := RETURN_WORDS ||WORDS(TO_NUMBER(SUBSTR(COMM_IN_CHAR,7,1))).WORD || 'HUNDRED ' ;
END IF;

IF (SUBSTR(COMM_IN_CHAR,8,2) != '00') THEN
RETURN_WORDS := RETURN_WORDS || WORDS(TO_NUMBER(SUBSTR(COMM_IN_CHAR,8,2))).WORD || 'THOUSAND ';
END IF;

IF (SUBSTR(COMM_IN_CHAR,10,1) != '0') THEN
RETURN_WORDS := RETURN_WORDS || WORDS(TO_NUMBER(SUBSTR(COMM_IN_CHAR,10,1))).WORD || 'HUNDRED ' ;
END IF;

IF (SUBSTR(COMM_IN_CHAR,11,2) != '00') THEN
RETURN_WORDS := RETURN_WORDS || WORDS(TO_NUMBER(SUBSTR(COMM_IN_CHAR,11,2))).WORD;
END IF;

IF (SUBSTR(COMM_IN_CHAR,14,2) != '00') THEN
RETURN_WORDS := RETURN_WORDS || 'AND PAISAS '|| WORDS(TO_NUMBER(SUBSTR(COMM_IN_CHAR,14,2))).WORD;
END IF;


RETURN '(Rupees '||INITCAP(RETURN_WORDS)||'Only)';
end;
END;


Hope you will complete Idea you are requiring..
Regards,
Kamran J. Chaudhry

[ajit]

In formula column use "convert_number" function to convert
number to words
ex: temp varchar2;
temp:=convert_number(1223);
return temp;