]]> _ _ _ Public Class ScriptMain Inherits UserComponent ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Public Overrides Sub CreateNewOutputRows() ' Get entity. Dim entity As String If Me.IsEntityVariable Then entity = GetVariable_(Me.Entity).ToString() Else entity = Me.Entity End If ' Retrieve entity metadata. Dim connection As ICrmConnection = CType( _ Me.Connections.CrmConnection.AcquireConnection(Nothing), _ ICrmConnection) Try Call connection.Connect() Dim service As Object = connection.GetService(0) ' 0 - CRM Service Dim service2011 As CRM2011.OrganizationServiceClient = TryCast( _ service, _ CRM2011.OrganizationServiceClient) Dim service4 As CRM4.CrmService = TryCast(service, CRM4.CrmService) Dim service3 As CRM3.CrmService = TryCast(service, CRM3.CrmService) If Not service2011 Is Nothing Then ' CRM 2011. Call Process2011_(service2011, entity) ElseIf Not service4 Is Nothing Then ' Will use metadata service. Dim meta4 As Meta4.MetadataService = CType( _ connection.GetService(1), _ Meta4.MetadataService) Call Process4_(meta4, entity) ElseIf Not service3 Is Nothing Then ' Will use metadata service. Dim meta3 As Meta3.MetadataService = CType( _ connection.GetService(1), _ Meta3.MetadataService) Call Process3_(meta3, entity) Else Throw New Exception("Unhandled service object.") End If Catch ex As Exception Call FireError_(ex.Message) Finally Call connection.Close() End Try End Sub ' CreateNewOutputRows ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Public Function Validate(ByRef errMessage As String) As Boolean Dim result As Boolean Try If String.IsNullOrEmpty(Me.CrmConnection) Then Throw New Exception("Select Dynamics CRM Connection.") End If If String.IsNullOrEmpty(Me.Entity) Then Throw New Exception("Select Dynamics CRM Entity.") End If ' Store connection information in the runtime connection collection, too. ' Cannot directly use RuntimeConnectionCollection in the property get/set ' because of issues with multi-threading. Me.ComponentMetaData.RuntimeConnectionCollection("CrmConnection").ConnectionManagerID = Me.CrmConnection result = True Catch ex As Exception result = False errMessage = ex.Message End Try Validate = result End Function 'Validate ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Returns list of entities in the currently selected Dynamics CRM connection. Public Function GetEntityList() As String() Dim result() As String Dim connection As ICrmConnection = CType( _ Me.DesignConnections(Me.CrmConnection).AcquireConnection(Nothing), _ ICrmConnection) Call connection.Connect() Try result = connection.GetEntityList(2) ' 2 - Read Call Array.Sort(result) Finally Call connection.Close() End Try GetEntityList = result End Function ' GetEntityList ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Returns list of current properties based on current state. Public Function GetProperties() As String() Dim result As New ArrayList ' Setup static. Call result.Add("CrmConnection") ' Setup dynamic. Call result.Add("IsEntityVariable") Call result.Add(IIf(Me.IsEntityVariable, "EntityVariable", "Entity")) Return CType(result.ToArray(GetType(String)), String()) End Function ' GetProperties #Region "Properties" ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' _ _ Public Property CrmConnection() As String Get CrmConnection = m_crmConnection End Get Set(ByVal value As String) m_crmConnection = value End Set End Property ' CrmConnection ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' _ _ _ Public Property IsEntityVariable() As Boolean Get IsEntityVariable = m_isEntityVar End Get Set(ByVal value As Boolean) If m_isEntityVar <> value Then m_isEntityVar = value m_entity = String.Empty End If End Set End Property ' IsEntityVariable ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' _ _ Public Property Entity() As String Get Entity = m_entity End Get Set(ByVal value As String) m_entity = value End Set End Property ' Entity ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' _ _ Public Property EntityVariable() As String Get EntityVariable = m_entity End Get Set(ByVal value As String) m_entity = value End Set End Property ' EntityVariable #End Region ' Properties #Region "Internals" ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private ReadOnly Property CrmConnectionType() As String() Get CrmConnectionType = New String() {"DYNAMICS-CRM"} End Get End Property ' CrmConnectionType ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub FireError_(ByVal message As String) Dim cancel As Boolean = False Call MyBase.ComponentMetaData.FireError( _ 0, _ "Dynamics CRM Attributes Source", _ message, _ String.Empty, _ 0, _ cancel) End Sub ' FireError_ ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Function GetVariable_(ByVal varName As String) As Object Dim result As Object Dim vars As IDTSVariables90 = Nothing Call Me.VariableDispenser.LockOneForRead(varName, vars) Try result = vars(varName).Value Finally Call vars.Unlock() End Try GetVariable_ = result End Function ' GetVariable_ ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub Process2011_( _ ByVal service As CRM2011.OrganizationServiceClient, _ ByVal entity As String) Dim req As New CRM2011.OrganizationRequest() req.RequestName = "RetrieveEntity" req("LogicalName") = entity req("MetadataId") = New Guid() req("RetrieveAsIfPublished") = False req("EntityFilters") = CRM2011.EntityFilters.Attributes Dim res As CRM2011.OrganizationResponse = service.Execute(req) Dim entityMeta As CRM2011.EntityMetadata = CType( _ res("EntityMetadata"), _ CRM2011.EntityMetadata) For Each attr As CRM2011.AttributeMetadata In entityMeta.Attributes With MyBase.OutputBuffer Call .AddRow() .AttributeOf = attr.AttributeOf If attr.AttributeType.HasValue Then .AttributeType = attr.AttributeType.Value.ToString() End If If attr.CanBeSecuredForCreate.HasValue Then .CanBeSecuredForCreate = attr.CanBeSecuredForCreate.Value End If If attr.CanBeSecuredForRead.HasValue Then .CanBeSecuredForRead = attr.CanBeSecuredForRead.Value End If If attr.CanBeSecuredForUpdate.HasValue Then .CanBeSecuredForUpdate = attr.CanBeSecuredForUpdate.Value End If .CanModifyAdditionalSettings = attr.CanModifyAdditionalSettings.Value If attr.ColumnNumber.HasValue Then .ColumnNumber = attr.ColumnNumber.Value End If .DeprecatedVersion = attr.DeprecatedVersion If attr.Description.LocalizedLabels.Count > 0 Then .Description = attr.Description.LocalizedLabels(0).Label End If If attr.DisplayName.LocalizedLabels.Count > 0 Then .DisplayName = attr.DisplayName.LocalizedLabels(0).Label End If .EntityLogicalName = attr.EntityLogicalName .IsAuditEnabled = attr.IsAuditEnabled.Value If attr.IsCustomAttribute.HasValue Then .IsCustomAttribute = attr.IsCustomAttribute.Value End If .IsCustomizable = attr.IsCustomizable.Value If attr.IsManaged.HasValue Then .IsManaged = attr.IsManaged.Value End If If attr.IsPrimaryId.HasValue Then .IsPrimaryId = attr.IsPrimaryId.Value End If If attr.IsPrimaryName.HasValue Then .IsPrimaryName = attr.IsPrimaryName.Value End If .IsRenameable = attr.IsRenameable.Value If attr.IsSecured.HasValue Then .IsSecured = attr.IsSecured.Value End If .IsValidForAdvancedFind = attr.IsValidForAdvancedFind.Value If attr.IsValidForCreate.HasValue Then .IsValidForCreate = attr.IsValidForCreate.Value End If If attr.IsValidForRead.HasValue Then .IsValidForRead = attr.IsValidForRead.Value End If If attr.IsValidForUpdate.HasValue Then .IsValidForUpdate = attr.IsValidForUpdate.Value End If If attr.LinkedAttributeId.HasValue Then .LinkedAttributeId = attr.LinkedAttributeId.Value End If .LogicalName = attr.LogicalName .RequiredLevel = attr.RequiredLevel.Value.ToString() .SchemaName = attr.SchemaName End With Next End Sub ' Process2011_ ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub Process4_( _ ByVal service As Meta4.MetadataService, _ ByVal entity As String) Dim req As New Meta4.RetrieveEntityRequest req.LogicalName = Me.Entity req.EntityItems = Meta4.EntityItems.IncludeAttributes Dim res As Meta4.RetrieveEntityResponse = CType( _ service.Execute(req), _ Meta4.RetrieveEntityResponse) For Each attr As Meta4.AttributeMetadata In res.EntityMetadata.Attributes With MyBase.OutputBuffer Call .AddRow() .AttributeOf = attr.AttributeOf If Not attr.AttributeType.IsNull Then .AttributeType = attr.AttributeType.Value.ToString() End If If attr.Description.LocLabels.Length > 0 Then .Description = attr.Description.LocLabels(0).Label End If If attr.DisplayName.LocLabels.Length > 0 Then .DisplayName = attr.DisplayName.LocLabels(0).Label End If .EntityLogicalName = attr.EntityLogicalName If Not attr.IsCustomField.IsNull Then .IsCustomAttribute = attr.IsCustomField.Value End If .LogicalName = attr.LogicalName If Not attr.RequiredLevel.IsNull Then .RequiredLevel = attr.RequiredLevel.Value.ToString() End If .SchemaName = attr.SchemaName If Not attr.ValidForCreate.IsNull Then .IsValidForCreate = attr.ValidForCreate.Value End If If Not attr.ValidForRead.IsNull Then .IsValidForRead = attr.ValidForRead.Value End If If Not attr.ValidForUpdate.IsNull Then .IsValidForUpdate = attr.ValidForUpdate.Value End If End With Next End Sub ' Process4_ ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub Process3_( _ ByVal service As Meta3.MetadataService, _ ByVal entity As String) Dim entityMeta As Meta3.EntityMetadata = service.RetrieveEntityMetadata( _ entity, _ CozyRoc.Dynamics.Crm3.MetadataService.EntityFlags.IncludeAttributes) For Each attr As Meta3.AttributeMetadata In entityMeta.Attributes With MyBase.OutputBuffer Call .AddRow() .AttributeOf = attr.AttributeOf .AttributeType = attr.Type.ToString() .Description = attr.Description .DisplayName = attr.DisplayName .IsCustomAttribute = attr.IsCustomField .LogicalName = attr.Name .RequiredLevel = attr.RequiredLevel.ToString() .IsValidForCreate = attr.ValidForCreate .IsValidForRead = attr.ValidForRead .IsValidForUpdate = attr.ValidForUpdate End With Next End Sub ' Process3_ #End Region ' Internals #Region "Attributes" Private m_crmConnection As String Private m_isEntityVar As Boolean Private m_entity As String #End Region ' Attributes End Class ' CreateNewOutputRows ]]> ScriptComponent_45f27d3fd80d4c08afd7fd13646659be true CozyRoc.SqlServer.SSIS.ScriptComponentHostPlus, CozyRoc.SSISPlus, Version=1.0.0.0, Culture=neutral, PublicKeyToken=16cf490bb80c34ea