{30D016F9-3734-4E33-A861-5E7D899E18F3};{F184B08F-C81C-45F6-A57F-5ABD9991F28F} Debug AnyCPU 8.0.30703 2.0 {5633EE3F-29E6-4B77-9A28-246A7A0A1652} Library My Project ScriptComponent_61c8db385ab54f948a3511404dee3f8e ScriptComponent_61c8db385ab54f948a3511404dee3f8e v4.5 512 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\140\SDK\Assemblies\CozyRoc.SSISPlus.2017.dll SSIS_SC140 Binary On On ]]> _ 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 [autoNumber]() As Boolean Set Me(0) = Value End Set End Property Public WriteOnly Property [autoNumber_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 [byteLength]() As Int32 Set Me(1) = Value End Set End Property Public WriteOnly Property [byteLength_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 [calculated]() As Boolean Set Me(2) = Value End Set End Property Public WriteOnly Property [calculated_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 ReadOnly Property [calculatedFormula]() As BlobColumn Get Return CType(Me(3), BlobColumn) End Get End Property Public ReadOnly Property [calculatedFormula_IsNull] As Boolean Get Return IsNull(3) End Get End Property Public WriteOnly Property [cascadeDelete]() As Boolean Set Me(4) = Value End Set End Property Public WriteOnly Property [cascadeDelete_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 [caseSensitive]() As Boolean Set Me(5) = Value End Set End Property Public WriteOnly Property [caseSensitive_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 [controllerName]() As String Set Me(6) = Value End Set End Property Public WriteOnly Property [controllerName_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 [createable]() As Boolean Set Me(7) = Value End Set End Property Public WriteOnly Property [createable_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 [custom]() As Boolean Set Me(8) = Value End Set End Property Public WriteOnly Property [custom_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 [defaultedOnCreate]() As Boolean Set Me(9) = Value End Set End Property Public WriteOnly Property [defaultedOnCreate_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 ReadOnly Property [defaultValueFormula]() As BlobColumn Get Return CType(Me(10), BlobColumn) End Get End Property Public ReadOnly Property [defaultValueFormula_IsNull] As Boolean Get Return IsNull(10) End Get End Property Public WriteOnly Property [dependentPicklist]() As Boolean Set Me(11) = Value End Set End Property Public WriteOnly Property [dependentPicklist_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 [deprecatedAndHidden]() As Boolean Set Me(12) = Value End Set End Property Public WriteOnly Property [deprecatedAndHidden_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 [digits]() As Int32 Set Me(13) = Value End Set End Property Public WriteOnly Property [digits_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 [displayLocationInDecimal]() As Boolean Set Me(14) = Value End Set End Property Public WriteOnly Property [displayLocationInDecimal_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 [externalId]() As Boolean Set Me(15) = Value End Set End Property Public WriteOnly Property [externalId_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 [filterable]() As Boolean Set Me(16) = Value End Set End Property Public WriteOnly Property [filterable_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 [groupable]() As Boolean Set Me(17) = Value End Set End Property Public WriteOnly Property [groupable_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 [htmlFormatted]() As Boolean Set Me(18) = Value End Set End Property Public WriteOnly Property [htmlFormatted_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 [idLookup]() As Boolean Set Me(19) = Value End Set End Property Public WriteOnly Property [idLookup_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 [inlineHelpText]() As String Set Me(20) = Value End Set End Property Public WriteOnly Property [inlineHelpText_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 [label]() As String Set Me(21) = Value End Set End Property Public WriteOnly Property [label_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 [length]() As Int32 Set Me(22) = Value End Set End Property Public WriteOnly Property [length_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 [name]() As String Set Me(23) = Value End Set End Property Public WriteOnly Property [name_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 [nameField]() As Boolean Set Me(24) = Value End Set End Property Public WriteOnly Property [nameField_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 [namePointing]() As Boolean Set Me(25) = Value End Set End Property Public WriteOnly Property [namePointing_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 [nillable]() As Boolean Set Me(26) = Value End Set End Property Public WriteOnly Property [nillable_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 [permissionable]() As Boolean Set Me(27) = Value End Set End Property Public WriteOnly Property [permissionable_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 ReadOnly Property [picklistValues]() As BlobColumn Get Return CType(Me(28), BlobColumn) End Get End Property Public ReadOnly Property [picklistValues_IsNull] As Boolean Get Return IsNull(28) End Get End Property Public WriteOnly Property [precision]() As Int32 Set Me(29) = Value End Set End Property Public WriteOnly Property [precision_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 ReadOnly Property [referenceTo]() As BlobColumn Get Return CType(Me(30), BlobColumn) End Get End Property Public ReadOnly Property [referenceTo_IsNull] As Boolean Get Return IsNull(30) End Get End Property Public WriteOnly Property [relationshipName]() As String Set Me(31) = Value End Set End Property Public WriteOnly Property [relationshipName_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 [relationshipOrder]() As Int32 Set Me(32) = Value End Set End Property Public WriteOnly Property [relationshipOrder_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 [restrictedDelete]() As Boolean Set Me(33) = Value End Set End Property Public WriteOnly Property [restrictedDelete_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 [restrictedPicklist]() As Boolean Set Me(34) = Value End Set End Property Public WriteOnly Property [restrictedPicklist_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 [scale]() As Int32 Set Me(35) = Value End Set End Property Public WriteOnly Property [scale_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 [soapType]() As String Set Me(36) = Value End Set End Property Public WriteOnly Property [soapType_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 [sortable]() As Boolean Set Me(37) = Value End Set End Property Public WriteOnly Property [sortable_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 [type]() As String Set Me(38) = Value End Set End Property Public WriteOnly Property [type_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 [unique]() As Boolean Set Me(39) = Value End Set End Property Public WriteOnly Property [unique_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 [updateable]() As Boolean Set Me(40) = Value End Set End Property Public WriteOnly Property [updateable_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 [writeRequiresMasterRead]() As Boolean Set Me(41) = Value End Set End Property Public WriteOnly Property [writeRequiresMasterRead_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 Overrides ReadOnly Property StaticOutputColumns() As String() Get Return New String() {"autoNumber", "byteLength", "calculated", "calculatedFormula", "cascadeDelete", "caseSensitive", "controllerName", "createable", "custom", "defaultedOnCreate", "defaultValueFormula", "dependentPicklist", "deprecatedAndHidden", "digits", "displayLocationInDecimal", "externalId", "filterable", "groupable", "htmlFormatted", "idLookup", "inlineHelpText", "label", "length", "name", "nameField", "namePointing", "nillable", "permissionable", "picklistValues", "precision", "referenceTo", "relationshipName", "relationshipOrder", "restrictedDelete", "restrictedPicklist", "scale", "soapType", "sortable", "type", "unique", "updateable", "writeRequiresMasterRead"} 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() ' Get Salesforce object. Dim sobject As String = Me.SalesforceObject If Me.IsSalesforceObjectVariable Then sobject = GetVariable_(Me.SalesforceObjectVariable).ToString() End If ' Retrieve Salesforce object fields metadata. Dim dso As DescribeSObjectResult = Nothing Dim connection As ISforceConnection = CType( _ Me.Connections.Connection.AcquireConnection(Nothing), _ ISforceConnection) Try Dim service As SforceService = CType(connection.Connect(), SforceService) dso = service.describeSObject(sobject) Catch ex As Exception Call FireError_(ex.Message) Finally Call connection.Close() End Try If dso Is Nothing Then Exit Sub End If For Each field As Field In dso.fields With MyBase.OutputBuffer Call .AddRow() .autoNumber = field.autoNumber .byteLength = field.byteLength .calculated = field.calculated If Not String.IsNullOrEmpty(field.calculatedFormula) Then Call .calculatedFormula.AddBlobData(Encoding.Unicode.GetBytes(field.calculatedFormula)) End If If field.cascadeDeleteSpecified Then .cascadeDelete = field.cascadeDelete End If .caseSensitive = field.caseSensitive .controllerName = field.controllerName .createable = field.createable .custom = field.custom .defaultedOnCreate = field.defaultedOnCreate If Not String.IsNullOrEmpty(field.defaultValueFormula) Then Call .defaultValueFormula.AddBlobData(Encoding.Unicode.GetBytes(field.defaultValueFormula)) End If If field.dependentPicklistSpecified Then .dependentPicklist = field.dependentPicklist End If .deprecatedAndHidden = field.deprecatedAndHidden .digits = field.digits If field.displayLocationInDecimalSpecified Then .displayLocationInDecimal = field.displayLocationInDecimal End If If field.externalIdSpecified Then .externalId = field.externalId End If .filterable = field.filterable .groupable = field.groupable If field.htmlFormattedSpecified Then .htmlFormatted = field.htmlFormatted End If .idLookup = field.idLookup .inlineHelpText = field.inlineHelpText .label = field.label .length = field.length .name = field.name .nameField = field.nameField If field.namePointingSpecified Then .namePointing = field.namePointing End If .nillable = field.nillable .permissionable = field.permissionable If Not field.picklistValues Is Nothing Then Call .picklistValues.AddBlobData(Encoding.Unicode.GetBytes(GetPicklistValues_(field.picklistValues))) End If .precision = field.precision If Not field.referenceTo Is Nothing Then Call .referenceTo.AddBlobData(Encoding.Unicode.GetBytes(String.Join(";", field.referenceTo))) End If .relationshipName = field.relationshipName If field.relationshipOrderSpecified Then .relationshipOrder = field.relationshipOrder End If If field.restrictedDeleteSpecified Then .restrictedDelete = field.restrictedDelete End If .restrictedPicklist = field.restrictedPicklist .scale = field.scale .soapType = field.soapType.ToString() If field.sortableSpecified Then .sortable = field.sortable End If .type = field.type.ToString() .unique = field.unique .updateable = field.updateable If field.writeRequiresMasterReadSpecified Then .writeRequiresMasterRead = field.writeRequiresMasterRead End If End With Next End Sub ' CreateNewOutputRows ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Public Function Validate(ByRef errMessage As String) As Boolean Dim result As Boolean Try If String.IsNullOrEmpty(Me.Connection) Then Throw New Exception("Select Salesforce Connection.") End If If String.IsNullOrEmpty(Me.SalesforceObject) Then Throw New Exception("Select Salesforce object.") 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("Connection").ConnectionManagerID = Me.Connection result = True Catch ex As Exception result = False errMessage = ex.Message End Try Validate = result End Function 'Validate ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Returns list of current properties based on current state. Public Function GetProperties() As String() Dim result As New ArrayList ' Setup static. Call result.Add("Connection") ' Setup dynamic. Call result.Add("IsSalesforceObjectVariable") Call result.Add(IIf( _ Me.IsSalesforceObjectVariable, _ "SalesforceObjectVariable", _ "SalesforceObject")) Return CType(result.ToArray(GetType(String)), String()) End Function ' GetProperties ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Returns list of objects in the currently selected Salesforce connection. Public Function GetObjectList() As String() Dim result As New ArrayList Dim connection As ISforceConnection = CType( _ Me.DesignConnections(Me.Connection).AcquireConnection(Nothing), _ ISforceConnection) Dim service As SforceService = CType(connection.Connect(), SforceService) Try Dim dgr As DescribeGlobalResult = service.describeGlobal() For Each sobject As DescribeGlobalSObjectResult In dgr.sobjects Call result.Add(sobject.name) Next Call result.Sort() Finally Call connection.Close() End Try GetObjectList = CType(result.ToArray(GetType(String)), String()) End Function ' GetObjectList #Region "Properties" ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' _ _ Public Property Connection() As String Get Connection = m_connection End Get Set(ByVal value As String) m_connection = value End Set End Property ' Connection ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' _ _ _ Public Property IsSalesforceObjectVariable() As Boolean Get IsSalesforceObjectVariable = m_isObjectVar End Get Set(ByVal value As Boolean) If m_isObjectVar <> value Then m_isObjectVar = value m_object = String.Empty End If End Set End Property ' IsSalesforceObjectVariable ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' _ _ Public Property SalesforceObject() As String Get SalesforceObject = m_object End Get Set(ByVal value As String) m_object = value End Set End Property ' SalesforceObject ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' _ _ Public Property SalesforceObjectVariable() As String Get SalesforceObjectVariable = m_object End Get Set(ByVal value As String) m_object = value End Set End Property ' SalesforceObjectVariable #End Region ' Properties #Region "Internals" ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private ReadOnly Property SforceConnectionType() As String() Get SforceConnectionType = New String() {"SFORCE"} End Get End Property ' SforceConnectionType ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub FireError_(ByVal message As String) Dim cancel As Boolean = False Call MyBase.ComponentMetaData.FireError( _ 0, _ "Salesforce Fields 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 IDTSVariables100 = Nothing Call Me.VariableDispenser.LockOneForRead(varName, vars) Try result = vars(varName).Value Finally Call vars.Unlock() End Try GetVariable_ = result End Function ' GetVariable_ ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Function GetPicklistValues_(ByVal picklist() As PicklistEntry) As String Dim count As Integer = picklist.Length Dim result() As String = New String(count - 1) {} For index As Integer = 0 To count - 1 result(index) = picklist(index).value Next GetPicklistValues_ = String.Join(";", result) End Function ' GetPicklistValues_ #End Region ' Internals #Region "Attributes" Private m_connection As String Private m_isObjectVar As Boolean Private m_object As String #End Region ' Attributes End Class ' ScriptMain ]]> _ 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 Connection() As IDTSConnectionManager100 Get Return ParentComponent.ComponentMetaData.RuntimeConnectionCollection("Connection").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 ]]> ScriptComponent_459f0ddbcb9a42cb91399b1618ab93e0 msBuild ScriptComponent_459f0ddbcb9a42cb91399b1618ab93e0 {FD89F7EA-0B42-4DB5-AFD1-9F7FF153CA39} ]]>ScriptComponent_459f0ddbcb9a42cb91399b1618ab93e0VisualBasicCozyRoc.ScriptComponentHostPlus