CRM-BP相关FUNCTION

获取BP的地址信息：BUPA_ADDRESS_GET_DETAIL

修改BP的信息：CRM_WAP_BP_CHANGE

BUTO50存放2个BP之间的关系

获取BP的角色 BAPI_BUPA_ROLES_GET

BAPI_BUPA_ROLES_GET_2

增加BP的角色(roles)

*&———————————————————————*

*& Report ZCXM_BP_ADD_ROLES

*&

*&———————————————————————*

*&

*&

*&———————————————————————*

REPORT zcxm_bp_add_roles.

DATA : p_catlog TYPE bapibus1006_bproles-partnerrolecategory,

p_roles TYPE bapibus1006_bproles-partnerrole.

DATA : return LIKE TABLE OF bapiret2 .

DATA : return1 LIKE bapiret2.

p_catlog = ‘CRM005′.

p_roles = ‘CRM005′ .

CALL FUNCTION ‘BAPI_BUPA_ROLE_ADD_2′

EXPORTING

businesspartner = ‘0000004439′

businesspartnerrolecategory = p_catlog

businesspartnerrole = p_roles

TABLES

return = return.

CALL FUNCTION ‘BAPI_TRANSACTION_COMMIT’

EXPORTING

wait = ‘X’

IMPORTING

return = return1.

删除BP的ROLES BAPI_BUPA_ROLE_REMOVE

*&———————————————————————*

*& Report ZCXM_BP_REMOVE_ROLES

*&

*&———————————————————————*

*&

*&

*&———————————————————————*

REPORT ZCXM_BP_REMOVE_ROLES.

DATA : return LIKE TABLE OF bapiret2 .

DATA : return1 LIKE bapiret2.

CALL FUNCTION ‘BAPI_BUPA_ROLE_REMOVE’

EXPORTING

BUSINESSPARTNER = ‘0000004438′

BUSINESSPARTNERROLECATEGORY = ‘BUP005′

* ALL_BUSINESSPARTNERROLES = ‘ ‘

BUSINESSPARTNERROLE = ‘BUP005′

* DIFFERENTIATIONTYPEVALUE =

* ALL_DIFFERENTIATIONTYPEVALUES = ‘ ‘

TABLES

RETURN = return

.

CALL FUNCTION ‘BAPI_TRANSACTION_COMMIT’

EXPORTING

wait = ‘X’

IMPORTING

return = return1.

BP的关系获取 BAPI_BUPA_RELATIONSHIPS_GET

读取BP的市场属性列表 CRM_MKTBP_READ_ALL_TPL

分配市场属性给BP CRM_MKTBP_ASSIGN_ATTRIBUT

根据BP和市场属性ID获取属性值 CRM_MKTBP_READ_OW

通过INTERNET USER查找BP BUP_PARTNER_SEARCH_BY_IUSER

通过BP号获取INTERNET USER BUP_PARTNER_TO_USER_CONVERT

获取BP描述 BUP_PARTNER_DESCRIPTION_GET

通过INTERNET USERS搜索BP BUP_PARTNER_SEARCH_BY_IUSER

根据ROLES查找BP BUP_PARTNER_GET_BY_BPROLE

创建B2C的用户(SU05) BAPI_BPARTNER_CREATEPASSWORD

获取BP中银行细目 BUPA_BANK_DESCRIPTION_GET

通过BP号获取GUI BUP_PARTNER_GUID_CONVERT

通过BP号获取INTERNET USER BP_CENTRALPERSON_GET

通过BP GUI号获取BP号 BUPA_NUMBERS_GET

为BP创建INTERNET USER并建立关系

*&———————————————————————*

*& Report ZCXM_BPUS_USER_AND_CP_CREATE

*&

*&———————————————————————*

*&

*&

*&———————————————————————*

REPORT ZCXM_BPUS_USER_AND_CP_CREATE.

DATA :IS_ADDRESSDATA_BUPA TYPE BAPIBUS1006_ADDRESS,

IS_CENTRALDATA_BUPA TYPE BAPIBUS1006_CENTRAL.

DATA :

IS_REFERENCEUSER TYPE BAPIBNAME VALUE ‘REF_INTUSER’ .

PARAMETERS : IV_BP TYPE BAPIBUS1006_HEAD-BPARTNER ,

IS_ALIAS TYPE BAPIALIAS,

IS_UNAME TYPE BAPIBNAME ,

IS_PWD TYPE BAPIPWD.

CALL FUNCTION ‘BAPI_BUPA_ADDRESS_GETDETAIL’

EXPORTING

BUSINESSPARTNER = IV_BP

* ADDRESSGUID =

* VALID_DATE = SY-DATLO

IMPORTING

ADDRESSDATA = IS_ADDRESSDATA_BUPA

* TABLES

* BAPIADTEL =

* BAPIADFAX =

* BAPIADTTX =

* BAPIADTLX =

* BAPIADSMTP =

* BAPIADRML =

* BAPIADX400 =

* BAPIADRFC =

* BAPIADPRT =

* BAPIADSSF =

* BAPIADURI =

* BAPIADPAG =

* BAPIAD_REM =

* BAPICOMREM =

* ADDRESSUSAGE =

* BAPIADVERSORG =

* BAPIADVERSPERS =

* BAPIADUSE =

* RETURN =

.

CALL FUNCTION ‘BAPI_BUPA_CENTRAL_GETDETAIL’

EXPORTING

BUSINESSPARTNER = IV_BP

* VALID_DATE = SY-DATLO

IMPORTING

CENTRALDATA = IS_CENTRALDATA_BUPA

* CENTRALDATAPERSON =

* CENTRALDATAORGANIZATION =

* CENTRALDATAGROUP =

* CENTRALDATAVALIDITY =

* TABLES

* TELEFONDATANONADDRESS =

* FAXDATANONADDRESS =

* TELETEXDATANONADDRESS =

* TELEXDATANONADDRESS =

* E_MAILDATANONADDRESS =

* RMLADDRESSDATANONADDRESS =

* X400ADDRESSDATANONADDRESS =

* RFCADDRESSDATANONADDRESS =

* PRTADDRESSDATANONADDRESS =

* SSFADDRESSDATANONADDRESS =

* URIADDRESSDATANONADDRESS =

* PAGADDRESSDATANONADDRESS =

* COMMUNICATIONNOTESNONADDRESS =

* COMMUNICATIONUSAGENONADDRESS =

* RETURN =

.

CALL FUNCTION ‘COM_BPUS_USER_AND_CP_CREATE’

EXPORTING

IV_BUSINESSPARTNER = IV_BP

IS_ADDRESSDATA_BUPA = IS_ADDRESSDATA_BUPA

IS_CENTRALDATA_BUPA = IS_CENTRALDATA_BUPA

IV_BUPA_READ = ‘X’

IS_ALIAS = IS_ALIAS

IS_USERNAME = IS_UNAME

IS_PASSWORD = IS_PWD

IS_REFERENCEUSER = IS_REFERENCEUSER

* IV_USERLOCK = ‘ ‘

* IS_OPTIONS =

* IMPORTING

* ES_USERNAME =

* ES_PASSWORD =

* EV_PARTNGUID =

* TABLES

* IT_GROUPS =

* IT_ACTIVITYGROUPS =

* ET_RETURN =

* EXCEPTIONS

* INTERNETUSER_CREATE_ERROR = 1

* CENTRALPERSON_CREATE_ERROR = 2

* OTHERS = 3

.

IF SY-SUBRC <> 0.

* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

CALL FUNCTION ‘BAPI_TRANSACTION_COMMIT’

* EXPORTING

* WAIT =

* IMPORTING

* RETURN =

.

根据EMAIL地址搜索BP

* Get business partners for e-mail.

CALL FUNCTION ‘BAPI_BUPA_SEARCH’

EXPORTING

* TELEPHONE =

EMAIL = IV_E_MAIL

* ADDRESSDATA =

* CENTRALDATA =

* BUSINESSPARTNERROLE =

TABLES

SEARCHRESULT = LT_BP_ADDR

RETURN = LT_RET2.

获取DOMAIN值 FICO_DOMAIN_VALUES_GET

根据地址信息查找BP CRM_ICSS_ACCOUNT_CHECK