ABAP技巧（二）

把数据中后面的负号放到最前面

CALL FUNCTION 'CLOI_PUT_SIGN_IN_FRONT'

        CHANGING

          VALUE = ITAB-****

OTHERS = 1.

 

转换汇率：

IF KTAB-WAERK NE 'USD' AND KTAB-WAERK <> ''.

        IF KTAB-KURSK < 0.

          DTAB-NETWR = ABS( DTAB-NETWR / KTAB-KURSK ).

        ELSE.

          DTAB-NETWR = DTAB-NETWR * KTAB-KURSK.

        ENDIF.

ENDIF.

 

去掉字符串中某个字符后面的字符

 

DATA: STRING(20) VALUE 'zuixiao$ yao '.

DATA: DATA1(7).

DATA: NUM TYPE I.

SEARCH STRING FOR '$'.

 

IF SY-SUBRC = 0.

  NUM = SY-FDPOS.

  DATA1 = STRING(NUM).

ENDIF.

WRITE:/ DATA1.

 

 

用CONCATENATE 将一个整型的变量 变为字符型的

如： DATA1 = 123456   =>>>>   ‘123456’

CONCATENATE ‘’’’ 123456 ‘’’’ INTO

‘’’’ (4个单引号为1个单引号)

 

 

怎么取一个日期格式字段的最大日期和最小日期？

如: AUDAT-HIGH(最大) AUDAT-LOW(最小)

 

 

汇率转换：

DATA: RATE0 LIKE BAPI1093_0 OCCURS 0 WITH HEADER LINE.

DATA: RATE1 LIKE BAPI1093_0 OCCURS 0 WITH HEADER LINE.

DATA: FACTOR(10) TYPE P DECIMALS 3 .

 

    IF EKKO-WAERS ='JPY'.

      EKPO-NETPR = EKPO-NETPR * 100.

    ENDIF.

 

    IF EKKO-WAERS NE 'USD'.

      CALL FUNCTION 'BAPI_EXCHANGERATE_GETDETAIL'

        EXPORTING

          RATE_TYPE  = 'M'

          FROM_CURR  = EKKO-WAERS

          TO_CURRNCY = ‘USD’

          DATE       = EKKO-AEDAT

        IMPORTING

          EXCH_RATE  = RATE1.

 

      IF NOT RATE1-EXCH_RATE IS INITIAL.

        FACTOR =  RATE1-FROM_FACTOR / RATE1-EXCH_RATE *

                  RATE1-TO_FACTOR.

      ELSE.

        FACTOR =  RATE1-EXCH_RATE_V * RATE1-FROM_FACTOR_V

                  / RATE1-TO_FACTOR_V .

      ENDIF.

      ITAB-PR_AMT = T_GR-NETPR / FACTOR / T_GR-PEINH.

    ELSE.

      ITAB-PR_AMT = T_GR-NETPR / T_GR-PEINH.

    ENDIF.