Re: Decimal format conversion issue

Hi you can use this code,

*      Converting Amount field formats
     SELECT SINGLE dcpfm INTO l_dcpfm
                         FROM usr01
                        WHERE bname EQ sy-uname.

     IF sy-subrc EQ 0.
       LOOP AT it_output .
         CONDENSE : it_output-kbetr,
                    it_output-kpein.
         IF l_dcpfm IS INITIAL.                            "134,50
*
           CONDENSE : it_output-kbetr,
                      it_output-kpein.

*         Converting amounts as per User's decimal settings
           REPLACE ALL OCCURRENCES OF '.' IN it_output-kbetr
                                 WITH ' '.
           REPLACE ALL OCCURRENCES OF '.' IN it_output-kpein
                                 WITH ' '.

           REPLACE ALL OCCURRENCES OF ',' IN it_output-kbetr
                                 WITH '.'.
           REPLACE ALL OCCURRENCES OF ',' IN it_output-kpein
                                 WITH '.'.

           CONDENSE : it_output-kbetr,
                      it_output-kpein.
         ELSEIF l_dcpfm EQ c_x.                            "134.50
*         Converting amounts as per User's decimal settings
           REPLACE ALL OCCURRENCES OF ',' IN it_output-kbetr
                                 WITH ' '.
           REPLACE ALL OCCURRENCES OF ',' IN it_output-kpein
                                 WITH ' '.

           CONDENSE : it_output-kbetr,
                      it_output-kpein.

         ENDIF.  " IF gd_dcpfm IS INITIAL.