Hello Experts,
I am using following BAPI's to create Opportunity and Lead:
BAPI_OPPORTUNITY_CREATEMULTI
BAPI_LEAD_CREATEMULTI
I am facing problem with multiple products Opportunity and Lead are getting created with only one product.
Code of Opportunity:
*Product Details
SPLIT ORDERED_PROD AT ',' INTO TABLE LT_PRODUCTS.
LT_PROD[] = LT_PRODUCTS.
IF LT_PROD[] IS NOT INITIAL.
LOOP AT LT_PROD INTO WA_PROD.
WA_ITEM-MODE = 'A'.
WA_ITEM-HANDLE = C_HANDLE_1.
WA_ITEM-HEADER_HANDLE = C_HANDLE_1.
WA_ITEM-ITM_TYPE = 'OPPT'.
WA_ITEM-ORDERED_PROD = WA_PROD-L_PROD. "ordered_prod.
APPEND WA_ITEM TO IT_ITEM.
CLEAR WA_PROD.
CLEAR WA_ITEM.
WA_INPUT_FIELDS-OBJECTNAME = 'ORDERADM_I'.
WA_INPUT_FIELDS-REF_KIND = ' '.
WA_INPUT_FIELDS-REF_HANDLE = C_HANDLE_1.
WA_INPUT_FIELDS-FIELDNAME = 'ORDERED_PROD'.
WA_INPUT_FIELDS-LOGICAL_KEY = '0001'.
APPEND WA_INPUT_FIELDS TO IT_INPUT_FIELDS.
WA_SCHEDULELINE-HANDLE = C_HANDLE_1.
WA_SCHEDULELINE-ITEM_HANDLE = C_HANDLE_1.
APPEND WA_SCHEDULELINE TO IT_SCHEDULELINE.
ENDLOOP.
ENDIF.
CALL FUNCTION 'BAPI_OPPORTUNITY_CREATEMULTI'
TABLES
HEADER = IT_HEADER
OPPORTUNITY = IT_OPPORTUNITY
PARTNER = IT_PARTNER
INPUT_FIELDS = IT_INPUT_FIELDS
RETURN = IT_OPPT_RET
SAVED_PROCESS = IT_SAVED_PROCESS
ITEM = IT_ITEM
SCHEDULELINE = IT_SCHEDULELINE
STATUS = IT_STATUS.
Code of Lead:
SPLIT ordered_prod AT ',' INTO TABLE lt_products.
lt_prod[] = lt_products.
IF lt_prod[] IS NOT INITIAL.
wa_item-header = guid.
wa_item-itm_type = c_item_type.
wa_itemx-header = c_x.
wa_itemx-itm_type = c_x.
LOOP AT lt_prod INTO wa_prod.
wa_item-ordered_prod = wa_prod-l_prod. "ordered_prod.
wa_itemx-ordered_prod = c_x.
APPEND wa_item TO it_item.
APPEND wa_itemx TO it_itemx.
ENDLOOP.
ENDIF.
CLEAR wa_itemx.
CALL FUNCTION 'BAPI_LEAD_CREATEMULTI'
TABLES
headerx = it_headerx
itemx = it_itemx
partnerx = it_partnerx
datex = it_datex
textx = t_textx
header = it_header
item = it_item
partner = it_partner
date = it_date
text = t_text
return = it_msg
saved_process = it_saved_process.