获取BP的地址信息：BUPA_ADDRESS_GET_DETAIL

 

修改BP的信息：CRM_WAP_BP_CHANGE

 

BUTO50存放2个BP之间的关系

 

获取BP的规则 BAPI_BUPA_ROLES_GET
             BAPI_BUPA_ROLES_GET_2

 

 

 

*&---------------------------------------------------------------------*
*& 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.

 

  *&---------------------------------------------------------------------*
*& 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

 

 

  *&---------------------------------------------------------------------*
*& 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