Repository.Pool.AddPool

Saves the spare parts pool in the repository. Returns True if successful, otherwise returns False.

Syntax

• AddPool( pool As cPool ) As Boolean

Parameters:

pool: The cPool to add.

Usage Example

 'Declare a new repository connection object. 
 Dim MyRepository As New Repository
 
 'Connect to the Synthesis repository. 
 Dim Success As Boolean = False
 Success = MyRepository.ConnectToRepository("RepositoryFileNamePath")
 
 'Set a first available project as current. 
 MyRepository.Project.SetCurrentProject(0)

 'Declare a new pool. 
 Dim newPool As New cPool("NewPool1")
 
 'Add the pool to the repository. 
 Dim SuccessAddPool As Boolean
 SuccessAddPool = MyRepository.Pool.AddPool(newPool)