BP合作伙伴 - 更新搜索字段2 - BAPI_BUPA_CENTRAL_CHANGE

*&---------------------------------------------------------------------*
*& Form FRM_ZSAVE
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM FRM_ZSAVE .
  DATA: W_CENTRALDATA   TYPE BAPIBUS1006_CENTRAL,
        W_CENTRALDATA_X TYPE BAPIBUS1006_CENTRAL_X.
  DATA: WA_RETURN TYPE BAPIRET2,
        IT_RETURN LIKE STANDARD TABLE OF WA_RETURN.

  LOOP AT IT_DATA INTO WA_DATA.

    CLEAR: G_TYPE.
    CLEAR: G_MESSAGE.

    CLEAR: IT_RETURN.
    CLEAR: W_CENTRALDATA.
    CLEAR: W_CENTRALDATA_X.

    W_CENTRALDATA-SEARCHTERM2 = WA_DATA-BU_SORT2.
    W_CENTRALDATA_X-SEARCHTERM2 = 'X'.

    CALL FUNCTION 'BAPI_BUPA_CENTRAL_CHANGE'
      EXPORTING
        BUSINESSPARTNER = WA_DATA-PARTNER
        CENTRALDATA     = W_CENTRALDATA
*       CENTRALDATAPERSON                   =
*       CENTRALDATAORGANIZATION             =
*       CENTRALDATAGROUP                    =
        CENTRALDATA_X   = W_CENTRALDATA_X
*       CENTRALDATAPERSON_X                 =
*       CENTRALDATAORGANIZATION_X           =
*       CENTRALDATAGROUP_X                  =
*       VALID_DATE      = SY-DATLO
*       DUPLICATE_MESSAGE_TYPE              =
*       DUPLICATE_CHECK_ADDRESS             =
      TABLES
*       TELEFONDATANONADDRESS               =
*       FAXDATANONADDRESS                   =
*       TELETEXDATANONADDRESS               =
*       TELEXDATANONADDRESS                 =
*       E_MAILDATANONADDRESS                =
*       RMLADDRESSDATANONADDRESS            =
*       X400ADDRESSDATANONADDRESS           =
*       RFCADDRESSDATANONADDRESS            =
*       PRTADDRESSDATANONADDRESS            =
*       SSFADDRESSDATANONADDRESS            =
*       URIADDRESSDATANONADDRESS            =
*       PAGADDRESSDATANONADDRESS            =
*       COMMUNICATIONNOTESNONADDRESS        =
*       COMMUNICATIONUSAGENONADDRESS        =
*       TELEFONDATANONADDRESSX              =
*       FAXDATANONADDRESSX                  =
*       TELETEXDATANONADDRESSX              =
*       TELEXDATANONADDRESSX                =
*       E_MAILDATANONADDRESSX               =
*       RMLADDRESSDATANONADDRESSX           =
*       X400ADDRESSDATANONADDRESSX          =
*       RFCADDRESSDATANONADDRESSX           =
*       PRTADDRESSDATANONADDRESSX           =
*       SSFADDRESSDATANONADDRESSX           =
*       URIADDRESSDATANONADDRESSX           =
*       PAGADDRESSDATANONADDRESSX           =
*       COMMUNICATIONNOTESNONADDRESSX       =
*       COMMUNICATIONUSAGENONADDRESSX       =
        RETURN          = IT_RETURN
*       ADDRESSDUPLICATES                   =
      .
    LOOP AT IT_RETURN INTO WA_RETURN WHERE TYPE = 'E'
                                        OR TYPE = 'A'
                                        OR TYPE = 'X'.
      EXIT.
    ENDLOOP.
    IF SY-SUBRC = 0.
      CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'
*       IMPORTING
*         RETURN        =
        .
      G_TYPE ='E'.

    ELSE.
      CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
        EXPORTING
          WAIT = 'X'
*       IMPORTING
*         RETURN        =
        .
      G_TYPE ='S'.

    ENDIF.

    LOOP AT IT_RETURN INTO WA_RETURN.
      G_MESSAGE = G_MESSAGE && '/' && WA_RETURN-MESSAGE.
    ENDLOOP.

    WA_DATA-ZTYPE = G_TYPE.
    WA_DATA-ZMESSAGE = G_MESSAGE.

      CASE WA_DATA-ZTYPE.
        WHEN 'S'.
          WA_DATA-ICON = ICON_GREEN_LIGHT.
        WHEN 'E'.
          G_CHECK = 'E'.
          WA_DATA-ICON = ICON_RED_LIGHT.
        WHEN OTHERS.

      ENDCASE.

      MODIFY IT_DATA FROM WA_DATA
           TRANSPORTING ZTYPE ZMESSAGE ICON.
  ENDLOOP.
ENDFORM.