UNSAccountBInUNSGroupB in target system when XIsInEffect is set to false does not remove role when synchronizing

Hi,

If you are able to access Connect, perhaps this thread will help you:

https://connect.oneidentity.com/products/identity-manager/f/forum/4476/adhocprojection-not-working-with-a-group-exclusion/14615#14615

HTH, Barry.

Hello Barry,

Thank you for your swift reply. I located this page also but the link gives me the message that the page no longer exists.

Regards,

Wilke

Hi,

The advice was to modify the pre-script as shown:

And then:  Use the EntityPatch afterwards in the AdhocProjection step:

It didn't come from me .... I'm just passing on the info.

Hope it helps, Barry.

Hello,

Thank you Barry, I will try this, I notice the script you include does not calculate a value for NeedExecute,

If Not evt.Equals("Insert",StringComparison.OrdinalIgnoreCase) Then
values("NeedExecute") = not $XIsInEffect:Bool$ or DPR_NeedExecuteWorkflow(data("ProjectionConfigUID").ToString(),entity)
End If

In this example I added the check for XIsInEffect.

Regards,

Wilke

Hello Barry,

If I use the logic you mention and the original logic without the not $XIsInEffect:Bool$ condition, the roles are not removed. With both modifications present, the code you propose and the not $XIsInEffect:Bool$ condition, the roles are indeed removed from the custom target system.

Pity I do not really understand what the code does :-).

Thanks gain for you advice.

Regards,

Wilke

Hello Wilke,

can you show me the exact code you used? I have the same issue and would like to configure my process same as you did to see if it fix it for me.

Thank you,

Vito

If Not CBool(Connection.Variables("FULLSYNC")) AndAlso $FK(UID_UNSAccountB).FK(UID_UNSRootB).NamespaceManagedBy:String$.Equals("VISYNC",StringComparison.OrdinalIgnoreCase) Then
	Try
		Dim evt as String = EventName
		Select Case evt.ToUpperInvariant()
			Case "ASSIGN", "HANDLEOUSTANDING"
				evt="Insert"
			Case "REMOVE"
				evt="Delete"
		End Select
		
		If evt = "Delete" Then
			Dim thePatch = EntityPatch.Create(Entity, Session.MetaData(), DiffMode.AllContent)
			thePatch.Diff.Data.State = EntityState.ToDeletePhysical Or EntityState.Loaded Or EntityState.Deleted
			values("Patch") = thePatch.ToXml()
		Else
			values("Patch") = DPR_WrapObjectForProjection(Entity)
		End If
	Catch ex as Exception
		values("AdHocDataFound") = False
	End Try
End If

I just came across this same issue still with 8.1.5. To help someone with typing later... here is the text version (worked for me):

If Not CBool(Connection.Variables("FULLSYNC")) AndAlso $FK(UID_UNSAccountB).FK(UID_UNSRootB).NamespaceManagedBy:String$.Equals("VISYNC",StringComparison.OrdinalIgnoreCase) Then
	Try
		Dim evt as String = EventName
		Select Case evt.ToUpperInvariant()
			Case "ASSIGN", "HANDLEOUSTANDING"
				evt="Insert"
			Case "REMOVE"
				evt="Delete"
		End Select
		
		If evt = "Delete" Then
			Dim thePatch = EntityPatch.Create(Entity, Session.MetaData(), DiffMode.AllContent)
			thePatch.Diff.Data.State = EntityState.ToDeletePhysical Or EntityState.Loaded Or EntityState.Deleted
			values("Patch") = thePatch.ToXml()
		Else
			values("Patch") = DPR_WrapObjectForProjection(Entity)
		End If
	Catch ex as Exception
		values("AdHocDataFound") = False
	End Try
End If

I just came across this same issue still with 8.1.5. To help someone with typing later... here is the text version (worked for me):