Copy of the Attachments from a Opportunity to a Activity

Question

Hello SAP Experts!!!
I have a requirement when creating a Activity as an Follow-Up Document from an Opportunity that the Attachments of the Opportunity have to be copied to the Activity.
I have looked at BADI: CRM_COPY_BADI but I found out that the Structures of the BADI doesnt have the fields to put information of the attachments,  so I think its useless to my case.
By doing a debugging I found out that by pressing the button "Create Follow Up Document" in the Opportunity that in the component BT111H_OPPT (View: OpportunityOVViewSet) method : EH_ONFOLLOWUP is called. Then in method BT126H_APPT in the Main Window the Method: IP_FOLLOWUP  is called.
Anybody knows what I can do or what method I have to redefine that I can see the Attachments of the Opportunity in my Activity Document?
Does anybody have experience what steps to make to copy attachments and can help me out?
Best Regards
Oliver Schultze
Edited by: Oliver Schultze on Feb 25, 2010 4:53 PM

Answer 1

Hello, just to clase this thread correctly I put the code I have used to copy the documents of an Opportunity to an Activity Document while creating an Follow-Up Document:
DATA: ls_bo_oppt        TYPE sibflporb,
        ls_bo_actv        TYPE sibflporb,
        lv_guid_oppt      TYPE crmt_object_guid,
        lv_guid_actv      TYPE crmt_object_guid,
        ls_new_loio       TYPE skwf_io,
        lt_phios          TYPE skwf_ios,
        ls_error          TYPE skwf_error,
        lt_bad_ios        TYPE skwf_ioerrs,
        lv_all_documents  TYPE skwf_flag.
  MOVE is_ref_orderadm_h-guid TO lv_guid_oppt.
  MOVE cs_orderadm_h-guid     TO lv_guid_actv.
  ls_bo_oppt-instid = lv_guid_oppt.
  ls_bo_oppt-typeid = 'BUS2000111'.
  ls_bo_oppt-catid  = 'BO'.
  ls_bo_actv-instid = lv_guid_actv.
  ls_bo_actv-typeid = 'BUS2000126'.
  ls_bo_actv-catid  = 'BO'.
  lv_all_documents   = 'X'.
  CALL METHOD cl_crm_documents=>copy
    EXPORTING
       business_object      = ls_bo_oppt
       new_business_object  = ls_bo_actv
       all_documents        = lv_all_documents
    IMPORTING
      new_loio              = ls_new_loio
      new_phios             = lt_phios
      error                 = ls_error
      bad_ios               = lt_bad_ios
    EXCEPTIONS
      no_io                 = 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.
ENDMETHOD.