获取物料特征值

客户业务中，由于对外需要每个物料的产品型号一致，因此，在维护特征值中，没有批次的维护。

因此获取特征值的Function Module 也没有import批次号的属性：

 

 1 FUNCTION zbc_get_product_model.
 2 *"----------------------------------------------------------------------
 3 *"*"Local interface:
 4 *"  IMPORTING
 5 *"     REFERENCE(IP_OBJECTKEY) TYPE  MATNR
 6 *"  EXPORTING
 7 *"     REFERENCE(EP_PROMO) TYPE  ZPROMO
 8 *"----------------------------------------------------------------------
 9 
10 
11 *  产品型号
12   DATA:
13     lt_num TYPE STANDARD TABLE OF bapi1003_alloc_values_num WITH HEADER LINE,
14     lt_char TYPE STANDARD TABLE OF bapi1003_alloc_values_char WITH HEADER LINE,
15     lt_curr TYPE STANDARD TABLE OF bapi1003_alloc_values_curr WITH HEADER LINE,
16     lt_return TYPE STANDARD TABLE OF bapiret2.
17 
18   DATA:
19     lv_objectkey   LIKE bapi1003_key-object,
20     lv_objecttable LIKE bapi1003_key-objecttable VALUE 'MARA',
21     lv_classnum    LIKE bapi1003_key-classnum VALUE 'Z_MATERIAL_1',
22     lv_classtype   LIKE bapi1003_key-classtype VALUE '001',
23     lv_charact  LIKE bapi1003_alloc_values_char-charact VALUE 'Z_GGMAT'.
24 
25 * 取特性/特征值
26   lv_objectkey = ip_objectkey. "物料
27   CALL FUNCTION 'BAPI_OBJCL_GETDETAIL'
28     EXPORTING
29       objectkey       = lv_objectkey    "物料
30       objecttable     = lv_objecttable  "MARA表
31       classnum        = lv_classnum     "类别
32       classtype       = lv_classtype    "类别种类
33     TABLES
34       allocvaluesnum  = lt_num          "数值型特性值
35       allocvalueschar = lt_char         "字符型特性值
36       allocvaluescurr = lt_curr         "货币型特性值
37       return          = lt_return.      "返回值
38 
39   LOOP AT lt_char.
40     IF lt_char-charact = lv_charact.
41       ep_promo = lt_char-value_char.
42       EXIT.
43     ENDIF.
44   ENDLOOP.
45 
46 ENDFUNCTION.

 

转载于:https://www.cnblogs.com/cancer_xu/archive/2013/03/05/Get-Material-Eigenvalue.html