金额转换成英文描述

FUNCTION ysd_cov_num_to_en.
*"----------------------------------------------------------------------
*"*"Local interface:
*"  IMPORTING
*"     REFERENCE(FROM_NUM) TYPE  DMBTR
*"  EXPORTING
*"     REFERENCE(TO_STR) TYPE  STRING
*"----------------------------------------------------------------------

  DATA num(16) TYPE p DECIMALS 0 .
  DATA pnum(2) TYPE i.

  DATA temp1 TYPE i .
  DATA temp2 TYPE i .
  DATA temp3 TYPE i .
  DATA temp4 TYPE i .

  DATA tempq TYPE i .
  DATA tempw TYPE i .
  DATA tempe TYPE i .
  DATA tempr TYPE i .

  DATA temp(16) TYPE i.
  DATA tempii TYPE i .

  DATA ls_return TYPE string.
  DATA ls_str TYPE string.
  DATA moff TYPE i VALUE 0.
****
  temp = from_num.


  ls_str = from_num.
  FIND '.' IN ls_str MATCH OFFSET moff.

  IF moff > 0.
    num = ls_str+0(moff).
    moff = moff + 1.
    ls_str = ls_str+moff(2).
    pnum = ls_str.
  ELSE.
    num = temp.
    pnum = 0.
  ENDIF.

  IF from_num < 0.
    ls_return = 'Negative'.
  ELSE.
    ls_return = ''.
  ENDIF.

  num = ABS( num ).

****
*************************************************
  temp = num .

  temp1 = temp DIV 1000000000 .
  temp = temp MOD 1000000000 .

  temp2 = temp DIV 1000000 .
  temp = temp MOD 1000000 .

  temp3 = temp DIV 1000 .
  temp = temp MOD 1000 .

  temp4 = temp .
********************************************************
  IF temp1 <> 0 .
    tempii = temp1 .

    tempw = tempii DIV 100 .
    tempii = tempii MOD 100 .

    tempe = tempii DIV 10 .
    tempii = tempii MOD 10 .

    tempr = tempii .
*********************
    IF tempw <> 0 .
      tempii = tempw .
      CASE tempii.
        WHEN 1 .
          CONCATENATE ls_return 'One' INTO ls_return SEPARATED BY ' '.    "WRITE 'One' .
        WHEN 2 .
          CONCATENATE ls_return 'Two' INTO ls_return SEPARATED BY ' '.    "WRITE 'Two' .
        WHEN 3 .
          CONCATENATE ls_return 'Three' INTO ls_return SEPARATED BY ' '.    "WRITE 'Three' .
        WHEN 4 .
          CONCATENATE ls_return 'Four' INTO ls_return SEPARATED BY ' '.    "WRITE 'Four' .
        WHEN 5 .
          CONCATENATE ls_return 'Five' INTO ls_return SEPARATED BY ' '.    "WRITE 'Five' .
        WHEN 6 .
          CONCATENATE ls_return 'Six' INTO ls_return SEPARATED BY ' '.    "WRITE 'Six' .
        WHEN 7 .
          CONCATENATE ls_return 'Seven' INTO ls_return SEPARATED BY ' '.    "WRITE 'Seven' .
        WHEN 8 .
          CONCATENATE ls_return 'Eight' INTO ls_return SEPARATED BY ' '.    "WRITE 'Eight' .
        WHEN 9 .
          CONCATENATE ls_return 'Nine' INTO ls_return SEPARATED BY ' '.    "WRITE 'Nine' .
      ENDCASE.
      CONCATENATE ls_return 'Hundred' INTO ls_return SEPARATED BY ' '.    "WRITE 'Hundred' .
    ENDIF .
*********************

    tempii = tempe .
    CASE tempii.
      WHEN 1 .
        tempii = temp1 MOD 100.

        CASE tempii.
          WHEN 11 .
            CONCATENATE ls_return 'Eleven' INTO ls_return SEPARATED BY ' '.    "WRITE 'Eleven' .
          WHEN 12 .
            CONCATENATE ls_return 'Twelve' INTO ls_return SEPARATED BY ' '.    "WRITE 'Twelve' .
          WHEN 13 .
            CONCATENATE ls_return 'Thirteen' INTO ls_return SEPARATED BY ' '.    "WRITE 'Thirteen' .
          WHEN 14 .
            CONCATENATE ls_return 'Fourteen' INTO ls_return SEPARATED BY ' '.    "WRITE 'Fourteen' .
          WHEN 15 .
            CONCATENATE ls_return 'Fifteen' INTO ls_return SEPARATED BY ' '.    "WRITE 'Fifteen' .
          WHEN 16 .
            CONCATENATE ls_return 'Sixteen' INTO ls_return SEPARATED BY ' '.    "WRITE 'Sixteen' .
          WHEN 17 .
            CONCATENATE ls_return 'Seventeen' INTO ls_return SEPARATED BY ' '.    "WRITE 'Seventeen' .
          WHEN 18 .
            CONCATENATE ls_return 'Eighteen' INTO ls_return SEPARATED BY ' '.    "WRITE 'Eighteen' .
          WHEN 19 .
            CONCATENATE ls_return 'Nineteen' INTO ls_return SEPARATED BY ' '.    "WRITE 'Nineteen' .
        ENDCASE.
        tempr = 0.  "leotian
      WHEN 0 .

        IF tempr <> 0 .
          IF ls_return <> ''.
            CONCATENATE ls_return 'And' INTO ls_return SEPARATED BY ' '.    "WRITE 'And'.
          ENDIF.
          tempii = tempr.
          CASE tempii.

            WHEN 1 .
              CONCATENATE ls_return 'One' INTO ls_return SEPARATED BY ' '.    "WRITE 'One' .
            WHEN 2 .
              CONCATENATE ls_return 'Two' INTO ls_return SEPARATED BY ' '.    "WRITE 'Two' .
            WHEN 3 .
              CONCATENATE ls_return 'Three' INTO ls_return SEPARATED BY ' '.    "WRITE 'Three' .
            WHEN 4 .
              CONCATENATE ls_return 'Four' INTO ls_return SEPARATED BY ' '.    "WRITE 'Four' .
            WHEN 5 .
              CONCATENATE ls_return 'Five' INTO ls_return SEPARATED BY ' '.    "WRITE 'Five' .
            WHEN 6 .
              CONCATENATE ls_return 'Six' INTO ls_return SEPARATED BY ' '.    "WRITE 'Six' .
            WHEN 7 .
              CONCATENATE ls_return 'Seven' INTO ls_return SEPARATED BY ' '.    "WRITE 'Seven' .
            WHEN 8 .
              CONCATENATE ls_return 'Eight' INTO ls_return SEPARATED BY ' '.    "WRITE 'Eight' .
            WHEN 9 .
              CONCATENATE ls_return 'Nine' INTO ls_return SEPARATED BY ' '.    "WRITE 'Nine' .
          ENDCASE.

        ENDIF .
        tempe = 0.  "leotian
      WHEN 2 .
        CONCATENATE ls_return 'Twenty' INTO ls_return SEPARATED BY ' '.    "WRITE 'Twenty' .
      WHEN 3 .
        CONCATENATE ls_return 'Thirty' INTO ls_return SEPARATED BY ' '.    "WRITE 'Thirty' .
      WHEN 4 .
        CONCATENATE ls_return 'Fourty' INTO ls_return SEPARATED BY ' '.    "WRITE 'Fourty' .
      WHEN 5 .
        CONCATENATE ls_return 'Fifty' INTO ls_return SEPARATED BY ' '.    "WRITE 'Fifty' .
      WHEN 6 .
        CONCATENATE ls_return 'Sixty' INTO ls_return SEPARATED BY ' '.    "WRITE 'Sixty' .
      WHEN 7 .
        CONCATENATE ls_return 'Seventy' INTO ls_return SEPARATED BY ' '.    "WRITE 'Seventy' .
      WHEN 8 .
        CONCATENATE ls_return 'Eighty' INTO ls_return SEPARATED BY ' '.    "WRITE 'Eighty' .
      WHEN 9 .
        CONCATENATE ls_return 'Ninty' INTO ls_return SEPARATED BY ' '.    "WRITE 'Ninty' .
    ENDCASE.

***********************
    IF tempr <> 0 And tempe <> 0.
      tempii = tempr .
      CASE tempii.

        WHEN 1 .
          CONCATENATE ls_return 'One' INTO ls_return SEPARATED BY ' '.    "WRITE 'One' .
        WHEN 2 .
          CONCATENATE ls_return 'Two' INTO ls_return SEPARATED BY ' '.    "WRITE 'Two' .
        WHEN 3 .
          CONCATENATE ls_return 'Three' INTO ls_return SEPARATED BY ' '.    "WRITE 'Three' .
        WHEN 4 .