Repository.Pool.AddPool

Property 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)