‎2007 Jul 09 9:44 AM
hi to all
if i gave in the selection screen
ex:1,00,000
its should print the out put as : one lack..
points will be added for your suggestion
‎2007 Jul 09 9:46 AM
Hi
Use the fun module
SPELL_AMOUNT for the code and pass this selection screen paramter and display the SPELL-WORD field as output
<b>Reward points for useful Answers</b>
Regards
Anji
‎2007 Jul 09 9:47 AM
‎2007 Jul 09 11:29 AM
<b>PROGRAM TO DISPLAY AMOUNT IN WORDS ....</b>
REPORT zdemo_alvgrid
TABLES SPELL.
DATA : T_SPELL LIKE SPELL . "OCCURS 0 WITH HEADER LINE.
parameter : PAMOUNT LIKE SPELL-NUMBER .
PERFORM SPELL_AMOUNT USING PAMOUNT .
WRITE: T_SPELL-WORD .
FORM SPELL_AMOUNT USING PAMOUNT .
CALL FUNCTION 'SPELL_AMOUNT'
EXPORTING
AMOUNT = PAMOUNT
* CURRENCY = PWAERS
* FILLER = SPACE
LANGUAGE = SY-LANGU
IMPORTING
IN_WORDS = T_SPELL
EXCEPTIONS
NOT_FOUND = 1
TOO_LARGE = 2
OTHERS = 3.
ENDFORM.reward points if it is usefull ....
Girish
‎2007 Jul 09 11:33 AM
‎2007 Jul 09 11:45 AM
try this
PARAMETERS : P_VAL TYPE I.
DATA : V_VAL TYPE P DECIMALS 2,
V_TXT(50).
V_VAL = P_VAL.
CALL FUNCTION 'HR_IN_CHG_INR_WRDS'
EXPORTING
AMT_IN_NUM = V_VAL
IMPORTING
AMT_IN_WORDS = V_TXT
* EXCEPTIONS
* DATA_TYPE_MISMATCH = 1
* OTHERS = 2
.
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
REPLACE 'Rupees' WITH SPACE INTO V_TXT .
WRITE : / V_TXT.
regards
shiba dutta