Business Partner anlegen FuBa BUPA_CREATE_FROM_DATA

Code: Alles auswählen.

   CALL FUNCTION 'BUPA_CREATE_FROM_DATA'
      EXPORTING
*   IV_PARTNER                           =
*   IV_PARTNER_GUID                      =
        iv_category                          = '1'
*   IV_GROUP                             =
        is_data                              = sv_data
        is_data_person                       = sv_data_person
*   IS_DATA_ORGAN                        =
*   is_data_group                        =
        is_address                           = sv_adress
        iv_testrun                           = ' '     
*   IV_DUPLICATE_MESSAGE_TYPE            =
*   IV_ACCEPT_ERROR                      = ' '
*   IV_X_SAVE                            = 'X'
*   IV_CONSIDER_CONSNUMBER_FOR_INS       = ' '
*   IV_CHECK_ADDRESS                     = 'X'
 IMPORTING
   ev_partner                           = new_number

Code: Alles auswählen.

    sv_data-searchterm1 = 'TEST1'.
    sv_data-title_key = '003'.
    sv_data_person-firstname = 'Mustermann'.
    sv_data_person-lastname = 'Michael'.

    sv_data_person->>SPAM<< = 'M'.
    sv_data_person-birthdate = '01.01.1980'.

    sv_adress-city = 'Berlin'
    sv_adress-district = 'Hermsdorf'.
    sv_adress-postl_cod1 = '13467'.
    sv_adress-street = 'Berliner Str.'.
    sv_adress-house_no = '15'.

Code: Alles auswählen.

REPORT  ztest_gp_anlegen.

DATA: sv_data      TYPE bapibus1006_central,
      sv_data_person TYPE bapibus1006_central_person,
      sv_adress    TYPE bapibus1006_address,

      new_number   LIKE but000-partner,
      new_guid     LIKE but000-partner_guid,
      new_addrnum  LIKE but020-addrnumber,
      new_addrguid LIKE but020-address_guid,
      it_return    TYPE TABLE OF bapiret2.

" Neuen Geschäftpartner anlegen

sv_data-searchterm1 = 'TEST3'.
sv_data-title_key = '0002'.

sv_data_person-firstname = 'Peter'.
sv_data_person-lastname = 'Lustig'.

sv_data_person->>SPAM<< = 2.   " 2 = männlich, 1 = weiblich
sv_data_person-birthdate = '19801205'.  " Datum umgekehrt

sv_adress-city = 'Berlin'.
sv_adress-district = 'Hermsdorf'.
sv_adress-postl_cod1 = '13467'.
sv_adress-street = 'Elsestr.'.
sv_adress-house_no = '1'.
sv_adress-country = 'DE'.
sv_adress-countryiso = 49.

CALL FUNCTION 'BUPA_CREATE_FROM_DATA'
  EXPORTING
*   IV_PARTNER                           =
*   IV_PARTNER_GUID                      =
    iv_category                          = '1'
*    IV_GROUP                            =
    is_data                              = sv_data
    is_data_person                       = sv_data_person
*   IS_DATA_ORGAN                        =
*   is_data_group                        =
    is_address                           = sv_adress
    iv_testrun                           = ''
*   IV_DUPLICATE_MESSAGE_TYPE            =
*   IV_ACCEPT_ERROR                      = ' '
*   IV_X_SAVE                            = 'X'
*   IV_CONSIDER_CONSNUMBER_FOR_INS       = ' '
*   IV_CHECK_ADDRESS                     = 'X'
IMPORTING
   ev_partner                        = new_number
   ev_partner_guid                   = new_guid
   ev_addrnumber                     = new_addrnum
   ev_addrguid                       = new_addrguid
 TABLES
*   IT_ADTEL                             =
*   IT_ADFAX                             =
*   IT_ADTTX                             =
*   IT_ADTLX                             =
*   IT_ADSMTP                            =
*   IT_ADRML                             =
*   IT_ADX400                            =
*   IT_ADRFC                             =
*   IT_ADPRT                             =
*   IT_ADSSF                             =
*   IT_ADURI                             =
*   IT_ADPAG                             =
*   IT_ADREM                             =
*   IT_ADCOMREM                          =
*   IT_ADCOMUSE                          =
*   IT_ADTEL_ADDR_IND                    =
*   IT_ADFAX_ADDR_IND                    =
*   IT_ADTTX_ADDR_IND                    =
*   IT_ADTLX_ADDR_IND                    =
*   IT_ADSMTP_ADDR_IND                   =
*   IT_ADRML_ADDR_IND                    =
*   IT_ADX400_ADDR_IND                   =
*   IT_ADRFC_ADDR_IND                    =
*   IT_ADPRT_ADDR_IND                    =
*   IT_ADSSF_ADDR_IND                    =
*   IT_ADURI_ADDR_IND                    =
*   IT_ADPAG_ADDR_IND                    =
*   IT_ADCOMREM_ADDR_IND                 =
*   IT_ADCOMUSE_ADDR_IND                 =
   et_return                            = it_return
*   ET_ADDR_DUPLICATES                   =
          .
IF sy-subrc <> 0.
  WRITE: / 'Partner konnte nicht angelegt werden !'.
ELSE.

  DATA: wa LIKE LINE OF it_return,
        z  TYPE i.

  WRITE: / 'Fehlermeldungen:'.
  LOOP AT it_return INTO wa.
    z = z + 1.
    WRITE: / wa-message.
  ENDLOOP.

  IF z = 0.
    COMMIT WORK.   " Daten richtig einbuchen
    WRITE: / 'Partner wurde angelegt:', new_number.
    WRITE: / 'Partner Guid:', new_guid.
    WRITE: / 'Addr Num:', new_addrnum.
    WRITE: / 'Addr Guid:', new_addrguid.
  ENDIF.

ENDIF.