使用BAPI修改Material Master Data的Classification

BAPI ：

BAPI_OBJCL_GETDETAIL　　读取Classification

BAPI_OBJCL_CHANGE　　　　修改Classification

如果Material Master data的Classification不存在，则在创建新的classification之后，

需要更新mara中  pstat ，vpsta 字段，将‘C‘ 添加到该字符串之后。

CONCATENATE wa_mara-pstat 'C' INTO wa_mara-pstat.
CONCATENATE wa_mara-vpsta 'C' INTO wa_mara-vpsta.

DATA :wa_class_char LIKE bapi1003_alloc_values_char,"Alphanumeric Values
         wa_class_curr LIKE bapi1003_alloc_values_curr,"Currency Values
         wa_class_err LIKE bapiret2."Error Messages
         i_class_num LIKE TABLE OF wa_class_plmd,
         i_class_char LIKE TABLE OF wa_class_char,
         i_class_curr LIKE TABLE OF wa_class_curr,
         i_class_err LIKE TABLE OF wa_class_err.

*'C'表示classification
FIND 'C' IN wa_mara-vpsta.

IF sy-subrc <> 0.
      CONCATENATE wa_mara-pstat 'C' INTO wa_mara-pstat.
      CONCATENATE wa_mara-vpsta 'C' INTO wa_mara-vpsta.
ELSE.
*读取classification的信息
  CALL FUNCTION 'BAPI_OBJCL_GETDETAIL'
        EXPORTING
          objectkey              = g_objectkey
          objecttable            = 'MARA'
          classnum               = 'MATL_INFO'
          classtype              = '001'
*       KEYDATE                 = SY-DATUM
*       UNVALUATED_CHARS       = ' '
*       LANGUAGE               = SY-LANGU
*     IMPORTING
*       STATUS                 =
*       STANDARDCLASS          =
        TABLES
          allocvaluesnum         = i_class_num
          allocvalueschar        = i_class_char
          allocvaluescurr        = i_class_curr
          return                 = i_class_err
                .
ENDIF.
*------------------------------------------------------*
*
*修改或新增 classification
*
*------------------------------------------------------*
*更新Classification
 CALL FUNCTION 'BAPI_OBJCL_CHANGE'
    EXPORTING
      objectkey                = g_objectkey
      objecttable              = 'MARA'
      classnum                 = 'MATL_INFO'
      classtype                = '001'
*   STATUS                   = '1'
*   STANDARDCLASS            =
*   CHANGENUMBER             =
*   KEYDATE                  = SY-DATUM
*   NO_DEFAULT_VALUES        = ' '
* IMPORTING
*   CLASSIF_STATUS           =
    TABLES
      allocvaluesnumnew        = i_class_num
      allocvaluescharnew       = i_class_char
      allocvaluescurrnew       = i_class_curr
      return                   = i_class_err
            .
    READ TABLE i_class_err INTO wa_class_err  WITH KEY type = 'E'.
    IF syst-subrc = 0.
      CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
    ELSE.
  ELSE.
*****UPDATE MARA TBALE***********
    UPDATE mara FROM wa_mara.
    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
  ENDIF.