SAP ABAP COPA获利能力分析增强 COPA0001

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->控制->获利能力分析->主数据->特性特征派生