*******************Kindly suggest***************

Question

Hi,
A business partner is created using External Number Asignment using the Bapi 'BAPI_BUPA_CREATE_FROM_DATA'.
I have two queries
(a)I want to extend the role of the Business Partner to role 'EMPLOYEE".Kindly tell a Function Module / Bapi to do the same.
(b) Once I extend the role to employee I want to have the User under the identification Tab the same as the the Busines Partner ID I have created.
Kindly suggest the Bapi / Function Module to do the same.
Kindly reply.
Regards,
Balasubramanian Vijay
**replies will surely be rewarded***

Answer 1

It's an example.
Reggards.
DATA:
    partner               LIKE     bapibus1006_head-bpartner,
    partnercategory       LIKE     bapibus1006_head-partn_cat,
    partnertype           LIKE     bapibus1006_head-partn_typ,
    partnergroup          LIKE     bapibus1006_head-partn_grp,
    partnerextno          LIKE     bapibus1006_head-extern_no,
    centraldata           TYPE    bapibus1006_central,
    centraldataperson     TYPE    bapibus1006_central_person,
    adressdata            TYPE    bapibus1006_address,
    businesspartner       LIKE     bapibus1006_head-bpartner,
    telefondata       TYPE bapiadtel  OCCURS 0 WITH HEADER LINE,
    faxdata           TYPE bapiadfax  OCCURS 0 WITH HEADER LINE,
    e_maildata        TYPE bapiadsmtp OCCURS 0 WITH HEADER LINE,
    return            TYPE bapiret2   OCCURS 0 WITH HEADER LINE.
Datos Generales Tipo de Partner
partnercategory = '1'.
partnertype     = ''.
partnergroup    = '0001'.  "EXTERNO o INTERNO
DATOS GENERALES
*centraldata-SEARCHTERM1 =
*centraldata-SEARCHTERM2 =
centraldata-partnertype = partnertype.
*centraldata-AUTHORIZATIONGROUP =
*centraldata-PARTNERLANGUAGE =
*centraldata-PARTNERLANGUAGEISO =
*centraldata-DATAORIGINTYPE =
*centraldata-CENTRALARCHIVINGFLAG =
*centraldata-CENTRALBLOCK =
*centraldata-TITLE_KEY =
*centraldata-CONTACTALLOWANCE =
*centraldata-PARTNEREXTERNAL =
*centraldata-TITLELETTER =
*centraldata-NOTRELEASED =
*centraldata-COMM_TYPE =
DATOS GENERALES PARA PERSONA
centraldataperson-firstname = 'NOMBRE'.
centraldataperson-lastname = 'APELLIDO'.
centraldataperson-birthname = ''.
centraldataperson-middlename = ''.
centraldataperson-secondname = ''.
centraldataperson-title_aca1 = ''.
centraldataperson-title_aca2 = ''.
centraldataperson-title_sppl = ''.
centraldataperson-prefix1 = ''.
centraldataperson-prefix2 = ''.
centraldataperson-nickname = 'APODO'.
centraldataperson-initials = 'NYP'.
centraldataperson-nameformat = ''.
centraldataperson-namcountry = 'AR'.
centraldataperson-namcountryiso = ''.
centraldataperson-*** = '2'.
centraldataperson-birthplace = ''.
centraldataperson-birthdate = ''.
centraldataperson-deathdate = ''.
centraldataperson-maritalstatus = '1'.
centraldataperson-correspondlanguage = ''.
centraldataperson-correspondlanguageiso = ''.
centraldataperson-fullname = ''.
centraldataperson-employer = ''.
centraldataperson-occupation = ''.
centraldataperson-nationality = 'AR'.
centraldataperson-nationalityiso = ''.
centraldataperson-countryorigin = ''.
DATOS GENERALES : DIRECCIONES
adressdata-standardaddress = 'X'.
*adressdata-C_O_NAME
adressdata-city = 'Lomas del Mirador Viteh'.
*adressdata-DISTRICT =
*adressdata-REGIOGROUP
adressdata-postl_cod1 = '1752'.
*adressdata-POSTL_COD2
*adressdata-POSTL_COD3
*adressdata-PCODE1_EXT
*adressdata-PCODE2_EXT
*adressdata-PCODE3_EXT
*adressdata-PO_BOX
*adressdata-PO_W_O_NO
*adressdata-PO_BOX_CIT
*adressdata-PO_BOX_REG
*adressdata-POBOX_CTRY
*adressdata-PO_CTRYISO
adressdata-street = 'Paso'.
*adressdata-STR_ABBR
adressdata-house_no = '9987'.
*adressdata-HOUSE_NO2
*adressdata-HOUSE_NO3
*adressdata-STR_SUPPL1
*adressdata-STR_SUPPL2
*adressdata-STR_SUPPL3
*adressdata-LOCATION
*adressdata-BUILDING
*adressdata-FLOOR
*adressdata-ROOM_NO
adressdata-country = 'AR'.
*adressdata-COUNTRYISO
adressdata-region = '01'.
*adressdata-TIME_ZONE
*adressdata-TAXJURCODE
*adressdata-HOME_CITY
*adressdata-TRANSPZONE
*adressdata-LANGU
*adressdata-LANGUISO
*adressdata-COMM_TYPE
*adressdata-EXTADDRESSNUMBER
*adressdata-DONT_USE_P
*adressdata-DONT_USE_S
*adressdata-MOVE_DATE
*adressdata-MOVE_ADDRESS
adressdata-validfromdate = ''.
adressdata-validtodate = '99991231'.
*adressdata-MOVE_ADDR_GUID
*adressdata-CITY_NO
*adressdata-DISTRCT_NO
*adressdata-CHCKSTATUS
*adressdata-PBOXCIT_NO
*adressdata-STREET_NO
*adressdata-HOMECITYNO
DATOS GENERALES : TELEFONOS
telefondata-country = 'AR'.
*TELEFONDATA-COUNTRYISO
telefondata-std_no = 'X'.
telefondata-telephone = '46577777'.
telefondata-extension = '89'.
telefondata-tel_no = '46577777'.
*TELEFONDATA-CALLER_NO
*TELEFONDATA-STD_RECIP
*TELEFONDATA-R_3_USER
telefondata-home_flag = 'X'.
telefondata-consnumber = '001'.
*TELEFONDATA-ERRORFLAG
*TELEFONDATA-FLG_NOUSE
APPEND telefondata.
telefondata-country = 'AR'.
*TELEFONDATA-COUNTRYISO
telefondata-std_no = 'X'.
telefondata-telephone = '1556577777'.
telefondata-extension = ''.
telefondata-tel_no = '46577777'.
*TELEFONDATA-CALLER_NO
*TELEFONDATA-STD_RECIP
telefondata-r_3_user = '3'.
telefondata-home_flag = ''.
telefondata-consnumber = '002'.
*TELEFONDATA-ERRORFLAG
*TELEFONDATA-FLG_NOUSE
APPEND telefondata.
DATOS GENERALES : FAX
faxdata-country = 'AR'.
*faxdata-COUNTRYISO
faxdata-std_no = 'X'.
faxdata-fax    = '99999999999'.
faxdata-extension = '345'.
faxdata-fax_no    = '99999999999-345'.
faxdata-sender_no = 'X'.
*faxdata-FAX_GROUP
*faxdata-STD_RECIP
*faxdata-R_3_USER
*faxdata-HOME_FLAG
faxdata-consnumber = '001'.
*faxdata-ERRORFLAG
*faxdata-FLG_NOUSE
APPEND faxdata.
DATOS GENERALES : MAIL
e_maildata-std_no = 'X'.
e_maildata-e_mail = '[email protected]'.
*e_maildata-EMAIL_SRCH
e_maildata-std_recip = 'X'.
*e_maildata-R_3_USER
*e_maildata-ENCODE
*e_maildata-TNEF
e_maildata-home_flag = 'X'.
e_maildata-consnumber = '001'.
*e_maildata-ERRORFLAG
*e_maildata-FLG_NOUSE
APPEND e_maildata.
CALL FUNCTION 'BAPI_BUPA_CREATE_FROM_DATA'
  EXPORTING
  BUSINESSPARTNEREXTERN              =
    partnercategory                    = partnercategory
    partnergroup                       = partnergroup
    centraldata                        = centraldata
    centraldataperson                  = centraldataperson
  CENTRALDATAORGANIZATION            =
  CENTRALDATAGROUP                   =
    addressdata                        = adressdata
  DUPLICATE_MESSAGE_TYPE             =
  ACCEPT_ERROR                       = ' '
IMPORTING
   businesspartner                    =  businesspartner
TABLES
   telefondata                        = telefondata
   faxdata                            = faxdata
  TELETEXDATA                        =
  TELEXDATA                          =
   e_maildata                         = e_maildata
  RMLADDRESSDATA                     =
  X400ADDRESSDATA                    =
  RFCADDRESSDATA                     =
  PRTADDRESSDATA                     =
  SSFADDRESSDATA                     =
  URIADDRESSDATA                     =
  PAGADDRESSDATA                     =
  ADDRESSNOTES                       =
  COMMUNICATIONNOTES                 =
  TELEFONDATANONADDRESS              =
  FAXDATANONADDRESS                  =
  TELETEXDATANONADDRESS              =
  TELEXDATANONADDRESS                =
  E_MAILDATANONADDRESS               =
  RMLADDRESSDATANONADDRESS           =
  X400ADDRESSDATANONADDRESS          =
  RFCADDRESSDATANONADDRESS           =
  PRTADDRESSDATANONADDRESS           =
  SSFADDRESSDATANONADDRESS           =
  URIADDRESSDATANONADDRESS           =
  PAGADDRESSDATANONADDRESS           =
  COMMUNICATIONNOTESNONADDRESS       =
    return                             = return
  ADDRESSDUPLICATES                  =
IF return[] IS NOT INITIAL.
  READ TABLE return INDEX 1.
  MESSAGE i000(zbp) WITH return-message.
  EXIT.
ENDIF.
IDENTIFICACIONES -
DATA : iv_identificationnumber   TYPE bu_id_number,
       is_identification         TYPE bapibus1006_identification,
       iv_identificationtype     TYPE bu_id_type,
       et_return                 TYPE bapiret2 OCCURS 0 WITH HEADER LINE.
iv_identificationnumber   = '30303030'.
*is_identification-IDINSTITUTE
is_identification-identrydate     = sy-datum.
is_identification-idvalidfromdate = '19000101'.
is_identification-idvalidtodate   = '99991231'.
is_identification-country         = 'AR'.
*is_identification-COUNTRYISO
*is_identification-REGION
iv_identificationtype = '96'.
CALL FUNCTION 'BUPA_IDENTIFICATION_ADD'
  EXPORTING
   iv_partner                      = businesspartner
  IV_PARTNER_GUID                 =
  iv_identificationcategory       =
   iv_identificationnumber         = iv_identificationnumber
   is_identification               = is_identification
  IV_X_SAVE                       = 'X'
   iv_identificationtype           = iv_identificationtype
TABLES
   et_return                       = et_return.
IF et_return[] IS NOT INITIAL.
  READ TABLE et_return INDEX 1.
  MESSAGE
       ID     et_return-id
       TYPE   et_return-type
       NUMBER et_return-number
       WITH et_return-message_v1
            et_return-message_v2
            et_return-message_v3
            et_return-message_v4.
  EXIT.
ENDIF.
*--TAX TYPES--
DATA:
     iv_tax_type TYPE bptaxtype,
     iv_tax_number TYPE bptaxnum.
iv_tax_type   = 'AR1C'.
iv_tax_number = '20303030306'.
CALL FUNCTION 'BUPA_TAX_ADD'
  EXPORTING
    iv_partner                  = businesspartner
    iv_tax_type                 = iv_tax_type
    iv_tax_number               = iv_tax_number
  IV_COMBINED_CHECK           = ' '
  IV_X_SAVE                   = 'X'
EXCEPTIONS
   record_already_exists       = 1
   invalid_data                = 2
   foreign_lock                = 3
   OTHERS                      = 4
IF sy-subrc <> 0.
  MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
          WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  EXIT.
ENDIF.
*-- AGREGAR ROLES--
REFRESH et_return.
CLEAR et_return.
BREAK-POINT.
CALL FUNCTION 'BAPI_BUPA_ROLE_ADD'
  EXPORTING
   businesspartner                = businesspartner
   businesspartnerrole            = 'BCA040'
  DIFFERENTIATIONTYPEVALUE       =
  TABLES
   return                         = et_return.
IF et_return[] IS NOT INITIAL.
  READ TABLE et_return INDEX 1.
  MESSAGE
       ID     et_return-id
       TYPE   et_return-type
       NUMBER et_return-number
       WITH et_return-message_v1
            et_return-message_v2
            et_return-message_v3
            et_return-message_v4.
  EXIT.
ENDIF.
REFRESH et_return.
CLEAR et_return.
CALL FUNCTION 'BAPI_BUPA_ROLE_ADD'
  EXPORTING
   businesspartner                = businesspartner
   businesspartnerrole            = 'BCA045'
  DIFFERENTIATIONTYPEVALUE       =
  TABLES
   return                         = et_return.
IF et_return[] IS NOT INITIAL.
  READ TABLE et_return INDEX 1.
  MESSAGE
       ID     et_return-id
       TYPE   et_return-type
       NUMBER et_return-number
       WITH et_return-message_v1
            et_return-message_v2
            et_return-message_v3
            et_return-message_v4.
  EXIT.
ENDIF.
COMMIT WORK.