TeamInfo.SetCrewIDs Method: Difference between revisions
Jump to navigation
Jump to search
No edit summary |
No edit summary |
||
Line 21: | Line 21: | ||
MyRepository.ConnectToAccessRepository({{APIString|"C:\RSRepository1.rsr19"}}) | MyRepository.ConnectToAccessRepository({{APIString|"C:\RSRepository1.rsr19"}}) | ||
{{APIComment|' | {{APIComment|'Set the IDs for existing crews}} | ||
{{APIPrefix|Dim}} | {{APIPrefix|Dim}} CrewIDs() {{APIPrefix|As}} Long | ||
{{APIPrefix|ReDim}} CrewIDs(2) | |||
{{APIPrefix|Set}} | CrewIDs(0) = 1 | ||
CrewIDs(1) = 4 | |||
CrewIDs(2) = 5 | |||
{{APIComment|'Create instance of TeamInfo.}} | |||
{{APIPrefix|Dim}} Team1 {{APIPrefix|As New}} TeamInfo | |||
{{APIComment|'Set the crew IDs for Team1.}} | |||
{{APIPrefix|Call}} Team1.SetCrewIDS(CrewIDs) | |||
{{APIComment|' | {{APIComment|'Do the same for another team.}} | ||
{{APIPrefix|ReDim}} CrewIDs(3) | |||
CrewIDs(0) = 3 | |||
CrewIDs(1) = 7 | |||
CrewIDs(2) = 8 | |||
CrewIDs(3) = 9 | |||
{{APIComment|'Create instance of TeamInfo.}} | |||
{{APIPrefix|Dim}} Team2 {{APIPrefix|As New}} TeamInfo | |||
{{APIComment|'Set the crew IDs for Team2.}} | |||
{{APIPrefix|Call}} Team2.SetCrewIDS(CrewIDs) | |||
{{APIComment|'Get | {{APIComment|'Get a particular task with ID of 2 from repository.}} | ||
{{APIPrefix|Dim}} aTask {{APIPrefix|As}} cCorrectiveTask | |||
{{APIPrefix|Set}} aTask = MyRespository.Task.GetCorrectiveTask(2) | |||
{{APIComment|' | {{APIComment|'Put the teams previously created into array.}} | ||
{{APIPrefix|Dim}} Teams(1) {{APIPrefix|As}} TeamInfo | |||
{{APIPrefix|Set}} Teams(0) = Team1 | |||
{{APIPrefix|Set}} Teams(1) = Team2 | |||
{{APIComment|'Assign teams to the task.}} | |||
{{APIPrefix|Call}} Task.SetTeams(Teams) | |||
{{APIComment|'Update task in repository.}} | |||
{{APIPrefix|Call}} MyRepository.Task.UpdateCorrectiveTask(Task) | |||
Revision as of 16:06, 13 March 2019
Member of: SynthesisAPI.TeamInfo
Sets the IDs of the crews included in the team.
Remarks: Designed for VB6/VBA users, .NET users should use CrewIDs property instead.
Syntax
.SetCrewIDs(ByRef arr())
Parameters
arr()
- Required as integer. An array of the crew IDs.
Example
VBA 'Declare a new Repository object and connect to a Synthesis repository. Dim MyRepository As New Repository MyRepository.ConnectToAccessRepository("C:\RSRepository1.rsr19") 'Set the IDs for existing crews Dim CrewIDs() As Long ReDim CrewIDs(2) CrewIDs(0) = 1 CrewIDs(1) = 4 CrewIDs(2) = 5 'Create instance of TeamInfo. Dim Team1 As New TeamInfo 'Set the crew IDs for Team1. Call Team1.SetCrewIDS(CrewIDs) 'Do the same for another team. ReDim CrewIDs(3) CrewIDs(0) = 3 CrewIDs(1) = 7 CrewIDs(2) = 8 CrewIDs(3) = 9 'Create instance of TeamInfo. Dim Team2 As New TeamInfo 'Set the crew IDs for Team2. Call Team2.SetCrewIDS(CrewIDs) 'Get a particular task with ID of 2 from repository. Dim aTask As cCorrectiveTask Set aTask = MyRespository.Task.GetCorrectiveTask(2) 'Put the teams previously created into array. Dim Teams(1) As TeamInfo Set Teams(0) = Team1 Set Teams(1) = Team2 'Assign teams to the task. Call Task.SetTeams(Teams) 'Update task in repository. Call MyRepository.Task.UpdateCorrectiveTask(Task)