Geschäftspartner anlegen Thema ist als GELÖST markiert

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'.