Request clarification before answering.
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
DATA: LT_RETURN LIKE BAPIRET2 OCCURS 0 WITH HEADER LINE.
CALL FUNCTION 'BUPA_ACT_ANALYZE_FOR_BAPI'
EXPORTING
IV_BP_NUMBER = BUSINESSPARTNER
IV_ACTIVITY = 'CHAN'
TABLES
CT_RESULTS = LT_RETURN.
LOOP AT LT_RETURN WHERE TYPE CA 'AE'.
EXIT.
ENDLOOP.
IF LT_RETURN IS INITIAL.
IF NOT ADDRESSDUPLICATES IS REQUESTED.
DUPLICATE_MESSAGE_TYPE = '-'.
endif.
CALL FUNCTION 'BUPA_CENTRAL_CHANGE'
EXPORTING
IV_PARTNER = BUSINESSPARTNER
IS_DATA = CENTRALDATA
IS_DATA_PERSON = CENTRALDATAPERSON
IS_DATA_ORGAN = CENTRALDATAORGANIZATION
IS_DATA_GROUP = CENTRALDATAGROUP
IS_DATA_X = CENTRALDATA_X
IS_DATA_PERSON_X = CENTRALDATAPERSON_X
IS_DATA_ORGAN_X = CENTRALDATAORGANIZATION_X
IS_DATA_GROUP_X = CENTRALDATAGROUP_X
IV_VALID_DATE = VALID_DATE
IV_DUPLICATE_MESSAGE_TYPE = DUPLICATE_MESSAGE_TYPE
TABLES
IT_ADTEL_ADDR_IND = TELEFONDATANONADDRESS
IT_ADFAX_ADDR_IND = FAXDATANONADDRESS
IT_ADTTX_ADDR_IND = TELETEXDATANONADDRESS
IT_ADTLX_ADDR_IND = TELEXDATANONADDRESS
IT_ADSMTP_ADDR_IND = E_MAILDATANONADDRESS
IT_ADRML_ADDR_IND = RMLADDRESSDATANONADDRESS
IT_ADX400_ADDR_IND = X400ADDRESSDATANONADDRESS
IT_ADRFC_ADDR_IND = RFCADDRESSDATANONADDRESS
IT_ADPRT_ADDR_IND = PRTADDRESSDATANONADDRESS
IT_ADSSF_ADDR_IND = SSFADDRESSDATANONADDRESS
IT_ADURI_ADDR_IND = URIADDRESSDATANONADDRESS
IT_ADPAG_ADDR_IND = PAGADDRESSDATANONADDRESS
IT_ADCOMREM_ADDR_IND = COMMUNICATIONNOTESNONADDRESS
IT_ADCOMUSE_ADDR_IND = COMMUNICATIONUSAGENONADDRESS
IT_ADTEL_ADDR_IND_X = TELEFONDATANONADDRESSX
IT_ADFAX_ADDR_IND_X = FAXDATANONADDRESSX
IT_ADTTX_ADDR_IND_X = TELETEXDATANONADDRESSX
IT_ADTLX_ADDR_IND_X = TELEXDATANONADDRESSX
IT_ADSMTP_ADDR_IND_X = E_MAILDATANONADDRESSX
IT_ADRML_ADDR_IND_X = RMLADDRESSDATANONADDRESSX
IT_ADX400_ADDR_IND_X = X400ADDRESSDATANONADDRESSX
IT_ADRFC_ADDR_IND_X = RFCADDRESSDATANONADDRESSX
IT_ADPRT_ADDR_IND_X = PRTADDRESSDATANONADDRESSX
IT_ADSSF_ADDR_IND_X = SSFADDRESSDATANONADDRESSX
IT_ADURI_ADDR_IND_X = URIADDRESSDATANONADDRESSX
IT_ADPAG_ADDR_IND_X = PAGADDRESSDATANONADDRESSX
IT_ADCOMREM_ADDR_IND_X = COMMUNICATIONNOTESNONADDRESSX
IT_ADCOMUSE_ADDR_IND_X = COMMUNICATIONUSAGENONADDRESSX
ET_ADDR_DUPLICATES = ADDRESSDUPLICATES
ET_RETURN = RETURN.
ENDIF.
LOOP AT LT_RETURN.
COLLECT LT_RETURN INTO RETURN.
ENDLOOP.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
WAIT = ''
IMPORTING
RETURN = RETURN.
"COMMIT WORK.Inputs to Fm:
Business partner: 1000058
Central data: Navin Chettiar
CENTRALDATA_X : X X
Regards,
Navin
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.