Repository.Pool.AddPool

Adds a spare parts pool

Method Syntax

AddPool( ByVal pool As cPool) As Boolean
Saves the spare parts pool in the repository.

Parameters

pool The pool to add to the repository.

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)