Converting the amount in words

Question

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...

Answer 1

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