派生USERTEMP2的材料分类特征的示例代码。

然后将USERTEMP2移动到您创建的任何COPA字符中。

在KEDR中，使用Source字段（ARTNR和USERTEMP1，目标字段USERTEMP2）创建一个ENHANCEMENT步骤。 在"属性"选项卡中，输入"步骤ID：MCLS"。

FM EXIT_SAPLKEDRCOPA_001中的COPA增强COPA0001（CMOD）包括ZXKKEU11，请使用以下示例：

*＆--------------------------------------------- ------------------------ *

*＆包括ZXKKEU11

*＆--------------------------------------------- ------------------------ *

数据：LINE_ITEM_A000，例如CE0A000。

数据：类似于KEDRCOPA的ZI_ATINN类似CABN-ATINN，Global_A000。

数据：ZI_AUSP类似于AUSP。

案例I_OPERATING_CONCERN。

" A000"时。

e_exit_is_active ='X'。

LINE_ITEM_A000 = I_copa_item。

Global_A000 = I_global。

case i_step_id。

* ---------------------------------------------- ----------------------------

*获得类似CH_OC_FG5000_000002的材料分类**启动Noam Diskin

* ---------------------------------------------- ----------------------------

为" MCLS"时。 "按字符名称分类的通用垫子类

*输入：物料编号（ARTNR），CL特性名称（USERTEMP1）

*输出CL特征值（USERTEMP2）

* *获取USERTEMP1传递的特征名称的内部编号

选择ATINN到ZI_ATINN

来自CABN

其中ATNAM = Global_a000-USERTEMP1。

ENDSELECT。

* *获取特征值

SELECT ATWRT INTO Global_a000-USERTEMP2"在USERTEMP2中返回结果

来自AUSP

其中OBJEK = LINE_ITEM_A000-Artnr

和ATINN = ZI_ATINN

和ATZHL ='001'

和MAFID ='O'

和KLART ='001'

和ADZHL ='0000'。

ENDSELECT。

* ---------------------------------------------- -----------------------

*获取材料分类**结束Noam Diskin

* ---------------------------------------------- -----------------------

尾箱。

e_copa_item = LINE_ITEM_A000。

E_GLOBAL = Global_A000。

endcase。