method CopyDocumentAttachments

Description

Copy all document attachments of an existing business object to a new business object. Any existing document attachments on the new business object will be removed.

Parameters

icComponentName	input	character	name of the business component (can be found in vcFcComponentName)
iiFromCompanyID	input	integer	in case the parent object is scoped to a single company, give the ID of the company that it is created in
iiFromSharedSetID	input	integer	in case the parent object is scoped to a shared set, give the ID of the shared set that it is created in
icFromParentObjectKey	input	character	give an identification for the parent object
iiToCompanyID	input	integer	in case the parent object is scoped to a single company, give the ID of the company that it is created in
iiToSharedSetID	input	integer
icToParentObjectKey	input	character	give an identification for the parent object
ocResponse	output	character	Response will be empty when the operation was succesful

Internal usage

unused

program code (program1/tdocumentlink.p)

/* copy nothing if no documents exist */
<M-72 run CollectionExists
   (input  vcWebdavRoot + 'attachments/' + icComponentName + '/' + string(iiFromCompanyID) + '/' + string(iiFromSharedsetID) + '/' + icFromParentObjectKey (icPath), 
    output vlExists (olExists)) in TDocumentLink>
if not vlExists
then return.

<M-54 run CopyResource
   (input  'attachments/' + icComponentName + '/' + string(iiFromCompanyID) + '/' + string(iiFromSharedsetID) + '/' + icFromParentObjectKey (icCreatePath), 
    input  'attachments/' + icComponentName + '/' + string(iiToCompanyID) + '/' + string(iiToSharedsetID) + '/' + icToParentObjectKey (icCopyPath), 
    output ocResponse (ocResponse)) in TDocumentLink>