Code: Alles auswählen.
CALL FUNCTION 'BUPA_CREATE_FROM_DATA'
EXPORTING
* IV_PARTNER =
* IV_PARTNER_GUID =
IV_CATEGORY = '1'
* IV_GROUP =
IS_DATA = ls_centraldata
* IS_DATA_PERSON =
IS_DATA_ORGAN = ls_CENTRALDATAORGANIZATION
* IS_DATA_GROUP =
IS_ADDRESS = ls_addressdata
* 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 = ev_partner
TABLES
" IT_ADTEL = lt_telefon
" IT_ADFAX = lt_fax
* IT_ADTTX =
* IT_ADTLX =
" IT_ADSMTP = lt_email
ET_RETURN = lt_return.
ls_CENTRALDATAORGANIZATION-name1 = IS_Account-Firmenname.
ls_CENTRALDATAORGANIZATION-LEGALFORM = IS_Account-Rechtsformschluessel.
ls_addressdata-street = IS_ACCOUNTADDRESS-street.
ls_addressdata-house_no = IS_ACCOUNTADDRESS-house_no.
ls_addressdata-POSTL_COD1 = IS_ACCOUNTADDRESS-POSTL_COD1.
ls_addressdata-city = IS_ACCOUNTADDRESS-city.
append ls_addressdata to ET_ACCOUNTADDRESS.
append ls_CENTRALDATAORGANIZATION to ET_ACCOUNT_CENTRAL.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
Folgende Benutzer bedankten sich beim Autor a-dead-trousers für den Beitrag:
AnnaNRW