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 class.

       Private WithEvents MyRepository As New Repository

Connect to the Synthesis repository.

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

Declare a new Pool.

       Dim newPool As New cPool("NewPool1")

Add the Pool to the repository.

       Dim SuccessAddPool As Boolean
       SuccessAddPool = MyRepository.AddPool(newPool)