取物料特性

DATA :  BEGIN  OF wa_mchb ,
        atnam  LIKE cabn -atnam ,  "特征名称
        atbez  LIKE cabnt -atbez ,  "特征描述
        atwrt  LIKE cawn -atwrt ,  "特性值
   END  OF wa_mchb .

DATA :   it_data  LIKE wa_mchb  OCCURS  0  WITH  HEADER  LINE .   "定义内表存放特性值

*取物料组特性
DATA : lt_class       TYPE  TABLE  OF sclass .         "里面放着物料主数据t-cod是MM03里分类下的分配表
DATA : lt_objectdata  TYPE  TABLE  OF clobjdat .   "里面放着物料主数据t-cod是MM03里分类下的物料特性表
DATA : ls_objectdata  TYPE clobjdat .                 " 物料特性结构
DATA : lf_object       LIKE ausp -objek .               " 一个对象的变量：就是把物料编号增加前导零到18位赋给 lf_object

DATA : BEGIN  OF wa_data ,
  matnr  LIKE mara -matnr ,
   END  OF wa_data .
DATA :it_data1  LIKE  TABLE  OF wa_data  WITH  HEADER  LINE .

*    清空工作区和内表准备存放物料特性
CLEAR : lf_object ,ls_objectdata .
REFRESH : lt_class ,lt_objectdata .

*    调用刚才定义的增加前导零，把物料编号增加前导零到18位赋给 lf_object

"zm_convert_alpha_input2: gs_pd-matnr.
SELECT  SINGLE matnr  INTO it_data1 -matnr  FROM mara . " WHERE matnr = '61-05-000185-2'.

CALL  FUNCTION  'CONVERSION_EXIT_ALPHA_INPUT'
   EXPORTING
     input   = it_data1 -matnr
   IMPORTING
     output  = it_data1 -matnr .

lf_object  = it_data1 -matnr .
* 调用该函数取出物料特性值

CALL  FUNCTION  'CLAF_CLASSIFICATION_OF_OBJECTS'
   EXPORTING
    classtype           =  '023'
    object              = lf_object
   TABLES
    t_class             = lt_class
    t_objectdata        = lt_objectdata
   EXCEPTIONS
    no_classification   =  1
    no_classtypes       =  2
    invalid_class_type  =  3
     OTHERS              =  4 .
IF sy -subrc <>  0 .
ENDIF .

*循环内表里把特性值名称、特性值、特性值描述取出来放在自定义的内表it_data里.
LOOP  AT lt_objectdata  INTO ls_objectdata .
  it_data -atnam  = ls_objectdata -atnam .   "特性名称
  it_data -atwrt  = ls_objectdata -ausp1 .   "特性值
   IF it_data -atwrt  =  '?' .
    it_data -atwrt  =  '' .
   ENDIF .
  it_data -atbez  = ls_objectdata -smbez .   "特征描述

   APPEND it_data .

   CLEAR : ls_objectdata .
ENDLOOP .



SORT it_data  BY atnam atbez .   "排序批次特性表
DELETE  ADJACENT  DUPLICATES  FROM it_data  COMPARING  ALL  FIELDS .  "删除重复的数据。

LOOP  AT it_data .
   WRITE : it_data -atnam ,  ',  ' ,  it_data -atwrt .
   ULINE .
ENDLOOP .