Pre-script for generating |
If Not CBool(Connection.Variables("FULLSYNC")) AndAlso _
Not CBool(Connection.Variables("PendingChangeReady")) AndAlso _
Not $FK(UID_UCIGroup).FK(UID_UCIRoot).IsManualProvisioning:Bool$
Then
Imports System.Collections.Generic
Dim data As IDictionary(Of String,string) = Nothing
values("AdHocDataFound") = False
values("NeedExecute") = true
' try to get UCI data
Try
Dim myUCIGroup As ISingleDbObject = Connection.CreateSingle("UCIGroup",$UID_UCIGroup$)
data = DPR_GetAdHocData($FK(UID_UCIGroup).FK(UID_UCIRoot).XObjectKey$,"SCIM","","Update",myUCIGroup.GetEntity())
Catch ex As AdHocDataException
End Try
If Not data is Nothing
values("AdHocDataFound") = True
values("ObjectKey") = New DbObjectKey("UCIGroup",$UID_UCIGroup$).ToXmlString()
values("UID_DPRSystemVariableSet") = data("VariableSetUID")
values("UID_DPRProjectionConfiguration") = data("ProjectionConfigUID")
values("UID_QBMServer") = data("ExecutionServerUID")
End if
End If |