Hello Gurus,
I am creating a PR using BAPI_PR_CREATE, I achieve creating the PR, but I can't save value in the custom fields.
This is my code, would you please help me?
Thanks
DATA: ls_req_item TYPE BAPI_TE_MEREQITEM,
ls_req_itemx TYPE BAPI_TE_MEREQITEMX,
ls_extensionin TYPE bapiparex,
lt_extensionin TYPE STANDARD TABLE OF bapiparex.
clear ls_extensionin.
clear ls_req_item.
ls_req_item-preq_item = wa_gt_data-posic.
ls_req_item-ZZKOSTL = wa_praccount-costcenter.
ls_extensionin-structure = 'BAPI_TE_MEREQITEM'.
PERFORM transfer_to_extensionin USING ls_req_item CHANGING ls_extensionin.
APPEND ls_extensionin to lt_extensionin.
clear ls_extensionin.
clear ls_req_itemx.
ls_req_itemx-preq_item = wa_gt_data-posic.
ls_req_itemx-ZZKOSTL = 'X'.
ls_extensionin-structure = 'BAPI_TE_MEREQITEMX'.
PERFORM transfer_to_extensionin USING ls_req_itemx CHANGING ls_extensionin.
APPEND ls_extensionin to lt_extensionin.
FORM transfer_to_extensionin
USING
is_bapi_extensionin TYPE any
CHANGING
cs_bapiparex TYPE bapiparex.
DATA l_distance_characters TYPE I.
FIELD-SYMBOLS <any> TYPE any.
DESCRIBE DISTANCE BETWEEN cs_bapiparex-structure
AND cs_bapiparex-valuepart1
INTO l_distance_characters
IN CHARACTER MODE.
ASSIGN cs_bapiparex+l_distance_characters(*) TO <any>
CASTING LIKE is_bapi_extensionin.
<any> = is_bapi_extensionin.
ENDFORM.
* Create the PR with the above data's.
CALL FUNCTION 'BAPI_PR_CREATE'
EXPORTING
prheader = wa_header
prheaderx = wa_headerx
TABLES
return = t_return
pritem = t_item
pritemx = t_itemx
praccount = t_praccount
praccountx = t_praccountx
"pritemsource = t_itemsource
"pritemtext = t_itext
EXTENSIONIN = lt_extensionin
EXCEPTIONS
OTHERS = 1.