修改BP 中的联系人电话号码（BUT051）

  DATA lt_return LIKE bapiret2 OCCURS 0 WITH HEADER LINE .
  DATA lt_bapiadtel LIKE bapiadtel OCCURS 0 WITH HEADER LINE.
  DATA lt_bapiadtel_x LIKE bapiadtelx OCCURS 0 WITH HEADER LINE.

  lt_bapiadtel-telephone = '133333 '.
  lt_bapiadtel-r_3_user = '1' .
  APPEND lt_bapiadtel.

  lt_bapiadtel_x-telephone = 'X'.
  lt_bapiadtel_x-r_3_user = 'X' .
  lt_bapiadtel_x-updateflag = 'M'.
  APPEND lt_bapiadtel_x.

  REFRESH lt_return . CLEAR lt_return .
  CALL FUNCTION 'BAPI_BUPR_CONTP_ADDR_CHANGE'
    EXPORTING
      businesspartner = io_bp
      contactperson   = io_cont
    TABLES
      bapiadtel       = lt_bapiadtel
      bapiadtel_x     = lt_bapiadtel_x
      return          = lt_return.

  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
    EXPORTING
      wait = 'X'.