Archivelink as attachment

Question

Hi All,
          Requirement is to display the Archivelink document in a R/3 workflow using task 30100047 ( method ARCHIVELINKOBJECT-DISPLAY ) , create invoice and assign which is fine , but send a workitem to an SRM user so that he can view the Archivelink object . Can this be done ?
Radha

Answer 1

Hi,
You will have to use the function module 'ARCHIV_CONNECTION_INSERT' to acheive this functionality. While creating the transaction you will have to do this inorder for the attachment to be available. The following code might be of help to you:
FUNCTION ZCREATE_ATTACHMENT.
""Local interface:
*"  IMPORTING
*"     VALUE(AR_OBJECT) TYPE  TOAOM-AR_OBJECT          ZUS2000126
*"     VALUE(SAP_OBJECT) TYPE  TOAOM-SAP_OBJECT         BUS2000126
*"     VALUE(OBJECT_ID) TYPE  SAPB-SAPOBJID             GUID
*"  EXPORTING
*"     VALUE(MESSAGE) TYPE  CHAR255
*START OF ATTACHMENT
  DATA: DOC_ID TYPE TOAV0-ARC_DOC_ID.
  DATA: KEY TYPE SAPB-SAPOBJID,
        V_ORDER TYPE CRMD_ORDERADM_H.
  CALL FUNCTION 'SCMS_AO_FILE_CREATE'
    EXPORTING
      ARC_ID       = 'AL'
      FILE         = 'Call_Report.doc'
      PATH         = 'D:\usr\sap\L2Z\DVEBMGS20\work\'
      DOC_TYPE     = 'DOC'
    IMPORTING
      DOC_ID       = DOC_ID
    EXCEPTIONS
      ERROR_HTTP   = 1
      ERROR_ARCHIV = 2
      ERROR_KERNEL = 3
      ERROR_CONFIG = 4
      ERROR_FILE   = 5
      OTHERS       = 6.
  IF SY-SUBRC <> 0.
  ENDIF.
  IF SAP_OBJECT EQ 'BUS2000116'.
    SELECT SINGLE * FROM CRMD_ORDERADM_H INTO V_ORDER
                    WHERE OBJECT_ID EQ OBJECT_ID
                    AND OBJECT_TYPE EQ 'BUS2000116'
                    AND PROCESS_TYPE EQ 'ZSE1'.
    MOVE V_ORDER-GUID TO OBJECT_ID.
  ENDIF.
  CALL FUNCTION 'ARCHIV_CONNECTION_INSERT'
    EXPORTING
      ARC_DOC_ID            = DOC_ID
      AR_OBJECT             = AR_OBJECT
      MANDANT               = '800'
      OBJECT_ID             = OBJECT_ID
      SAP_OBJECT            = SAP_OBJECT
      DOC_TYPE              = 'DOC'
    EXCEPTIONS
      ERROR_CONNECTIONTABLE = 1
      OTHERS                = 2.
  IF SY-SUBRC <> 0.
  ELSE.
    MESSAGE = 'Attachment created successfully'.
  ENDIF.
*END OF ATTACHMENT
ENDFUNCTION.
Hope this helps,
Sudhi