Unable to instantiate class CL_CGPLP_PROJECT

Question

Hi All,
The requirement is to Release the Trade Promotion Mangement for settlement. For this there is a method of the class CL_CRM_MKTPL_COST_ASSIGNMENT=>RELEASE_FOR_SETTLEMENT which will release the TPM. But for this one of the arguments that you will have to pass is the instantiated object CL_CGPLP_PROJECT. To instantiate the CL_CGPLP_PROJECT I need to pass some attributes which I do but it ends up in a dump saying MISSING_OBJECT_MANAGER. Following is the code:
  DATA: TPM TYPE REF TO CL_CGPL_PROJECT,
        TPM_ATTR TYPE CRM_MKTPL_ATTR,
        TRADE_SPEND TYPE CRMS_MKTPL_COST_TAB,
        L_TRADE_SPEND TYPE LINE OF CRMS_MKTPL_COST_TAB,
        L_TPM TYPE CGPL_PROJECT,
        ID TYPE CGPL_PROJECT-EXTERNAL_ID,
        L_REF_NUMBER     TYPE CGPL_EXTID,
        L_ATTR TYPE CGPL_R3_ATTRIBUT.
CLASS CL_CGPL_PROJECT DEFINITION LOAD.
Convert GUID to external TPM ID cos some of the tables access the
*External ID
  CALL FUNCTION 'CONVERSION_EXIT_CGPLP_OUTPUT'
    EXPORTING
      INPUT  = GUID
    IMPORTING
      OUTPUT = ID.
  MOVE ID TO L_REF_NUMBER.
*Prepare to instantiate the object
  SELECT SINGLE * FROM CGPL_PROJECT INTO L_TPM
                  WHERE EXTERNAL_ID = ID.
  SELECT SINGLE * FROM CRM_MKTPL_ATTR INTO TPM_ATTR WHERE GUID = GUID.
  SELECT * FROM CRMD_MKTPL_COSTA INTO TABLE TRADE_SPEND
                WHERE PROJECT_GUID = GUID.
  SELECT SINGLE * FROM CGPL_R3_ATTRIBUT INTO L_ATTR WHERE GUID = GUID.
*Instatiate the Project Object.
  CREATE OBJECT TPM
    EXPORTING
      IM_ATTRIBUTES = L_TPM
      IM_FETCH_TASKS = SPACE
   IM_NEW_CREATE =
    IM_R3_ATTRIBUTES = L_ATTR
   IM_RAISE_EVENT = 'X'
      IM_REF_NUMBER = ID
  EXCEPTIONS
    FAILED = 1
    others = 2
  IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
But once I try to instantiate the Project class it goes for a dump. Any help in this regard would be helpful.
Best Regards,
Sudhi

Answer 1

Hi Sudhindra,
I also faced similar problem but was able to resolve it by first calling CL_CGPL_OBJECT_MANAGER=>GET_INSTANCE before instantiating CL_CGPL_PROJECT. Pls see my code below. Hope this helps you avoiding short dump.
Regards
Krishna
<b>REPORT kp message-id zcrm_mkt.
DATA: GUID TYPE CGPL_GUID16,
      l_CRM_MKTPL_MKTELEMENT TYPE CRM_MKTPL_MKTELEMENT.
DATA:  lr_appl_base TYPE REF TO cl_crm_mktpl_appl_base,
       lr_obj_manager TYPE REF TO cl_cgpl_object_manager,
       l_app_type TYPE CGPL_APPLICATION_TYPE.
DATA: z_cgpl_persistency TYPE REF TO cl_cgpl_persistency.
DATA: z_project TYPE REF TO cl_cgpl_project,
      l_im_attributes TYPE cgpl_project,
      l_object_type TYPE cgpl_object_type,
     l_children TYPE CGPL_HIERARCHY_NODES,
     l_parent type CGPL_GUIDTAB_TYPE,
      l_im_guid TYPE CGPL_GUID16,
      l_hierarchy TYPE CGPL_HIERARCHY.
select SINGLE * INTO l_im_attributes FROM cgpl_project WHERE external_id = 'MF/843.A.BB.CC'.
l_app_type = 'MKT'.
CALL METHOD CL_CGPL_OBJECT_MANAGER=>GET_INSTANCE
  EXPORTING
    IM_APPLICATION_TYPE = l_app_type
  IMPORTING
    EX_INSTANCE         = lr_obj_manager
  EXCEPTIONS
    NOT_FOUND           = 1
    others              = 2.
IF SY-SUBRC <> 0.
  MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
             WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CREATE OBJECT Z_PROJECT
  EXPORTING
    IM_ATTRIBUTES = l_im_attributes
    IM_FETCH_TASKS = 'X'
   IM_R3_ATTRIBUTES =
    IM_RAISE_EVENT = 'X'
   IM_REF_NUMBER =
  EXCEPTIONS
    FAILED = 1
    others = 2
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CALL METHOD Z_PROJECT->GET_OBJECT_TYPE
  IMPORTING
    EX_OBJECT_TYPE = l_object_type.
write: l_object_type.</b>