如何使用ABAP代码创建SAP Product Category

In ERP we can create new material type by copying from existing one using tcode OMS2:

 

 

This new type could be downloaded into CRM system via customizing download. A product category with prefix MAT_ will be automatically created.

 

 

And here below is source code to create new product category using MAT_ as parent category by ABAP code.

METHOD replicate_category.

    CONSTANTS:
      BEGIN OF gc_application,
        sales      TYPE comt_application VALUE '01', "r3-produkthier
        purchasing TYPE comt_application VALUE '02', "r3 mat class
        product    TYPE comt_application VALUE '03', "r3 mat types
        config     TYPE comt_application VALUE '04',
        internet   TYPE comt_application VALUE '05',
      END OF gc_application.

    CONSTANTS:

      BEGIN OF gc_product_type,
        material  TYPE comt_product_type VALUE '01',
        service   TYPE comt_product_type VALUE '02',
        finance   TYPE comt_product_type VALUE '03',
        ip_prod   TYPE comt_product_type VALUE '04',
        warranty  TYPE comt_product_type VALUE '05',
        tradeitem TYPE comt_product_type VALUE '06',
        fs_prod   TYPE comt_product_type VALUE '07',
      END OF gc_product_type.

    rv_success = abap_false.
    DATA: lv_hierarchy_guid TYPE comt_hierarchy_guid,
          lv_parent_guid    TYPE comt_category_guid,
          lt_categoryt      TYPE comt_categoryt_tab.


* Prerequisite: the corresponding hierarchy is already downloaded from ERP
* Read the hierarchy which is assigned to application 03
* (product type material) in transaction COMM_PRAPPLCAT
    CALL FUNCTION 'COM_HIERARCHY_READ_WITH_APPL'
      EXPORTING
        iv_application    = gc_application-product
        iv_product_type   = gc_product_type-material
      IMPORTING
        ev_hierarchy_guid = lv_hierarchy_guid
      EXCEPTIONS
        not_found         = 1
        OTHERS            = 2.

    CHECK sy-subrc = 0.

    DATA(ls_cat_text) = VALUE comt_categoryt( langu = sy-langu category_text = iv_text
    text_upper_case = iv_text ).
    TRANSLATE ls_cat_text-text_upper_case TO UPPER CASE.
    APPEND ls_cat_text TO lt_categoryt.

    select single category_guid into lv_parent_guid FROM comm_category
       where category_id = 'MAT_'.

    CALL FUNCTION 'COM_PRODCAT_API_CREATE_CAT'
      EXPORTING
        iv_category_id           = iv_cat_id
        iv_hierarchy_guid        = lv_hierarchy_guid
        iv_parent_guid           = lv_parent_guid
        iv_product_type          = gc_product_type-material
        it_categoryt             = lt_categoryt
        iv_logsys                = iv_log_sys " 'QI3CLNT502'
        iv_non_assignable        = abap_false
      EXCEPTIONS
        hierarchy_not_maintained = 1
        wrong_call               = 2
        category_id_exists       = 3
        id_scheme_error          = 4
        error                    = 5
        OTHERS                   = 6.
    IF sy-subrc <> 0.
      MESSAGE ID sy-msgid TYPE 'X' NUMBER sy-msgno
              WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
      RETURN.
    ENDIF.

    CALL FUNCTION 'COM_PRODUCT_CATEGORY_SAVE_ALL'
      EXPORTING
        iv_update_task    = ' '
        iv_update_pme     = ' '
        iv_hierarchy_guid = lv_hierarchy_guid
      EXCEPTIONS
        internal_error    = 1
        OTHERS            = 2.
    ASSERT sy-subrc = 0.

    COMMIT WORK AND WAIT.

    rv_success = abap_true.

  ENDMETHOD.

Method signature:

 

 

How to use this code

Run method in SE24, specify new product category id via parameter iv_cat_id:

 

 

Execute method, ensure ev_success equals to abap_true.

 

 

Once created, the category could be searched via tcode COMM_HIERARCHY:

 

 

And the category could be used to create new product in WebUI:

 

 

要获取更多Jerry的原创文章，请关注公众号"汪子熙":