MAP R3 to CRM Material Master -- Urgent

Question

Hi all,
I have currently using BADI PRODUCT_CUSTOMER2 with method MAP_R3_TO_CRM_MATERIAL. I have done the coding and required configuration. I suppose to be able to see the changes done in COMMPR01 in CRM from MM02 in R3. However, I fail to see the changes at CRM.
I have read through note 428989 for the mapping instruction. During debugging, I manage to see all the changes done in R3 at the CRM side.. until the populating part, everything looks fine and okie for me. But when everything gone through, including the SMQ2 ibound queue finish running, i still fail to see the changes.
Below is the populating code that i have implemented in the badi, anyone can give me some advice on the code (basically the code refer to the reference file). Do i need to include some extra field or table at the populating part. Thanks.
begin of mapping data into bdoc:
LOOP AT lt_cat_settype_rel_all INTO ls_cat_settype_rel.
read comc_settype record:
CALL FUNCTION 'COM_SETTYPE_READ_SINGLE'
EXPORTING
iv_settype_guid = ls_cat_settype_rel-frgtype_guid
IMPORTING
es_settype = ls_settype
EXCEPTIONS
not_found = 1
no_import_values = 2
no_text_found = 3.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
CONTINUE.
ENDIF.
CASE ls_settype-frgtype_id.
WHEN lc_zxe_843_kgen.
ls_zxe_843_kgen-relation-owner = 'X'.
ls_zxe_843_kgen-relation-logsys = cs_product_bdoc-header-com_product-logsys.
ls_zxe_843_kgen-data-zz0010 = ls_zisc_mara_data-zzlead.
ls_zxe_843_kgen-data-zz0011 = ls_zisc_mara_data-zzamr.
ls_zxe_843_kgen-data-zz0012 = ls_zisc_mara_data-zzasr.
ls_zxe_843_kgen-data-zz0013 = ls_zisc_mara_data-zzlmang.
ls_zxe_843_kgen-data-zz0014 = ls_zisc_mara_data-zzmmang.
APPEND ls_zxe_843_kgen TO cs_product_bdoc-data-zxe_843_kgen.
APPEND ls_settype-frgtype_id TO cs_product_bdoc-data-mnt_settype.
ENDCASE.
ENDLOOP.
ENDCASE.
ENDLOOP.
Any help or idea is very much appreciated. Thanks.
Any doubt can always drop me a message as well.

Answer 1

Use the below code for your req.
CONSTANTS:
      c_on TYPE comt_boolean VALUE 'X',
      c_off TYPE comt_boolean VALUE ' ',
      C_PROD_XPORT(20) type C VALUE 'ZCOM_MANUFAC',
      c_mara(4)     TYPE c VALUE 'MARA'.
                             Work Areas                              *
  DATA: str_category_bdoc       TYPE comt_prod_cat_rel_maintain,
        str_category            TYPE comt_prod_cat_rel,
        str_settype             TYPE comt_settype_ext,
        str_cat_settype_rel     TYPE comt_cat_frag_rel,
        str_comm_category   TYPE comm_category,
        str_comm_prprdcatr  TYPE comm_prprdcatr,
        str_ZPROD_XPORT  type ZCOM_TA_MANUFAC_MAINTAIN,
        str_other_info      TYPE  bapiextc.
  DATA: begin of str_com_mara,
           bismt(18) type c,
        end of str_com_mara.
                            Internal Tables                          *
  DATA: it_categories          TYPE comt_prod_cat_rel_tab,
        it_cat_settype_rel     TYPE comt_cat_frag_rel_tab,
        it_cat_settype_rel_all TYPE comt_cat_frag_rel_tab.
                            Field Symbols                            *
  FIELD-SYMBOLS:
            <source_x> TYPE x,
            <target_x> TYPE x.
*Get all categories related to the product from CRM online:
  CALL FUNCTION 'COM_PROD_CAT_REL_READ_WITH_PR'
    EXPORTING
      iv_product_guid  = cs_product_bdoc-header-com_product-product_guid
      iv_update_buffer = space
    IMPORTING
      et_set           = it_categories.
*Add all categories related to the product from BDOC:
  LOOP AT cs_product_bdoc-header-categories INTO str_category_bdoc.
    MOVE-CORRESPONDING str_category_bdoc-data TO str_category.
    READ TABLE it_categories
         WITH KEY hierarchy_guid = str_category-hierarchy_guid
         TRANSPORTING NO FIELDS.
    IF sy-subrc = 0.
      MODIFY it_categories FROM str_category INDEX sy-tabix.
    ELSE.
      APPEND str_category TO it_categories.
    ENDIF.
  ENDLOOP.
  LOOP AT it_categories INTO str_category.
*Get category set type relations:
    CALL FUNCTION 'COM_CAT_FRAG_REL_READ'
      EXPORTING
        iv_category_guid = str_category-category_guid
      IMPORTING
        et_cat_frag_rel  = it_cat_settype_rel
      EXCEPTIONS
        wrong_call       = 1
        OTHERS           = 2.
    IF sy-subrc = 0.
      APPEND LINES OF it_cat_settype_rel TO it_cat_settype_rel_all.
    ENDIF.
      ENDLOOP.
    DELETE ADJACENT DUPLICATES FROM it_cat_settype_rel_all.
*Getting the info into the Set Types.
    LOOP AT it_cat_settype_rel_all INTO str_cat_settype_rel.
      CALL FUNCTION 'COM_SETTYPE_READ_SINGLE'
        EXPORTING
          IV_SETTYPE_GUID  = str_cat_settype_rel-frgtype_guid
          IV_LANGU         = SY-LANGU
        IMPORTING
          ES_SETTYPE       = str_settype
        EXCEPTIONS
          NOT_FOUND        = 1
          NO_IMPORT_VALUES = 2
          NO_TEXT_FOUND    = 3
          OTHERS           = 4.
      IF sy-subrc <> 0.
        CONTINUE.
      ENDIF.
      CASE str_settype-frgtype_id.
        WHEN C_PROD_XPORT.                           "Set Type Name 'ZCOM_MANUFAC'                "'ZTM_PROD_XPORT'
          str_zprod_xport-relation-owner   =  c_on.
          str_zprod_xport-relation-logsys  = cs_product_bdoc-header-com_product-logsys.
*Polutate MARA Fields
*Get the info record using Communication Structure 1
*Table Name and Material Number ( struc = 'MARA' and matnr = current material number )
          LOOP AT it_other_info INTO str_other_info
                     WHERE field1(20)  = C_MARA
                     AND   field1+20(18) = is_mara-material.
          ENDLOOP.
*Get data from Communication Structure 2 ( Old Material Number )
          ASSIGN str_other_info-field2 TO <source_x> CASTING.
          ASSIGN str_com_mara          TO <target_x> CASTING.
          IF <source_x> IS ASSIGNED AND
               <target_x> IS ASSIGNED.
            <target_x> = <source_x>.
          ELSE.
            CONTINUE.
          ENDIF.
*Assign the data from Communication Structure 2 ( Manufacturer Part Number ) to the corresponding field in set type structure.
          str_zprod_xport-data-ZZ0014 = str_com_mara-bismt.
          APPEND str_zprod_xport TO cs_product_bdoc-data-ZCOM_MANUFAC.
          APPEND str_settype-frgtype_id TO cs_product_bdoc-data-mnt_settype.
      ENDCASE.
    ENDLOOP.
  endmethod.
We have implemented the similar functionality in our project.
Reward points If it helps.