BAPI : Marketting Attribute upload 'CRM_MKTBP_ASSIGN_ATTRIBUT_TAB'

Question

Hi,
I am trying to upload with prospects and marketting attribute simultanously at that only prospects are uploading but marketting attribute are not uploading.
this is the error we got : an entry with the same value alredy exists for attribute
you cannot aasign more than one value to attribute
format art & abc is invalid for attribute value below my code please guide me.
constant : ls_att_set TYPE CRMT_MKTPROF_KEYS-PROFILE_TEMPLATE_ID VALUE 'GENERAL'.
wa_partner-partner = BAPI_BP1.
APPEND wa_partner TO iT_partner.
CLEAR wa_partner.
wa_attrib-atname = 'CODE'. "Marketing attr name
wa_attrib-atvalue = WA_FILE-PROF_CHARACT_VA. "Marketing attr value
APPEND wa_attrib TO it_attrib.
wa_attrib-atname = 'type'. "'type'."wa_file-char_desct. "Marketing attr name
wa_attrib-atvalue = WA_FILE-PROF_CHARACT_VA_2. "Marketing attr value
APPEND wa_attrib TO it_attrib.
CALL FUNCTION 'CRM_MKTBP_ASSIGN_ATTRIBUT_TAB'
EXPORTING
iv_attribute_set = ls_att_set
iv_commit = 'X'
iv_obtyp = 'BUT000'
TABLES
it_partner = it_partner
et_return = it_return3
it_attributes = it_attrib.
sy-subrc = 0.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
WAIT = 'X'.
please guide me.

Answer 1

Hi,
I uploaded bp prospects then now i am going to upload marketting attribuutes so here i am going to use code but i am not able to upload it's showing error i am not able to see in internal table also and how i can pass my bp id to this program.please advice me.just i am passing only 2 marketting attribute and bp id.please kindly check this code.
*& Report  YPROSPECT_UPLOAD_001_WA
REPORT  YPROSPECT_UPLOAD_001_WA.
DATA : BEGIN OF WA_FILE,
       PARTNER TYPE but000-PARTNER,
       PROF_CHARACT_VA TYPE CRMD_MKTTGGRP_PT-PROF_CHARACT_VA,
       PROF_CHARACT_VA_2 TYPE CRMD_MKTTGGRP_PT-PROF_CHARACT_VA,
      GUID   TYPE CRMT_MKTBP_PARTNER_TAB-PARTNER_GUID,
       END OF WA_FILE.
DATA : IT_FILE LIKE TABLE OF WA_FILE.
DATA : IT_RETURN3 LIKE TABLE OF BAPIRET2,
       WA_RETURN3 LIKE LINE OF IT_RETURN3.
DATA : BEGIN OF WA_PARTNER OCCURS 0.
       INCLUDE STRUCTURE BU_PARTNER.
DATA:END OF WA_PARTNER.
DATA : IT_PARTNER LIKE TABLE OF WA_PARTNER.
*data it_partner like BU_PARTNER. "BU_PARTNER.
DATA : BEGIN OF IT_ATTRIB OCCURS 0.
       INCLUDE STRUCTURE CRMT_MKTPROF_COMW.
DATA:END OF IT_ATTRIB.
*DATA : IT_ATTRIB LIKE TABLE OF WA_ATTRIB.
DATA : ls_att_set TYPE CRMT_MKTPROF_KEYS-PROFILE_TEMPLATE_ID VALUE 'GENERAL'.
DATA  : FP_FILE LIKE RLGRAP-FILENAME.
*& F4 HELP
CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
EXPORTING
  PROGRAM_NAME        = SYST-REPID
  DYNPRO_NUMBER       = SYST-DYNNR
  FIELD_NAME          = ' '
  STATIC              = ' '
  MASK                = ' '
  CHANGING
    FILE_NAME           = FP_FILE
EXCEPTIONS
  MASK_TOO_LONG       = 1
  OTHERS              = 2
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
*& GUI UPLOAD
DATA : L_FILE TYPE STRING.
L_FILE = FP_FILE.
CALL FUNCTION 'GUI_UPLOAD'
  EXPORTING
    FILENAME                      = L_FILE
   FILETYPE                      = 'ASC'
   HAS_FIELD_SEPARATOR           = 'X'
  HEADER_LENGTH                 = 0
  READ_BY_LINE                  = 'X'
  DAT_MODE                      = ' '
  CODEPAGE                      = ' '
  IGNORE_CERR                   = ABAP_TRUE
  REPLACEMENT                   = '#'
  CHECK_BOM                     = ' '
  VIRUS_SCAN_PROFILE            =
  NO_AUTH_CHECK                 = ' '
IMPORTING
  FILELENGTH                    =
  HEADER                        =
  TABLES
    DATA_TAB                      = IT_FILE
EXCEPTIONS
   FILE_OPEN_ERROR               = 1
   FILE_READ_ERROR               = 2
   NO_BATCH                      = 3
   GUI_REFUSE_FILETRANSFER       = 4
   INVALID_TYPE                  = 5
   NO_AUTHORITY                  = 6
   UNKNOWN_ERROR                 = 7
   BAD_DATA_FORMAT               = 8
   HEADER_NOT_ALLOWED            = 9
   SEPARATOR_NOT_ALLOWED         = 10
   HEADER_TOO_LONG               = 11
   UNKNOWN_DP_ERROR              = 12
   ACCESS_DENIED                 = 13
   DP_OUT_OF_MEMORY              = 14
   DISK_FULL                     = 15
   DP_TIMEOUT                    = 16
   OTHERS                        = 17
To upload marketing attributes
       wa_partner-partner_guid = ."<BP guid>.
       wa_partner-partner = bapi_bp1."<BP ID>.
       APPEND wa_partner TO IT_partner.
       CLEAR wa_partner.
To upload marketing attributes
LOOP AT IT_FILE INTO WA_FILE.
       wa_partner-partner_guid = WA_FILE-GUID.
        it_partner-PARTNER = WA_FILE-PARTNER.
       APPEND wa_partner TO iT_partner.
       CLEAR wa_partner.
it_attrib-atname = 'ATR1'."'"wa_file-char_desct.  "Marketing attr name
  it_attrib-slwrt = WA_FILE-PROF_CHARACT_VA.  "Marketing attr value
  APPEND  it_attrib.
  it_attrib-atname = 'ATR2'.""wa_file-char_desct.  "Marketing attr name
  it_attrib-slwrt = WA_FILE-PROF_CHARACT_VA_2.  "Marketing attr value
  APPEND it_attrib.
CALL FUNCTION 'CRM_MKTBP_CHANGE_BP'
EXPORTING
iv_profile_template_id =  ls_att_set
iv_xdescr = ' '
iv_fcode = 'C'
iv_msa = 'X'
iv_commit = 'X'
iv_partner = IT_PARTNER
TABLES
it_imp_seltab = it_attrib[]
et_return = it_return3.
*CALL FUNCTION 'CRM_MKTBP_ASSIGN_ATTRIBUT_TAB'
*EXPORTING
*iv_attribute_set = ls_att_set
*iv_commit = 'X'
*iv_obtyp = 'BUT000'
*TABLES
*it_partner = it_partner
*et_return = it_return3
*it_attributes = it_attrib[].
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
       EXPORTING
         WAIT = 'X'.
ENDLOOP.
loop at it_return3 into wa_return3.
write : / 'ERROR MESSAGE BP ATTRIB ', wa_return3-message.
endloop.
Edited by: rose01 on Aug 22, 2010 1:47 PM