Creating follow up via report

Question

HI Experts,
I have requirement to create follow up document via report program from quote to sales order.
For this I am reading details from crm_order_read and passing to crm_order_maintain.
I am able to create sales order but not able provide link in transaction history.
How can I achieve this?
Any help will be much appreciated and rewarded.
Thanks & Regards,
Anil

Answer 1

Thanks again.
Ya..followup is created without the product and quantity.
Please find my below code.
ls_orderadm_h-process_type = 'ZOR'.
ls_input_names-fieldname = 'PROCESS_TYPE'.
INSERT ls_input_names INTO TABLE ls_input_field-field_names.
* add to header data
ls_orderadm_h-guid = lv_header_guid .
INSERT ls_orderadm_h INTO TABLE lt_orderadm_h_hlp.
* add to input fields
ls_input_field-objectname = 'ORDERADM_H'.
ls_input_field-ref_handle = '100'.
INSERT ls_input_field INTO TABLE lt_input_field.
REFRESH ls_input_field-field_names.
ls_predecessor-pred_guid = lv_header_ref.
ls_predecessor-handle    = ls_orderadm_h-handle.
INSERT ls_predecessor INTO TABLE lt_predecessor.
CALL FUNCTION 'CRM_COPY_PROCESS_PREPARE'
EXPORTING
it_orderadm_h     = lt_orderadm_h_hlp
it_orderadm_i_ref = lt_orderadm_i_ref
it_predecessor    = lt_predecessor
iv_vona_kind      = 'A'
IMPORTING
*       ET_DOC_FLOW       =
et_orderadm_i     = lt_orderadm_i
et_orderadm_h     = lt_orderadm_h
CHANGING
ct_input_fields   = lt_input_field
* EXCEPTIONS
*       ERROR_OCCURRED    = 1
*       OTHERS            = 2
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.
DATA :lt_doc_link3    TYPE crmt_doc_flow_extdt,
ls_doc_link3    TYPE crmt_doc_flow_extd,
lt_input_field1 TYPE crmt_input_field_tab,
ls_input_field1 TYPE crmt_input_field,
ls_inputnames1  TYPE crmt_input_field_names,
lt_inputnames1  TYPE crmt_input_field_names_tab.
BREAK-POINT.
CALL FUNCTION 'CRM_ORDER_MAINTAIN'
*      EXPORTING
*      IMPORTING
*       ET_EXCEPTION    =
CHANGING
ct_orderadm_h   = lt_orderadm_h
ct_orderadm_i   = lt_orderadm_i
ct_input_fields = lt_input_field
*       CV_LOG_HANDLE   =
*       CT_PARTNER_ATTRIBUTES         =
*       ct_doc_flow     = lt_doc_link3
* EXCEPTIONS
*       ERROR_OCCURRED  = 1
*       DOCUMENT_LOCKED = 2
*       NO_CHANGE_ALLOWED             = 3
*       NO_AUTHORITY    = 4
*       OTHERS          = 5
Thanks
Anil