05-29-2008 9:12 AM
Hi frnds,
I want to know from which table we can get the number of decimal places for a particular currency type.
Eg: USD has 2 decimals
JPY has 0 decimals
Please help me.
Thanks in advance
05-29-2008 9:15 AM
Hi,
Check the table TCURX.
Based on user profile you can get the currency format from USR01.
USE THIS CODE: IT TAKES CARE OF DECIMAL NOTATION BASED ON USER PROFILE.
WHAT EVER MAY BE THE USER PROFILE FOR DECIMAL NOTATION.
FIELD_NUM = 1,233.50
OR
FIELD_NUM = 1.233,50
OR
FIELD_NUM = 1 233,50
***************************************
SELECT SINGLE DCPFM FROM USR01
INTO VAR_DCPFM WHERE BNAME EQ SY-UNAME.
IF VAR_DCPFM EQ 'X'.
REPLACE ALL OCCURRENCES OF ',' IN: FIELD_NUM WITH ''.
TRANSLATE FIELD_NUM USING ','.
ELSEIF VAR_DCPFM EQ ''.
REPLACE ALL OCCURRENCES OF '.' IN: FIELD_NUM WITH ''.
TRANSLATE FIELD_NUM USING '.'.
TRANSLATE FIELD_NUM USING ',.'.
ELSEIF VAR_DCPFM EQ 'Y'.
TRANSLATE FIELD_NUM USING ',.'.
ENDIF.
***************************************
THIS CODE WILL WILL RESULT INTO :
FIELD_NUM = 1233.50
Regards,
Raj.
05-29-2008 9:15 AM
Hi,
Check the table TCURX.
Based on user profile you can get the currency format from USR01.
USE THIS CODE: IT TAKES CARE OF DECIMAL NOTATION BASED ON USER PROFILE.
WHAT EVER MAY BE THE USER PROFILE FOR DECIMAL NOTATION.
FIELD_NUM = 1,233.50
OR
FIELD_NUM = 1.233,50
OR
FIELD_NUM = 1 233,50
***************************************
SELECT SINGLE DCPFM FROM USR01
INTO VAR_DCPFM WHERE BNAME EQ SY-UNAME.
IF VAR_DCPFM EQ 'X'.
REPLACE ALL OCCURRENCES OF ',' IN: FIELD_NUM WITH ''.
TRANSLATE FIELD_NUM USING ','.
ELSEIF VAR_DCPFM EQ ''.
REPLACE ALL OCCURRENCES OF '.' IN: FIELD_NUM WITH ''.
TRANSLATE FIELD_NUM USING '.'.
TRANSLATE FIELD_NUM USING ',.'.
ELSEIF VAR_DCPFM EQ 'Y'.
TRANSLATE FIELD_NUM USING ',.'.
ENDIF.
***************************************
THIS CODE WILL WILL RESULT INTO :
FIELD_NUM = 1233.50
Regards,
Raj.
05-29-2008 9:16 AM