Aras Activity2 中的交付物自动汇总到 project 的 delvilable中

将本代码添加到 Activity2 的生命周期所用到的方法 onCompleteActivity 中，用于在Activity2 的状态改为完成后，将Activity2中的交付物汇总到Project
的 Project Docs中

'//获取innovator

Dim inno as Innovator=Me.getInnovator()

'//获取当前Activity2 的ID

Dim acID as String=Me.getID()

'//获取Activity2 对应的 项目编号 proj_num

Dim proj_num as Integer=Me.getProperty("proj_num")

'//根据项目编号，获取项目Item

Dim projitem as Item =inno.newItem("Project","get")

projitem.setProperty("project_number",proj_num)

projitem=projitem.apply()

'//

'//获取Activity2 中所有的 交付物，并将交付物汇总到 Project 中

Dim relatedItem as Item=inno.newItem("Activity2 Deliverable","get")

relatedItem.setProperty("source_id",acID）

relatedItem=relatedItem.apply()

Dim relatedItemCount as Integer=relatedItem.getItemCount()

If relatedItemCount>0 then

Dim i as Integer=0

For i=0 to relatedItemCount-1

Dim delivItem as Item =relatedItem.getItemByIndex(i).getRelatedItem()

Dim projDocItem as Item =inno.newItem("Project Docs","get")

projDocItem.setPropertyItem("source_id",projitem)

projDocItem.setPropertyItem("related_id",delivItem)

projDocItem=projDocItem.apply()

If projDocItem.isError() or projDocItem.isEmpty() then

Dim dItem as Item=inno.newItem("Project Docs","add")

dItem.setPropertyItem("source_id",projitem)

dItem.setPropertyItem("related_id",delivItem)

dItem.apply()

End If

next i

End If