Repository.Pool.UpdatePool: Difference between revisions

From ReliaWiki
Jump to navigation Jump to search
No edit summary
 
(17 intermediate revisions by 5 users not shown)
Line 1: Line 1:
{{Template:APIClass|Repository Class|Repository}}
{{Template:API}}{{Template:APIBreadcrumb|.[[Repository Class|Repository]]}}


== 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.}}


== Parameters ==
<onlyinclude>Updates the properties of a given spare part pool in the current project. Returns a '''Boolean''' value; when true, indicates a successful update.</onlyinclude> 
'''pool'''
{{APIComment|The pool to update in the repository.}}


== Usage Example ==
== Syntax ==
{{APIComment|Declare a new repository connection class.}}
'''.Pool.UpdatePool'''(''pool'')
        Private WithEvents MyRepository As New Repository


{{APIComment|Connect to the Synthesis repository.}}
=== Parameters ===
        Dim Success As Boolean = False
''pool''
        Success = MyRepository.ConnectToRepository("RepositoryFileNamePath")
:Required. The [[CPool Class|cPool]] object that represents the spare part pool to be updated.


{{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.}}
== Example ==
        Dim SuccessUpdatePool As Boolean = False
This example assumes that a spare part pool with ID #1 exists in the first available project of a repository.
        SuccessUpdatePool = MyRepository.UpdatePool(ListOfPools(0))
 
'''VBA'''
{{APIComment|'Declare a new Repository object and connect to a Synthesis repository.}}
  {{APIPrefix|Dim}} MyRepository {{APIPrefix|As New}} Repository
  MyRepository.ConnectToAccessRepository({{APIString|"C:\RSRepository1.rsr10"}})
 
{{APIComment|'Get spare part pool #1 from project #1.}}
  {{APIPrefix|Dim}} MyPool {{APIPrefix|As}} cPool
  MyRepository.Project.SetCurrentProject(1) 
  {{APIPrefix|Set}} MyPool = MyRepository.Pool.GetPool(1)
{{APIComment|'Change the pool's name to "New_Name."}}
  MyPool.Name = {{APIString|"New_Name"}}
{{APIComment|'Send the change to the Synthesis repository.}}
  {{APIPrefix|Call}} MyRepository.Pool.UpdatePool(MyPool)
 
'''VB.NET'''
{{APIComment|'Declare a new Repository object and connect to a Synthesis repository.}}
  {{APIPrefix|Dim}} MyRepository {{APIPrefix|As New}} Repository
  MyRepository.ConnectToAccessRepository({{APIString|"C:\RSRepository1.rsr10"}})
 
{{APIComment|'Get spare part pool #1 from project #1.}}
  {{APIPrefix|Dim}} MyPool {{APIPrefix|As}} cPool
  MyRepository.Project.SetCurrentProject(1) 
  MyPool = MyRepository.Pool.GetPool(1)
{{APIComment|'Change the pool's name to "New_Name."}}
  MyPool.Name = {{APIString|"New_Name"}}
{{APIComment|'Send the change to the Synthesis repository.}}
  MyRepository.Pool.UpdatePool(MyPool)

Latest revision as of 17:29, 9 June 2016

APIWiki.png


Member of: SynthesisAPI.Repository


Updates the properties of a given spare part pool in the current project. Returns a Boolean value; when true, indicates a successful update.

Syntax

.Pool.UpdatePool(pool)

Parameters

pool

Required. The cPool object that represents the spare part pool to be updated.


Example

This example assumes that a spare part pool with ID #1 exists in the first available project of a repository. 

VBA

 'Declare a new Repository object and connect to a Synthesis repository. 
  Dim MyRepository As New Repository
  MyRepository.ConnectToAccessRepository("C:\RSRepository1.rsr10")
  
 'Get spare part pool #1 from project #1. 
  Dim MyPool As cPool
  MyRepository.Project.SetCurrentProject(1)  
  Set MyPool = MyRepository.Pool.GetPool(1)

 'Change the pool's name to "New_Name." 
  MyPool.Name = "New_Name"

 'Send the change to the Synthesis repository. 
  Call MyRepository.Pool.UpdatePool(MyPool)

VB.NET

 'Declare a new Repository object and connect to a Synthesis repository. 
  Dim MyRepository As New Repository
  MyRepository.ConnectToAccessRepository("C:\RSRepository1.rsr10")
  
 'Get spare part pool #1 from project #1. 
  Dim MyPool As cPool
  MyRepository.Project.SetCurrentProject(1)  
  MyPool = MyRepository.Pool.GetPool(1)

 'Change the pool's name to "New_Name." 
  MyPool.Name = "New_Name"

 'Send the change to the Synthesis repository. 
  MyRepository.Pool.UpdatePool(MyPool)
Retrieved from "https://www.reliawiki.com/index.php?title=Repository.Pool.UpdatePool&oldid=64263"