ABAP:金额转换成英文描述

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 .
          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 .

***********************

    CONCATENATE ls_return 'Billion' INTO ls_return SEPARATED BY ' '.    "WRITE 'billion' .
    "CONCATENATE ls_return 'One' INTO ls_return SEPARATED BY ' '.    "WRITE / .
  ENDIF .

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

    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 = temp2 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 .
          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 .

***********************
    CONCATENATE ls_return 'Million' INTO ls_return SEPARATED BY ' '.    "WRITE 'million' .
    "CONCATENATE ls_return 'One' INTO ls_return SEPARATED BY ' '.    "WRITE / .
  ENDIF .

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

    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 = temp3 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 .
          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 .

***********************
    CONCATENATE ls_return 'Thousand' INTO ls_return SEPARATED BY ' '.    "WRITE 'thousAnd' .

  ENDIF .

***************************************************************

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

    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 = temp4 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 .
          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 .

***********************

  ENDIF .

  IF ls_return <> ''.
    CONCATENATE ls_return 'Dollars' INTO ls_return SEPARATED BY ' '.    "WRITE 'And'.
  ENDIF.
***********************
  "处理小数
  IF pnum > 0.
    tempii = pnum .

    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 = pnum MOD 100.
         CONCATENATE ls_return 'And' INTO ls_return SEPARATED BY ' '.    "WRITE 'And'.
        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 .
          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 .
    IF ls_return <> ''.
      CONCATENATE ls_return 'Cents only' INTO ls_return SEPARATED BY ' '.    "WRITE 'And'.
    ENDIF.

  ENDIF.
***********************
  "返回结果
  to_str = ls_return.

ENDFUNCTION.

你可能感兴趣的:(abap)

  • 【ABAP】ole2多sheet导入类 Lingarrrd sapabapabapsap
    方便复用，实际就是ole2方式1、SE24创建类2、复制代码至相应位置*----------------------------------------------------------------------**CLASSZCL_TAB_DOCDEFINITIO*------------------------------------------------------------------
  • 【ABAP】非OO普通ALV回车事件捕捉方法 Lingarrrd sapabapabapsap
    ALV事件添加参数"回车事件抓取REFRESHgt_events.CLEARgs_events.gs_events-name='CALLER_EXIT'.gs_events-form='CALLER_EXIT'.APPENDgs_eventsTOgt_events.添加参数对用的FORMFORMcaller_exitUSINGe_gridTYPEslis_data_caller_exit."回车事
  • 【ABAP】算数表达式 Lingarrrd abap
    根据网上JAVA的代码改的，具体哪篇忘了。。。主要逻辑是中缀表达式转后缀表达式FORMcheck_formulaUSINGp_markCHANGINGp_formula."flag.CHECKerror_flag=''.CHECKp_formulaISNOTINITIAL.*flag='X'.*CLEARerror_flag.REFRESHt_code."解析公式CLEARl.l=STRLEN(p
  • 【ABAP】ALV刷新显示及双击ALV跳转事务码的方法 Lingarrrd sapabapsapabap
    ALV刷新显示的方法如下callmethodref1->check_changed_data."检查alv变更callmethodref1->refresh_table_display."刷新显示刷新按钮when'&NTE'.rs_selfield-refresh='X'."REFESHALV如何只选中筛选后的全选或取消全选，方法如下。lt_filter表中就是被筛选后的数据，后续通过不同操作取得
  • 【ABAP】BAPI资产凭证自动生成的问题和解决办法 Lingarrrd abapabapsap
    BAPI自动生成资产凭证时，提示错误：EAU33无法找到区域01的帐户‘对应科目:购置价值记帐’。DEBUG中发现函数BAPI_ACC_DOCUMENT_POST中变量obj_key若为空值，就会产生错误。所以添加了下面一段代码。callfunction'OWN_LOGICAL_SYSTEM_GET'"当前逻辑系统importingown_logical_system=l_awsysexcepti
  • ABAP OLE导出Excel a86632678 ABAPsapabap
    INCLUDE程序代码如下：TYPE-POOLS:soi,ole2.DATA:lo_applicationTYPEole2_object,lo_workbookTYPEole2_object,lo_workbooksTYPEole2_object,lo_rangeTYPEole2_object,lo_worksheetTYPEole2_object,lo_worksheetsTYPEole2_ob
  • SAP预制发票，相关屏幕增强及bapi 增强 IT 与丘 SAP精品资源SAP
    SAPABAP]预制发票，相关屏幕增强及bapi增强MIRO：需要对屏幕增强，实现可以输入xref1，xref2.如下图：图中，参考代码1和参考代码2都是通过隐式增强放出来的，具体操作过程请查看链接：XREF1,XREF2,XREF3inMIRO–theultimatesolution|SAPBlogs在下列程序中，写隐式增强
  • ABAP 程序间传递数据 Jack.Huangjh oracle数据库ABAP
    ABAP程序间传递数据ASSGINDATA:GV_FIELDNAME1TYPECHAR30VALUE‘(ZPM003)R1’,GV_FIELDNAME2TYPECHAR30VALUE‘(ZPM003)GT_OAJG[]’,ABAP提供了IMPORT/EXPORT和SET/GETPARAMETER语句，可对用户内存/服务器内存/数据库进行存储和访问。不过可能很多人对此还不是很了解，下面我们通过实例来
  • IS BOUND, IS INITIAL 和 IS ASSIGNED的区别 Harryjing2018 ABAP其他
    文章目录1Introduction2Explaination1IntroductionThesetsofthesethreepredicateexpressionscaneasilyconfuseABAPnewbies,iftheexplanationforthemincorrespondingABAPhelpdocumentarenotseriouslytaken.2ExplainationTh
  • ABAP程序效率优化系列之④——开发优化之数据库(ST05那些事儿) Leo_SDU
    ABAP程序效率优化系列文章历史ABAP程序效率优化系列之①——业务层面的优化ABAP程序效率优化系列之②——开发优化之ABAP时间ABAP程序效率优化系列之③——开发优化之读取数据库写在前面1、读取数据库优化的这两篇(上一篇和这一篇)，对于HANA来说意义不大，一直在HANA数据库上进行开发的朋友请忽略2、本文中的所有例子都是ORACLE数据库上的3、大家在测试时，如果遇到与我不同的测试结果，也
  • 关于 SAP ABAP 里的 x 数据类型 sapabap
    看这行代码：DATA:codeTYPExLENGTH2.ABAP代码解析在SAP的ABAP编程语言中，DATA关键字用于声明变量。这行代码DATA:codeTYPExLENGTH2.声明了一个名为code的变量，具体特征如下：TYPEx表示变量code是一个十六进制类型。LENGTH2指定这个变量的长度为2个字节。十六进制类型的变量通常用于处理二进制数据，比如文件、加密数据或是系统级的操作，其中对
  • ABAP 如何把 unicode 代码点转换成字符 sapabap
    答案：data:char.char=|{cl_abap_conv_in_ce=>uccp(code)WIDTH=1}|.这段ABAP代码主要用于将一个给定的Unicode代码点转换成其对应的字符，并且限制输出的宽度为一个字符。这里，cl_abap_conv_in_ce=>uccp(code)是调用一个类方法，用于转换Unicode代码点到字符，而WIDTH=1确保转换结果的宽度限制为1。变量cha
  • native sql -ABAP开发从入门到精通笔记 guduchangjian sql笔记数据库
    NativeSQLSQL概要OPENSQL读取数据SelectSelect...Selectsignle....where.列去重数据Selectdistinct...where...当取多条数据时，select结果会保存到内表中。Select...into...语句的结果不是保存在内保中，而是保存到了wa中，这里就要加一个endselect语句。【如果是selectintowa，就要使用ends
  • ABAP 关键字 READ TEXTPOOL 的用法介绍 sapabap
    源代码：reportz.PARAMETERS:a1typestring,a2typestring.DATA:PROGRAMLIKESY-REPIDVALUE'ZLOCAL',TABLIKETEXTPOOLOCCURS50WITHHEADERLINE.READTEXTPOOLPROGRAMINTOTABLANGUAGESY-LANGU.BREAK-POINT.这个报表有两个参数，文本如下：执行报表后
  • s l t 幕光_fafe
    SLT的中文名称：SAP布局转换复制服务器。英文名称：SAPLT（LandscapeTransformation）ReplicationServer在以SAP系统作为主要ERP的企业中，不同系统之间的数据库数据同步是个重要的工作。对于这种需求，除了开发ABAP接口之外，也有高效的工具可用。SLT就是其中之一。SLT是SAP的第一个ETL（Extract-Transform-Load）工具，它允许实
  • SAP ABAP 里如何高效找到修改某个数据库表字段的 ABAP 程序的三种思路介绍试读版 sapsaprfcabap
    我的知识星球里，有朋友提问：公司的SAP中，总部开发了一个功能去更新采购订单行上的收货地址字段EKPO-ADRN2,我尝试着去Debug,但找不到最终是哪段程序更新了这一个字段。SAT也用了，也发现不了。不过我对SAT也不熟。有什么思路可以快速Debug找到那段更新程序不？其实这种需求有很多种思路可以实现。本文介绍笔者知道的三种。欢迎大家补充更多的方法。详细内容如下。本文介绍了三种不同的方法来实现
  • XSL 转换与 ABAP 数据的关系 abapsaprfcsap
    对于使用ABAP数据作为源的转换，ABAP数据首先被序列化为具有SAP标准transformationID的规范XML表示形式(canonicalXMLrepresentation，简称asXML)。然后，该中间结果将用作XSL转换的实际源。如果在CALLTRANSFORMATION中调用转换ID本身，则中间结果将会包含在直接输出中。SAP的标准transformationID在SAP系统中，tr
  • 聊聊 SAP ABAP 系统里除了 TADIR 之外的其他注册表试读版
    本教程之前的文章，介绍了SAPABAP系统里最重要的注册表TADIR：131.聊聊SAPABAP系统的ABAP对象注册表TADIR本文继续聊SAPABAP系统里，除了TADIR之外的其他注册表。这些注册表有一定的命名规则，即T*DIR,*代表一个英文字母。DIR可以理解成Directory，目录之意。本文详细介绍这些注册表的用途。
  • 如何使用SAP HANA Studio的PlanViz分析CDS view性能问题 JerryWang_汪子熙
    Part1–howtotestodataservicegeneratedbyCDSviewPart2–whatobjectsareautomaticallygeneratedafteryouactivateoneCDSviewPart3–howisviewsourceinEclipseconvertedtoABAPviewinthebackendPart4–howdoesannotation@OD
  • ABAP 如何解析 JSON 数据试读版 JerryWang_汪子熙
    零基础ABAP学习教程系列文章的目录ABAP标准培训教程BC400学习笔记之一：ABAP服务器的架构和一个典型的ABAP程序结构介绍ABAP标准培训教程BC400学习笔记之二：Cross-client和Client-specific的区别ABAP标准培训教程BC400学习笔记之三：ABAP编程语言的特性和基本构成要素ABAP标准培训教程BC400学习笔记之四：ABAP编程语言的数据类型ABAP标准
  • 如何查找BAPI SD_SALESDOCUMENT_CHANGE里字段对应的数据库存储表 JerryWang_汪子熙
    BAPI函数SD_SALESDOCUMENT_CHANGE可以让我们很方便地通过ABAP代码来修改SalesOrder。其输入参数ORDER_HEADER_IN的类型是BAPISDHD1,里面包含了这个字段，比如SERV_DATE:servicerendereddate。如果想知道一个SalesOrder的SERV_DATE字段存储在哪张表，该怎么找呢？注意上图提示，SERV_DATE的类型是FB
  • Jerry的演讲预告：一个月的住院经历，我悟到了哪些和程序员职场发展相关的心得 JerryWang_汪子熙
    时间过得很快，一转眼我出院后上班已经快两个月了。最近有公众号的关注者给我留言，询问一些ABAP开发的细节问题。不巧的是，我八月份返回公司之后，领了新的开发电脑，SAPGUI和ABAPDevelopmentTool还没有时间安装，因此现在手上没有ABAP开发环境了，也没有办法登进系统查看代码来解答这些朋友的问题，见谅。不过ABAP是我在SAP的初恋，等我有空闲时间，我还是会把上面提到的这两个ABAP
  • 什么是 SAP ABAP 的 SYSTEM_EXIT sapabap
    ABAP（AdvancedBusinessApplicationProgramming）是一种由SAP开发的高级程序设计语言，用于开发SAP应用程序。在ABAP编程中，SYSTEM-EXIT是一个重要的概念，它与事务码的处理和SAP标准程序的增强有关。SYSTEM-EXIT是一个特殊的语句，用于控制程序的执行流程，特别是在与事务码相关的场景中。在SAP中，事务码用于调用程序、报表、屏幕等。每个事务
  • 31. 如何让 ABAP 服务器能够响应通过浏览器发起的自定义 HTTP 请求 汪子熙 零基础快速学习ABAPsapABAPNetweaver服务器思爱普
    本教程迄今为止的所有步骤，我们都是在SAPGUI里运行ABAP程序。在实际项目中，也存在很多ABAP服务器需要响应用户通过浏览器发起的请求。本文就来详细介绍如何在SAPGUI里进行开发，让你的ABAP服务器能够响应用户使用浏览器发起的需求。本步骤我们使用SICF和SE24这两个事物码完成开发。首先看一下本步骤完成后实现的效果。浏览器访问https://:/sap/crm/csdn?sap-clie
  • 138. 第三方系统或者工具通过 HTTP 请求发送给 ABAP 系统的数据，应该如何解析 汪子熙 零基础快速学习ABAPhttp思爱普SAPABAPNetWeaver
    本教程第37篇文章，我们介绍了如何在SAPABAP系统SICF事务码里，开发一段ABAP代码，用来响应通过浏览器或者第三方工具，比如curl，Postman发起的HTTP请求。31.如何让ABAP服务器能够响应通过浏览器发起的自定义HTTP请求在实际的ABAP集成项目中，这种方式非常使用。比如客户的第三方系统或者应用，通过HTTP协议，向ABAP系统发起数据交互请求，我们开发的ABAP程序，就可以
  • SAP ABAP 系统里事务码 SMICM 的作用
    SMICM截图如下:SAPABAP系统中的事务码SMICM是用来访问InternetCommunicationManager(ICM)的监视。ICM是SAP系统中负责HTTP、SMTP、或者HTTPS通信的组件。在SMICM事务中，你可以看到关于ICM的各种信息，例如线程信息、服务信息、连接信息和缓存信息等。在服务列表中，KeepAlive是一个重要的参数。在计算机网络中，KeepAlive机制被
  • 如何使用动态 ABAP 程序生成技术，对 ABAP 系统标准的报表行为进行微调试读版
    本教程前面有一篇文章，我们介绍了如何使用外部传入的字符串，动态生成ABAP报表实例，并执行的方法：120.SAPABAP动态生成ABAP程序并动态调用的例子代码我们可以看到在第120个例子里，我们使用硬编码拼接起来的字符串，来模拟外部传入的ABAP程序的代码源头。笔者的知识星球里，有朋友提问，能不能从本地ABAP系统，提取某个标准ABAP程序的代码源，然后基于这些代码源进行微调，动态生成新的ABA
  • 关于 SAP ABAP System Change Option 的设置
    在传输组织器（事务SE09）中，选择导航路径的起点转到下一步导航步骤传输组织器工具导航路径的终点。这将带我们进入TransportOrganizerTools概述。转到管理并启动程序设置系统更改选项。全局设置选项允许确定存储库或独立于客户端的定制中的对象是否可以全局修改。只有将全局设置设置为可修改时，才能设置软件组件的系统更改选项以及命名空间和名称范围，即下图这个设置：如果要更改客户名称范围中的对
  • 聊聊 SAP ABAP 系统里除了 TADIR 之外的其他注册表试读版
    本教程之前的文章，介绍了SAPABAP系统里最重要的注册表TADIR：131.聊聊SAPABAP系统的ABAP对象注册表TADIR本文继续聊SAPABAP系统里，除了TADIR之外的其他注册表。这些注册表有一定的命名规则，即T*DIR,*代表一个英文字母。DIR可以理解成Directory，目录之意。本文详细介绍这些注册表的用途。
  • SAP ABAP OData 服务如何支持删除(Delete)操作试读版 JerryWang_汪子熙
    正如本教程的开篇介绍文章SAPOData开发教程-从入门到提高(包含SEGW,RAP和CDP)所提到的，SAPOData服务开发，从实现技术上来说，可以分为三大类。因此本教程也分为三大部分，分别进行介绍。本文是本教程的文章目录。作者简介JerryWang，2007年从电子科技大学计算机专业硕士毕业后加入SAP成都研究院工作至今。Jerry是SAP社区导师，SAP中国技术大使。在长达15年的SAP标
  • scala的option和some 矮蛋蛋 编程scala
    原文地址： http://blog.sina.com.cn/s/blog_68af3f090100qkt8.html 对于学习 Scala 的 Java™ 开发人员来说，对象是一个比较自然、简单的入口点。在 本系列 前几期文章中，我介绍了 Scala 中一些面向对象的编程方法，这些方法实际上与 Java 编程的区别不是很大。我还向您展示了 Scala 如何重新应用传统的面向对象概念，找到其缺点
  • NullPointerException Cb123456 androidBaseAdapter
        java.lang.NullPointerException: Attempt to invoke virtual method 'int android.view.View.getImportantForAccessibility()' on a null object reference     出现以上异常.然后就在baidu上
  • PHP使用文件和目录 天子之骄 php文件和目录读取和写入php验证文件php锁定文件
    PHP使用文件和目录 1.使用include()包含文件 (1)：使用include()从一个被包含文档返回一个值 (2)：在控制结构中使用include()   include_once()函数需要一个包含文件的路径，此外，第一次调用它的情况和include()一样，如果在脚本执行中再次对同一个文件调用，那么这个文件不会再次包含。   在php.ini文件中设置
  • SQL SELECT DISTINCT 语句 何必如此 sql
    SELECT DISTINCT 语句用于返回唯一不同的值。 SQL SELECT DISTINCT 语句 在表中，一个列可能会包含多个重复值，有时您也许希望仅仅列出不同（distinct）的值。 DISTINCT 关键词用于返回唯一不同的值。 SQL SELECT DISTINCT 语法 SELECT DISTINCT column_name,column_name F
  • java冒泡排序 3213213333332132 java冒泡排序
    package com.algorithm; /** * @Description 冒泡 * @author FuJianyong * 2015-1-22上午09:58:39 */ public class MaoPao { public static void main(String[] args) { int[] mao = {17,50,26,18,9,10
  • struts2.18 +json,struts2-json-plugin-2.1.8.1.jar配置及问题！ 7454103 DAOspringAjaxjsonqq
    struts2.18  出来有段时间了！ （貌似是 稳定版）   闲时研究下下！  貌似 sruts2 搭配 json 做 ajax 很吃香！   实践了下下！ 不当之处请绕过！ 呵呵   网上一大堆 struts2+json  不过大多的json 插件 都是 jsonplugin.34.jar   strut
  • struts2 数据标签说明 darkranger jspbeanstrutsservletScheme
    数据标签主要用于提供各种数据访问相关的功能，包括显示一个Action里的属性，以及生成国际化输出等功能 数据标签主要包括： action ：该标签用于在JSP页面中直接调用一个Action，通过指定executeResult参数，还可将该Action的处理结果包含到本页面来。 bean ：该标签用于创建一个javabean实例。如果指定了id属性，则可以将创建的javabean实例放入Sta
  • 链表.简单的链表节点构建 aijuans 编程技巧
    /*编程环境WIN-TC*/ #include "stdio.h" #include "conio.h" #define NODE(name, key_word, help) \  Node name[1]={{NULL, NULL, NULL, key_word, help}} typedef struct node {  &nbs
  • tomcat下jndi的三种配置方式 avords tomcat
    jndi(Java Naming and Directory Interface，Java命名和目录接口)是一组在Java应用中访问命名和目录服务的API。命名服务将名称和对象联系起来，使得我们可以用名称 访问对象。目录服务是一种命名服务，在这种服务里，对象不但有名称，还有属性。          tomcat配置
  • 关于敏捷的一些想法 houxinyou 敏捷
    从网上看到这样一句话：“敏捷开发的最重要目标就是：满足用户多变的需求，说白了就是最大程度的让客户满意。” 感觉表达的不太清楚。 感觉容易被人误解的地方主要在“用户多变的需求”上。 第一种多变，实际上就是没有从根本上了解了用户的需求。用户的需求实际是稳定的，只是比较多，也比较混乱，用户一般只能了解自己的那一小部分，所以没有用户能清楚的表达出整体需求。而由于各种条件的，用户表达自己那一部分时也有
  • 富养还是穷养，决定孩子的一生 bijian1013 教育人生
    是什么决定孩子未来物质能否丰盛？为什么说寒门很难出贵子，三代才能出贵族？真的是父母必须有钱，才能大概率保证孩子未来富有吗？-----作者：@李雪爱与自由 事实并非由物质决定，而是由心灵决定。一朋友富有而且修养气质很好，兄弟姐妹也都如此。她的童年时代，物质上大家都很贫乏，但妈妈总是保持生活中的美感，时不时给孩子们带回一些美好小玩意，从来不对孩子传递生活艰辛、金钱来之不易、要懂得珍惜
  • oracle 日期时间格式转化 征客丶 oracle
    oracle 系统时间有 SYSDATE 与 SYSTIMESTAMP； SYSDATE：不支持毫秒，取的是系统时间； SYSTIMESTAMP：支持毫秒，日期，时间是给时区转换的，秒和毫秒是取的系统的。 日期转字符窜： 一、不取毫秒： TO_CHAR(SYSDATE, 'YYYY-MM-DD HH24:MI:SS') 简要说明， YYYY 年 MM   月
  • 【Scala六】分析Spark源代码总结的Scala语法四 bit1129 scala
    1. apply语法   FileShuffleBlockManager中定义的类ShuffleFileGroup，定义：   private class ShuffleFileGroup(val shuffleId: Int, val fileId: Int, val files: Array[File]) { ... def apply(bucketId
  • Erlang中有意思的bug bookjovi erlang
      代码中常有一些很搞笑的bug，如下面的一行代码被调用两次（Erlang beam） commit f667e4a47b07b07ed035073b94d699ff5fe0ba9b Author: Jovi Zhang <[email protected]> Date: Fri Dec 2 16:19:22 2011 +0100 erts:
  • 移位打印10进制数转16进制-2008-08-18 ljy325 java基础
    /** * Description 移位打印10进制的16进制形式 * Creation Date 15-08-2008 9:00 * @author 卢俊宇 * @version 1.0 * */ public class PrintHex { // 备选字符 static final char di
  • 读《研磨设计模式》-代码笔记-组合模式 bylijinnan java设计模式
    声明： 本文只为方便我个人查阅和理解，详细的分析以及源代码请移步 原作者的博客http://chjavach.iteye.com/ import java.util.ArrayList; import java.util.List; abstract class Component { public abstract void printStruct(Str
  • 利用cmd命令将.class文件打包成jar chenyu19891124 cmdjar
    cmd命令打jar是如下实现： 在运行里输入cmd，利用cmd命令进入到本地的工作盘符。(如我的是D盘下的文件有此路径 D:\workspace\prpall\WEB-INF\classes) 现在是想把D:\workspace\prpall\WEB-INF\classes路径下所有的文件打包成prpall.jar。然后继续如下操作： cd D: 回车 cd workspace/prpal
  • [原创]JWFD v0.96 工作流系统二次开发包 for Eclipse 简要说明 comsci eclipse设计模式算法工作swing
                           JWFD v0.96 工作流系统二次开发包 for Eclipse 简要说明     &nb
  • SecureCRT右键粘贴的设置 daizj secureCRT右键粘贴
    一般都习惯鼠标右键自动粘贴的功能，对于SecureCRT6.7.5 ，这个功能也已经是默认配置了。 老版本的SecureCRT其实也有这个功能，只是不是默认设置，很多人不知道罢了。 菜单： Options->Global Options ...->Terminal 右边有个Mouse的选项块。 Copy on Select Paste on Right/Middle
  • Linux 软链接和硬链接 dongwei_6688 linux
    1.Linux链接概念Linux链接分两种，一种被称为硬链接（Hard Link），另一种被称为符号链接（Symbolic Link）。默认情况下，ln命令产生硬链接。 【硬连接】硬连接指通过索引节点来进行连接。在Linux的文件系统中，保存在磁盘分区中的文件不管是什么类型都给它分配一个编号，称为索引节点号(Inode Index)。在Linux中，多个文件名指向同一索引节点是存在的。一般这种连
  • DIV底部自适应 dcj3sjt126com JavaScript
    <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml&q
  • Centos6.5使用yum安装mysql——快速上手必备 dcj3sjt126com mysql
    第1步、yum安装mysql [root@stonex ~]#  yum -y install mysql-server 安装结果： Installed:     mysql-server.x86_64 0:5.1.73-3.el6_5                   &nb
  • 如何调试JDK源码 frank1234 jdk
    相信各位小伙伴们跟我一样，想通过JDK源码来学习Java，比如collections包，java.util.concurrent包。 可惜的是sun提供的jdk并不能查看运行中的局部变量，需要重新编译一下rt.jar。 下面是编译jdk的具体步骤：         1.把C:\java\jdk1.6.0_26\sr
  • Maximal Rectangle hcx2013 max
    Given a 2D binary matrix filled with 0's and 1's, find the largest rectangle containing all ones and return its area.   public class Solution { public int maximalRectangle(char[][] matrix)
  • Spring MVC测试框架详解——服务端测试 jinnianshilongnian spring mvc test
    随着RESTful Web Service的流行，测试对外的Service是否满足期望也变的必要的。从Spring 3.2开始Spring了Spring Web测试框架，如果版本低于3.2，请使用spring-test-mvc项目（合并到spring3.2中了）。   Spring MVC测试框架提供了对服务器端和客户端（基于RestTemplate的客户端）提供了支持。 &nbs
  • Linux64位操作系统（CentOS6.6）上如何编译hadoop2.4.0 liyong0802 hadoop
    一、准备编译软件   1.在官网下载jdk1.7、maven3.2.1、ant1.9.4，解压设置好环境变量就可以用。     环境变量设置如下：   （1）执行vim /etc/profile （2）在文件尾部加入: export JAVA_HOME=/home/spark/jdk1.7 export MAVEN_HOME=/ho
  • StatusBar 字体白色 pangyulei status
    [[UIApplication sharedApplication] setStatusBarStyle:UIStatusBarStyleLightContent]; /*you'll also need to set UIViewControllerBasedStatusBarAppearance to NO in the plist file if you use this method
  • 如何分析Java虚拟机死锁 sesame javathreadoracle虚拟机jdbc
    英文资料： Thread Dump and Concurrency Locks   Thread dumps are very useful for diagnosing synchronization related problems such as deadlocks on object monitors. Ctrl-\ on Solaris/Linux or Ctrl-B
  • 位运算简介及实用技巧（一）：基础篇 tw_wangzhengquan 位运算
    http://www.matrix67.com/blog/archives/263    去年年底写的关于位运算的日志是这个Blog里少数大受欢迎的文章之一，很多人都希望我能不断完善那篇文章。后来我看到了不少其它的资料，学习到了更多关于位运算的知识，有了重新整理位运算技巧的想法。从今天起我就开始写这一系列位运算讲解文章，与其说是原来那篇文章的follow-up，不如说是一个r
  • jsearch的索引文件结构 yangshangchuan 搜索引擎jsearch全文检索信息检索word分词
    jsearch是一个高性能的全文检索工具包，基于倒排索引，基于java8，类似于lucene，但更轻量级。   jsearch的索引文件结构定义如下：     1、一个词的索引由=分割的三部分组成：        第一部分是词        第二部分是这个词在多少
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他