Converting USD amount into word

Hi,
I want to convert amount which is in USD into word i am using below FM
CALL FUNCTION 'SPELL_AMOUNT'
    EXPORTING
      amount          = dmbtr
      currency        = waers
    FILLER          = ' '
      language        = langu
    IMPORTING
      in_words        = spell
    EXCEPTIONS
      not_found       = 1
      too_large       = 2
      OTHERS          = 3.
IF sy-subrc = 0.
now my DMBTR amount is 21960.00    which is atually 219.60 USD but in dmbtr initially amount is coming as 21960.00 and when i convert it to word it is coming as USD : TWO HUNDRED NINETEEN, AND CENTS AS SIX THOUSAND, but acutally it should be USD DOLLAR TWO HUNDRED NINETEEN AND CENTS SIXTY ONLY,    it is not coming peoprly so is there any other functionn module for this to convert USD , JPY into word.
regards,
   zafar

Hi,
Assign dmbtr to type PAYR_FI-RWBTR.
PARAMETERS:   dmbtr type PAYR_FI-RWBTR.
                         OR
If you didnt get from this try by using type P
PARAMETERS:   dmbtr type P.
Regards,
kalandar
Edited by: kalandar on Jun 16, 2010 9:48 AM

Similar Messages

Convert total amount into words

Hi
My requirement is to convert total amount into words.
For this i used function module SPELL_AMOUNT.
But its giving wrong (i.e. problem is in the paise).
I tried with other function module also, its not giving output.
how i can get exactly correct output.
Reward points if helpful.

Hi
execute this code .
REPORT ZCOVERTION.
TABLES SPELL.
DATA : T_SPELL LIKE SPELL OCCURS 0 WITH HEADER LINE.
DATA : PAMOUNT LIKE SPELL-NUMBER VALUE '23.45'.
SY-TITLE = 'SPELLING NUMBER'.
PERFORM SPELL_AMOUNT USING PAMOUNT 'USD'.
WRITE: 'NUMBERS', T_SPELL-WORD ,'and', T_SPELL-DECWORD.
FORM SPELL_AMOUNT USING PWRBTR PWAERS.
CALL FUNCTION 'SPELL_AMOUNT'
       EXPORTING
            AMOUNT    = PAMOUNT
            CURRENCY = PWAERS
            FILLER    = SPACE
            LANGUAGE = 'E'
       IMPORTING
            IN_WORDS = T_SPELL
       EXCEPTIONS
            NOT_FOUND = 1
            TOO_LARGE = 2
            OTHERS    = 3.
ENDFORM.                               " SPELL_AMOUNT
Hope this will solve ur problem
Thanks
Krushna
oputput:

Converting the amount into words in different languages

Hi All,
Is there any FM to convert the amount into words in a specific language.
SPELL_AMOUNT FM is not working for some of the languages like portuguese, etc..
Any idea on this.
Thanks in Advance.

Hi,
Use the FM:
CALL FUNCTION <b>'Y_AMOUNT_IN_WORDS'</b>
Hope it helps.
Reward if helpful.
Regards,
Sipra

Converting the amount in words

Hi ,
Issues is like if the amount is $137,510.82 for US currency it should give as   ONE HUNDRED THIRTY-SEVEN THOUSAND FIVE HUNDRED TEN USD and 82/100.
But when the document currency is german in the check it should give as ONE HUNDRED THIRTY THOPUSAND AND 51082/100.
THE LOGIC SHOULD BE CURRENCY DEPENDENT.
HOW DO I DI THIS...

following is a customized report to convert amount to words...
*& Report ZCFM_REPT_RUPEE_CONVERSION                                  *
*This report is a copy of report 'ZRUPECO1' in Tengl server            *
Date                    : 25-Oct-2006                               *
Author                  : Amiya Shrivastava                         *
Title                   : Report to convert amount into words as per*
                           Indian spelling conventions               *
Original Request number : DEVK917286                                *
report zcfm_rept_rupee_conversion              .
include zcfm_incl_rupee_conv_data.
*&      Form COVERSION1
      text
     -->NUMBER     text
     -->ANS        text
form coversion1 using number changing ans.
clear: gtab,
         giritab,
         giriline,
         girijtab,
         line ,
         ans,
         init, initnam, initno , init1,
         cnam1, cnam2, cnam3,cnam4, point,jpoint,
         kpoint,lpoint1, lpoint2,lpoint,fpoint,
         cnt1 , cnt2, cnt3 ,
         flhun, flth, flla, flcr1,flcr2, flchu1, flchu2, flpt, res.
refresh :
         itab ,
         ktab ,
         jtab .
init = number.
init1 = init.
cnt1 = strlen( init ).
cnt2 = cnt1 - 1.
do cnt1 times.
    initnam = init+0(1).
    shift init by 1 places left.
    if initnam = '.'.
      cnam1 = init1+0(initno).
    endif.
    initno = initno + 1.
enddo.
do cnt1 times.
    cnam2 = init1+0(1).
    shift init1 by 1 places left.
    if cnam2 = '.'.
      point = init1+0(2).
      exit.
    endif.
enddo.
do 2 times.
    jpoint = point+0(1).
    shift point by 1 places left.
    if sy-index = 1.
      kpoint = point.
    endif.
    perform points.
enddo.
cnt1 = strlen( cnam1 ).
do cnt1 times.
    cnam2 = cnam1+0(1).
    perform calcu .
    shift cnam1 by 1 places left.
enddo.
sort itab descending by index.
loop at itab.
    if sy-tabix = 1.
      jtab-result = itab-result.
      jtab-index = itab-index.
      append jtab.
    else.
      if itab-result = 'One ' and ( sy-tabix = 2 or sy-tabix = 5 or
                sy-tabix = 7 or sy-tabix = 9 ).
        perform teens.
        move space to line-result.
        modify jtab from line index cnt3 transporting result .
      else.
        if itab-result <> space.
          perform ties.
        else.
          jtab-result = itab-result.
          jtab-index = itab-index.
          append jtab.
        endif.
      endif.
    endif.
    cnt3 = sy-tabix.
    res = itab-result.
endloop.
skip.
loop at jtab.
    case sy-tabix.
      when 10.
        if jtab-result <> space.
          if flcr1 = 'X' and flcr2 = 'X'.
            concatenate jtab-result 'Hundred Crores' into line-result
                  separated by ' '.
            modify jtab from line index sy-tabix transporting result.
          else.
            concatenate jtab-result 'Hundred AND' into line-result
                  separated by ' '.
            modify jtab from line index sy-tabix transporting result.
          endif.
        endif.
      when 9.
        if flcr1 = 'X'.
          if jtab-result <> space.
            concatenate jtab-result 'Crores' into line-result
                            separated by ' '.
            modify jtab from line index sy-tabix transporting result.
          else.
            flcr2 = 'X'.
          endif.
        endif.
      when 8.
        if jtab-result <> space.
          concatenate jtab-result 'Crores' into line-result
                          separated by ' '.
          modify jtab from line index sy-tabix transporting result.
        else.
          flcr1 = 'X'.
        endif.
      when 7.
        if flla = 'X'.
          if jtab-result <> space.
            concatenate jtab-result 'Lacs' into line-result
                        separated by ' '.
            modify jtab from line index sy-tabix transporting result.
          endif.
        endif.
      when 6.
        if jtab-result <> space.
          concatenate jtab-result 'Lacs' into line-result
                         separated by ' '.
          modify jtab from line index sy-tabix transporting result.
        else.
          flla = 'X'.
        endif.
      when 5.
        if jtab-result <> space.
          if flth = 'X'.
            concatenate jtab-result 'Thousand' into line-result
             separated by ' '.
            modify jtab from line index sy-tabix transporting result.
          endif.
        endif.
      when 4.
        if jtab-result <> space.
          concatenate jtab-result 'Thousand' into line-result
                   separated by ' '.
          modify jtab from line index sy-tabix transporting result.
        else.
          flth = 'X'.
        endif.
      when 3.
        if jtab-result <> space.
          if flchu1 = 'X' and flchu2 = 'X'.
            concatenate jtab-result 'Hundred' into line-result
                separated by ' '.
          else.
            concatenate jtab-result 'Hundred AND' into line-result
                separated by ' '.
          endif.
          modify jtab from line index sy-tabix transporting result.
        else.
          flhun = 'X'.
        endif.
      when 2.
        if jtab-result = space.
          flchu2 = 'X'.
        endif.
      when 1.
        if jtab-result = space.
          flchu1 = 'X'.
        endif.
    endcase.
endloop.
*SORT JTAB ASCENDING BY INDEX.
loop at jtab.
    if sy-tabix = 1.
      cnam4 = jtab-result.
    else.
      concatenate jtab-result cnam4 into cnam4 separated by space.
    endif.
endloop.
if lpoint2 = space and lpoint1 = space.
    lpoint = 'only'.
else.
    concatenate 'Paise' lpoint2 lpoint1 'only' into lpoint separated by
    space.
endif.
if cnam4 <> space.
    shift cnam4 left deleting leading space.
    concatenate 'Rupees' cnam4 lpoint into ans separated by space.
*WRITE : / 'RUPEES', CNAM4.
*WRITE : / ANS.
endif.
endform.                                                    "COVERSION1
*WRITE : / LPOINT NO-GAP.
form ties.
jtab-index = itab-index.
if sy-tabix = 2 or sy-tabix = 5 or sy-tabix = 7 or sy-tabix = 9.
    case itab-result.
      when 'Two '.
        jtab-result = 'Twenty'.
      when 'Three'.
        jtab-result = 'Thirty'.
      when 'Four '.
        jtab-result = 'Fourty'.
      when 'Five '.
        jtab-result = 'Fifty'.
      when 'Six '.
        jtab-result = 'Sixty'.
      when 'Seven'.
        jtab-result = 'Seventy'.
      when 'Eight'.
        jtab-result = 'Eighty'.
      when 'Nine '.
        jtab-result = 'Ninety'.
      when space.
        jtab-result = space.
    endcase.
else.
    jtab-result = itab-result.
endif.
append jtab.
endform.                    "TIES
*&      Form TEENS
      text
form teens.
jtab-index = itab-index.
case res.
    when 'One '.
      jtab-result = 'Eleven'.
    when 'Two '.
      jtab-result = 'Twelve'.
    when 'Three'.
      jtab-result = 'Thirteen'.
    when 'Four '.
      jtab-result = 'Fourteen'.
    when 'Five '.
      jtab-result = 'Fifteen'.
    when 'Six '.
      jtab-result = 'Sixteen'.
    when 'Seven'.
      jtab-result = 'Seventeen'.
    when 'Eight'.
      jtab-result = 'Eighteen'.
    when 'Nine '.
      jtab-result = 'Nineteen'.
    when space.
      jtab-result = 'Ten'.
endcase.
append jtab.
endform.                    "TEENS
*&      Form CALCU
      text
form calcu .
itab-index = sy-index.
case cnam2.
    when '1'.
      itab-result = 'One'.
    when '2'.
      itab-result = 'Two'.
    when '3'.
      itab-result = 'Three'.
    when '4'.
      itab-result = 'Four'.
    when '5'.
      itab-result = 'Five'.
    when '6'.
      itab-result = 'Six'.
    when '7'.
      itab-result = 'Seven'.
    when '8'.
      itab-result = 'Eight'.
    when '9'.
      itab-result = 'Nine'.
    when '0'.
      itab-result = space.
endcase.
append itab.
endform.                    "CALCU
*&      Form POINTS
      text
form points.
if sy-index = 2.
    if fpoint = space.
      case jpoint.
        when '1'.
          lpoint1 = 'One'.
        when '2'.
          lpoint1 = 'Two'.
        when '3'.
          lpoint1 = 'Three'.
        when '4'.
          lpoint1 = 'Four'.
        when '5'.
          lpoint1 = 'Five'.
        when '6'.
          lpoint1 = 'Six'.
        when '7'.
          lpoint1 = 'Seven'.
        when '8'.
          lpoint1 = 'Eight'.
        when '9'.
          lpoint1 = 'Nine'.
        when '0'.
          lpoint1 = space.
      endcase.
    endif.
endif.
if sy-index = 1.
    case jpoint.
      when '1'.
        perform lpointy.
      when '2'.
        lpoint2 = 'Twenty'.
      when '3'.
        lpoint2 = 'Thirty'.
      when '4'.
        lpoint2 = 'Forty'.
      when '5'.
        lpoint2 = 'Fifty'.
      when '6'.
        lpoint2 = 'Sixty'.
      when '7'.
        lpoint2 = 'Seventy'.
      when '8'.
        lpoint2 = 'Eighty'.
      when '9'.
        lpoint2 = 'Ninety'.
      when '0'.
        lpoint2 = space.
    endcase.
endif.
endform.                    "POINTS
*&      Form LPOINTY
      text
form lpointy.
case kpoint.
    when '1'.
      lpoint2 = 'Eleven'.
    when '2'.
      lpoint2 = 'Twelve'.
    when '3'.
      lpoint2 = 'Thirteen'.
    when '4'.
      lpoint2 = 'Fourteen'.
    when '5'.
      lpoint2 = 'Fifteen'.
    when '6'.
      lpoint2 = 'Sixteen'.
    when '7'.
      lpoint2 = 'Seventeen'.
    when '8'.
      lpoint2 = 'Eighteen'.
    when '9'.
      lpoint2 = 'Nineteen'.
    when '0'.
      lpoint2 = 'Ten'.
endcase.
lpoint1 = space.
fpoint = 'X'.
endform.                    "LPOINTY

Convert given value into words

i want convert given value into words
such as
amount 54300
in words fifty four thousand three hundred only
thanking you
aamir

number value in words

Amount into Word (i.e. 1001 one thousand one)

can some body help me to tell me that any function in Oracle which can translate any given amount into words.
regards
Zahid

select to_char(to_date(873,'J'), 'JSP') as converted_form from dual;
CONVERTED_FORM
EIGHT HUNDRED SEVENTY-THREESource:http://www.oracle.com/technology/oramag/code/tips2005/011705.html
2.Convert amount in words to amount in numbers
HTH
Girish Sharma

FUNCTION MODULE TO CONVERT DATE / TIME INTO WORDS.

HI EXPERTS,
FUNCTION MODULE TO CONVERT DATE / TIME INTO WORDS.
PLS DO HELP.....

Hiii gita
we have another FM SPELL_AMOUNT
regards
Jaipal

I cannot convert pdf file into word

i cannot convert pdf file into word i have paid for it

Check the security settings for the purchased PDF.
Reader cannot convert to Word.

Have bought service below to convert pdf files into word excel, Have followed instructions but cannot convert file. Please help. AD003225761BR Produtos pedidos: Qtd. produto 1 Adobe ExportPDF, Annual (Outro,Todos os idiomas disponíveis) My email: toledo-

Have bought service below to convert pdf files into word excel, Have followed instructions but cannot convert file. Please help.
AD003225761BR Produtos pedidos: Qtd. produto 1 Adobe ExportPDF, Annual (Outro,Todos os idiomas disponíveis) My email: [email protected]

Hi Jwalter,
Thank you for posting on the Adobe forums,Please let us know what is the exact issue.
Also, if you want help on how to use the service, kindly try the link below.
Adobe ExportPDF FAQ
http://tv.adobe.com/watch/insights-on-acrobat-solutions/introduction-to-adobe-exportpdf/
Thanks,
Vikrantt Singh

To convert an integer into word

How do I convert an integer into word in labview. That is for example my input is 100 and I want "one hundred" as output. I am using Labview 2011.Please help me.............

Quotient and remainder with an word-list and exponent with a exponent word-list.
e.g. 123 = x
log 123 = 2.1 ==> 2 rounded down = y
While{
quotient(x-10^y;10)=z
Get wordlist(z)
Get exponentlist(y)
x=x-10^y
y--
Then it'll get a little messy with 11-20.
/Y
LabVIEW 8.2 - 2014
"Only dead fish swim downstream" - "My life for Kudos!" - "Dumb people repeat old mistakes - smart ones create new ones."
G# - Free award winning reference based OOP for LV

Function for amount into words

hi friends,
           can any one tell from which function module we can convert amount in figures into words.
input   -> 50,000
output -> fifty thousands
plz. help.
it's urgent

HI
use SPELL_AMOUNT
data: words type spell.
call function 'SPELL_AMOUNT'
exporting
    amount          = '100000'
*   CURRENCY        = ' '
*   FILLER          = ' '
*   LANGUAGE        = SY-LANGU
importing
    in_words        = words.
if words-word = 'ONE HUNDRED THOUSAND'.
words-word = '1 LAKH'.
endif.
write:/ words-word.
display amount in words (USD) including cents
convert amount in no's to words
/community [original link is broken]
<b>Reward if usefull</b>

How to convert jpeg files into word

How to convert jpeg files into Word

Hi Eugene,
I don't think you can convert an image to a Word document, but you could place the JPEG into a Word document using the Insert > Object command in Word.
For other questions relating to Word, you will probably have more luck getting an answer if you post on the Microsoft forums (we can help if you're using Acrobat, or another Adobe product, but you'll find the Word experts on the Microsoft forums.)
Best,
Sara

Amount into Words in PE51

Hi,
Using PE51, net salary amount can display in words as,
pe51--> form name-->Betrg(double click)--->select RT
Table field : Betrg
Identifier: /560
Output length: 30
Convertion: 23
Eg:17,714.44 (Net Salary)
While i was doing like this i am getting the amount in words as
SEVENTEEN THOUSAND SEVEN HUNDRED FOURTEEN
But i want the output like this SEVENTEEN THOUSAND SEVEN HUNDRED FOURTEEN AND 44/100 DOLLARS
Thanks in Advance.

hi,
data: AMOUNT(20),
CURRENCY(3)
FILLER(1)
LANGUAGE(2),
IN_WORDS(900).
DESCRIBE FIELD AMOUNT TYPE TYPE DECIMALS DECIMALS.
IF TYPE EQ 'P'.
    INT_AMOUNT = AMOUNT * ( 10 ** DECIMALS ).
ELSE.
    INT_AMOUNT = AMOUNT.
ENDIF.
INT_DECIMAL = 0.
INT_FILLER   = SPACE.
INT_FILLER+1 = FILLER.
INT_LANGUAGE = LANGUAGE.
IF CURRENCY NE SPACE.
    IF CURRENCY EQ '0'.                "Sicherheitsabfrage (sonst Loop
      TCURX-CURRDEC = 0.               "bei fehlendem Eintrag 0)
    ELSE.
      SELECT SINGLE * FROM TCURX
        WHERE CURRKEY EQ CURRENCY.
      IF SY-SUBRC NE 0.
        TCURX-CURRDEC = 2.
      ENDIF.
    ENDIF.
    INT_DIVISOR = 1.
    INT_CURRENCY = CURRENCY.
    DO TCURX-CURRDEC TIMES.
      INT_DIVISOR = INT_DIVISOR * 10.
    ENDDO.
    INT_DECIMAL = INT_AMOUNT MOD INT_DIVISOR.
    INT_AMOUNT = INT_AMOUNT DIV INT_DIVISOR.
    INT_DIVISOR = 1000000000.
    DO TCURX-CURRDEC TIMES.
      INT_DIVISOR = INT_DIVISOR / 10.
    ENDDO.
    INT_DECIMAL = INT_DECIMAL * INT_DIVISOR.
ENDIF.
IF LANGUAGE CA 'PS'.
    IF CURRENCY EQ SPACE.
      INT_GENUS = 'M'.
    ELSE.
      IF TCURC-WAERS NE CURRENCY.
        CLEAR TCURC.
        SELECT SINGLE * FROM TCURC WHERE WAERS EQ CURRENCY.
      ENDIF.
      IF ( 'ADP/CYL/CZK/DKK/EEK/EGP/ESP/GBL/GBP/IDR' CS TCURC-ISOCD OR
           'IEP/INR/ITL/LBP/LKR/MTL/MUR/NOK/NPR/PKR' CS TCURC-ISOCD OR
           'SCR/SDP/SEK/SKK/SYP/TRL'                 CS TCURC-ISOCD )
         AND TCURC-ISOCD NE SPACE.
        INT_GENUS = 'F'.
      ELSE.
        INT_GENUS = 'M'.
      ENDIF.
    ENDIF.
ENDIF.
IF LANGUAGE EQ 'R'.
    CLEAR TCURC.
    SELECT SINGLE * FROM TCURC WHERE WAERS EQ CURRENCY.
ENDIF.
IF INT_AMOUNT(5) NE '00000'.
    MESSAGE E074 WITH INT_AMOUNT RAISING TOO_LARGE.
ELSE.
    INT_ZAHL = INT_AMOUNT+5.
ENDIF.
PERFORM ZIFFERN_IN_WORTEN.
PERFORM BETRAG_IN_WORTEN.
PERFORM NACHKOMMA_IN_WORTEN.
IN_WORDS = SPELL.

Convert rdf report into Word document.

Hello,
I am using Developer 2000 from designing reports.
I nees to convert one of my report(rdf) in word document.
How can i do that??
Thanks..

Hello,
You cannot convert a RDF into a Word Document but you can generate a RTF file from a RDF file.
Example with reports 6i runtime :
rwrun60 report=test destype=file desname=c:\temp\output.rdf desformat=rtf userid=scott/tiger@db
Regards

How to convert pdf file into word doc

i have a pdf file that a need to convert into word doc. how can i?

Hi assiri,
You can either use Adobe Acrobat for the purpose or purchase the Adobe PDF Pack.
Using PDF Pack : Please check the KB : http://helpx.adobe.com/acrobat-com/kb/using-pdfpack.html
using Adobe Acrobat : Please check : http://wwwimages.adobe.com/www.adobe.com/content/dam/Adobe/en/products/acrobat/pdfs/adobe- acrobat-xi-convert-pdf-to-microsoft-office-word-tutorial_ie.pdf

Converting USD amount into word

Similar Messages

Maybe you are looking for