CRM activities creation

Question

Im creating activity by using BAPI_ACTIVITYCRM_CREATEMULTI, but its creating a TEMPLATE. when i tried not passing value for TEMPLATE TYPE field im finding error as incomplete data even though passing complete data.

Answer 1

Hi Nisha,
         im trying to create sales meeting. im passing header, partner, organisation, date, status data. its creating successfully with GUID and object ID but as a TEMPLATE. im sending my code for ur reference.
*& Report  /IGTE0/DM_CRM_ACTIVITIES
Report  .....Creating CRM Activities
Author: .....MARUTHI PRASAD J (714997)
REPORT  /IGTE0/DM_CRM_ACTIVITIES.
******************source structure declaration
types: begin of ty_source_data,
        ref_id(5) type N,
        DESCRIPTION(40),
        STATUS(5),
        DATE_FROM(8),
        DATE_TO(8),
        TIME_FROM(6),
        TIME_TO(6),
        PRIVATE_FLAG(1),
        PROCESS_TYPE(4),
        PRIORITY(1) type N,
        TIMEZONE_FROM(6),
        ACT_LOCATION(100),
        PARTNER_FCT(8),
        RELATION_PARTNER(32),
        CREATED_AT(15), "type DEC,
        CREATED_BY(12),
        CHANGED_AT(15), "type DEC,
        CHANGED_BY(12),
        SALES_OFFICE(14),
        SALES_GROUP(14),
        SALES_ORG(14),
        DIS_CHANNEL(2),
        DIVISION(2),
        EXTERN_ACT_ID(20),
        CATEGORY(3),
      end of ty_source_data.
types: begin of ty_source_data_updt,
       rel_typ(8),
       ref_id1(5) type N,
       BUS_PRTNR(32),
       VALID_TO(8),
       end of ty_source_data_updt.
*****Declaration of BAPI : bapi_activitycrm_createmulti
data: lt_source_data type table of ty_source_data,
      ls_source_data type ty_source_data.
data: lt_source_data_updt type table of ty_source_data_updt,
      ls_source_data_updt type ty_source_data_updt.
data: lt_header type table of BAPIBUS2000110_HEADER_INS,
      ls_header type BAPIBUS2000110_HEADER_INS,
      lt_headerx type table of BAPIBUS2000110_HEADER_INSX,
      ls_headerx type BAPIBUS2000110_HEADER_INSX,
      lt_created_process type TABLE OF BAPIBUS20001_HEADER_INS,
      ls_created_process type BAPIBUS20001_HEADER_INS,
      lt_PARTNER type table of BAPIBUS20001_PARTNER_INS,
      ls_PARTNER type BAPIBUS20001_PARTNER_INS,
      lt_PARTNERX type table of BAPIBUS20001_PARTNER_INSX,
      ls_PARTNERX type BAPIBUS20001_PARTNER_INSX,
      lt_ORGANISATION type table of BAPIBUS20001_ORGMAN_INS,
      ls_ORGANISATION type BAPIBUS20001_ORGMAN_INS,
      lt_ORGANISATIONX type table of BAPIBUS20001_ORGMAN_INSX,
      ls_ORGANISATIONX type BAPIBUS20001_ORGMAN_INSX,
      lt_DATE TYPE TABLE OF BAPIBUS20001_APPOINTMENT_INS,
      ls_DATE TYPE BAPIBUS20001_APPOINTMENT_INS,
      lt_DATEX TYPE TABLE OF BAPIBUS20001_APPOINTMENT_INSX,
      ls_DATEX TYPE BAPIBUS20001_APPOINTMENT_INSX,
      lt_STATUS TYPE TABLE OF BAPIBUS20001_STATUS_INS,
      ls_STATUS TYPE BAPIBUS20001_STATUS_INS,
      lt_STATUSX TYPE TABLE OF BAPIBUS20001_STATUS_INSX,
      ls_STATUSX TYPE BAPIBUS20001_STATUS_INSX,
      lt_return1 type table of bapiret2 with header line
*****Declaration of BAPI : bapi_activitycrm_save
data: lt_OBJECTS_TO_SAVE TYPE TABLE OF BAPIBUS20001_GUID_DIS,
      ls_OBJECTS_TO_SAVE TYPE BAPIBUS20001_GUID_DIS,
      lt_SAVED_OBJECTS type table of BAPIBUS20001_OBJECT_ID,
      ls_SAVED_OBJECTS type BAPIBUS20001_OBJECT_ID,
      lt_return2 type table of bapiret2 with header line,
      lt_return3 type table of bapiret2 with header line,
      lt_return4 type table of bapiret2 with header line
*****Declaration for return logs
********************Uploading text file
parameters: lv_file type localfile.
data: lv_file1 type string.
parameters: lv_updt type localfile.
data: lv_updt1 type string.
start-of-selection.
  lv_file = 'C:\Documents and Settings\714997\Desktop\Book1_he.txt'.
  lv_file1 = lv_file.
  CALL FUNCTION 'GUI_UPLOAD'
    EXPORTING
      FILENAME            = lv_file1
      FILETYPE            = 'DAT'
      HAS_FIELD_SEPARATOR = '#'
    TABLES
      DATA_TAB            = lt_source_data.
  IF SY-SUBRC <> 0.
  ENDIF.
  lv_updt = 'C:\Documents and Settings\714997\Desktop\crm_task_Partner_10Dec2010sort.txt'.
  lv_updt1 = lv_updt.
  CALL FUNCTION 'GUI_UPLOAD'
    EXPORTING
      FILENAME            = lv_updt1
      FILETYPE            = 'DAT'
      HAS_FIELD_SEPARATOR = '#'
    TABLES
      DATA_TAB            = lt_source_data_updt.
  IF SY-SUBRC <> 0.
  ENDIF.
  loop at lt_source_data into ls_source_data.
*************header data
    refresh: lt_header,lt_partner,lt_organisation,lt_date,lt_status.
    clear: ls_partner,ls_header,ls_organisation,ls_status,ls_date.
    ls_header-PROCESS_TYPE     = ls_source_data-PROCESS_TYPE.
    ls_header-HANDLE           = '0000000001'.
    ls_header-DESCR_LANGUAGE   = 'EN'.
    ls_header-LANGU_ISO        = 'EN'.
    ls_header-DESCRIPTION      = ls_source_data-DESCRIPTION.
    ls_header-CATEGORY         = ls_source_data-CATEGORY.
    ls_header-PRIORITY         = ls_source_data-PRIORITY.
   ls_header-OBJECTIVE        = '003'.
    ls_header-EXTERN_ACT_ID    = ls_source_data-EXTERN_ACT_ID.
    ls_header-PRIVATE_FLAG     = ls_source_data-PRIVATE_FLAG.
    ls_header-POSTING_DATE     = ls_source_data-DATE_FROM .
    ls_header-MODE             = 'A'.
    ls_header-CREATED_AT       = ls_source_data-CREATED_AT .
    ls_header-CREATED_BY       = ls_source_data-CREATED_BY .
    ls_header-CHANGED_AT       = ls_source_data-CHANGED_AT .
    ls_header-CHANGED_BY       = ls_source_data-CHANGED_BY .
    ls_header-ACT_LOCATION     = ls_source_data-ACT_LOCATION .
    ls_header-TEMPLATE_TYPE    = 'C'.
    ls_headerx-PROCESS_TYPE     = 'X'.
    ls_headerx-HANDLE           = 'X'.
    ls_headerx-DESCR_LANGUAGE   = 'X'.
    ls_headerx-LANGU_ISO        = 'X'.
    ls_headerx-DESCRIPTION      = 'X'.
    ls_headerx-CATEGORY         = 'X'.
    ls_headerx-PRIORITY         = 'X'.
   ls_headerx-OBJECTIVE        = 'X'.
    ls_headerx-EXTERN_ACT_ID    = 'X'.
    ls_headerx-PRIVATE_FLAG     = 'X'.
    ls_headerx-POSTING_DATE     = 'X'.
    ls_headerx-MODE             = 'X'.
    ls_headerx-CREATED_AT       = 'X'.
    ls_headerx-CREATED_BY       = 'X'.
    ls_headerx-CHANGED_AT       = 'X'.
    ls_headerx-CHANGED_BY       = 'X'.
    ls_headerx-ACT_LOCATION     = 'X'.
    ls_headerx-TEMPLATE_TYPE    = 'X'.
    IF ls_source_data-PRIVATE_FLAG = 'N'.
      ls_header-PRIVATE_FLAG = ' '.
    else.
      ls_header-PRIVATE_FLAG = 'X'.
    ENDIF.
    append ls_header to lt_header.
    append ls_headerx to lt_headerx.
*******************partner data
    refresh lt_partner.
    refresh lt_partnerx.
ls_PARTNER-REF_GUID             = .
    ls_PARTNER-REF_HANDLE           = '0000000001'.
    ls_PARTNER-REF_KIND            = 'A'.
    ls_PARTNER-PARTNER_FCT          = ls_source_data-PARTNER_FCT.
    ls_PARTNER-PARTNER_NO           = ls_source_data-RELATION_PARTNER.
    ls_PARTNER-NO_TYPE              = 'BP'.
    ls_PARTNER-DISPLAY_TYPE         = 'BP'.
    ls_PARTNER-KIND_OF_ENTRY        = 'A'.
    ls_PARTNER-MAINPARTNER          = 'X'.
    ls_PARTNER-RELATION_PARTNER     = ls_source_data-RELATION_PARTNER.
    ls_PARTNERX-REF_HANDLE          = 'X'.
    ls_PARTNERX-REF_KIND            = 'X'.
    ls_PARTNERX-PARTNER_FCT         = 'X'.
    ls_PARTNERX-PARTNER_NO          = 'X'.
    ls_PARTNERX-NO_TYPE             = 'X'.
    ls_PARTNERX-DISPLAY_TYPE        = 'X'.
    ls_PARTNERX-KIND_OF_ENTRY       = 'X'.
    ls_PARTNERX-MAINPARTNER         = 'X'.
    ls_PARTNERX-RELATION_PARTNER    = 'X'.
    append ls_partner to lt_partner.
    append ls_partnerx to lt_partnerx.
*******************organisation data
    refresh lt_organisation.
    refresh lt_organisationx.
    ls_organisation-REF_HANDLE        =  '0000000001'.
    ls_organisation-REF_KIND          =  'A'.
    ls_organisation-DIS_CHANNEL       =  ls_source_data-DIS_CHANNEL.
    ls_organisation-DIVISION          =  ls_source_data-DIVISION.
    ls_organisation-SALES_ORG         =  ls_source_data-SALES_ORG.
    ls_organisation-SALES_OFFICE      =  ls_source_data-SALES_OFFICE.
    ls_organisation-SALES_GROUP       =  ls_source_data-SALES_GROUP.
    ls_organisation-SALES_ORG_RESP    =  'O 03000015'.
    ls_organisation-MODE              =  'A'.
    ls_ORGANISATIONX-REF_HANDLE       = 'X'.
    ls_ORGANISATIONX-REF_KIND         = 'X'.
    ls_ORGANISATIONX-DIS_CHANNEL      = 'X'.
    ls_ORGANISATIONX-DIVISION         = 'X'.
    ls_ORGANISATIONX-SALES_ORG        = 'X'.
    ls_ORGANISATIONX-SALES_OFFICE     = 'X'.
    ls_ORGANISATIONX-SALES_GROUP      = 'X'.
    ls_ORGANISATIONX-MODE             = 'X'.
    append ls_organisation to lt_organisation.
    append ls_organisationx to lt_organisationx.
********************date
    refresh lt_date.
    refresh lt_datex.
    ls_DATE-REF_HANDLE              = '0000000001'.
    ls_DATE-REF_KIND                = 'A'.
    ls_DATE-APPT_TYPE               = 'ORDERPLANNED'.
    ls_DATE-TIMEZONE_FROM           = ls_source_data-TIMEZONE_FROM.
    ls_DATE-TIMEZONE_TO             = ls_source_data-TIMEZONE_FROM.
    ls_DATE-DATE_FROM               = ls_source_data-DATE_FROM.
    ls_DATE-DATE_TO                 = ls_source_data-DATE_TO.
    ls_DATE-TIME_FROM               = ls_source_data-TIME_FROM.
    ls_DATE-TIME_TO                 = ls_source_data-TIME_TO.
    ls_DATE-MODE                    = 'A'.
    ls_DATEX-REF_HANDLE             = 'X'.
    ls_DATEX-REF_KIND               = 'X'.
    ls_DATEX-APPT_TYPE              = 'X'.
    ls_DATEX-TIMEZONE_FROM          = 'X'.
    ls_DATEX-TIMEZONE_TO            = 'X'.
    ls_DATEX-DATE_FROM              = 'X'.
    ls_DATEX-DATE_TO                = 'X'.
    ls_DATEX-TIME_FROM              = 'X'.
    ls_DATEX-TIME_TO                = 'X'.
    ls_DATEX-MODE                   = 'X'.
    IF ls_source_data-DATE_TO = 'NULL'.
      ls_date-DATE_TO  = ls_source_data-DATE_FROM.
    ENDIF.
    IF ls_source_data-TIME_FROM = 'NULL'.
      ls_DATE-TIME_FROM = '000000'.
    ENDIF.
    IF ls_source_data-TIME_TO = 'NULL'.
      ls_DATE-TIME_TO = '000000'.
    ENDIF.
    append ls_date to lt_date.
    append ls_datex to lt_datex.
********************status
    refresh lt_STATUS.
    refresh lt_STATUSX.
    ls_STATUS-REF_HANDLE            = '0000000001'.
    ls_STATUS-REF_KIND              = 'A'.
    ls_STATUS-STATUS                = ls_source_data-STATUS.
    ls_STATUS-ACTIVATE              = 'X'.
    ls_STATUSX-REF_HANDLE           = 'X'.
    ls_STATUSX-REF_KIND             = 'X'.
    ls_STATUSX-STATUS               = 'X'.
    ls_STATUSX-ACTIVATE             = 'X'.
    append ls_status to lt_status.
    append ls_statusx to lt_statusx.
*******************Creating the activity
    CALL FUNCTION 'BAPI_ACTIVITYCRM_CREATEMULTI'
      TABLES
        HEADER                = lt_header
        HEADERX               = lt_headerX
        PARTNER               = lt_partner
        PARTNERX              = lt_partnerx
        ORGANISATION          = lt_organisation
        ORGANISATIONX         = lt_organisationx
        DATE                  = lt_date
        DATEX                 = lt_datex
  TEXT                  =
  TEXTX                 =
  REASON                =
  REASONX               =
  OUTCOME               =
  OUTCOMEX              =
        STATUS                = lt_status
        STATUSX               = lt_statusx
  LOCATION              =
  LOCATIONX             =
  INPUT_FIELDS          =
       CREATED_PROCESS       = lt_created_process
       RETURN                = lt_return1
  DOCUMENT_FLOW         =
  JOURNAL               =
  JOURNALX              =
  MATERIAL              =
  MATERIALX             =
  EXTENSIONIN           =
    LOOP AT lt_created_process into ls_created_process.
      ls_OBJECTS_TO_SAVE-GUID = ls_created_process-GUID.
    ENDLOOP.
   refresh lt_created_process.
      ls_OBJECTS_TO_SAVE-OBJECT_TYPE = 'BUS2000126'.
    append ls_OBJECTS_TO_SAVE to lt_OBJECTS_TO_SAVE.
*****************Saving the activity
   CALL FUNCTION 'BAPI_ACTIVITYCRM_SAVE'
    EXPORTING
      UPDATE_TASK_LOCAL       = 'X'
  SAVE_FRAME_LOG          = FALSE
IMPORTING
  LOG_HANDLE              =
    TABLES
      OBJECTS_TO_SAVE         = lt_OBJECTS_TO_SAVE
      SAVED_OBJECTS           = lt_SAVED_OBJECTS
      RETURN                  = lt_return2
   CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
    EXPORTING
      WAIT          = '1'
IMPORTING
  RETURN        =
   LOOP AT lt_SAVED_OBJECTS into ls_SAVED_OBJECTS.
     write: / ls_SAVED_OBJECTS-GUID, / ls_SAVED_OBJECTS-OBJECT_ID.
   ENDLOOP.
   refresh lt_SAVED_OBJECTS.
   clear ls_SAVED_OBJECTS.
endloop.