BAPI Activity CRM Create Multi

of 2
All materials on our website are shared by users. If you have any questions about copyright issues, please report us to resolve them. We are always happy to assist you.
Related Documents
  *&---------------------------------------------------------------------**& Report YBAPI_ACTIVITYCRM_CREATEMULTI*&---------------------------------------------------------------------**&*&---------------------------------------------------------------------* REPORT ybapi _acti vi tycrm_createmul ti . TYPES : BEGI N OF ty_bus_partner, partner_fct TYPE crmt_partner_fct, partner TYPE numc10, END OF ty_bus_partner.DATA : l s_header TYPE bapi bus2000110_header_i ns, l s_headerx TYPE bapi bus2000110_header_i nsx, l t_header TYPE TABLE OF bapi bus2000110_header_i ns, l t_headerx TYPE TABLE OF bapi bus2000110_header_i nsx, l s_partner TYPE bapi bus20001_partner_i ns, l s_partnerx TYPE bapi bus20001_partner_i nsx, l t_partner TYPE TABLE OF bapi bus20001_partner_i ns, l t_partnerx TYPE TABLE OF bapi bus20001_partner_i nsx, l s_bus_partner TYPE ty_bus_partner, l t_bus_partner TYPE TABLE OF ty_bus_partner, l s_created_process TYPE bapi bus20001_header_i ns, l t_created_process TYPE TABLE OF bapi bus20001_header_i ns, l t_return TYPE TABLE OF bapi ret2, l s_process_setti ngs TYPE bapi bus20001_procsetti ngs. BREAK-POI NT ' CSUNKARI ' .l s_bus_partner-partner_fct = ' 00000009' . l s_bus_partner-partner = ' 2100000110' .. APPEND l s_bus_partner TO l t_bus_partner. l s_bus_partner-partner_fct = ' 00000015' . l s_bus_partner-partner = ' 190001112' . APPEND l s_bus_partner TO l t_bus_partner. l s_bus_partner-partner_fct = ' 00000014' . l s_bus_partner-partner = ' 1000010' . APPEND l s_bus_partner TO l t_bus_partner. CLEAR l s_bus_partner.l s_header-process_type = ' ZT01' . l s_header-descri pti on = |Test Task: { sy-ti ml o }|. l s_header-handl e = 1. APPEND l s_header TO l t_header. CLEAR l s_header.l s_headerx-process_type = abap_true. l s_headerx-descri pti on = abap_true. l s_headerx-handl e = abap_true.  APPEND l s_headerx TO l t_headerx. CLEAR l s_headerx.LOOP AT l t_bus_partner I NTO l s_bus_partner. l s_partner-ref_handl e = 1. l s_partner-ref_ki nd = ' A' . l s_partner-partner_fct = l s_bus_partner-partner_fct. l s_partner-partner_no = l s_bus_partner-partner. l s_partner-no_type = ' BP' . l s_partner-di spl ay_type = ' BP' . l s_partner-ki nd_of_entry = ' C' . l s_partner-ref_partner_handl e = sy-tabi x. APPEND l s_partner TO l t_partner. l s_partnerx-ref_handl e = abap_true. l s_partnerx-ref_ki nd = abap_true. l s_partnerx-partner_fct = abap_true. l s_partnerx-partner_no = abap_true. l s_partnerx-no_type = abap_true. l s_partnerx-di spl ay_type = abap_true. l s_partnerx-ki nd_of_entry = abap_true. l s_partnerx-ref_partner_handl e = abap_true. APPEND l s_partnerx TO l t_partnerx. CLEAR : l s_partner,l s_partnerx. ENDLOOP.l s_process_setti ngs-msgl evel = ' 8' . l s_process_setti ngs-save = abap_true. CALL FUNCTI ON ' BAPI _BUSPROCESSND_PROCSETTI NGS'EXPORTI NGprocess_setti ngs_i n = l s_process_setti ngs TABLESreturn = l t_return. REFRESH l t_return.CALL FUNCTI ON ' BAPI _ACTI VI TYCRM_CREATEMULTI ' TABLESheader = l t_headerheaderx = l t_headerxpartner = l t_partnerpartnerx = l t_partnerxcreated_process = l t_created_processreturn = l t_return. COMMI T WORK AND WAI T.READ TABLE l t_created_process I NTO l s_created_process I NDEX 1. I F sy-subrc EQ 0. MESSAGE |Obj ect I d: { l s_created_process-obj ect_i d }| TYPE ' I ' . ENDI F.
Similar documents
View more...
Related Search
We Need Your Support
Thank you for visiting our website and your interest in our free products and services. We are nonprofit website to share and download documents. To the running of this website, we need your help to support us.

Thanks to everyone for your continued support.

No, Thanks

We need your sign to support Project to invent "SMART AND CONTROLLABLE REFLECTIVE BALLOONS" to cover the Sun and Save Our Earth.

More details...

Sign Now!

We are very appreciated for your Prompt Action!