Telefonnummer vom Geschäftspartner ändern

Code: Alles auswählen.

 " X-Struktur für insert
        ls_telefonx-country = 'X'.
        ls_telefonx-countryiso = 'X'.
        ls_telefonx-std_no = 'X'.
        ls_telefonx-telephone = 'X'.
        ls_telefonx-std_recip = 'X'.
        ls_telefonx-updateflag = 'I'.
        append ls_telefonx to lt_telefonx.
      "endif.


        " X-Struktur für insert
        ls_faxx-country = 'X'.
        ls_faxx-countryiso = 'X'.
        ls_faxx-std_no = 'X'.
        ls_faxx-fax = 'X'.
        ls_faxx-updateflag = 'I'.
        append ls_faxx to lt_faxx.


        "X-Struktur für insert
        ls_emailx-std_no = 'X'.
        ls_emailx-e_mail = 'X'.
        ls_emailx-updateflag = 'I'.
        append  ls_emailx to lt_emailx.


        "Telefon Neuanlage
        if is_telefon-telephone is not initial.
          ls_telefon-telephone = is_telefon-telephone.
          ls_telefonx-telephone = 'X'.
          append ls_telefon to lt_telefon.
          endif.

        "Fax Neuanlage
           if is_fax-fax is not initial.
          ls_fax-fax = is_fax-fax.
          ls_faxx-fax = 'X'.
          append ls_fax to lt_fax.
          endif.

        "Email Neuanlage
        if is_email-e_mail is not initial.
         ls_email-e_mail = is_email-e_mail.
        ls_email-std_no = 'X'.
        append  ls_email to lt_email.
        endif.


      "Änderung vollziehen
      call function 'BAPI_BUPA_ADDRESS_CHANGE'
        exporting
          businesspartner = is_account-compid
          addressdata     = ls_addressdata
          addressdata_x   = ls_addressdata_x
        tables
          bapiadtel       = lt_telefon
          bapiadfax       = lt_fax
          bapiadsmtp      = lt_email
          bapiadtel_x     = lt_telefonx
          bapiadfax_x     = lt_faxx
          bapiadsmt_x     = lt_emailx
          return          = lt_return.