Hi All,
I am trying to create a contract through a report program, it is giving me an run time error saying " Entry does not exist". IN st22, the error is happening at thebelow code.
Any pointers on this would be of great help.
THanks,
udaya
CALL FUNCTION 'CRM_PARTNER_FCTS_BY_SCOPE'
EXPORTING
IV_REF_GUID = iv_ref_guid
IV_REF_KIND = iv_ref_kind
CHANGING
CT_PARTNER_EXTERNAL_WRK = et_partner_wrk.
IF es_partner_wrk IS INITIAL.
>>> RAISE entry_does_not_exist.
ENDIF.
*&---------------------------------------------------------------------*
*& Report ZTESTUDAY5
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZTESTUDAY5.
DATA : LV_HEADER_GUID TYPE GUID_32,
WA_HEADER TYPE BAPIBUS20001_HEADER_INS,
ITAB_HEADER TYPE STANDARD TABLE OF BAPIBUS20001_HEADER_INS,
ITAB_CREATED_PROCESS TYPE STANDARD TABLE OF BAPIBUS20001_HEADER_INS,
ITAB_OBJECTS_TO_SAVE TYPE STANDARD TABLE OF BAPIBUS20001_GUID_DIS,
ITAB_PARTNER TYPE STANDARD TABLE OF BAPIBUS20001_PARTNER_INS,
WA_PARTNER TYPE BAPIBUS20001_PARTNER_INS,
ITAB_RETURN TYPE STANDARD TABLE OF BAPIRET2,
WA_OBJECTS_TO_SAVE LIKE LINE OF ITAB_OBJECTS_TO_SAVE,
"To store the Objects to be saved.
WA_CREATED_PROCESS LIKE LINE OF ITAB_CREATED_PROCESS,
ITAB_SAVED_OBJECTS TYPE STANDARD TABLE OF BAPIBUS20001_OBJECT_ID,
WA_SAVED_OBJECTS LIKE LINE OF ITAB_SAVED_OBJECTS,
GC_X type c.
gc_x = 'x'.
CALL FUNCTION 'GUID_CREATE'
IMPORTING
ev_guid_32 = lv_header_guid.
CLEAR : WA_HEADER.
* Passing the respective values from the Header table to internal table.
WA_HEADER-GUID = LV_HEADER_GUID.
WA_HEADER-PROCESS_TYPE = 'ZPOP'.
WA_HEADER-DESCRIPTION = 'testuday1'.
* WA_HEADER-POSTING_DATE = IN_IT_HEADER-ZZPOSTING_DATE.
* WA_HEADER-CREATED_BY = IN_IT_HEADER-ZZCREATED_BY.
* Appending the values to the ITAB_HEADER.
APPEND WA_HEADER TO ITAB_HEADER.
WA_PARTNER-REF_GUID = LV_HEADER_GUID.
WA_PARTNER-REF_KIND = 'A'.
WA_PARTNER-PARTNER_FCT = '00000020'.
WA_PARTNER-PARTNER_NO = '200000488'.
APPEND WA_PARTNER TO ITAB_PARTNER.
CALL FUNCTION 'BAPI_BUSPROCESSND_CREATEMULTI'
TABLES
HEADER = ITAB_HEADER
RETURN = ITAB_RETURN
PARTNER = ITAB_PARTNER
CREATED_PROCESS = itab_created_process.
* ITEM = ITAB_ITEM
* PARTNER = ITAB_PARTNER
* APPOINTMENT = ITAB_APPOINTMENT
* INPUT_FIELDS = ITAB_INPUT_FIELDS
* CREATED_PROCESS = ITAB_CREATED_PROCESS
* RETURN = ITAB_RETURN
* TEXT = ITAB_TEXT
* SCHEDULELINE = ITAB_SCHED
* PRICING = ITAB_PRICING.
READ TABLE ITAB_CREATED_PROCESS INTO WA_CREATED_PROCESS WITH KEY GUID = LV_HEADER_GUID BINARY SEARCH.
WA_OBJECTS_TO_SAVE-GUID = WA_CREATED_PROCESS-GUID.
* Appending the Guid of the contract to be saved to the internal table
APPEND WA_OBJECTS_TO_SAVE TO ITAB_OBJECTS_TO_SAVE.
CALL FUNCTION 'BAPI_BUSPROCESSND_SAVE'
EXPORTING
update_task_local = space
save_frame_log = GC_X
TABLES
objects_to_save = itab_objects_to_save
saved_objects = itab_saved_objects
return = itab_return.
* Calling the Standard BAPI to Commit the transcation.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.