TeamInfo.SetCrewIDs Method - Revision history

David J. Groebel at 16:07, 13 March 2019

2019-03-13T16:07:47Z

← Older revision		Revision as of 16:07, 13 March 2019
Line 40:		Line 40:
	{{APIComment\|'Create instance of TeamInfo.}}		{{APIComment\|'Create instance of TeamInfo.}}
	{{APIPrefix\|Dim}} Team2 {{APIPrefix\|As New}} TeamInfo		{{APIPrefix\|Dim}} Team2 {{APIPrefix\|As New}} TeamInfo
	{{APIComment\|'Set the crew IDs for Team2.}}		{{APIComment\|'Set the crew IDs for Team2.}}
	{{APIPrefix\|Call}} Team2.SetCrewIDS(CrewIDs)		{{APIPrefix\|Call}} Team2.SetCrewIDS(CrewIDs)

David J. Groebel at 16:06, 13 March 2019

2019-03-13T16:06:55Z

← Older revision		Revision as of 16:06, 13 March 2019
Line 21:		Line 21:
	MyRepository.ConnectToAccessRepository({{APIString\|"C:\RSRepository1.rsr19"}})		MyRepository.ConnectToAccessRepository({{APIString\|"C:\RSRepository1.rsr19"}})

	{{APIComment\|'~~Get crew #1 from project #1.~~}}		{{APIComment\|'Set the IDs for existing crews}}
	{{APIPrefix\|Dim}} ~~MyCrew~~ {{APIPrefix\|As}} ~~cCrew~~		{{APIPrefix\|Dim}} CrewIDs() {{APIPrefix\|As}} Long
	~~MyRepository.Project.SetCurrentProject~~(1)		{{APIPrefix\|ReDim}} CrewIDs(2)
	{{APIPrefix\|Set}} ~~MyCrew = MyRepository.Crew~~.~~GetCrew~~(1)		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\|'~~Add code to get an existing~~ team.}}		{{APIComment\|'Do the same for another team.}}
	{{APIPrefix\|Dim}} ~~aTeam~~ {{APIPrefix\|As}} TeamInfo		{{APIPrefix\|ReDim}} CrewIDs(3)
	{{APIComment\|...}}		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 ~~the IDs~~ of ~~the crews assigned to the team~~.}}		{{APIComment\|'Get a particular task with ID of 2 from repository.}}
	{{APIPrefix\|Dim}} ~~myarray()~~ {{APIPrefix\|As ~~integer~~}}		{{APIPrefix\|Dim}} aTask {{APIPrefix\|As}} cCorrectiveTask
	{{APIPrefix\|~~Call~~}} ~~aTeam~~.~~GetCrewIDs~~(~~myarray~~)		{{APIPrefix\|Set}} aTask = MyRespository.Task.GetCorrectiveTask(2)

	{{APIComment\|'~~Sample output~~.}}		{{APIComment\|'Put the teams previously created into array.}}
	{{APIPrefix\|Dim}} i {{APIPrefix\|As ~~Integer~~}}		{{APIPrefix\|Dim}} Teams(1) {{APIPrefix\|As}} TeamInfo
	{{APIPrefix\|~~Dim}} upper {{APIPrefix\|As Integer~~}}		{{APIPrefix\|Set}} Teams(0) = Team1
	~~{{APIPrefix\|Dim}} lower~~ {{APIPrefix\|~~As Integer~~}}		{{APIPrefix\|Set}} Teams(1) = Team2

	~~lower =~~ {{~~APIPrefix~~\|~~LBound~~}}~~(myarray)~~		{{APIComment\|'Assign teams to the task.}}
	~~upper =~~ {{APIPrefix\|~~UBound~~}}(~~myarray~~)		{{APIPrefix\|Call}} Task.SetTeams(Teams)
			{{APIComment\|'Update task in repository.}}
	{{~~APIPrefix~~\|~~For~~}} ~~i = lower~~ {{APIPrefix\|To}} ~~upper~~		{{APIPrefix\|Call}} MyRepository.Task.UpdateCorrectiveTask(Task)
	~~MsgBox "Crew ID = " & myarray~~(i)
	~~{{APIPrefix\|Next}} i~~

David J. Groebel at 21:28, 12 March 2019

2019-03-12T21:28:58Z

← Older revision		Revision as of 21:28, 12 March 2019
Line 33:		Line 33:
	{{APIPrefix\|Dim}} myarray() {{APIPrefix\|As integer}}		{{APIPrefix\|Dim}} myarray() {{APIPrefix\|As integer}}
	{{APIPrefix\|Call}} aTeam.GetCrewIDs(myarray)		{{APIPrefix\|Call}} aTeam.GetCrewIDs(myarray)

	~~{{APIComment\|'Set the crew ID for t}}~~

	{{APIComment\|'Sample output.}}		{{APIComment\|'Sample output.}}

David J. Groebel: Created page with '{{DISPLAYTITLE:TeamInfo.SetCrewIDs Method}}{{Template:API}}{{Template:APIBreadcrumb|.TeamInfo}} Sets the IDs of the crews included in the team.<…'

2019-03-12T21:28:38Z

Created page with '{{DISPLAYTITLE:TeamInfo.SetCrewIDs Method}}{{Template:API}}{{Template:APIBreadcrumb|.TeamInfo}} <onlyinclude>Sets the IDs of the crews included in the team.<…'

New page

{{DISPLAYTITLE:TeamInfo.SetCrewIDs Method}}{{Template:API}}{{Template:APIBreadcrumb|.[[TeamInfo_Class|TeamInfo]]}}

<onlyinclude>Sets the IDs of the crews included in the team.</onlyinclude>

'''Remarks''': Designed for VB6/VBA users, .NET users should use CrewIDs property instead.

== Syntax ==
'''.SetCrewIDs'''({{APIPrefix|ByRef}} ''arr()'')

===Parameters===
''arr()''
:Required as integer. An array of the crew IDs.

== Example ==
'''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.rsr19"}})

{{APIComment|'Get crew #1 from project #1.}}
{{APIPrefix|Dim}} MyCrew {{APIPrefix|As}} cCrew
MyRepository.Project.SetCurrentProject(1)
{{APIPrefix|Set}} MyCrew = MyRepository.Crew.GetCrew(1)

{{APIComment|'Add code to get an existing team.}}
{{APIPrefix|Dim}} aTeam {{APIPrefix|As}} TeamInfo
{{APIComment|...}}

{{APIComment|'Get the IDs of the crews assigned to the team.}}
{{APIPrefix|Dim}} myarray() {{APIPrefix|As integer}}
{{APIPrefix|Call}} aTeam.GetCrewIDs(myarray)

{{APIComment|'Set the crew ID for t}}

{{APIComment|'Sample output.}}
{{APIPrefix|Dim}} i {{APIPrefix|As Integer}}
{{APIPrefix|Dim}} upper {{APIPrefix|As Integer}}
{{APIPrefix|Dim}} lower {{APIPrefix|As Integer}}

lower = {{APIPrefix|LBound}}(myarray)
upper = {{APIPrefix|UBound}}(myarray)

{{APIPrefix|For}} i = lower {{APIPrefix|To}} upper
MsgBox "Crew ID = " & myarray(i)
{{APIPrefix|Next}} i

← Older revision		Revision as of 16:07, 13 March 2019
Line 40:		Line 40:
	{{APIComment\|'Create instance of TeamInfo.}}		{{APIComment\|'Create instance of TeamInfo.}}
	{{APIPrefix\|Dim}} Team2 {{APIPrefix\|As New}} TeamInfo		{{APIPrefix\|Dim}} Team2 {{APIPrefix\|As New}} TeamInfo
	{{APIComment\|'Set the crew IDs for Team2.}}		{{APIComment\|'Set the crew IDs for Team2.}}
	{{APIPrefix\|Call}} Team2.SetCrewIDS(CrewIDs)		{{APIPrefix\|Call}} Team2.SetCrewIDS(CrewIDs)

← Older revision		Revision as of 16:06, 13 March 2019
Line 21:		Line 21:
	MyRepository.ConnectToAccessRepository({{APIString\|"C:\RSRepository1.rsr19"}})		MyRepository.ConnectToAccessRepository({{APIString\|"C:\RSRepository1.rsr19"}})

	{{APIComment\|'~~Get crew #1 from project #1.~~}}		{{APIComment\|'Set the IDs for existing crews}}
	{{APIPrefix\|Dim}} ~~MyCrew~~ {{APIPrefix\|As}} ~~cCrew~~		{{APIPrefix\|Dim}} CrewIDs() {{APIPrefix\|As}} Long
	~~MyRepository.Project.SetCurrentProject~~(1)		{{APIPrefix\|ReDim}} CrewIDs(2)
	{{APIPrefix\|Set}} ~~MyCrew = MyRepository.Crew~~.~~GetCrew~~(1)		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\|'~~Add code to get an existing~~ team.}}		{{APIComment\|'Do the same for another team.}}
	{{APIPrefix\|Dim}} ~~aTeam~~ {{APIPrefix\|As}} TeamInfo		{{APIPrefix\|ReDim}} CrewIDs(3)
	{{APIComment\|...}}		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 ~~the IDs~~ of ~~the crews assigned to the team~~.}}		{{APIComment\|'Get a particular task with ID of 2 from repository.}}
	{{APIPrefix\|Dim}} ~~myarray()~~ {{APIPrefix\|As ~~integer~~}}		{{APIPrefix\|Dim}} aTask {{APIPrefix\|As}} cCorrectiveTask
	{{APIPrefix\|~~Call~~}} ~~aTeam~~.~~GetCrewIDs~~(~~myarray~~)		{{APIPrefix\|Set}} aTask = MyRespository.Task.GetCorrectiveTask(2)

	{{APIComment\|'~~Sample output~~.}}		{{APIComment\|'Put the teams previously created into array.}}
	{{APIPrefix\|Dim}} i {{APIPrefix\|As ~~Integer~~}}		{{APIPrefix\|Dim}} Teams(1) {{APIPrefix\|As}} TeamInfo
	{{APIPrefix\|~~Dim}} upper {{APIPrefix\|As Integer~~}}		{{APIPrefix\|Set}} Teams(0) = Team1
	~~{{APIPrefix\|Dim}} lower~~ {{APIPrefix\|~~As Integer~~}}		{{APIPrefix\|Set}} Teams(1) = Team2

	~~lower =~~ {{~~APIPrefix~~\|~~LBound~~}}~~(myarray)~~		{{APIComment\|'Assign teams to the task.}}
	~~upper =~~ {{APIPrefix\|~~UBound~~}}(~~myarray~~)		{{APIPrefix\|Call}} Task.SetTeams(Teams)
			{{APIComment\|'Update task in repository.}}
	{{~~APIPrefix~~\|~~For~~}} ~~i = lower~~ {{APIPrefix\|To}} ~~upper~~		{{APIPrefix\|Call}} MyRepository.Task.UpdateCorrectiveTask(Task)
	~~MsgBox "Crew ID = " & myarray~~(i)
	~~{{APIPrefix\|Next}} i~~