金额数据转换-中式到欧式



FUNCTION ZOCS_DATA_CONVERT.
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  IMPORTING
*"     REFERENCE(I_CHAR) TYPE  CHAR20
*"  EXPORTING
*"     REFERENCE(I_OUT) TYPE  CHAR20
*"----------------------------------------------------------------------
*10000.00 转换成10,000.00
DATA:L_LEN  TYPE I,
       L_FROM TYPE I,
       L_STR1 TYPE CHAR20,
       L_C    TYPE C,
       L_OUT  TYPE CHAR20,
       L_NUM  TYPE I,
       L_NEWSTR TYPE STRING,
       L_STR2 TYPE CHAR20.

  SPLIT I_CHAR AT '.' INTO L_STR1 L_STR2.
  CONDENSE L_STR1.
  L_LEN = STRLEN( L_STR1 ).
*  IF L_LEN DIV 3 = 0.
*    L_LEN = L_LEN - 1.
*  ENDIF.

  DO L_LEN TIMES.
    L_FROM = L_LEN - 1.
    L_C = L_STR1+L_FROM(1).
    L_LEN = L_LEN - 1.
    L_NUM = L_NUM + 1.
    IF L_NUM = 3.
      L_NUM = 0.
      CONCATENATE ',' L_C L_NEWSTR
            INTO L_NEWSTR.
    ELSE.
      CONCATENATE L_C L_NEWSTR
            INTO L_NEWSTR.
    ENDIF.
  ENDDO.

  L_LEN = STRLEN( L_NEWSTR ).

  DO L_LEN TIMES.
   L_FROM = L_LEN - 1.
   L_C = L_NEWSTR+L_FROM(1).
   CONCATENATE L_C L_OUT
          INTO L_OUT.
   L_LEN = L_LEN - 1.
  ENDDO.
  CONCATENATE L_OUT
              '.'
              L_STR2
         INTO L_OUT.
  IF L_OUT+0(1) = ','.
    REPLACE FIRST OCCURRENCE OF ',' IN L_OUT WITH SPACE.
  ENDIF.

I_OUT = L_OUT.





ENDFUNCTION.