Skip to Content
0
Dec 01, 2008 at 04:03 PM

Issue in created a contract through a program

25 Views

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'.