Tuesday, 29 July 2014

Convert to Indian Currency


REPORT ZCS_STR2.

DATAAMT TYPE PC207-BETRG VALUE 98564765,
      AMT_WORDS TYPE LENGTH 100.

AMT AMT / 7.

CALL FUNCTION 'HR_IN_CHG_INR_WRDS'
  EXPORTING
    AMT_IN_NUM         AMT
  IMPORTING
    AMT_IN_WORDS       AMT_WORDS
  EXCEPTIONS
    DATA_TYPE_MISMATCH 1
    OTHERS             2.
IF SY-SUBRC <> 0.
* Implement suitable error handling here
ELSE.
  REPLACE ALL OCCURRENCES OF 'Rupees' IN AMT_WORDS WITH ' '.
  CONCATENATE 'Rupees' AMT_WORDS INTO AMT_WORDS.
  WRITE :/ AMT,
         / AMT_WORDS.
ENDIF.

No comments:

Post a Comment