Repository.Pool.UpdatePool: Difference between revisions

Revision as of 21:36, 19 September 2013

UpdatePool( ByVal pool As cPool) As Boolean
Updates the spare parts Pool in the repository.

pool The pool to update in the repository.

Declare a new repository connection class.

       Private WithEvents MyRepository As New Repository

Connect to the Synthesis repository.

       Dim Success As Boolean = False
       Success = MyRepository.ConnectToRepository("RepositoryFileNamePath")

Get the list of Pools in the connected repository.

       Dim ListOfPools() As cPool
       ListOfPools = MyRepository.GetAllPools()

After modifying the Pool, Update the repository.

       Dim SuccessUpdatePool As Boolean = False
       SuccessUpdatePool = MyRepository.UpdatePool(ListOfPools(0))

@@ Line 2: / Line 2: @@
 == Property Syntax  ==
+{{APIName|UpdatePool(}}
+{{APIPrefix|ByVal}}
+{{APIName|pool}}
+{{APIPrefix|As}}
+{{APIName|[[cPool Class|cPool]])}}
+{{APIPrefix|As Boolean}}<br>
+{{APIComment|Updates the spare parts Pool in the repository.}}
-{{Template:UpdatePool}}
+== Parameters ==
+'''pool'''
+{{APIComment|The pool to update in the repository.}}
+== Usage Example ==
+{{APIComment|Declare a new repository connection class.}}
+        Private WithEvents MyRepository As New Repository
+{{APIComment|Connect to the Synthesis repository.}}
+        Dim Success As Boolean = False
+        Success = MyRepository.ConnectToRepository("RepositoryFileNamePath")
+{{APIComment|Get the list of Pools in the connected repository.}}
+        Dim ListOfPools() As [[cPool Class|cPool]]
+        ListOfPools = MyRepository.GetAllPools()
+{{APIComment|After modifying the Pool, Update the repository.}}
+        Dim SuccessUpdatePool As Boolean = False
+        SuccessUpdatePool = MyRepository.UpdatePool(ListOfPools(0))