Badi before create Business Partner

Question

Hello Expert !!!
        when I create Business Partner in transaction BP , I have to add attribute set in tab marketing attributes everytime (depend on role that i create ).
        I want to program for automatic update attribute set .
       Do you know the Badi that i can code in that ? Badi  before create Business Partner?
  please help me
advance thanks,
kritamate

Answer 1

hey everyone !!!!
this all code in Badi Partner_update :
method IF_EX_PARTNER_UPDATE~CHANGE_BEFORE_UPDATE .
FIELD-SYMBOLS: <ls_but000_new> TYPE but000,
                 <ls_but050_new> TYPE but050.
CONSTANTS: lc_object_type TYPE crmt_prt_otype VALUE 'BUS1006'.
DATA: lt_changed_object_guids TYPE crmt_ace_object_guid,
        lt_new_object_guids     TYPE crmt_ace_object_guid,
        ls_object               LIKE LINE OF lt_changed_object_guids,
        lt_but000_old           TYPE STANDARD TABLE OF but000,
        lt_but000_new           TYPE STANDARD TABLE OF but000,
        ls_but000_old           LIKE LINE OF lt_but000_old,
        lt_but050_new           TYPE STANDARD TABLE OF but050,
        lt_but050_old           TYPE STANDARD TABLE OF but050,
        ls_but050_old           TYPE but050,
        lv_partner_guid         TYPE bu_partner_guid,
        lt_return               TYPE STANDARD TABLE OF bapiret2,
        lv_tabix                TYPE sy-tabix.
CLASS cl_bsp_bp_accmod DEFINITION LOAD.
business partners ************************************************
  CALL FUNCTION 'BUPA_GENERAL_CALLBACK'
    TABLES
      et_but000_old = lt_but000_old
      et_but000_new = lt_but000_new
    EXCEPTIONS
      OTHERS        = 0.
BP new or changed?
  LOOP AT lt_but000_new ASSIGNING <ls_but000_new>.
    ls_object-object_guid = <ls_but000_new>-partner_guid.
    READ TABLE lt_but000_old INTO ls_but000_old
               WITH KEY partner = <ls_but000_new>-partner.
  New BP created
    IF sy-subrc NE 0 OR ls_but000_old-client IS INITIAL.
      COLLECT ls_object INTO lt_new_object_guids.
  BP changed
    ELSE.
      COLLECT ls_object INTO lt_changed_object_guids.
    ENDIF.
  ENDLOOP.
data BP_guid type CRMT_TG_BP_GUID.
DATA: L_ATTRIBSET TYPE CRMT_PROF_TEMPLATE.
DATA : LW_VALUE TYPE CRMT_MKTPROF_COMW.
DATA: T_VALUE TYPE TABLE OF CRMT_MKTPROF_COMW  .
DATA: T_RETURN  TYPE TABLE OF  BAPIRET2 ,
       LV_BP_PERSON             TYPE  BU_PARTNER.
CONSTANTS: C_ROLE(5)          VALUE 'ZMROL'.
L_ATTRIBSET  =  C_ROLE.
BP_guid = ls_object-object_guid. .
          LW_VALUE-ATNAME = 'ZMRO0001'.
          LW_VALUE-ATWRT = 'Z11'.
          INSERT LW_VALUE INTO TABLE T_VALUE.
*LV_BP_PERSON = '20001678'."<ls_but000_new>-partner .
CALL FUNCTION 'CRM_MKTBP_CHANGE_BP'
  EXPORTING
    iv_profile_template_id       = L_ATTRIBSET
   IV_BP_GUID                   = BP_guid
  IV_XDESCR                    = ' '
  IV_FCODE                     = 'C'
  IV_MSA                       = 'X'
  IV_COMMIT                    = 'X'
  IV_PARTNER                   = LV_BP_PERSON
  IV_CONVERT_VALUES            = 'X'
TABLES
   IT_IMP_SELTAB                = T_VALUE
    ET_RETURN              = T_RETURN.
   if sy-subrc <> 0.
     endif.
endmethod.
message Shotdump :
What happened?
The current application program detected a situation which really
should not occur. Therefore, a termination with a short dump was
triggered on purpose by the key word MESSAGE (type X).
i don't what happen . Maybe because it cannot use this function in badi . I don't know . if you know ,please help
advance thanks ,
kritamate