bp标准方法写不进数据解决办法

业务场景：在创建BP的时候，我们会使用CALL METHOD vmd_ei_api=>maintain_bapi来创建BP，但是有的时候项目上会碰到有些字段is_master_data的接口里没有或者有并且赋值了但是却写不进去的情况，在这项目上刚好碰到了这2种情况，这里做一下分享。

1、有结构字段但是写不进去的情况：如字段(ADRC) extension1 、extension2、REMARK     

参考程序：

*&---------------------------------------------------------------------*
*& Form CHANGE_EXTEN1
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*&      --> GIT_RETURN
*&      --> U_W_GEN_FILE_VNDR_PARTNER_NUMB
*&      --> U_W_GEN_FILE_VNDR_EXTENSION1
*&      <-- C_FLG_END
*&---------------------------------------------------------------------*
form change_exten1  tables   p_git_return structure bapiret2
                    using    PARTNER
                            extension1
                    CHANGING c_flg_end          TYPE flag.

   DATA:
      l_addr1_sel        LIKE addr1_sel
     ,l_addr1_val        LIKE addr1_val
     ,t_adagroups        TYPE STANDARD TABLE OF adagroups
     ,t_addr_error       TYPE STANDARD TABLE OF addr_error
     ,t_addr_vers        TYPE STANDARD TABLE OF addr_vers

     ,l_addr1_data       TYPE addr1_data

     .


   REFRESH: t_adagroups ,t_addr_error ,t_addr_vers .
   CLEAR:l_addr1_sel ,l_addr1_val ,l_addr1_data .

   SELECT SINGLE addrnumber
     INTO l_addr1_sel-addrnumber
     FROM but020
    WHERE partner = PARTNER.
   IF 0 = sy-subrc .
*     pc_addrnumber = l_addr1_sel-addrnumber .
   ELSE.

     RETURN .
   ENDIF.


   CALL FUNCTION 'ADDR_GET'
     EXPORTING
       address_selection = l_addr1_sel
       address_group     = 'BP'
    IMPORTING
       address_value     = l_addr1_val
    TABLES
       address_groups    = t_adagroups
       error_table       = t_addr_error
       versions          = t_addr_vers
     EXCEPTIONS
       parameter_error   = 1
       address_not_exist = 2
       version_not_exist = 3
       internal_error    = 4
       address_blocked   = 5
       OTHERS            = 6.
   IF sy-subrc <> 0.

     RETURN .
   ENDIF.

   MOVE-CORRESPONDING l_addr1_val TO l_addr1_data .
   l_addr1_data-extension1 = extension1 .



  CALL FUNCTION 'ADDR_UPDATE'
     EXPORTING
       address_data         = l_addr1_data
       address_number       = l_addr1_sel-addrnumber
       date_from            = '00010101'
       language             = sy-langu
      check_empty_address  = 'X'
       check_address        = ''
       check_other_versions = ''  "'X'

    TABLES
       error_table          = t_addr_error
     EXCEPTIONS
       address_not_exist    = 1
       parameter_error      = 2
       version_not_exist    = 3
       internal_error       = 4
       address_blocked      = 5
       OTHERS               = 6.
   IF sy-subrc <> 0.
     RETURN .
   ENDIF.


   CALL FUNCTION 'ADDR_MEMORY_SAVE'
     EXPORTING
       execute_in_update_task = ''
     EXCEPTIONS
       address_number_missing = 1
       person_number_missing  = 2
       internal_error         = 3
       database_error         = 4
       reference_missing      = 5
       OTHERS                 = 6.
   IF sy-subrc <> 0.
     RETURN .
   ENDIF.


   CALL FUNCTION 'ADDR_MEMORY_CLEAR'
     EXPORTING
       force              = ' '
     EXCEPTIONS
       unsaved_data_exist = 1
       internal_error     = 2
       OTHERS             = 3.
   IF sy-subrc <> 0.
   ENDIF.
endform.

2、BP001-UNW_REMARK,使用了别的BAPI去更改，而且必须有值才能改，若没值的话更改会不成功(不会dump，不报错，但是数据没进去)

*&---------------------------------------------------------------------*
*& Form CHANGE_BP001
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*&      --> GIT_RETURN
*&      --> U_W_GEN_FILE_VNDR_PARTNER_NUMB
*&---------------------------------------------------------------------*
form change_bp001  tables   p_git_return structure bapiret2
                   using    PARTNER
                            UNW_REMARK
                   CHANGING c_flg_end          TYPE flag
                  .


    DATA : lv_key         TYPE char100,
           lw_return      TYPE bapiret2,
           lw_message     TYPE cvis_message.


    DATA IV_PARTNER      TYPE BU_PARTNER.
    DATA IV_PARTNER_GUID TYPE BU_PARTNER_GUID.
    DATA IS_GENERAL      TYPE BUSISB990_GEN.
    DATA IV_TESTRUN      TYPE CHAR1.
    DATA IT_BP001        TYPE STANDARD TABLE OF BP001.
    DATA IT_BP001_X      TYPE STANDARD TABLE OF BP001_X.
    DATA ET_RETURN       TYPE STANDARD TABLE OF BAPIRET2.
    DATA:LS_BP001        LIKE LINE OF IT_BP001.
    DATA:LS_BP001X       LIKE LINE OF IT_BP001_X.

      SELECT SINGLE
           PARTNER
           PARTNER_GUID
      INTO (IV_PARTNER,IV_PARTNER_GUID)
      FROM BUT000
     WHERE PARTNER EQ PARTNER
    .

    SELECT *
      INTO CORRESPONDING FIELDS OF TABLE @it_bp001
      FROM BP001
     WHERE PARTNER EQ @PARTNER.
    IF SY-SUBRC EQ 0.
      READ TABLE it_bp001 ASSIGNING FIELD-SYMBOL(<FW_BP001>) INDEX 1.
      <FW_BP001>-UNW_REMARK = UNW_REMARK.
    ELSE.
      LS_BP001-partner = PARTNER.
      LS_BP001-UNW_REMARK = UNW_REMARK.
      APPEND LS_BP001 TO it_bp001.
    ENDIF.

    LS_BP001X-UNW_REMARK = 'X'.
    APPEND LS_BP001X TO it_bp001_x.

    call function 'FS_API_BP001_CHANGE'
     EXPORTING
       IV_PARTNER            = IV_PARTNER
       IV_PARTNER_GUID       = IV_PARTNER_GUID
       IS_GENERAL            = IS_GENERAL
       IV_TESTRUN            = IV_TESTRUN
      tables
        it_bp001              = it_bp001
        it_bp001_x            = it_bp001_x
        ET_RETURN             = ET_RETURN
              .
    READ TABLE ET_RETURN ASSIGNING FIELD-SYMBOL(<FW_RETURN>) WITH KEY TYPE = 'E'.
    IF SY-SUBRC EQ 0.
      CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.

      c_flg_end = abap_on.
      lw_return-type = c_e.
      lw_return-id = c_yh_fi1.
      lw_return-number = 014.
      MESSAGE s014(yh_fi1)
         WITH TEXT-m04
              lv_key
              TEXT-m05
              TEXT-m06
         INTO lw_return-message.
      lw_return-message_v1 = TEXT-m04.
      lw_return-message_v2 = lv_key.
      lw_return-message_v3 = TEXT-m05.
      lw_return-message_v4 = TEXT-m06.
      lw_return-parameter = lv_key.
      LOOP AT lw_message-messages ASSIGNING FIELD-SYMBOL(<fs_return>).
        <fs_return>-parameter = lv_key.
      ENDLOOP.
      APPEND lw_return TO git_return.
      APPEND LINES OF lw_message-messages TO git_return.
    ELSE.
      CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
        EXPORTING
          wait = abap_true.
    ENDIF.
endform.