◆◆0

如何读取物料特性值(FM:CLAF_CLASSIFICATION_OF_OBJECTS)

石头 12月 24, 2015 函数 17,537 views 2

[隐藏]

1, 物料特性查看

MM03 在classification视图中,可以找到物料的特性数据

详细信息如下图:可以看到 class type:001, class:Z_PACK_INSTR以及class下面的一个特性GRP_OPENING_DIRECTION和对应的值TR.

2, 代码实现

通过CLAF_CLASSIFICATION_OF_OBJECTS取得物料特性,例子代码如下:

DATA: l_object   TYPE kssk-objek,
      l_class    TYPE klah-class,
      l_matty    TYPE atwrt,
      lit_class  TYPE TABLE OF sclass,
      lit_objda  TYPE TABLE OF clobjdat,
      lwa_objda  TYPE clobjdat.
* 物料,
l_object =  '000000000000100524'.  "material number
* class
l_class = 'Z_PACK_INSTR'.  "lwa_alloc-class.
CALL FUNCTION 'CLAF_CLASSIFICATION_OF_OBJECTS'
  EXPORTING
    class              = l_class
*   CLASSTEXT          = 'X'
    classtype          = '001'   "Class type
*   CLINT              = 0
*   FEATURES           = 'X'
*   LANGUAGE           = SY-LANGU
    object             = l_object
*   OBJECTTABLE        = ' '
*   KEY_DATE           = SY-DATUM
    INITIAL_CHARACT    = ''
    no_value_descript  = 'X'
*   CHANGE_SERVICE_CLF = 'X'
*   INHERITED_CHAR     = ' '
*   CHANGE_NUMBER      = ' '
  TABLES
    t_class            = lit_class
    t_objectdata       = lit_objda
*   I_SEL_CHARACTERISTIC       =
*   T_NO_AUTH_CHARACT  =
  EXCEPTIONS
    no_classification  = 1
    no_classtypes      = 2
    invalid_class_type = 3
    OTHERS             = 4.
IF sy-subrc = 0.
* 读取特性值
  READ TABLE lit_objda INTO lwa_objda WITH KEY atnam = 'GRP_OPENING_DIRECTION'.
  IF sy-subrc = 0.
    l_matty = lwa_objda-ausp1.
    EXIT.
  ENDIF.
ENDIF.