Repository.Crew.UpdateCrew: Difference between revisions

From ReliaWiki
Jump to navigation Jump to search
No edit summary
No edit summary
Line 2: Line 2:




<onlyinclude>Applies any changes made to an existing crew. Returns a '''Boolean''' value; when true, indicates a successful save.</onlyinclude>   
<onlyinclude>Sends any changes made to an existing crew resource to the Synthesis repository. Returns a '''Boolean''' value; when true, indicates a successful save.</onlyinclude>   


== Syntax ==
== Syntax ==
Line 17: Line 17:
  '''VBA'''
  '''VBA'''
   
   
  {{APIComment|'Add code to connect to a Synthesis repository.}}
  {{APIComment|'Declare a new Repository object and connect to a Synthesis repository.}}
   {{APIPrefix|Dim}} MyRepository {{APIPrefix|As New}} Repository
   {{APIPrefix|Dim}} MyRepository {{APIPrefix|As New}} Repository
  {{APIComment|...}}
  MyRepository.ConnectToAccessRepository({{APIString|"C:\RSRepository1.rsr10"}})
 
 
  {{APIComment|'Get crew #1 from project #1.}}
  {{APIComment|'Get crew #1 from project #1.}}
  {{APIPrefix|Dim}} MyCrew {{APIPrefix|As}} cCrew
  {{APIPrefix|Dim}} MyCrew {{APIPrefix|As}} cCrew
  MyRepository.Project.SetCurrentProject(1)   
  MyRepository.Project.SetCurrentProject(1)   
  {{APIPrefix|Set}} MyCrew = MyRepository.Crew.GetCrew(1)
  {{APIPrefix|Set}} MyCrew = MyRepository.Crew.GetCrew(1)
   
   
  {{APIComment|'Change the crew's name to "New_Name."}}
  {{APIComment|'Change the crew's name to "New_Name."}}
  MyCrew.Name = {{APIString|"New_Name"}}
  MyCrew.Name = {{APIString|"New_Name"}}
   
   
  {{APIComment|'Apply the change to the crew. Changes are recorded in the Synthesis repository.}}
  {{APIComment|'Send the change to the Synthesis repository.}}
  {{APIPrefix|Call}} MyRepository.Crew.UpdateCrew(MyCrew)
  {{APIPrefix|Call}} MyRepository.Crew.UpdateCrew(MyCrew)


  '''VB.NET'''
  '''VB.NET'''
   
   
  {{APIComment|'Add code to connect to a Synthesis repository.}}
  {{APIComment|'Declare a new Repository object and connect to a Synthesis repository.}}
   {{APIPrefix|Dim}} MyRepository {{APIPrefix|As New}} Repository
   {{APIPrefix|Dim}} MyRepository {{APIPrefix|As New}} Repository
  {{APIComment|...}}
  MyRepository.ConnectToAccessRepository({{APIString|"C:\RSRepository1.rsr10"}})
 
 
  {{APIComment|'Get crew #1 from project #1.}}
  {{APIComment|'Get crew #1 from project #1.}}
  {{APIPrefix|Dim}} MyCrew {{APIPrefix|As}} cCrew
  {{APIPrefix|Dim}} MyCrew {{APIPrefix|As}} cCrew
  MyRepository.Project.SetCurrentProject(1)   
  MyRepository.Project.SetCurrentProject(1)   
  MyCrew = MyRepository.Crew.GetCrew(1)
  MyCrew = MyRepository.Crew.GetCrew(1)
   
   
  {{APIComment|'Change the crew's name to "New_Name."}}
  {{APIComment|'Change the crew's name to "New_Name."}}
  MyCrew.Name = {{APIString|"New_Name"}}
  MyCrew.Name = {{APIString|"New_Name"}}
   
   
  {{APIComment|'Apply the change to the crew. Changes are recorded in the Synthesis repository.}}
  {{APIComment|'Send the change to the Synthesis repository.}}
  MyRepository.Crew.UpdateCrew(MyCrew)
  MyRepository.Crew.UpdateCrew(MyCrew)

Revision as of 18:36, 8 April 2016

APIWiki.png


Member of: SynthesisAPI.Repository


Sends any changes made to an existing crew resource to the Synthesis repository. Returns a Boolean value; when true, indicates a successful save.

Syntax

.Crew.UpdateCrew(crew)

Parameters

crew

Required. The cCrew object to be updated.


Example

This example assumes that a crew 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 crew #1 from project #1. 
  Dim MyCrew As cCrew
  MyRepository.Project.SetCurrentProject(1)  
  Set MyCrew = MyRepository.Crew.GetCrew(1)

 'Change the crew's name to "New_Name." 
  MyCrew.Name = "New_Name"

 'Send the change to the Synthesis repository. 
  Call MyRepository.Crew.UpdateCrew(MyCrew)
VB.NET

 'Declare a new Repository object and connect to a Synthesis repository. 
  Dim MyRepository As New Repository
  MyRepository.ConnectToAccessRepository("C:\RSRepository1.rsr10")
  
 'Get crew #1 from project #1. 
  Dim MyCrew As cCrew
  MyRepository.Project.SetCurrentProject(1)  
  MyCrew = MyRepository.Crew.GetCrew(1)

 'Change the crew's name to "New_Name." 
  MyCrew.Name = "New_Name"

 'Send the change to the Synthesis repository. 
  MyRepository.Crew.UpdateCrew(MyCrew)