Creating a new ticket

Question

Hi SAP GURUS!!!
I Have a requirement , I wanna create a new duplicate ticket for an existing ticket in the same system.And the details in the original ticket should reflect in duplicate ticket. I got the details of ORDERADM_H TABLE AND ACTIVITY_H table..
But the problem is in PARTNER TABLE.Where i am not getting the details present in partner table.
This is my code so please check and say any solution.
INCLUDE crm_object_names_con.
selection-screen begin of block b1 with frame title text-001.
PARAMETERS tic_no TYPE crmt_object_id_db.
selection-screen end of block b1.
DATA lv_header_guid TYPE crmt_object_guid.
DATA lt_header_guid TYPE crmt_object_guid_tab.
DATA lv_object_name TYPE crmt_object_name.
DATA: lt_orderadm_h TYPE crmt_orderadm_h_wrkt,
      ls_orderadm_h TYPE crmt_orderadm_h_wrk,
      lt_appointment TYPE crmt_appointment_wrkt,
      ls_appointment TYPE crmt_appointment_wrk,
      lt_service_h TYPE crmt_service_h_wrkt,
      it_orderadm_h1 TYPE crmt_orderadm_h_comt,
      ls_orderadm_h1 TYPE crmt_orderadm_h_com,
      lt_orderadm_i TYPE crmt_orderadm_i_wrkt,
      lt_status TYPE crmt_status_wrkt,
      lt_request_objs TYPE crmt_object_name_tab,
      it_exception TYPE crmt_exception_t,
      et_objects_to_save TYPE crmt_object_guid_tab,
      it_saved_objects TYPE crmt_return_objects,
      cv_log_handle TYPE balloghndl,
      lt_customer_i TYPE crmt_customer_i_wrkt,
      es_status TYPE crmt_status_com,
      et_status TYPE crmt_status_comt,
      lt_sales TYPE   crmt_sales_wrkt,
      ls_sales TYPE crmt_sales_wrk,
      lv_ref_guid TYPE crmt_object_guid,
      wa LIKE LINE OF lt_orderadm_h.
*Temporary internal tables
DATA it_sales_temp TYPE crmt_sales_comt.
DATA ls_sales_temp TYPE crmt_sales_com.
*Declaration for read
DATA lt_partner TYPE crmt_partner_external_wrkt.
DATA ls_partner TYPE crmt_partner_external_wrk.
data lt_activity_h TYPE crmt_activity_h_wrkt.
data ls_activity_h TYPE crmt_activity_h_wrk.
*Declaration for maintain
DATA lt_partner1 TYPE crmt_partner_comt.
DATA ls_partner1 TYPE crmt_partner_com.
data it_activity_h1 TYPE crmt_activity_h_comt.
data ls_activity_h1 TYPE crmt_activity_h_com.
CLEAR lv_header_guid.
SELECT SINGLE guid FROM crmd_orderadm_h INTO lv_header_guid
                                        WHERE object_id = tic_no.
IF sy-subrc NE 0.
  EXIT.
ENDIF.
INSERT lv_header_guid INTO TABLE lt_header_guid.
     Preparing required objects for read              **
MOVE 'ORDERADM_H' TO lv_object_name.
INSERT lv_object_name   INTO TABLE lt_request_objs.
MOVE 'ACTIVITY_H' TO lv_object_name.
INSERT lv_object_name   INTO TABLE lt_request_objs.
MOVE 'SALES' TO lv_object_name.
INSERT lv_object_name      INTO TABLE lt_request_objs.
MOVE 'SERVICE_H' TO lv_object_name.
INSERT lv_object_name INTO TABLE lt_request_objs.
MOVE 'APPOINTMENT' TO lv_object_name.
INSERT lv_object_name  INTO TABLE lt_request_objs.
MOVE 'STATUS' TO lv_object_name.
INSERT lv_object_name INTO TABLE lt_request_objs.
MOVE 'STATUS_H' TO lv_object_name.
INSERT lv_object_name  INTO TABLE lt_request_objs.
MOVE 'PARTNER' TO lv_object_name.
INSERT lv_object_name  INTO TABLE lt_request_objs.
CALL FUNCTION 'CRM_ORDER_READ'
  EXPORTING
    it_header_guid       = lt_header_guid
    it_requested_objects = lt_request_objs
    iv_no_auth_check     = 'X'
  IMPORTING
    et_orderadm_h        = lt_orderadm_h
    et_orderadm_i        = lt_orderadm_i
    et_activity_h        = lt_activity_h
    et_appointment       = lt_appointment
    et_partner           = lt_partner
    et_service_h         = lt_service_h
    et_status            = lt_status
    et_sales             = lt_sales
  EXCEPTIONS
    document_not_found   = 1
    error_occurred       = 2
    document_locked      = 3
    no_change_authority  = 4
    no_display_authority = 5
    no_change_allowed    = 6.
DATA:
    ls_input_field        TYPE  crmt_input_field,
    ls_input_field_names  TYPE  crmt_input_field_names,
    it_orderadm_h      TYPE  crmt_orderadm_h_comt   ,
    it_activity_h      TYPE crmt_orderadm_h_comt,
    it_input_fields    TYPE  crmt_input_field_tab    ,
    lv_log_handle      TYPE  balloghndl,
    lt_saved_objects   TYPE  crmt_return_objects,
    lt_obj_guids       TYPE  crmt_object_guid_tab.
*PREPARING INPUT FIELDS FOR ORDERADM
IF lt_orderadm_h[] IS NOT INITIAL.
  READ TABLE lt_orderadm_h INTO ls_orderadm_h INDEX 1.
  MOVE-CORRESPONDING ls_orderadm_h TO ls_orderadm_h1.
ls_orderadm_h1-handle = 1.
ls_orderadm_h1-guid = ls_orderadm_h-guid.
  ls_orderadm_h1-mode         = 'A' .
  ls_orderadm_h1-process_type = 'SLFN'.
  ls_orderadm_h1-handle = 1.
  INSERT ls_orderadm_h1 INTO TABLE it_orderadm_h1.
ENDIF.
ls_input_field-ref_handle =  1.
ls_input_field-ref_kind  = 'A'.
ls_input_field-objectname  = 'ORDERADM_H'.
ls_input_field_names-fieldname = 'PROCESS_TYPE'.
INSERT ls_input_field_names INTO TABLE ls_input_field-field_names.
*ls_input_field_names-fieldname = 'PROCESS_TYPE'.
*INSERT ls_input_field_names INTO TABLE ls_input_field-field_names.
ls_input_field_names-fieldname = 'DESCRIPTION'.
INSERT ls_input_field_names INTO TABLE ls_input_field-field_names.
ls_input_field_names-fieldname = 'POSTING_DATE'.
INSERT ls_input_field_names INTO TABLE ls_input_field-field_names.
INSERT ls_input_field  INTO TABLE  it_input_fields.
*PREPARING INPUT FIELDS FOR PARTNER
IF lt_partner[] IS NOT INITIAL.
  READ TABLE lt_partner INTO ls_partner INDEX 1.
  MOVE-CORRESPONDING ls_partner TO ls_partner1.
   ls_partner1-mode         = 'A' .
  ls_partner1-REF_PARTNER_FCT = 111.
  ls_partner1-ref_handle = 1.
  ls_partner1-ref_guid = ls_orderadm_h-guid.
  INSERT ls_partner1 INTO TABLE lt_partner1.
ENDIF.
ls_input_field-ref_handle =  1.
ls_input_field-ref_kind  = 'A'.
ls_input_field-objectname  = 'PARTNER'.
*ls_input_field_names-fieldname = 'REF_PARTNER_NO'.
ls_input_field_names-fieldname = 'DISPLAY_TYPE'.
INSERT ls_input_field_names INTO TABLE ls_input_field-field_names.
ls_input_field_names-fieldname = 'KIND_OF_ENTRY'.
INSERT ls_input_field_names INTO TABLE ls_input_field-field_names.
ls_input_field_names-fieldname = 'NO_TYPE'.
INSERT ls_input_field_names INTO TABLE ls_input_field-field_names.
ls_input_field_names-fieldname = 'PARTNER_FCT'.
INSERT ls_input_field_names INTO TABLE ls_input_field-field_names.
ls_input_field_names-fieldname = 'PARTNER_NO'.
INSERT ls_input_field_names INTO TABLE ls_input_field-field_names.
INSERT ls_input_field  INTO TABLE  it_input_fields.
*PREPARING INPUT FIELDS FOR ACTIVITY
IF lt_activity_h[] IS NOT INITIAL.
  READ TABLE lt_activity_h INTO ls_activity_h INDEX 1.
  MOVE-CORRESPONDING ls_activity_h TO ls_activity_h1.
  ls_activity_h1-ref_handle = 1.
ls_orderadm_h1-guid = ls_orderadm_h-guid.
ls_activity_h1-ref_guid        = 'A' .
LS_ACTIVITY_H1-PRIORITY = 5.
ls_activity_h1-handle = 1.
  INSERT ls_activity_h1 INTO TABLE it_activity_h1.
ENDIF.
*ls_input_field-ref_handle =  1.
*ls_input_field-ref_kind  = 'A'.
**ls_activity_h1-ref_GUID        = LS_ORDERADM_H-GUID .
ls_input_field-objectname  = 'ACTIVITY_H'.
ls_input_field_names-fieldname = 'PRIORITY'.
INSERT ls_input_field_names INTO TABLE ls_input_field-field_names.
INSERT ls_input_field  INTO TABLE  it_input_fields.
CALL FUNCTION 'DIALOG_SET_NO_DIALOG'.
CALL FUNCTION 'CRM_ORDER_MAINTAIN'
  EXPORTING
    it_activity_h   = it_activity_h1
    it_partner      = lt_partner1
  IMPORTING
    et_exception    = it_exception
  CHANGING
    ct_orderadm_h   = it_orderadm_h1
    ct_input_fields = it_input_fields
    cv_log_handle   = lv_log_handle.
LOOP AT it_orderadm_h1 INTO ls_orderadm_h1.
  INSERT ls_orderadm_h1-guid INTO TABLE lt_obj_guids.
ENDLOOP.
LOOP AT lt_partner1 INTO ls_partner1.
  INSERT ls_partner1-ref_guid INTO TABLE lt_obj_guids.
ENDLOOP.
CALL FUNCTION 'CRM_ORDER_SAVE'
  EXPORTING
    it_objects_to_save = lt_obj_guids
  IMPORTING
    et_saved_objects   = lt_saved_objects.
COMMIT WORK.
MESSAGE 'done' TYPE 'I' display like 'S'.

Answer 1

hi hardik,
I want to create a duplicate ticket from the original ticket from the same system.It is a report.
I  am getting ORDERADM_H AND ACTIVITY_H  table values IN THE DUPLICATE TICKET FROM THE ORIGINAL TICKET. But i am not getting the values present in PARTNER Table.
So for that i have posted my code.I am getting the values of PARTNER table  by putting the breakpoint in debugger.But i am not getting in the screen.
Can you suggest any code for that partner table
Regards,
Prabhushankar
Edited by: prabhushankar.b on Apr 7, 2011 9:55 AM