_ Public Class UserComponent Inherits ScriptComponentPlus Public Connections As New Connections(Me) Public Variables As New Variables(Me) Public OutputBuffer As OutputBuffer Public Overridable Sub FinishOutputs() End Sub Private Sub MarkOutputsFinished() If OutputBuffer IsNot Nothing Then OutputBuffer.SetEndOfRowset OutputBuffer = Nothing End If End Sub Public Overrides Sub PrimeOutput(ByVal Outputs As Integer, ByVal OutputIDs() As Integer, ByVal Buffers() As PipelineBuffer, ByVal OutputMap As OutputNameMap) For I As Integer = 0 To Outputs - 1 If OutputIDs(I) = GetOutputID(OutputMap, "Output") Then OutputBuffer = New OutputBuffer(Me, OutputIDs(I), False, Buffers(I), OutputMap) End If Next CreateNewOutputRows() FinishOutputs() MarkOutputsFinished() End Sub Public Overridable Sub CreateNewOutputRows() End Sub End Class Public Class Connections Dim ParentComponent As ScriptComponent _ Public Sub New(ByVal Component As ScriptComponent) ParentComponent = Component End Sub Public ReadOnly Property CrmConnection() As IDTSConnectionManager100 Get Return ParentComponent.ComponentMetaData.RuntimeConnectionCollection("CrmConnection").ConnectionManager End Get End Property End Class Public Class Variables Dim ParentComponent As ScriptComponent _ Public Sub New(ByVal Component As ScriptComponent) ParentComponent = Component End Sub End Class ]]> _ Public Class OutputBuffer Inherits ScriptBufferPlus Public Sub New(ByVal Component As ScriptComponent, ByVal ObjectID As Integer, ByVal IsInput As Boolean, ByVal Buffer As PipelineBuffer, ByVal OutputMap As OutputNameMap) MyBase.New(Component, ObjectID, IsInput, Buffer, OutputMap) End Sub Public Overrides ReadOnly Property StaticInputColumns() As String() Get Return New String() {} End Get End Property Public WriteOnly Property [ActivityTypeMask]() As Int32 Set Me(0) = Value End Set End Property Public WriteOnly Property [ActivityTypeMask_IsNull] As Boolean Set If (value) SetNull(0) Else Throw new InvalidOperationException("IsNull property cannot be set to False. Assign a value to the column instead.") End If End Set End Property Public WriteOnly Property [AutoRouteToOwnerQueue]() As Boolean Set Me(1) = Value End Set End Property Public WriteOnly Property [AutoRouteToOwnerQueue_IsNull] As Boolean Set If (value) SetNull(1) Else Throw new InvalidOperationException("IsNull property cannot be set to False. Assign a value to the column instead.") End If End Set End Property Public WriteOnly Property [CanBeInManyToMany]() As Boolean Set Me(2) = Value End Set End Property Public WriteOnly Property [CanBeInManyToMany_IsNull] As Boolean Set If (value) SetNull(2) Else Throw new InvalidOperationException("IsNull property cannot be set to False. Assign a value to the column instead.") End If End Set End Property Public WriteOnly Property [CanBePrimaryEntityInRelationship]() As Boolean Set Me(3) = Value End Set End Property Public WriteOnly Property [CanBePrimaryEntityInRelationship_IsNull] As Boolean Set If (value) SetNull(3) Else Throw new InvalidOperationException("IsNull property cannot be set to False. Assign a value to the column instead.") End If End Set End Property Public WriteOnly Property [CanBeRelatedEntityInRelationship]() As Boolean Set Me(4) = Value End Set End Property Public WriteOnly Property [CanBeRelatedEntityInRelationship_IsNull] As Boolean Set If (value) SetNull(4) Else Throw new InvalidOperationException("IsNull property cannot be set to False. Assign a value to the column instead.") End If End Set End Property Public WriteOnly Property [CanCreateAttributes]() As Boolean Set Me(5) = Value End Set End Property Public WriteOnly Property [CanCreateAttributes_IsNull] As Boolean Set If (value) SetNull(5) Else Throw new InvalidOperationException("IsNull property cannot be set to False. Assign a value to the column instead.") End If End Set End Property Public WriteOnly Property [CanCreateCharts]() As Boolean Set Me(6) = Value End Set End Property Public WriteOnly Property [CanCreateCharts_IsNull] As Boolean Set If (value) SetNull(6) Else Throw new InvalidOperationException("IsNull property cannot be set to False. Assign a value to the column instead.") End If End Set End Property Public WriteOnly Property [CanCreateForms]() As Boolean Set Me(7) = Value End Set End Property Public WriteOnly Property [CanCreateForms_IsNull] As Boolean Set If (value) SetNull(7) Else Throw new InvalidOperationException("IsNull property cannot be set to False. Assign a value to the column instead.") End If End Set End Property Public WriteOnly Property [CanCreateViews]() As Boolean Set Me(8) = Value End Set End Property Public WriteOnly Property [CanCreateViews_IsNull] As Boolean Set If (value) SetNull(8) Else Throw new InvalidOperationException("IsNull property cannot be set to False. Assign a value to the column instead.") End If End Set End Property Public WriteOnly Property [CanModifyAdditionalSettings]() As Boolean Set Me(9) = Value End Set End Property Public WriteOnly Property [CanModifyAdditionalSettings_IsNull] As Boolean Set If (value) SetNull(9) Else Throw new InvalidOperationException("IsNull property cannot be set to False. Assign a value to the column instead.") End If End Set End Property Public WriteOnly Property [CanTriggerWorkflow]() As Boolean Set Me(10) = Value End Set End Property Public WriteOnly Property [CanTriggerWorkflow_IsNull] As Boolean Set If (value) SetNull(10) Else Throw new InvalidOperationException("IsNull property cannot be set to False. Assign a value to the column instead.") End If End Set End Property Public WriteOnly Property [Description]() As String Set Me(11) = Value End Set End Property Public WriteOnly Property [Description_IsNull] As Boolean Set If (value) SetNull(11) Else Throw new InvalidOperationException("IsNull property cannot be set to False. Assign a value to the column instead.") End If End Set End Property Public WriteOnly Property [DisplayCollectionName]() As String Set Me(12) = Value End Set End Property Public WriteOnly Property [DisplayCollectionName_IsNull] As Boolean Set If (value) SetNull(12) Else Throw new InvalidOperationException("IsNull property cannot be set to False. Assign a value to the column instead.") End If End Set End Property Public WriteOnly Property [DisplayName]() As String Set Me(13) = Value End Set End Property Public WriteOnly Property [DisplayName_IsNull] As Boolean Set If (value) SetNull(13) Else Throw new InvalidOperationException("IsNull property cannot be set to False. Assign a value to the column instead.") End If End Set End Property Public WriteOnly Property [IconLargeName]() As String Set Me(14) = Value End Set End Property Public WriteOnly Property [IconLargeName_IsNull] As Boolean Set If (value) SetNull(14) Else Throw new InvalidOperationException("IsNull property cannot be set to False. Assign a value to the column instead.") End If End Set End Property Public WriteOnly Property [IconMediumName]() As String Set Me(15) = Value End Set End Property Public WriteOnly Property [IconMediumName_IsNull] As Boolean Set If (value) SetNull(15) Else Throw new InvalidOperationException("IsNull property cannot be set to False. Assign a value to the column instead.") End If End Set End Property Public WriteOnly Property [IconSmallName]() As String Set Me(16) = Value End Set End Property Public WriteOnly Property [IconSmallName_IsNull] As Boolean Set If (value) SetNull(16) Else Throw new InvalidOperationException("IsNull property cannot be set to False. Assign a value to the column instead.") End If End Set End Property Public WriteOnly Property [IsActivity]() As Boolean Set Me(17) = Value End Set End Property Public WriteOnly Property [IsActivity_IsNull] As Boolean Set If (value) SetNull(17) Else Throw new InvalidOperationException("IsNull property cannot be set to False. Assign a value to the column instead.") End If End Set End Property Public WriteOnly Property [IsActivityParty]() As Boolean Set Me(18) = Value End Set End Property Public WriteOnly Property [IsActivityParty_IsNull] As Boolean Set If (value) SetNull(18) Else Throw new InvalidOperationException("IsNull property cannot be set to False. Assign a value to the column instead.") End If End Set End Property Public WriteOnly Property [IsAuditEnabled]() As Boolean Set Me(19) = Value End Set End Property Public WriteOnly Property [IsAuditEnabled_IsNull] As Boolean Set If (value) SetNull(19) Else Throw new InvalidOperationException("IsNull property cannot be set to False. Assign a value to the column instead.") End If End Set End Property Public WriteOnly Property [IsAvailableOffline]() As Boolean Set Me(20) = Value End Set End Property Public WriteOnly Property [IsAvailableOffline_IsNull] As Boolean Set If (value) SetNull(20) Else Throw new InvalidOperationException("IsNull property cannot be set to False. Assign a value to the column instead.") End If End Set End Property Public WriteOnly Property [IsChildEntity]() As Boolean Set Me(21) = Value End Set End Property Public WriteOnly Property [IsChildEntity_IsNull] As Boolean Set If (value) SetNull(21) Else Throw new InvalidOperationException("IsNull property cannot be set to False. Assign a value to the column instead.") End If End Set End Property Public WriteOnly Property [IsConnectionsEnabled]() As Boolean Set Me(22) = Value End Set End Property Public WriteOnly Property [IsConnectionsEnabled_IsNull] As Boolean Set If (value) SetNull(22) Else Throw new InvalidOperationException("IsNull property cannot be set to False. Assign a value to the column instead.") End If End Set End Property Public WriteOnly Property [IsCustomEntity]() As Boolean Set Me(23) = Value End Set End Property Public WriteOnly Property [IsCustomEntity_IsNull] As Boolean Set If (value) SetNull(23) Else Throw new InvalidOperationException("IsNull property cannot be set to False. Assign a value to the column instead.") End If End Set End Property Public WriteOnly Property [IsCustomizable]() As Boolean Set Me(24) = Value End Set End Property Public WriteOnly Property [IsCustomizable_IsNull] As Boolean Set If (value) SetNull(24) Else Throw new InvalidOperationException("IsNull property cannot be set to False. Assign a value to the column instead.") End If End Set End Property Public WriteOnly Property [IsDocumentManagementEnabled]() As Boolean Set Me(25) = Value End Set End Property Public WriteOnly Property [IsDocumentManagementEnabled_IsNull] As Boolean Set If (value) SetNull(25) Else Throw new InvalidOperationException("IsNull property cannot be set to False. Assign a value to the column instead.") End If End Set End Property Public WriteOnly Property [IsDuplicateDetectionEnabled]() As Boolean Set Me(26) = Value End Set End Property Public WriteOnly Property [IsDuplicateDetectionEnabled_IsNull] As Boolean Set If (value) SetNull(26) Else Throw new InvalidOperationException("IsNull property cannot be set to False. Assign a value to the column instead.") End If End Set End Property Public WriteOnly Property [IsEnabledForCharts]() As Boolean Set Me(27) = Value End Set End Property Public WriteOnly Property [IsEnabledForCharts_IsNull] As Boolean Set If (value) SetNull(27) Else Throw new InvalidOperationException("IsNull property cannot be set to False. Assign a value to the column instead.") End If End Set End Property Public WriteOnly Property [IsImportable]() As Boolean Set Me(28) = Value End Set End Property Public WriteOnly Property [IsImportable_IsNull] As Boolean Set If (value) SetNull(28) Else Throw new InvalidOperationException("IsNull property cannot be set to False. Assign a value to the column instead.") End If End Set End Property Public WriteOnly Property [IsIntersect]() As Boolean Set Me(29) = Value End Set End Property Public WriteOnly Property [IsIntersect_IsNull] As Boolean Set If (value) SetNull(29) Else Throw new InvalidOperationException("IsNull property cannot be set to False. Assign a value to the column instead.") End If End Set End Property Public WriteOnly Property [IsMailMergeEnabled]() As Boolean Set Me(30) = Value End Set End Property Public WriteOnly Property [IsMailMergeEnabled_IsNull] As Boolean Set If (value) SetNull(30) Else Throw new InvalidOperationException("IsNull property cannot be set to False. Assign a value to the column instead.") End If End Set End Property Public WriteOnly Property [IsManaged]() As Boolean Set Me(31) = Value End Set End Property Public WriteOnly Property [IsManaged_IsNull] As Boolean Set If (value) SetNull(31) Else Throw new InvalidOperationException("IsNull property cannot be set to False. Assign a value to the column instead.") End If End Set End Property Public WriteOnly Property [IsMappable]() As Boolean Set Me(32) = Value End Set End Property Public WriteOnly Property [IsMappable_IsNull] As Boolean Set If (value) SetNull(32) Else Throw new InvalidOperationException("IsNull property cannot be set to False. Assign a value to the column instead.") End If End Set End Property Public WriteOnly Property [IsReadingPaneEnabled]() As Boolean Set Me(33) = Value End Set End Property Public WriteOnly Property [IsReadingPaneEnabled_IsNull] As Boolean Set If (value) SetNull(33) Else Throw new InvalidOperationException("IsNull property cannot be set to False. Assign a value to the column instead.") End If End Set End Property Public WriteOnly Property [IsRenameable]() As Boolean Set Me(34) = Value End Set End Property Public WriteOnly Property [IsRenameable_IsNull] As Boolean Set If (value) SetNull(34) Else Throw new InvalidOperationException("IsNull property cannot be set to False. Assign a value to the column instead.") End If End Set End Property Public WriteOnly Property [IsValidForAdvancedFind]() As Boolean Set Me(35) = Value End Set End Property Public WriteOnly Property [IsValidForAdvancedFind_IsNull] As Boolean Set If (value) SetNull(35) Else Throw new InvalidOperationException("IsNull property cannot be set to False. Assign a value to the column instead.") End If End Set End Property Public WriteOnly Property [IsValidForQueue]() As Boolean Set Me(36) = Value End Set End Property Public WriteOnly Property [IsValidForQueue_IsNull] As Boolean Set If (value) SetNull(36) Else Throw new InvalidOperationException("IsNull property cannot be set to False. Assign a value to the column instead.") End If End Set End Property Public WriteOnly Property [IsVisibleInMobile]() As Boolean Set Me(37) = Value End Set End Property Public WriteOnly Property [IsVisibleInMobile_IsNull] As Boolean Set If (value) SetNull(37) Else Throw new InvalidOperationException("IsNull property cannot be set to False. Assign a value to the column instead.") End If End Set End Property Public WriteOnly Property [LogicalName]() As String Set Me(38) = Value End Set End Property Public WriteOnly Property [LogicalName_IsNull] As Boolean Set If (value) SetNull(38) Else Throw new InvalidOperationException("IsNull property cannot be set to False. Assign a value to the column instead.") End If End Set End Property Public WriteOnly Property [ObjectTypeCode]() As Int32 Set Me(39) = Value End Set End Property Public WriteOnly Property [ObjectTypeCode_IsNull] As Boolean Set If (value) SetNull(39) Else Throw new InvalidOperationException("IsNull property cannot be set to False. Assign a value to the column instead.") End If End Set End Property Public WriteOnly Property [OwnershipType]() As String Set Me(40) = Value End Set End Property Public WriteOnly Property [OwnershipType_IsNull] As Boolean Set If (value) SetNull(40) Else Throw new InvalidOperationException("IsNull property cannot be set to False. Assign a value to the column instead.") End If End Set End Property Public WriteOnly Property [PrimaryIdAttribute]() As String Set Me(41) = Value End Set End Property Public WriteOnly Property [PrimaryIdAttribute_IsNull] As Boolean Set If (value) SetNull(41) Else Throw new InvalidOperationException("IsNull property cannot be set to False. Assign a value to the column instead.") End If End Set End Property Public WriteOnly Property [PrimaryNameAttribute]() As String Set Me(42) = Value End Set End Property Public WriteOnly Property [PrimaryNameAttribute_IsNull] As Boolean Set If (value) SetNull(42) Else Throw new InvalidOperationException("IsNull property cannot be set to False. Assign a value to the column instead.") End If End Set End Property Public WriteOnly Property [RecurrenceBaseEntityLogicalName]() As String Set Me(43) = Value End Set End Property Public WriteOnly Property [RecurrenceBaseEntityLogicalName_IsNull] As Boolean Set If (value) SetNull(43) Else Throw new InvalidOperationException("IsNull property cannot be set to False. Assign a value to the column instead.") End If End Set End Property Public WriteOnly Property [ReportViewName]() As String Set Me(44) = Value End Set End Property Public WriteOnly Property [ReportViewName_IsNull] As Boolean Set If (value) SetNull(44) Else Throw new InvalidOperationException("IsNull property cannot be set to False. Assign a value to the column instead.") End If End Set End Property Public WriteOnly Property [SchemaName]() As String Set Me(45) = Value End Set End Property Public WriteOnly Property [SchemaName_IsNull] As Boolean Set If (value) SetNull(45) Else Throw new InvalidOperationException("IsNull property cannot be set to False. Assign a value to the column instead.") End If End Set End Property Public Overrides ReadOnly Property StaticOutputColumns() As String() Get Return New String() {"ActivityTypeMask", "AutoRouteToOwnerQueue", "CanBeInManyToMany", "CanBePrimaryEntityInRelationship", "CanBeRelatedEntityInRelationship", "CanCreateAttributes", "CanCreateCharts", "CanCreateForms", "CanCreateViews", "CanModifyAdditionalSettings", "CanTriggerWorkflow", "Description", "DisplayCollectionName", "DisplayName", "IconLargeName", "IconMediumName", "IconSmallName", "IsActivity", "IsActivityParty", "IsAuditEnabled", "IsAvailableOffline", "IsChildEntity", "IsConnectionsEnabled", "IsCustomEntity", "IsCustomizable", "IsDocumentManagementEnabled", "IsDuplicateDetectionEnabled", "IsEnabledForCharts", "IsImportable", "IsIntersect", "IsMailMergeEnabled", "IsManaged", "IsMappable", "IsReadingPaneEnabled", "IsRenameable", "IsValidForAdvancedFind", "IsValidForQueue", "IsVisibleInMobile", "LogicalName", "ObjectTypeCode", "OwnershipType", "PrimaryIdAttribute", "PrimaryNameAttribute", "RecurrenceBaseEntityLogicalName", "ReportViewName", "SchemaName"} End Get End Property Public Overloads Sub AddRow() MyBase.AddRow() End Sub Public Overloads Sub SetEndOfRowset() MyBase.SetEndOfRowset() End Sub Public Overloads Function EndOfRowset() As Boolean EndOfRowset = MyBase.EndOfRowset End Function End Class ]]> _ _ _ Public Class ScriptMain Inherits UserComponent ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Public Overrides Sub CreateNewOutputRows() ' 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) ElseIf Not service4 Is Nothing Then ' Will use metadata service. Dim meta4 As Meta4.MetadataService = CType( _ connection.GetService(1), _ Meta4.MetadataService) Call Process4_(meta4) ElseIf Not service3 Is Nothing Then ' Will use metadata service. Dim meta3 As Meta3.MetadataService = CType( _ connection.GetService(1), _ Meta3.MetadataService) Call Process3_(meta3) 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 ' 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 #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 #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 Entity Source", _ message, _ String.Empty, _ 0, _ cancel) End Sub ' FireError_ ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub Process2011_(ByVal service As CRM2011.OrganizationServiceClient) Dim req As New CRM2011.OrganizationRequest() req.RequestName = "RetrieveAllEntities" req("RetrieveAsIfPublished") = False req("EntityFilters") = CRM2011.EntityFilters.Entity Dim res As CRM2011.OrganizationResponse = service.Execute(req) Dim entities() As CRM2011.EntityMetadata = CType( _ res("EntityMetadata"), _ CRM2011.EntityMetadata()) For Each entity As CRM2011.EntityMetadata In entities With MyBase.OutputBuffer Call .AddRow() If entity.ActivityTypeMask.HasValue Then .ActivityTypeMask = entity.ActivityTypeMask.Value End If If entity.AutoRouteToOwnerQueue.HasValue Then .AutoRouteToOwnerQueue = entity.AutoRouteToOwnerQueue.Value End If .CanBeInManyToMany = entity.CanBeInManyToMany.Value .CanBePrimaryEntityInRelationship = entity.CanBePrimaryEntityInRelationship.Value .CanBeRelatedEntityInRelationship = entity.CanBeRelatedEntityInRelationship.Value .CanCreateAttributes = entity.CanCreateAttributes.Value .CanCreateCharts = entity.CanCreateCharts.Value .CanCreateForms = entity.CanCreateForms.Value .CanCreateViews = entity.CanCreateViews.Value .CanModifyAdditionalSettings = entity.CanModifyAdditionalSettings.Value If entity.CanTriggerWorkflow.HasValue Then .CanTriggerWorkflow = entity.CanTriggerWorkflow.Value End If If entity.Description.LocalizedLabels.Count > 0 Then .Description = entity.Description.LocalizedLabels(0).Label End If If entity.DisplayCollectionName.LocalizedLabels.Count > 0 Then .DisplayCollectionName = entity.DisplayCollectionName.LocalizedLabels(0).Label End If If entity.DisplayName.LocalizedLabels.Count > 0 Then .DisplayName = entity.DisplayName.LocalizedLabels(0).Label End If .IconLargeName = entity.IconLargeName .IconMediumName = entity.IconMediumName .IconSmallName = entity.IconSmallName If entity.IsActivity.HasValue Then .IsActivity = entity.IsActivity.Value End If If entity.IsActivityParty.HasValue Then .IsActivityParty = entity.IsActivityParty.Value End If .IsAuditEnabled = entity.IsAuditEnabled.Value If entity.IsAvailableOffline.HasValue Then .IsAvailableOffline = entity.IsAvailableOffline.Value End If If entity.IsChildEntity.HasValue Then .IsChildEntity = entity.IsChildEntity.Value End If .IsConnectionsEnabled = entity.IsConnectionsEnabled.Value If entity.IsCustomEntity.HasValue Then .IsCustomEntity = entity.IsCustomEntity.Value End If .IsCustomizable = entity.IsCustomizable.Value If entity.IsDocumentManagementEnabled.HasValue Then .IsDocumentManagementEnabled = entity.IsDocumentManagementEnabled.Value End If .IsDuplicateDetectionEnabled = entity.IsDuplicateDetectionEnabled.Value If entity.IsEnabledForCharts.HasValue Then .IsEnabledForCharts = entity.IsEnabledForCharts.Value End If If entity.IsImportable.HasValue Then .IsImportable = entity.IsImportable.Value End If If entity.IsIntersect.HasValue Then .IsIntersect = entity.IsIntersect.Value End If .IsMailMergeEnabled = entity.IsMailMergeEnabled.Value If entity.IsManaged.HasValue Then .IsManaged = entity.IsManaged.Value End If .IsMappable = entity.IsMappable.Value If entity.IsReadingPaneEnabled.HasValue Then .IsReadingPaneEnabled = entity.IsReadingPaneEnabled.Value End If .IsRenameable = entity.IsRenameable.Value If entity.IsValidForAdvancedFind.HasValue Then .IsValidForAdvancedFind = entity.IsValidForAdvancedFind.Value End If .IsValidForQueue = entity.IsValidForQueue.Value .IsVisibleInMobile = entity.IsVisibleInMobile.Value .LogicalName = entity.LogicalName If entity.ObjectTypeCode.HasValue Then .ObjectTypeCode = entity.ObjectTypeCode.Value End If If entity.OwnershipType.HasValue Then .OwnershipType = entity.OwnershipType.Value.ToString() End If .PrimaryIdAttribute = entity.PrimaryIdAttribute .PrimaryNameAttribute = entity.PrimaryNameAttribute .RecurrenceBaseEntityLogicalName = entity.RecurrenceBaseEntityLogicalName .ReportViewName = entity.ReportViewName .SchemaName = entity.SchemaName End With Next End Sub ' Process2011_ ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub Process4_(ByVal service As Meta4.MetadataService) Dim req As New Meta4.RetrieveAllEntitiesRequest req.MetadataItems = Meta4.MetadataItems.EntitiesOnly Dim res As Meta4.RetrieveAllEntitiesResponse = CType( _ service.Execute(req), _ Meta4.RetrieveAllEntitiesResponse) For Each entity As Meta4.EntityMetadata In res.CrmMetadata With MyBase.OutputBuffer Call .AddRow() If Not entity.CanTriggerWorkflow.IsNull Then .CanTriggerWorkflow = entity.CanTriggerWorkflow.Value End If If entity.Description.LocLabels.Length > 0 Then .Description = entity.Description.LocLabels(0).Label End If If entity.DisplayCollectionName.LocLabels.Length > 0 Then .DisplayCollectionName = entity.DisplayCollectionName.LocLabels(0).Label End If If entity.DisplayName.LocLabels.Length > 0 Then .DisplayName = entity.DisplayName.LocLabels(0).Label End If If Not entity.IsActivity.IsNull Then .IsActivity = entity.IsActivity.Value End If If Not entity.IsAvailableOffline.IsNull Then .IsAvailableOffline = entity.IsAvailableOffline.Value End If If Not entity.IsChildEntity.IsNull Then .IsChildEntity = entity.IsChildEntity.Value End If If Not entity.IsCustomEntity.IsNull Then .IsCustomEntity = entity.IsCustomEntity.Value End If If Not entity.IsCustomizable.IsNull Then .IsCustomizable = entity.IsCustomizable.Value End If If Not entity.IsImportable.IsNull Then .IsImportable = entity.IsImportable.Value End If If Not entity.IsIntersect.IsNull Then .IsIntersect = entity.IsIntersect.Value End If If Not entity.IsMailMergeEnabled.IsNull Then .IsMailMergeEnabled = entity.IsMailMergeEnabled.Value End If If Not entity.IsValidForAdvancedFind.IsNull Then .IsValidForAdvancedFind = entity.IsValidForAdvancedFind.Value End If .LogicalName = entity.LogicalName If Not entity.ObjectTypeCode.IsNull Then .ObjectTypeCode = entity.ObjectTypeCode.Value End If If Not entity.OwnershipType.IsNull Then .OwnershipType = entity.OwnershipType.Value.ToString() End If .PrimaryIdAttribute = entity.PrimaryKey .PrimaryNameAttribute = entity.PrimaryField .ReportViewName = entity.ReportViewName .SchemaName = entity.SchemaName End With Next End Sub ' Process4_ ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub Process3_(ByVal service As Meta3.MetadataService) Dim res As Meta3.Metadata = service.RetrieveMetadata(Meta3.MetadataFlags.EntitiesOnly) For Each entity As Meta3.EntityMetadata In res.Entities With MyBase.OutputBuffer Call .AddRow() .Description = entity.Description .DisplayCollectionName = entity.DisplayCollectionName .DisplayName = entity.DisplayName .IsCustomEntity = entity.IsCustomEntity .IsCustomizable = entity.IsCustomizable .LogicalName = entity.Name .ObjectTypeCode = entity.ObjectTypeCode .OwnershipType = entity.OwnershipType.ToString() .PrimaryIdAttribute = entity.PrimaryKey .PrimaryNameAttribute = entity.PrimaryField .ReportViewName = entity.ReportViewName End With Next End Sub ' Process3_ #End Region ' Internals #Region "Attributes" Private m_crmConnection As String #End Region ' Attributes End Class ' CreateNewOutputRows ]]> {30D016F9-3734-4E33-A861-5E7D899E18F3};{F184B08F-C81C-45F6-A57F-5ABD9991F28F} Debug AnyCPU 8.0.30703 2.0 {AA9A5FBA-8AD6-4862-8DB4-40B807E294CC} Library My Project ScriptComponent_16bdf9b8dcbd4172a3fc51cbfc50adfe ScriptComponent_16bdf9b8dcbd4172a3fc51cbfc50adfe v4.0 512 Binary On On true full false .\bin\Debug\ false true true prompt 4 false true .\bin\Release\ false false true prompt 4 False C:\Program Files (x86)\Microsoft SQL Server\120\SDK\Assemblies\CozyRoc.SSISPlus.2014.dll False False False False False SSIS_SC120 ]]> msBuild ScriptComponent_16bdf9b8dcbd4172a3fc51cbfc50adfe ScriptComponent_16bdf9b8dcbd4172a3fc51cbfc50adfe {C8C7F4F0-FB32-406B-B4A5-6AD3B1449557} ]]>CozyRoc.SqlServer.SSIS.ScriptComponentHostPlus, CozyRoc.SSISPlus.2014, Version=1.0.0.0, Culture=neutral, PublicKeyToken=16cf490bb80c34eaScriptComponent_16bdf9b8dcbd4172a3fc51cbfc50adfeVisualBasic