ReleaseFactory Object : AddItem Method |
Visual Basic |
---|
Public Function AddItem( _ ByVal ItemData As Variant _ ) As Object |
After calling AddItem, set values for the required Release fields:
After setting values for the required fields, post the Release.
Sub New_Release(relName, StartDate, EndDate) 'StartDate are EndDate of type Date Dim RelFolFact 'ReleaseFolderFactory Dim RelFol 'ReleaseFolder Dim RelFact 'ReleaseFactory Dim tdc Set tdc = TDConnection Set RelFolFact = tdc.ReleaseFolderFactory Set RelFol = RelFolFact.Item(ReleaseFolder_Fields("RF_ID").Value) Set RelFact = RelFol.ReleaseFactory Set Rel = RelFact.AddItem(Null) 'Required fields Rel.Name = relName Rel.StartDate = StartDate Rel.EndDate = EndDate Rel.Post End Sub