尝试BAPI：BAPI_ADDRESSPERS_CHANGE。

 *更改人员地址：
 *更改，删除和添加电话号码


   数据：objtype LIKE bapi4002_1-objtype，
         obj_id LIKE bapi4002_1-objkey，
         obj_id_ext LIKE bapi4002_1-扩展名，
         上下文类似bapi4002_1-context，
         address_number像adrc-addrnumber，
         person_number LIKE adrp-persnumber，
         bapiadtel喜欢bapiadtel OCCURS 0带标题行，
         bapiadtel_x就像bapiadtelx占用标题行的0，
         返回LIKE bapiret2 OCCURS 0。


 *将以下对象类型和对象键分配给
 *客户联系人的私人地址
   objtype ='BUS1006001'
   obj_id = <人数（KNVK）>
   obj_id_ext =''
   上下文='0004'


 *通过致电获取现有数据 FM'BAPI_ADDRESSPERS_GETDETAIL'
   ...


 *输入参考结构数据
 *序列号为" 002"的电话号码将被删除
 *序列号" 003"的已更新
 *使aktualisiert werden受伤。
   清除：bapiadtel []，bapiadtel_x []。


   清除：bapiadtel，bapiadtel_x。
   bapiadtel_x-updateflag ='D'。
   附录：bapiadtel，bapiadtel_x。  "删除条目


   清除：bapiadtel，bapiadtel_x。
   bapiadtel-extension ='77733'。
   bapiadtel_x-extension ='X'。
   bapiadtel_x-updateflag ='U'。
   附录：bapiadtel，bapiadtel_x。  "更新条目


   清除：bapiadtel，bapiadtel_x。
   bapiadtel-电话='06227'。
   bapiadtel-extension ='11111'。
   bapiadtel_x-updateflag ='I'。
   附录：bapiadtel，bapiadtel_x。  "插入新条目


 *调用更改模块
   通话功能'BAPI_ADDRESSPERS_CHANGE'
      出口
           obj_type = objtype
           obj_id = obj_id
           obj_id_ext = obj_id_ext
           上下文=上下文
      输入
          地址编号=地址编号
          人员编号=人员编号
      桌子
          bapiadtel = bapiadtel
          bapiadtel_x = bapiadtel_x
          return =返回。


 *错误和警告在表RETURN中。 如果成功，
 *人员地址及其通讯数据已更新。
 *地址为人名ADDRESS_NUMBER
 *在字段PERSON_NUMBER中。


     通话功能'BAPI_TRANSACTION_COMMIT'
       出口
         等待='X'。