Firmenadresse eines R/3-Benutzers (User) mittels FuBa ändern

Code: Alles auswählen.

DATA: wa_address_old TYPE bapiaddr3,
        wa_address_new LIKE bapiaddr3,
        wa_addressx    LIKE bapiaddr3x,
        it_return      TYPE bapiret2 OCCURS 0 WITH HEADER LINE,
        lv_bname       TYPE bapibname-bapibname.

  lv_bname  = 'TESTUSER'.
  CALL FUNCTION 'BAPI_USER_GET_DETAIL'
    EXPORTING
        username              = lv_bname
    IMPORTING
        address               = wa_address_old
    TABLES
        return                = it_return
      EXCEPTIONS
        communication_failure = 2
        system_failure        = 3
        OTHERS                = 4.


  wa_address_new-addr_no   = '0000004711'.
  wa_addressx-addr_no      = 'X'.
  CALL FUNCTION 'BAPI_USER_CHANGE'
    EXPORTING
      username               = lv_bname
      address                = wa_address_new
      addressx               = wa_addressx
    TABLES
      return                 = it_return.


CALL FUNCTION 'ADDR_MEMORY_SAVE'
 EXPORTING
   EXECUTE_IN_UPDATE_TASK       = 'U'
 EXCEPTIONS
   ADDRESS_NUMBER_MISSING       = 1
   PERSON_NUMBER_MISSING        = 2
   INTERNAL_ERROR               = 3
   DATABASE_ERROR               = 4
   REFERENCE_MISSING            = 5
   OTHERS                       = 6.