Code: Alles auswählen.
PARAMETERS: p_bp TYPE bu_partner.
PERFORM sent_bdoc USING p_bp.
*----------------------------------------------------------------------
FORM sent_bdoc USING iv_part TYPE bu_partner.
DATA: centraldata TYPE bapibus1006_central,
centraldata_x TYPE bapibus1006_central_x,
return TYPE bapiret2 OCCURS 0,
lang TYPE bu_langu.
SELECT SINGLE bu_langu FROM but000
INTO lang
WHERE partner = iv_part.
IF lang <> 'D'.
centraldata-partnerlanguage = 'D'.
ELSE.
centraldata-partnerlanguage = 'E'.
ENDIF.
centraldata_x-partnerlanguage = 'X'.
CALL FUNCTION 'BAPI_BUPA_CENTRAL_CHANGE'
EXPORTING
businesspartner = iv_part
centraldata = centraldata
centraldata_x = centraldata_x
TABLES
return = return.
break xlehrd.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
ENDFORM. "sent_bdoc