SAP CRM Activity

sanly 发表于 2011-12-21 08:44

<DIV> 

SPAN {
font-family: "Courier New";
font-size: 13pt;
color: #000000;
background: #FFFFFF;
}
.L4S31 {
font-style: italic;
color: #808080;
}
.L4S32 {
color: #3399FF;
}
.L4S33 {
color: #4DA619;
}
.L4S52 {
color: #0000FF;
}

FUNCTION zgrb_activity_create. *"---------------------------------------------------------------------- *"*"Local Interface: *"  IMPORTING *"     REFERENCE(IN_ACTIVITY) TYPE  ZGRB_ACTIVITY *"  EXPORTING *"     REFERENCE(OBJECT_ID) TYPE  CRMT_OBJECT_ID *"----------------------------------------------------------------------   DATA: ls_activity_bapi  TYPE bapibus2000110_header_ins,         ls_activity_bapix TYPE bapibus2000110_header_insx,         ls_date_bapi      TYPE bapibus20001_appointment_ins,         ls_date_bapix     TYPE bapibus20001_appointment_insx,         ls_partner_bapi   TYPE bapibus20001_partner_ins,         ls_partner_bapix  TYPE bapibus20001_partner_insx,         ls_text           TYPE bapibus20001_text_ins,         ls_textx          TYPE bapibus20001_text_insx ,         ls_organisation   TYPE bapibus20001_orgman_ins,         ls_organisationx  TYPE bapibus20001_orgman_insx,         ls_status         TYPE bapibus20001_status_ins ,         ls_statusx        TYPE bapibus20001_status_insx .   DATA: ls_org TYPE zgrb_act_org ,         country TYPE land1,         addrnumber TYPE ad_addrnum .   DATA: lt_activity_bapi  TYPE TABLE OF bapibus2000110_header_ins,         lt_activity_bapix TYPE TABLE OF bapibus2000110_header_insx,         lt_date_bapi      TYPE TABLE OF bapibus20001_appointment_ins,         lt_date_bapix     TYPE TABLE OF bapibus20001_appointment_insx,         lt_partner_bapi   TYPE TABLE OF bapibus20001_partner_ins,         lt_partner_bapix  TYPE TABLE OF bapibus20001_partner_insx,         lt_text           TYPE TABLE OF bapibus20001_text_ins,         lt_textx          TYPE TABLE OF bapibus20001_text_insx ,         lt_organisation   TYPE TABLE OF bapibus20001_orgman_ins,         lt_organisationx  TYPE TABLE OF bapibus20001_orgman_insx,         lt_status         TYPE TABLE OF bapibus20001_status_ins ,         lt_statusx        TYPE TABLE OF bapibus20001_status_insx.   DATA guid TYPE guid_32 .   DATA handle TYPE crmt_handle VALUE '1'. ************************************************************************ *  get guid no.                                                             * ************************************************************************   CALL FUNCTION 'GUID_CREATE'     IMPORTING       ev_guid_32 = guid. ************************************************************************ *        Set activity header                                                                * ************************************************************************   ls_activity_bapi-guid          = guid.   ls_activity_bapi-handle        = '1' .   ls_activity_bapi-process_type  = in_activity-process_type.   ls_activity_bapi-description   = in_activity-description.   ls_activity_bapi-posting_date  = sy-datum.   ls_activity_bapi-mode          = 'A'.                                        "CREATE   ls_activity_bapi-description   = in_activity-description.   ls_activity_bapi-category      = in_activity-category.   ls_activity_bapi-priority      = in_activity-priority.                        "优先级 *  set activity header change fields   ls_activity_bapix-guid         = 'X'.   ls_activity_bapix-handle       = 'X' .   ls_activity_bapix-process_type = 'X'.   ls_activity_bapix-description  = 'X'.   ls_activity_bapix-posting_date = 'X'.   ls_activity_bapix-description  = 'X'.   ls_activity_bapix-mode         = 'X'.   ls_activity_bapix-category     = 'X'.   ls_activity_bapix-priority     = 'X'.   APPEND ls_activity_bapi  TO lt_activity_bapi.   APPEND ls_activity_bapix TO lt_activity_bapix. ************************************************************************ *     Set date and time                                                                  * ************************************************************************   ls_date_bapi-ref_guid      = guid.   ls_date_bapi-ref_handle    = '1'.   ls_date_bapi-ref_kind      = 'A'.   ls_date_bapi-mode          = 'A'.   ls_date_bapi-appt_type     = 'ORDERPLANNED'.   ls_date_bapi-date_from     = in_activity-start_d.   ls_date_bapi-time_from     = in_activity-start_t.   ls_date_bapi-timezone_from = sy-zonlo.   ls_date_bapi-date_to       = in_activity-end_d.   ls_date_bapi-time_to       = in_activity-end_t.   ls_date_bapi-timezone_to   = sy-zonlo. * // set date and time change fields   ls_date_bapix-ref_guid      = 'X'.   ls_date_bapix-ref_handle    = 'X'.   ls_date_bapix-ref_kind      = 'X'.   ls_date_bapix-mode          = 'X'.   ls_date_bapix-appt_type     = 'X'.   ls_date_bapix-date_from     = 'X'.   ls_date_bapix-time_from     = 'X'.   ls_date_bapix-timezone_from = 'X'.   ls_date_bapix-date_to       = 'X'.   ls_date_bapix-time_to       = 'X'.   ls_date_bapix-timezone_to   = 'X'.   APPEND ls_date_bapi  TO lt_date_bapi.   APPEND ls_date_bapix TO lt_date_bapix. ************************************************************************ *   Set activity partner and contact partner                                                                     * ************************************************************************   ls_partner_bapi-ref_guid       = guid.   ls_partner_bapi-ref_handle     = '1'.   ls_partner_bapi-ref_kind       = 'A'.   ls_partner_bapix-ref_guid      = 'X'.   ls_partner_bapix-ref_handle    = 'X'.   ls_partner_bapix-ref_kind      = 'X' .   CLEAR handle .   IF in_activity-bp09 IS NOT INITIAL .     handle = handle + 1 .     ls_partner_bapi-ref_partner_handle = handle.     ls_partner_bapi-partner_no    = in_activity-bp09.     "客户BP号码     ls_partner_bapi-partner_fct   = '00000009'.           "合作伙伴功能码     ls_partner_bapi-no_type       = 'BP'.     ls_partner_bapi-display_type  = 'BP'.     ls_partner_bapix-ref_partner_handle = 'X'.     ls_partner_bapix-partner_no   = 'X'.     ls_partner_bapix-partner_fct  = 'X'.     ls_partner_bapix-no_type      = 'X'.     ls_partner_bapix-display_type = 'X'.     APPEND ls_partner_bapi TO  lt_partner_bapi.     APPEND ls_partner_bapix TO lt_partner_bapix.   ENDIF .   IF in_activity-bp15 IS NOT INITIAL .     handle = handle + 1 .     ls_partner_bapi-ref_partner_handle = handle.     ls_partner_bapi-partner_no    = in_activity-bp15.     ls_partner_bapi-partner_fct   = '00000015'.     ls_partner_bapi-no_type       = 'BP'.     ls_partner_bapi-display_type  = 'BP'.     ls_partner_bapix-ref_partner_handle = 'X'.     ls_partner_bapix-partner_no   = 'X'.     ls_partner_bapix-partner_fct  = 'X'.     ls_partner_bapix-no_type      = 'X'.     ls_partner_bapix-display_type = 'X'.     APPEND ls_partner_bapi TO  lt_partner_bapi.     APPEND ls_partner_bapix TO lt_partner_bapix.   ENDIF .   IF in_activity-bp14 IS NOT INITIAL .     handle = handle + 1 .     ls_partner_bapi-ref_partner_handle = handle.     ls_partner_bapi-partner_no    = in_activity-bp14.     ls_partner_bapi-partner_fct   = '00000014'.     ls_partner_bapi-no_type       = 'BP'.     ls_partner_bapi-display_type  = 'BP'.     ls_partner_bapix-ref_partner_handle = 'X'.     ls_partner_bapix-partner_no   = 'X'.     ls_partner_bapix-partner_fct  = 'X'.     ls_partner_bapix-no_type      = 'X'.     ls_partner_bapix-display_type = 'X'.     APPEND ls_partner_bapi TO  lt_partner_bapi.     APPEND ls_partner_bapix TO lt_partner_bapix.   ENDIF .   IF in_activity-bp32 IS NOT INITIAL .     handle = handle + 1 .     ls_partner_bapi-ref_partner_handle = handle.     ls_partner_bapi-partner_no    = in_activity-bp32.     ls_partner_bapi-partner_fct   = '00000032'.     ls_partner_bapi-no_type       = 'BP'.     ls_partner_bapi-display_type  = 'BP'.     ls_partner_bapix-ref_partner_handle = 'X'.     ls_partner_bapix-partner_no   = 'X'.     ls_partner_bapix-partner_fct  = 'X'.     ls_partner_bapix-no_type      = 'X'.     ls_partner_bapix-display_type = 'X'.     APPEND ls_partner_bapi TO  lt_partner_bapi.     APPEND ls_partner_bapix TO lt_partner_bapix.   ENDIF. ************************************************************************ *         设置活动状态                                                             * ************************************************************************   ls_status-ref_guid    = guid.   ls_status-ref_handle  = '1'.   ls_status-status      = in_activity-status .   ls_status-ref_kind         = 'A'.   ls_status-user_stat_proc   = 'ZGY-MAPS'.   ls_status-activate         = 'X'.   ls_statusx-ref_guid        = 'X'.   ls_statusx-ref_handle      = 'X'.   ls_statusx-status          = 'X' .   ls_statusx-ref_kind         = 'X'.   ls_statusx-user_stat_proc   = 'X'.   ls_statusx-activate         = 'X'.   APPEND ls_status TO lt_status .   APPEND ls_statusx TO lt_statusx . ************************************************************************ *            处理长文本                                                          * ************************************************************************   IF NOT in_activity-note IS INITIAL.     ls_text-ref_guid   = guid.     ls_text-ref_handle = '1'.     ls_text-ref_kind   = 'A'.     ls_text-tdid       = 'A002'.     ls_text-tdformat   = '*'.     ls_text-tdline    = in_activity-note.     ls_text-mode      = 'A'.     ls_text-tdspras   = sy-langu.     ls_text-tdstyle   = 'SYSTEM'.     ls_text-tdform    = 'SYSTEM'.     APPEND ls_text TO lt_text.     ls_textx-ref_guid   = 'X'.     ls_textx-ref_handle = 'X'.     ls_textx-ref_kind   = 'X'.     ls_textx-tdid       = 'X'.     ls_textx-mode       = 'X'.     ls_textx-tdspras    = 'X'. *    ls_textx-langu_iso  = 'X'.     ls_textx-tdstyle    = 'X'.     ls_textx-tdform     = 'X'.     ls_textx-tdformat   = 'X'.     ls_textx-tdline     = 'X'.     APPEND ls_textx TO lt_textx.   ENDIF. ************************************************************************ *            销售组织                                                     * ************************************************************************   CLEAR: ls_org , country , addrnumber .   SELECT SINGLE addrnumber INTO addrnumber     FROM but020     WHERE partner = in_activity-bp14 .   SELECT SINGLE country INTO country     FROM adrc     WHERE addrnumber = addrnumber .   SELECT SINGLE * INTO ls_org     FROM zgrb_act_org     WHERE country = country .   ls_organisation-ref_guid = guid.   ls_organisation-ref_handle = '1' .   ls_organisation-ref_kind = 'A'.   ls_organisation-mode = 'A'.   ls_organisation-sales_org_resp = ls_org-sales_org_resp.   ls_organisation-sales_org = ls_org-sales_org . *  ls_organisation-dis_channel = '' . *  ls_organisation-division = ''.   ls_organisation-sales_office = ls_org-sales_office.   ls_organisationx-ref_guid    = 'X'.   ls_organisationx-ref_handle  = 'X' .   ls_organisationx-ref_kind    = 'X'.   ls_organisationx-mode        = 'X'.   ls_organisationx-sales_org_resp = 'X'.   ls_organisationx-sales_org   = 'X'. *  ls_organisationx-dis_channel = 'X'. *  ls_organisationx-division    = 'X'.   ls_organisationx-sales_office = 'X'.   APPEND ls_organisation TO lt_organisation.   APPEND ls_organisationx TO lt_organisationx. ************************************************************************ *   create                                                     * ************************************************************************   DATA: ls_process_settings TYPE bapibus20001_procsettings,         lt_created_header   TYPE TABLE OF bapibus20001_header_ins,         ls_created_header   TYPE bapibus20001_header_ins.   DATA: lt_return2        TYPE TABLE OF bapiret2,         ls_return2        TYPE bapiret2.   ls_process_settings-msglevel = '8'. "ADMINISTRATOR   ls_process_settings-save     = 'X'.   CALL FUNCTION 'BAPI_BUSPROCESSND_PROCSETTINGS'     EXPORTING       process_settings_in = ls_process_settings     TABLES       return              = lt_return2.   CALL FUNCTION 'BAPI_ACTIVITYCRM_CREATEMULTI'     TABLES       header          = lt_activity_bapi       headerx         = lt_activity_bapix       partner         = lt_partner_bapi       partnerx        = lt_partner_bapix       date            = lt_date_bapi       datex           = lt_date_bapix       organisation    = lt_organisation       organisationx   = lt_organisationx       text            = lt_text       textx           = lt_textx       status          = lt_status       statusx         = lt_statusx       created_process = lt_created_header       return          = lt_return2.   READ TABLE lt_created_header INTO ls_created_header INDEX 1.   READ TABLE lt_return2 TRANSPORTING NO FIELDS WITH KEY type = 'E'.   CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'     EXPORTING       wait   = 'X'     IMPORTING       return = ls_return2.   object_id = ls_created_header-object_id. </DIV>
 
 
*----------------------------------------------------------------------* *  Set activity dow flow                                                   * *----------------------------------------------------------------------* DATA: bor_a TYPE borident,        bor_b TYPE borident. DATA : lv_oppoguid TYPE crmt_object_guid. *  IF NOT ls_tas_head-oppono IS INITIAL. SELECT SINGLE guid INTO lv_oppoguid FROM crmd_orderadm_h     WHERE process_type = 'ZM01' AND object_id = '0006000000'. IF lv_oppoguid IS NOT INITIAL.   bor_a-objkey = lv_oppoguid.   bor_a-objtype = 'BUS2000111'.
  bor_b-objkey = ls_activity_bapi-guid.   bor_b-objtype = 'BUS2000126'.   CALL FUNCTION 'BINARY_RELATION_CREATE'     EXPORTING       obj_rolea      = bor_a       obj_roleb      = bor_b       relationtype   = 'VONA'     EXCEPTIONS       no_model       = 1       internal_error = 2       unknown        = 3       OTHERS         = 4.
   IF sy-subrc <> 0.     CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.   ENDIF. ENDIF. 
 
 
<DIV> ENDFUNCTION. </DIV>

页: [1]

Chinaunix's Archiver

SAP CRM Activity