update 44 to fix issue #1143

brunobuzzi · Aug 10, 2020 · 2b73155 · 2b73155
1 parent f71d539
commit 2b73155
Show file tree

Hide file tree

Showing 57 changed files with 115 additions and 91 deletions.
diff --git a/repository/BpmCore.package/BpmEnvironment.class/instance/usersAsSortedCollection..st b/repository/BpmCore.package/BpmEnvironment.class/instance/usersAsSortedCollection..st
@@ -0,0 +1,4 @@
+Accessing
+usersAsSortedCollection: aBlock
+
+	^users asSortedCollection: aBlock
diff --git a/repository/BpmCore.package/BpmEnvironment.class/instance/usersDo..st b/repository/BpmCore.package/BpmEnvironment.class/instance/usersDo..st
@@ -0,0 +1,4 @@
+Accessing
+usersDo: aBlock
+
+	users do: aBlock
diff --git a/repository/BpmCore.package/BpmEnvironment.class/instance/usersIsEmpty.st b/repository/BpmCore.package/BpmEnvironment.class/instance/usersIsEmpty.st
@@ -0,0 +1,4 @@
+Accessing
+usersIsEmpty
+
+	^users isEmpty
diff --git a/repository/BpmCore.package/BpmEnvironment.class/instance/usersReject..st b/repository/BpmCore.package/BpmEnvironment.class/instance/usersReject..st
@@ -0,0 +1,4 @@
+Accessing
+usersReject: aBlock
+
+	^users reject: aBlock
diff --git a/repository/BpmCore.package/BpmEnvironment.class/methodProperties.json b/repository/BpmCore.package/BpmEnvironment.class/methodProperties.json
@@ -125,4 +125,8 @@
 		"unregisterUser:" : "brunobb 02/12/2020 11:03",
 		"unregisterUserGroup:" : "brunobb 02/12/2020 11:03",
 		"users" : "brunobb 02/12/2020 11:03",
-		"users:" : "brunobb 02/12/2020 11:03" } }
+		"users:" : "brunobb 02/12/2020 11:03",
+		"usersAsSortedCollection:" : "brunobb 08/10/2020 13:51",
+		"usersDo:" : "brunobb 08/10/2020 13:43",
+		"usersIsEmpty" : "brunobb 08/10/2020 13:57",
+		"usersReject:" : "brunobb 08/10/2020 14:05" } }
diff --git a/repository/BpmCore.package/BpmRole.class/instance/getAllGrantedUsers.st b/repository/BpmCore.package/BpmRole.class/instance/getAllGrantedUsers.st
@@ -4,6 +4,6 @@ getAllGrantedUsers
 	| inheritUsers |
 
 	inheritUsers := Set new.
-	userGroups do: [:userGroup | inheritUsers addAll: userGroup users].
+	userGroups do: [:userGroup | userGroup usersDo: [:user | inheritUsers add: user]].
 
 	^users asSet, inheritUsers
diff --git a/repository/BpmCore.package/BpmRole.class/instance/usersDo..st b/repository/BpmCore.package/BpmRole.class/instance/usersDo..st
@@ -0,0 +1,4 @@
+Accessing
+usersDo: aBlock
+
+	users do: aBlock
diff --git a/repository/BpmCore.package/BpmRole.class/instance/usersSize.st b/repository/BpmCore.package/BpmRole.class/instance/usersSize.st
@@ -1,3 +1,4 @@
-other
+Accessing
 usersSize
+
 	^users size
diff --git a/repository/BpmCore.package/BpmRole.class/methodProperties.json b/repository/BpmCore.package/BpmRole.class/methodProperties.json
@@ -16,7 +16,7 @@
 		"bpmEnvironment" : "brunobb 01/27/2020 11:07",
 		"canDelete" : "brunobb 01/27/2020 11:07",
 		"forgetAssignationHistory" : "brunobb 01/27/2020 11:07",
-		"getAllGrantedUsers" : "brunobb 02/02/2020 12:00",
+		"getAllGrantedUsers" : "brunobb 08/10/2020 13:48",
 		"getApplicationName" : "brunobb 01/27/2020 11:07",
 		"getProcessDefinitions" : "brunobb 01/27/2020 11:07",
 		"getUserAssociations:" : "brunobb 01/27/2020 11:07",
@@ -51,4 +51,5 @@
 		"users" : "brunobb 01/27/2020 11:07",
 		"users:" : "brunobb 01/27/2020 11:07",
 		"usersAssociationsSize" : "bruno 07/24/2020 13:21",
-		"usersSize" : "brunobb 01/27/2020 11:07" } }
+		"usersDo:" : "brunobb 08/10/2020 13:46",
+		"usersSize" : "brunobb 08/10/2020 13:52" } }
diff --git a/repository/BpmCore.package/BpmTaskLoop.class/instance/taskDefinition.st b/repository/BpmCore.package/BpmTaskLoop.class/instance/taskDefinition.st
diff --git a/repository/BpmCore.package/BpmTaskLoop.class/methodProperties.json b/repository/BpmCore.package/BpmTaskLoop.class/methodProperties.json
@@ -14,7 +14,6 @@
 		"setLoop:" : "BrunoBB 11/01/2015 14:46",
 		"startQuantity" : "BrunoBB 10/31/2015 11:02",
 		"startQuantity:" : "BrunoBB 11/02/2015 08:31",
-		"taskDefinition" : "BrunoBB 10/31/2015 11:02",
 		"taskDefinition:" : "BrunoBB 10/31/2015 11:02",
 		"testTimeIsAfter" : "brunobb 09/18/2019 12:21",
 		"testTimeIsBefore" : "brunobb 09/18/2019 12:21" } }
diff --git a/repository/BpmCore.package/monticello.meta/version b/repository/BpmCore.package/monticello.meta/version
diff --git a/repository/BpmRuntime.package/BpmInternalMessage.class/instance/getRecipients.st b/repository/BpmRuntime.package/BpmInternalMessage.class/instance/getRecipients.st
@@ -4,6 +4,6 @@ getRecipients
 
 	recipients := to select: [:each | each isUser].
 
-	(to select: [:each | each isRole]) do: [:eachRole | recipients addAll: eachRole users].
+	(to select: [:each | each isRole]) do: [:eachRole | eachRole usersDo: [:user | recipients add: user]].
 
 	^recipients asSet asSortedCollection: [:a :b | a username <= b username]
diff --git a/repository/BpmRuntime.package/BpmInternalMessage.class/instance/unsend.st b/repository/BpmRuntime.package/BpmInternalMessage.class/instance/unsend.st
@@ -7,6 +7,6 @@ unsend
 	recipients := to select: [:each | each isUser].
 
 	"transform roles into users"
-	(to select: [:each | each isRole]) do: [:eachRole | recipients addAll: eachRole users].
+	(to select: [:each | each isRole]) do: [:eachRole | eachRole usersDo: [:user | recipients add: user]].
 
 	recipients do: [:eachUser | (eachUser getSystemNotificationsInboxIn: bpmEnvironment) removeEntry: self ifAbsent: []].
diff --git a/repository/BpmRuntime.package/BpmInternalMessage.class/methodProperties.json b/repository/BpmRuntime.package/BpmInternalMessage.class/methodProperties.json
@@ -16,7 +16,7 @@
 		"createdTime:" : "brunobb 04/25/2018 05:28",
 		"from" : "brunobb 04/25/2018 05:28",
 		"from:" : "brunobb 04/25/2018 05:28",
-		"getRecipients" : "brunobb 04/26/2018 11:09",
+		"getRecipients" : "brunobb 08/10/2020 13:49",
 		"id" : "brunobb 04/25/2018 05:28",
 		"id:" : "brunobb 04/25/2018 05:28",
 		"inResponseTo" : "brunobb 04/26/2018 04:19",
@@ -36,4 +36,4 @@
 		"subject:" : "brunobb 04/26/2018 04:19",
 		"to" : "brunobb 04/25/2018 05:28",
 		"to:" : "brunobb 04/25/2018 05:28",
-		"unsend" : "brunobb 09/10/2018 09:19" } }
+		"unsend" : "brunobb 08/10/2020 13:50" } }
diff --git a/repository/BpmRuntime.package/BpmQueryOperation.class/instance/getAllUsers.st b/repository/BpmRuntime.package/BpmQueryOperation.class/instance/getAllUsers.st
diff --git a/repository/BpmRuntime.package/BpmQueryOperation.class/instance/usersDo..st b/repository/BpmRuntime.package/BpmQueryOperation.class/instance/usersDo..st
@@ -0,0 +1,4 @@
+other
+usersDo: aBlock
+
+	^bpmEnvironment usersDo: aBlock
diff --git a/repository/BpmRuntime.package/BpmQueryOperation.class/methodProperties.json b/repository/BpmRuntime.package/BpmQueryOperation.class/methodProperties.json
@@ -9,7 +9,6 @@
 		"getAllCurrentTaskAssigments" : "brunobb 02/08/2018 10:17",
 		"getAllFinishedTaskAssignments" : "brunobb 02/08/2018 10:17",
 		"getAllTaskAssignments:" : "brunobb 02/08/2018 10:17",
-		"getAllUsers" : "brunobb 09/06/2018 05:59",
 		"getAssignmentsIn:processName:formName:fieldName:initialValue:endValue:isCurrent:isRange:" : "brunobb 03/21/2019 09:13",
 		"getCurrentAssignmentsIn:processName:formName:fieldName:initialValue:" : "brunobb 02/08/2018 13:13",
 		"getCurrentAssignmentsIn:processName:formName:fieldName:initialValue:endValue:" : "brunobb 02/08/2018 13:13",
@@ -27,4 +26,5 @@
 		"getTaskAssignmentsInApplication:isCurrent:" : "brunobb 02/08/2018 13:15",
 		"getTaskAssignmentsWithId:isCurrent:" : "brunobb 02/08/2018 13:24",
 		"user" : "brunobb 02/07/2018 14:22",
-		"user:" : "brunobb 02/07/2018 14:22" } }
+		"user:" : "brunobb 02/07/2018 14:22",
+		"usersDo:" : "brunobb 08/10/2020 13:44" } }
diff --git a/.../BpmRuntime.package/BpmSystemQueryOperation.class/instance/getAllCurrentTaskAssigments.st b/.../BpmRuntime.package/BpmSystemQueryOperation.class/instance/getAllCurrentTaskAssigments.st
@@ -5,7 +5,7 @@ getAllCurrentTaskAssigments
 
 	assignments := user getAllAvailableTaskAssignmentsIn: bpmEnvironment.
 
-	self getAllUsers do: [:eachUser | | roles |
+	self usersDo: [:eachUser | | roles |
 			roles := user rolesIn: bpmEnvironment.
 			assignments addAll: ((eachUser getCurrentAssignmentsIn: bpmEnvironment) select: [:assingment | (roles identityIncludes: assingment role) and: [assingment isAvailableFor: user]]).
 	].

diff --git a/...pmRuntime.package/BpmSystemQueryOperation.class/instance/getAllFinishedTaskAssignments.st b/...pmRuntime.package/BpmSystemQueryOperation.class/instance/getAllFinishedTaskAssignments.st
@@ -5,7 +5,7 @@ getAllFinishedTaskAssignments
 
 	assignments := OrderedCollection new.
 
-	self getAllUsers do: [:eachUser | | roles |
+	self usersDo: [:eachUser | | roles |
 			roles := user rolesIn: bpmEnvironment.
 			assignments addAll: ((eachUser getFinishedAssignmentsIn: bpmEnvironment) select: [:assingment | (roles identityIncludes: assingment role) and: [assingment isAvailableFor: user]]).
 	].

diff --git a/...package/BpmSystemQueryOperation.class/instance/getCurrentTaskAssignmentsInApplication..st b/...package/BpmSystemQueryOperation.class/instance/getCurrentTaskAssignmentsInApplication..st
@@ -5,7 +5,7 @@ getCurrentTaskAssignmentsInApplication: appName
 
 	assignments := (user getAllAvailableTaskAssignmentsIn: bpmEnvironment) select: [:each | each applicationName = appName].
 
-	self getAllUsers do: [:eachUser | | roles appAssignments |
+	self usersDo: [:eachUser | | roles appAssignments |
 			roles := user rolesIn: bpmEnvironment.
 			appAssignments := (eachUser getCurrentAssignmentsIn: bpmEnvironment) select: {:each | each.applicationName = appName}.
 			assignments addAll: (appAssignments select: [:assingment | roles identityIncludes: assingment role]).

diff --git a/...SystemQueryOperation.class/instance/getCurrentTaskAssignmentsInApplication.andProcess..st b/...SystemQueryOperation.class/instance/getCurrentTaskAssignmentsInApplication.andProcess..st
@@ -5,7 +5,7 @@ getCurrentTaskAssignmentsInApplication: appName andProcess: procName
 
 	assignments := (user getAllAvailableTaskAssignmentsIn: bpmEnvironment) select: [:each | (each applicationName = appName) and: [each processName = procName] ].
 
-	self getAllUsers do: [:eachUser | | roles appAssignments |
+	self usersDo: [:eachUser | | roles appAssignments |
 			roles := user rolesIn: bpmEnvironment.
 			appAssignments := (eachUser getCurrentAssignmentsIn: bpmEnvironment) select: {:each | (each.applicationName = appName) & (each.processName = procName)}.
 			assignments addAll: (appAssignments select: [:assingment | roles identityIncludes: assingment role]).

diff --git a/...ime.package/BpmSystemQueryOperation.class/instance/getCurrentTaskAssignmentsInProcess..st b/...ime.package/BpmSystemQueryOperation.class/instance/getCurrentTaskAssignmentsInProcess..st
@@ -5,7 +5,7 @@ getCurrentTaskAssignmentsInProcess: procName
 
 	assignments := (user getAllAvailableTaskAssignmentsIn: bpmEnvironment) select: [:each | each processName = procName].
 
-	self getAllUsers do: [:eachUser | | roles appAssignments |
+	self usersDo: [:eachUser | | roles appAssignments |
 			roles := user rolesIn: bpmEnvironment.
 			appAssignments := (eachUser getCurrentAssignmentsIn: bpmEnvironment) select: {:each | each.processName = procName}.
 			assignments addAll: (appAssignments select: [:assingment | roles identityIncludes: assingment role]).

diff --git a/...untime.package/BpmSystemQueryOperation.class/instance/getCurrentTaskAssignmentsWithId..st b/...untime.package/BpmSystemQueryOperation.class/instance/getCurrentTaskAssignmentsWithId..st
@@ -7,7 +7,7 @@ getCurrentTaskAssignmentsWithId: processId
 	assignments := user getAllTaskAssignmentsWithId: processId in: bpmEnvironment.
 
 	"here search for already TAKEN <BpmTaskAssignment>"
-	self getAllUsers do: [:eachUser | | possibleAssignments |
+	self usersDo: [:eachUser | | possibleAssignments |
 			possibleAssignments := (GsQuery fromSelectBlock: {:each | each.processId = processId} on: (eachUser getCurrentAssignmentsIn: bpmEnvironment)) queryResult.
 			assignments addAll: (possibleAssignments select: [:eachAssignment | user rolesIdentityIncludes: eachAssignment role]) .
 	].

diff --git a/...ackage/BpmSystemQueryOperation.class/instance/getFinishedTaskAssignmentsInApplication..st b/...ackage/BpmSystemQueryOperation.class/instance/getFinishedTaskAssignmentsInApplication..st
@@ -5,7 +5,7 @@ getFinishedTaskAssignmentsInApplication: appName
 
 	assignments := OrderedCollection new.
 
-	self getAllUsers do: [:eachUser | | roles appAssignments |
+	self usersDo: [:eachUser | | roles appAssignments |
 			roles := user rolesIn: bpmEnvironment.
 			appAssignments := (eachUser getFinishedAssignmentsIn: bpmEnvironment) select: {:each | each.applicationName = appName}.
 			assignments addAll: (appAssignments select: [:assingment | roles identityIncludes: assingment role]).

diff --git a/...ystemQueryOperation.class/instance/getFinishedTaskAssignmentsInApplication.andProcess..st b/...ystemQueryOperation.class/instance/getFinishedTaskAssignmentsInApplication.andProcess..st
@@ -5,7 +5,7 @@ getFinishedTaskAssignmentsInApplication: appName andProcess: procName
 
 	assignments := OrderedCollection new.
 
-	self getAllUsers do: [:eachUser | | roles appAssignments |
+	self usersDo: [:eachUser | | roles appAssignments |
 			roles := user rolesIn: bpmEnvironment.
 			appAssignments := (eachUser getFinishedAssignmentsIn: bpmEnvironment) select: {:each | (each.applicationName = appName) & (each.processName = procName)}.
 			assignments addAll: (appAssignments select: [:assingment | roles identityIncludes: assingment role]).

diff --git a/...me.package/BpmSystemQueryOperation.class/instance/getFinishedTaskAssignmentsInProcess..st b/...me.package/BpmSystemQueryOperation.class/instance/getFinishedTaskAssignmentsInProcess..st
@@ -5,7 +5,7 @@ getFinishedTaskAssignmentsInProcess: procName
 
 	assignments := OrderedCollection new.
 
-	self getAllUsers do: [:eachUser | | roles appAssignments |
+	self usersDo: [:eachUser | | roles appAssignments |
 			roles := user rolesIn: bpmEnvironment.
 			appAssignments := (eachUser getFinishedAssignmentsIn: bpmEnvironment) select: {:each | each.processName = procName}.
 			assignments addAll: (appAssignments select: [:assingment | roles identityIncludes: assingment role]).

diff --git a/repository/BpmRuntime.package/BpmSystemQueryOperation.class/methodProperties.json b/repository/BpmRuntime.package/BpmSystemQueryOperation.class/methodProperties.json
@@ -2,17 +2,17 @@
 	"class" : {
 		"getComboBoxNameFor:" : "brunobb 02/07/2018 14:07" },
 	"instance" : {
-		"getAllCurrentTaskAssigments" : "brunobb 03/21/2019 09:13",
-		"getAllFinishedTaskAssignments" : "brunobb 03/21/2019 09:13",
+		"getAllCurrentTaskAssigments" : "brunobb 08/10/2020 13:44",
+		"getAllFinishedTaskAssignments" : "brunobb 08/10/2020 13:45",
 		"getCurrentAssignmentsIn:processName:formName:fieldName:initialValue:" : "brunobb 03/25/2019 08:42",
 		"getCurrentAssignmentsIn:processName:formName:fieldName:initialValue:endValue:" : "brunobb 03/25/2019 08:43",
-		"getCurrentTaskAssignmentsInApplication:" : "brunobb 03/21/2019 09:14",
-		"getCurrentTaskAssignmentsInApplication:andProcess:" : "brunobb 03/21/2019 09:15",
-		"getCurrentTaskAssignmentsInProcess:" : "brunobb 03/21/2019 09:14",
-		"getCurrentTaskAssignmentsWithId:" : "bruno 07/24/2020 13:45",
+		"getCurrentTaskAssignmentsInApplication:" : "brunobb 08/10/2020 13:45",
+		"getCurrentTaskAssignmentsInApplication:andProcess:" : "brunobb 08/10/2020 13:45",
+		"getCurrentTaskAssignmentsInProcess:" : "brunobb 08/10/2020 13:44",
+		"getCurrentTaskAssignmentsWithId:" : "brunobb 08/10/2020 13:44",
 		"getFinishedAssignmentsIn:processName:formName:fieldName:initialValue:" : "brunobb 03/25/2019 08:43",
 		"getFinishedAssignmentsIn:processName:formName:fieldName:initialValue:endValue:" : "brunobb 03/25/2019 08:43",
-		"getFinishedTaskAssignmentsInApplication:" : "brunobb 03/21/2019 09:14",
-		"getFinishedTaskAssignmentsInApplication:andProcess:" : "brunobb 03/21/2019 09:15",
-		"getFinishedTaskAssignmentsInProcess:" : "brunobb 03/21/2019 09:14",
+		"getFinishedTaskAssignmentsInApplication:" : "brunobb 08/10/2020 13:44",
+		"getFinishedTaskAssignmentsInApplication:andProcess:" : "brunobb 08/10/2020 13:44",
+		"getFinishedTaskAssignmentsInProcess:" : "brunobb 08/10/2020 13:44",
 		"getFinishedTaskAssignmentsWithId:" : "brunobb 09/10/2018 09:34" } }
diff --git a/repository/BpmRuntime.package/BpmUser.class/instance/getSystemRoleStructureIn..st b/repository/BpmRuntime.package/BpmUser.class/instance/getSystemRoleStructureIn..st
@@ -6,7 +6,7 @@ getSystemRoleStructureIn: aBpmEnvironment
 
 	(self getVisibleApplicationsIn: aBpmEnvironment) do: [:eachApp | 
 		eachApp getAllRoles do: [:eachRole | 
-			eachRole users do: [:eachUsr |  | userGrantConfig |
+			eachRole usersDo: [:eachUsr |  | userGrantConfig |
 				userGrantConfig := BpmUserGrantConfiguration newOn: aBpmEnvironment for: eachUsr app: eachApp role: eachRole.
 				userGrantConfig 
 					roleName: eachRole name;

diff --git a/repository/BpmRuntime.package/BpmUser.class/methodProperties.json b/repository/BpmRuntime.package/BpmUser.class/methodProperties.json
@@ -99,7 +99,7 @@
 		"getSubprocessDoneFillColor" : "brunobb 01/27/2020 11:09",
 		"getSystemNotificationsIn:" : "brunobb 01/27/2020 11:09",
 		"getSystemNotificationsInboxIn:" : "brunobb 01/27/2020 11:09",
-		"getSystemRoleStructureIn:" : "brunobb 02/17/2020 07:46",
+		"getSystemRoleStructureIn:" : "brunobb 08/10/2020 13:49",
 		"getTaskDoneBorderColor" : "brunobb 01/27/2020 11:09",
 		"getTaskDoneFillColor" : "brunobb 01/27/2020 11:09",
 		"getTaskQuantityDistributionIn:" : "brunobb 01/27/2020 11:09",

diff --git a/repository/BpmRuntime.package/BpmUserGroup.class/instance/usersDo..st b/repository/BpmRuntime.package/BpmUserGroup.class/instance/usersDo..st
@@ -0,0 +1,4 @@
+other
+usersDo: aBlock
+
+	users do: aBlock
diff --git a/repository/BpmRuntime.package/BpmUserGroup.class/methodProperties.json b/repository/BpmRuntime.package/BpmUserGroup.class/methodProperties.json
@@ -23,4 +23,5 @@
 		"roles:" : "brunobb 05/16/2020 13:13",
 		"rolesSelect:" : "bruno 07/24/2020 13:15",
 		"users" : "brunobb 05/16/2020 13:13",
-		"users:" : "brunobb 05/16/2020 13:13" } }
+		"users:" : "brunobb 05/16/2020 13:13",
+		"usersDo:" : "brunobb 08/10/2020 13:46" } }
diff --git a/repository/BpmRuntime.package/NoNextArtifactException.class/instance/defaultAction.st b/repository/BpmRuntime.package/NoNextArtifactException.class/instance/defaultAction.st
@@ -6,7 +6,7 @@ defaultAction
 	message := BpmProcessInternalMessage newFromApplicationIn: self getProcessInstance bpmEnvironment.
 
 	toUsers := OrderedCollection new.
-	bpmArtifact rolesDo: [:eachRole | toUsers addAll: eachRole users].
+	bpmArtifact rolesDo: [:eachRole | eachRole usersDo: [:user | toUsers add: user]].
 
 	message to: toUsers;
 		subject: 'No Next Artifact to Run';

diff --git a/repository/BpmRuntime.package/NoNextArtifactException.class/methodProperties.json b/repository/BpmRuntime.package/NoNextArtifactException.class/methodProperties.json
@@ -4,5 +4,5 @@
 	"instance" : {
 		"bpmArtifact" : "brunobb 11/28/2018 06:45",
 		"bpmArtifact:" : "brunobb 11/28/2018 06:45",
-		"defaultAction" : "brunobb 07/31/2020 10:50",
+		"defaultAction" : "brunobb 08/10/2020 13:48",
 		"getProcessInstance" : "brunobb 11/28/2018 06:45" } }
diff --git a/repository/BpmRuntime.package/monticello.meta/version b/repository/BpmRuntime.package/monticello.meta/version
diff --git a/...tryMultiRoleProcessExecutionTest.class/instance/testExecuteProcess_data_entry_approved.st b/...tryMultiRoleProcessExecutionTest.class/instance/testExecuteProcess_data_entry_approved.st
@@ -8,7 +8,7 @@ testExecuteProcess_data_entry_approved
 	self assert: (currentTask finalizedPerformerCounter = 0).
 	self processExecutionSimulator takeAndFinalizeTask: currentTask withUserNamed: 'alberto' withForm: self formInstance_data_entry on: procInstance.
 
-	(self defaultFrontOfficeRoleClass getRoleNamed: 'data-entry-manager' in: 'ue') users do: [:eachUser | 
+	(self defaultFrontOfficeRoleClass getRoleNamed: 'data-entry-manager' in: 'ue') usersDo: [:eachUser | 
 		self assert: ((eachUser getSystemNotificationsInboxIn: self bpmEnvironment) selectSatisfying: [:each | each processId = procInstance processId]) size = 2]. "2: creation and take messages"
 
 	self assert: ((currentTask getCurrentRoleIfNone: [self assert: false]) name = 'data-entry-1').
@@ -23,7 +23,7 @@ testExecuteProcess_data_entry_approved
 	self assert: (currentTask getDefinitionName = 'data-entry').
 	self assert: (currentTask finalizedPerformerCounter = 2).
 
-	(self defaultFrontOfficeRoleClass getRoleNamed: 'data-entry-manager' in: 'ue') users do: [:eachUser | 
+	(self defaultFrontOfficeRoleClass getRoleNamed: 'data-entry-manager' in: 'ue') usersDo: [:eachUser | 
 		self assert: ((eachUser getSystemNotificationsInboxIn: self bpmEnvironment) selectSatisfying: [:each | each processId = procInstance processId]) size = 3]. "plus 1: take messages"
 
 	"Step 1.3 - Form [data-entry]" "Performer 3"
@@ -34,14 +34,14 @@ testExecuteProcess_data_entry_approved
 	self assert: (currentTask getDefinitionName = 'data-entry').
 	self assert: (currentTask finalizedPerformerCounter = 3).
 
-	(self defaultFrontOfficeRoleClass getRoleNamed: 'data-entry-manager' in: 'ue') users do: [:eachUser | 
+	(self defaultFrontOfficeRoleClass getRoleNamed: 'data-entry-manager' in: 'ue') usersDo: [:eachUser | 
 		self assert: ((eachUser getSystemNotificationsInboxIn: self bpmEnvironment) selectSatisfying: [:each | each processId = procInstance processId]) size = 5]. "plus 2: take, finalization"
 
 	"Step 2 - Form [data-approved]" 
 	currentTask := procInstance currentActivities last.
 	self processExecutionSimulator takeAndFinalizeTask: currentTask withUserNamed: 'bruno' withForm: self formInstance_data_approved on: procInstance.
 
-	(self defaultFrontOfficeRoleClass getRoleNamed: 'data-entry-manager' in: 'ue') users do: [:eachUser | 
+	(self defaultFrontOfficeRoleClass getRoleNamed: 'data-entry-manager' in: 'ue') usersDo: [:eachUser | 
 		self assert: ((eachUser getSystemNotificationsInboxIn: self bpmEnvironment) selectSatisfying: [:each | each processId = procInstance processId]) size = 5].  "this task def has not Inform role"
 
 	self assert: (currentTask getDefinitionName = 'data-approved').

diff --git a/...mRuntime_Tests.package/DataEntryMultiRoleProcessExecutionTest.class/methodProperties.json b/...mRuntime_Tests.package/DataEntryMultiRoleProcessExecutionTest.class/methodProperties.json
@@ -7,7 +7,7 @@
 		"formInstance_data_entry" : "brunobb 11/08/2018 08:38",
 		"setUp" : "brunobb 05/23/2019 09:58",
 		"tearDown" : "brunobb 05/23/2019 09:05",
-		"testExecuteProcess_data_entry_approved" : "brunobb 08/06/2020 11:44",
+		"testExecuteProcess_data_entry_approved" : "brunobb 08/10/2020 13:59",
 		"testTransitionTreePossibleLoops" : "brunobb 08/16/2019 11:53",
 		"testTransitionTreePossiblePaths" : "brunobb 08/16/2019 11:53",
 		"testTransitionTreePossiblePathsToEnd" : "brunobb 08/16/2019 11:53" } }
diff --git a/...mersWithLoopProcessExecutionTest.class/instance/testExecuteProcess_data_entry_approved.st b/...mersWithLoopProcessExecutionTest.class/instance/testExecuteProcess_data_entry_approved.st
@@ -8,7 +8,7 @@ testExecuteProcess_data_entry_approved
 	self assert: (currentTask finalizedPerformerCounter = 0).
 	self processExecutionSimulator takeAndFinalizeTask: currentTask withUserNamed: 'alberto' withForm: self formInstance_data_entry on: procInstance.
 
-	(self defaultFrontOfficeRoleClass getRoleNamed: 'data-entry-manager' in: 'ue') users do: [:eachUser | 
+	(self defaultFrontOfficeRoleClass getRoleNamed: 'data-entry-manager' in: 'ue') usersDo: [:eachUser | 
 		self assert: ((eachUser getSystemNotificationsInboxIn: self bpmEnvironment) selectSatisfying: [:each | each processId = procInstance processId]) size = 2]. "2: creation and take messages"
 
 	self assert: ((currentTask getCurrentRoleIfNone: [self assert: false]) name = 'data-entry-1').
@@ -23,7 +23,7 @@ testExecuteProcess_data_entry_approved
 	self assert: (currentTask getDefinitionName = 'data-entry').
 	self assert: (currentTask finalizedPerformerCounter = 2).
 
-	(self defaultFrontOfficeRoleClass getRoleNamed: 'data-entry-manager' in: 'ue') users do: [:eachUser | 
+	(self defaultFrontOfficeRoleClass getRoleNamed: 'data-entry-manager' in: 'ue') usersDo: [:eachUser | 
 		self assert: ((eachUser getSystemNotificationsInboxIn: self bpmEnvironment) selectSatisfying: [:each | each processId = procInstance processId]) size = 3]. "plus 1: take messages"
 
 	"Step 1.3 - Form [data-entry]" "Performer 3"
@@ -34,14 +34,14 @@ testExecuteProcess_data_entry_approved
 	self assert: (currentTask getDefinitionName = 'data-entry').
 	self assert: (currentTask finalizedPerformerCounter = 3).
 
-	(self defaultFrontOfficeRoleClass getRoleNamed: 'data-entry-manager' in: 'ue') users do: [:eachUser | 
+	(self defaultFrontOfficeRoleClass getRoleNamed: 'data-entry-manager' in: 'ue') usersDo: [:eachUser | 
 		self assert: ((eachUser getSystemNotificationsInboxIn: self bpmEnvironment) selectSatisfying: [:each | each processId = procInstance processId]) size = 5]. "plus 2: take, finalization"
 
 	"Step 2 - Form [data-approved]" 
 	currentTask := procInstance currentActivities last.
 	self processExecutionSimulator takeAndFinalizeTask: currentTask withUserNamed: 'bruno' withForm: self formInstance_data_approved on: procInstance.
 
-	(self defaultFrontOfficeRoleClass getRoleNamed: 'data-entry-manager' in: 'ue') users do: [:eachUser | 
+	(self defaultFrontOfficeRoleClass getRoleNamed: 'data-entry-manager' in: 'ue') usersDo: [:eachUser | 
 		self assert: ((eachUser getSystemNotificationsInboxIn: self bpmEnvironment) selectSatisfying: [:each | each processId = procInstance processId]) size = 5].  "this task def has not Inform role"
 
 	self assert: (currentTask getDefinitionName = 'data-approved').