DATA:CE0_1000 LIKE CE01000.
DATA:KMVTNR LIKE VBPA-KUNNR.
DATA:KMVKGR LIKE VBAK-VKGRP,
     VKBUR LIKE VBAK-VKBUR.
DATA: LS_VBAK TYPE VBAK .
DATA:I_VBELN LIKE VBRK-VBELN .

TABLES: VBPA, KNA1.

CASE I_STEP_ID.

 WHEN 'U03'.   "
    E_EXIT_IS_ACTIVE = 'X'.
    CASE I_OPERATING_CONCERN.
      WHEN '1000'.
        CE0_1000 = I_COPA_ITEM.
        IF CE0_1000-KAUFN IS NOT INITIAL AND CE0_1000-KDPOS IS NOT INITIAL .
          SELECT
            SINGLE
            *
            INTO CORRESPONDING FIELDS OF LS_VBAK
            FROM VBAK
            WHERE VBELN EQ CE0_1000-KAUFN .
          IF SY-SUBRC = 0 .
*获取产品层次进行替换。
            IF LS_VBAK-AUART CP 'ZCR*' OR LS_VBAK-AUART CP 'ZDR*' .
               SELECT
                 SINGLE
                 PRODH
                 INTO
                 CE0_1000-PRODH
                 FROM VBAP
                 WHERE VBELN EQ CE0_1000-KAUFN
                 AND POSNR EQ CE0_1000-KDPOS  .
            ENDIF .
          ENDIF .
        ENDIF .
        E_COPA_ITEM = CE0_1000.
    ENDCASE.

ENDCASE.

SPRO->控制->获利能力分析->主数据->特性特征派生