A-Code - BI Software engineering

SSIS Combini-export – Script – Sourcecode

‘ Microsoft SQL Server Integration Services user script component
‘ This is your new script component in Microsoft Visual Basic .NET
‘ ScriptMain is the entrypoint class for script components

Imports System
Imports System.Data
Imports System.Math
Imports Microsoft.SqlServer.Dts.Pipeline.Wrapper
Imports Microsoft.SqlServer.Dts.Runtime.Wrapper
Imports System.Windows.Forms

Public Class ScriptMain
Inherits UserComponent

Public Overrides Sub Input0_ProcessInputRow(ByVal Row As Input0Buffer)
‘
‘ Add your code here
‘
On Error Resume Next ‘ Defer error handling.

Dim rtfBuffer As New RichTextBox()
rtfBuffer.Multiline = False

Dim strInput As String
Dim strAantekeningenbuffer As String
strAantekeningenbuffer = “”

rtfBuffer.Clear()
strInput = Row.DataConversionAANTEK
rtfBuffer.Rtf = strInput
If (rtfBuffer.TextLength > 0) Then
strAantekeningenbuffer = “*Combini-Aantekeningen: ” + rtfBuffer.Lines(0)
End If

rtfBuffer.Clear()
strInput = Row.DataConversionINFORMATIE
rtfBuffer.Rtf = strInput
If (rtfBuffer.TextLength > 0) Then
strAantekeningenbuffer += ” *Combini-Informatie: ” + rtfBuffer.Lines(0)
End If

rtfBuffer.Clear()
strInput = Row.DataConversionREFERENTIE
rtfBuffer.Rtf = strInput
If (rtfBuffer.TextLength > 0) Then
strAantekeningenbuffer += ” *Combini-Referentie: ” + rtfBuffer.Lines(0)
End If

Row.AlleAantekeningen = strAantekeningenbuffer

End Sub

End Class