MS_12052016

app/DD-Record-Organiser/DD_ECMAdmin.Designer.vb

@@ -3021,6 +3021,8 @@ Partial Public Class DD_ECMAdmin
 
         Private columnMethod As Global.System.Data.DataColumn
 
+        Private columnFuBa_SplitCharacter As Global.System.Data.DataColumn
+
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
         Public Sub New()
@@ -3200,6 +3202,14 @@ Partial Public Class DD_ECMAdmin
             End Get
         End Property
 
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+        Public ReadOnly Property FuBa_SplitCharacterColumn() As Global.System.Data.DataColumn
+            Get
+                Return Me.columnFuBa_SplitCharacter
+            End Get
+        End Property
+
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
          Global.System.ComponentModel.Browsable(False)> _
@@ -3254,9 +3264,10 @@ Partial Public Class DD_ECMAdmin
                     ByVal CHANGED_WHO As String, _
                     ByVal CHANGED_WHEN As Date, _
                     ByVal WHERE_CLAUSE As String, _
-                    ByVal Method As String) As TBPMO_SAP_FUBARow
+                    ByVal Method As String, _
+                    ByVal FuBa_SplitCharacter As String) As TBPMO_SAP_FUBARow
             Dim rowTBPMO_SAP_FUBARow As TBPMO_SAP_FUBARow = CType(Me.NewRow, TBPMO_SAP_FUBARow)
-            Dim columnValuesArray() As Object = New Object() {Nothing, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Password, Client, Language, TempTableName, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, WHERE_CLAUSE, Method}
+            Dim columnValuesArray() As Object = New Object() {Nothing, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Password, Client, Language, TempTableName, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, WHERE_CLAUSE, Method, FuBa_SplitCharacter}
             rowTBPMO_SAP_FUBARow.ItemArray = columnValuesArray
             Me.Rows.Add(rowTBPMO_SAP_FUBARow)
             Return rowTBPMO_SAP_FUBARow
@@ -3303,6 +3314,7 @@ Partial Public Class DD_ECMAdmin
             Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN")
             Me.columnWHERE_CLAUSE = MyBase.Columns("WHERE_CLAUSE")
             Me.columnMethod = MyBase.Columns("Method")
+            Me.columnFuBa_SplitCharacter = MyBase.Columns("FuBa_SplitCharacter")
         End Sub
 
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@@ -3344,6 +3356,8 @@ Partial Public Class DD_ECMAdmin
             MyBase.Columns.Add(Me.columnWHERE_CLAUSE)
             Me.columnMethod = New Global.System.Data.DataColumn("Method", GetType(String), Nothing, Global.System.Data.MappingType.Element)
             MyBase.Columns.Add(Me.columnMethod)
+            Me.columnFuBa_SplitCharacter = New Global.System.Data.DataColumn("FuBa_SplitCharacter", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+            MyBase.Columns.Add(Me.columnFuBa_SplitCharacter)
             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, True))
             Me.columnGUID.AutoIncrement = True
             Me.columnGUID.AllowDBNull = False
@@ -3377,6 +3391,9 @@ Partial Public Class DD_ECMAdmin
             Me.columnMethod.AllowDBNull = False
             Me.columnMethod.DefaultValue = CType("TABLE", String)
             Me.columnMethod.MaxLength = 50
+            Me.columnFuBa_SplitCharacter.AllowDBNull = False
+            Me.columnFuBa_SplitCharacter.DefaultValue = CType(";", String)
+            Me.columnFuBa_SplitCharacter.MaxLength = 1
         End Sub
 
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@@ -6266,6 +6283,17 @@ Partial Public Class DD_ECMAdmin
             End Set
         End Property
 
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+        Public Property FuBa_SplitCharacter() As String
+            Get
+                Return CType(Me(Me.tableTBPMO_SAP_FUBA.FuBa_SplitCharacterColumn), String)
+            End Get
+            Set(value As String)
+                Me(Me.tableTBPMO_SAP_FUBA.FuBa_SplitCharacterColumn) = value
+            End Set
+        End Property
+
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
         Public Function IsCOMMENTNull() As Boolean
@@ -9345,6 +9373,7 @@ Namespace DD_ECMAdminTableAdapters
             tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN")
             tableMapping.ColumnMappings.Add("WHERE_CLAUSE", "WHERE_CLAUSE")
             tableMapping.ColumnMappings.Add("Method", "Method")
+            tableMapping.ColumnMappings.Add("FuBa_SplitCharacter", "FuBa_SplitCharacter")
             Me._adapter.TableMappings.Add(tableMapping)
             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
             Me._adapter.DeleteCommand.Connection = Me.Connection
@@ -9355,12 +9384,12 @@ Namespace DD_ECMAdminTableAdapters
             Me._adapter.InsertCommand.Connection = Me.Connection
             Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_SAP_FUBA" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "                         (NAME, COMMENT, TableName, H" & _
                 "ost, SystemNumber, UserName, Password, Client, Language, TempTableName, ACTIVE, " & _
-                "ADDED_WHO, WHERE_CLAUSE, Method)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "VALUES        (@NAME,@COMMENT,@TableName,@Host" & _
+                "ADDED_WHO, WHERE_CLAUSE, Method, FuBa_SplitCharacter)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "VALUES        (@NAME,@COM" & _
-                ",@SystemNumber,@UserName,@Password,@Client,@Language,@TempTableName,@ACTIVE,@ADD" & _
+                "MENT,@TableName,@Host,@SystemNumber,@UserName,@Password,@Client,@Language,@TempT" & _
-                "ED_WHO,@WHERE_CLAUSE,@Method);   " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, NAME, COMMENT, TableName, Host, " & _
+                "ableName,@ACTIVE,@ADDED_WHO,@WHERE_CLAUSE,@Method,@FuBa_SplitCharacter);    " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SE" & _
-                "SystemNumber, UserName, Password, Client, Language, TempTableName, ACTIVE, ADDED" & _
+                "LECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Password, Cli" & _
-                "_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_SAP_FUBA WHERE (GUID = SC" & _
+                "ent, Language, TempTableName, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGE" & _
-                "OPE_IDENTITY())"
+                "D_WHEN FROM TBPMO_SAP_FUBA WHERE (GUID = SCOPE_IDENTITY())"
             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
@@ -9376,16 +9405,18 @@ Namespace DD_ECMAdminTableAdapters
             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WHERE_CLAUSE", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "WHERE_CLAUSE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Method", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "Method", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
+            Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FuBa_SplitCharacter", Global.System.Data.SqlDbType.VarChar, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "FuBa_SplitCharacter", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
             Me._adapter.UpdateCommand.Connection = Me.Connection
             Me._adapter.UpdateCommand.CommandText = "UPDATE       TBPMO_SAP_FUBA" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SET                NAME = @NAME, COMMENT = @COMMENT," & _
                 " TableName = @TableName, Host = @Host, SystemNumber = @SystemNumber, UserName = " & _
                 "@UserName, Password = @Password, Client = @Client, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "                         La" & _
                 "nguage = @Language, TempTableName = @TempTableName, ACTIVE = @ACTIVE, CHANGED_WH" & _
-                "O = @CHANGED_WHO, WHERE_CLAUSE = @WHERE_CLAUSE, Method = @Method" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE        (" & _
+                "O = @CHANGED_WHO, WHERE_CLAUSE = @WHERE_CLAUSE, Method = @Method, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "            " & _
-                "GUID = @Original_GUID);   " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, NAME, COMMENT, TableName, Host, SystemN" & _
+                "             FuBa_SplitCharacter = @FuBa_SplitCharacter" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE        (GUID = @O" & _
-                "umber, UserName, Password, Client, Language, TempTableName, ACTIVE, ADDED_WHO, A" & _
+                "riginal_GUID);    " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, U" & _
-                "DDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_SAP_FUBA WHERE (GUID = @GUID)"
+                "serName, Password, Client, Language, TempTableName, ACTIVE, ADDED_WHO, ADDED_WHE" & _
+                "N, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_SAP_FUBA WHERE (GUID = @GUID)"
             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
@@ -9401,6 +9432,7 @@ Namespace DD_ECMAdminTableAdapters
             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WHERE_CLAUSE", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "WHERE_CLAUSE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Method", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "Method", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
+            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FuBa_SplitCharacter", Global.System.Data.SqlDbType.VarChar, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "FuBa_SplitCharacter", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", ""))
             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", ""))
         End Sub
@@ -9420,8 +9452,8 @@ Namespace DD_ECMAdminTableAdapters
             Me._commandCollection(0).Connection = Me.Connection
             Me._commandCollection(0).CommandText = "SELECT        GUID, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Passw" & _
                 "ord, Client, Language, TempTableName, WHERE_CLAUSE, ACTIVE, ADDED_WHO, ADDED_WHE" & _
-                "N, CHANGED_WHO, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "                         CHANGED_WHEN, Method" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM           " & _
+                "N, CHANGED_WHO, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "                         CHANGED_WHEN, Method, FuBa_SplitChara" & _
-                " TBPMO_SAP_FUBA"
+                "cter" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM            TBPMO_SAP_FUBA"
             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
         End Sub
 
@@ -9502,7 +9534,7 @@ Namespace DD_ECMAdminTableAdapters
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, True)> _
-        Public Overridable Overloads Function Insert(ByVal NAME As String, ByVal COMMENT As String, ByVal TableName As String, ByVal Host As String, ByVal SystemNumber As String, ByVal UserName As String, ByVal Password As String, ByVal Client As String, ByVal Language As String, ByVal TempTableName As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal WHERE_CLAUSE As String, ByVal Method As String) As Integer
+        Public Overridable Overloads Function Insert(ByVal NAME As String, ByVal COMMENT As String, ByVal TableName As String, ByVal Host As String, ByVal SystemNumber As String, ByVal UserName As String, ByVal Password As String, ByVal Client As String, ByVal Language As String, ByVal TempTableName As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal WHERE_CLAUSE As String, ByVal Method As String, ByVal FuBa_SplitCharacter As String) As Integer
             If (NAME Is Nothing) Then
                 Throw New Global.System.ArgumentNullException("NAME")
             Else
@@ -9569,6 +9601,11 @@ Namespace DD_ECMAdminTableAdapters
             Else
                 Me.Adapter.InsertCommand.Parameters(13).Value = CType(Method, String)
             End If
+            If (FuBa_SplitCharacter Is Nothing) Then
+                Throw New Global.System.ArgumentNullException("FuBa_SplitCharacter")
+            Else
+                Me.Adapter.InsertCommand.Parameters(14).Value = CType(FuBa_SplitCharacter, String)
+            End If
             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
                         <> Global.System.Data.ConnectionState.Open) Then
@@ -9603,6 +9640,7 @@ Namespace DD_ECMAdminTableAdapters
                     ByVal CHANGED_WHO As String, _
                     ByVal WHERE_CLAUSE As String, _
                     ByVal Method As String, _
+                    ByVal FuBa_SplitCharacter As String, _
                     ByVal Original_GUID As Integer, _
                     ByVal GUID As Integer) As Integer
             If (NAME Is Nothing) Then
@@ -9671,8 +9709,13 @@ Namespace DD_ECMAdminTableAdapters
             Else
                 Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Method, String)
             End If
-            Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_GUID, Integer)
+            If (FuBa_SplitCharacter Is Nothing) Then
-            Me.Adapter.UpdateCommand.Parameters(15).Value = CType(GUID, Integer)
+                Throw New Global.System.ArgumentNullException("FuBa_SplitCharacter")
+            Else
+                Me.Adapter.UpdateCommand.Parameters(14).Value = CType(FuBa_SplitCharacter, String)
+            End If
+            Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_GUID, Integer)
+            Me.Adapter.UpdateCommand.Parameters(16).Value = CType(GUID, Integer)
             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
                         <> Global.System.Data.ConnectionState.Open) Then

app/DD-Record-Organiser/DD_ECMAdmin.xsd

@@ -369,8 +369,8 @@ WHERE        (GUID = @Original_GUID)</CommandText>
                 <InsertCommand>
                   <DbCommand CommandType="Text" ModifiedByUser="true">
                     <CommandText>INSERT INTO TBPMO_SAP_FUBA
-                         (NAME, COMMENT, TableName, Host, SystemNumber, UserName, Password, Client, Language, TempTableName, ACTIVE, ADDED_WHO, WHERE_CLAUSE, Method)
+                         (NAME, COMMENT, TableName, Host, SystemNumber, UserName, Password, Client, Language, TempTableName, ACTIVE, ADDED_WHO, WHERE_CLAUSE, Method, FuBa_SplitCharacter)
-VALUES        (@NAME,@COMMENT,@TableName,@Host,@SystemNumber,@UserName,@Password,@Client,@Language,@TempTableName,@ACTIVE,@ADDED_WHO,@WHERE_CLAUSE,@Method);   
+VALUES        (@NAME,@COMMENT,@TableName,@Host,@SystemNumber,@UserName,@Password,@Client,@Language,@TempTableName,@ACTIVE,@ADDED_WHO,@WHERE_CLAUSE,@Method,@FuBa_SplitCharacter);    
 SELECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Password, Client, Language, TempTableName, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_SAP_FUBA WHERE (GUID = SCOPE_IDENTITY())</CommandText>
                     <Parameters>
                       <Parameter AllowDbNull="false" AutogeneratedName="NAME" ColumnName="NAME" DataSourceName="DD_ECM.dbo.TBPMO_SAP_FUBA" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@NAME" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="NAME" SourceColumnNullMapping="false" SourceVersion="Current" />
@@ -387,13 +387,14 @@ SELECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Password, C
                       <Parameter AllowDbNull="false" AutogeneratedName="ADDED_WHO" ColumnName="ADDED_WHO" DataSourceName="DD_ECM.dbo.TBPMO_SAP_FUBA" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@ADDED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
                       <Parameter AllowDbNull="true" AutogeneratedName="WHERE_CLAUSE" ColumnName="WHERE_CLAUSE" DataSourceName="DD_ECM.dbo.TBPMO_SAP_FUBA" DataTypeServer="varchar(500)" DbType="AnsiString" Direction="Input" ParameterName="@WHERE_CLAUSE" Precision="0" ProviderType="VarChar" Scale="0" Size="500" SourceColumn="WHERE_CLAUSE" SourceColumnNullMapping="false" SourceVersion="Current" />
                       <Parameter AllowDbNull="false" AutogeneratedName="Method" ColumnName="Method" DataSourceName="DD_ECM.dbo.TBPMO_SAP_FUBA" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@Method" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="Method" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="FuBa_SplitCharacter" ColumnName="FuBa_SplitCharacter" DataSourceName="DD_ECM.dbo.TBPMO_SAP_FUBA" DataTypeServer="varchar(1)" DbType="AnsiString" Direction="Input" ParameterName="@FuBa_SplitCharacter" Precision="0" ProviderType="VarChar" Scale="0" Size="1" SourceColumn="FuBa_SplitCharacter" SourceColumnNullMapping="false" SourceVersion="Current" />
                     </Parameters>
                   </DbCommand>
                 </InsertCommand>
                 <SelectCommand>
                   <DbCommand CommandType="Text" ModifiedByUser="false">
                     <CommandText>SELECT        GUID, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Password, Client, Language, TempTableName, WHERE_CLAUSE, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, 
-                         CHANGED_WHEN, Method
+                         CHANGED_WHEN, Method, FuBa_SplitCharacter
 FROM            TBPMO_SAP_FUBA</CommandText>
                     <Parameters />
                   </DbCommand>
@@ -402,8 +403,9 @@ FROM            TBPMO_SAP_FUBA</CommandText>
                   <DbCommand CommandType="Text" ModifiedByUser="true">
                     <CommandText>UPDATE       TBPMO_SAP_FUBA
 SET                NAME = @NAME, COMMENT = @COMMENT, TableName = @TableName, Host = @Host, SystemNumber = @SystemNumber, UserName = @UserName, Password = @Password, Client = @Client, 
-                         Language = @Language, TempTableName = @TempTableName, ACTIVE = @ACTIVE, CHANGED_WHO = @CHANGED_WHO, WHERE_CLAUSE = @WHERE_CLAUSE, Method = @Method
+                         Language = @Language, TempTableName = @TempTableName, ACTIVE = @ACTIVE, CHANGED_WHO = @CHANGED_WHO, WHERE_CLAUSE = @WHERE_CLAUSE, Method = @Method, 
-WHERE        (GUID = @Original_GUID);   
+                         FuBa_SplitCharacter = @FuBa_SplitCharacter
+WHERE        (GUID = @Original_GUID);    
 SELECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Password, Client, Language, TempTableName, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_SAP_FUBA WHERE (GUID = @GUID)</CommandText>
                     <Parameters>
                       <Parameter AllowDbNull="false" AutogeneratedName="NAME" ColumnName="NAME" DataSourceName="DD_ECM.dbo.TBPMO_SAP_FUBA" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@NAME" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="NAME" SourceColumnNullMapping="false" SourceVersion="Current" />
@@ -420,6 +422,7 @@ SELECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Password, C
                       <Parameter AllowDbNull="true" AutogeneratedName="CHANGED_WHO" ColumnName="CHANGED_WHO" DataSourceName="DD_ECM.dbo.TBPMO_SAP_FUBA" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@CHANGED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
                       <Parameter AllowDbNull="true" AutogeneratedName="WHERE_CLAUSE" ColumnName="WHERE_CLAUSE" DataSourceName="DD_ECM.dbo.TBPMO_SAP_FUBA" DataTypeServer="varchar(500)" DbType="AnsiString" Direction="Input" ParameterName="@WHERE_CLAUSE" Precision="0" ProviderType="VarChar" Scale="0" Size="500" SourceColumn="WHERE_CLAUSE" SourceColumnNullMapping="false" SourceVersion="Current" />
                       <Parameter AllowDbNull="false" AutogeneratedName="Method" ColumnName="Method" DataSourceName="DD_ECM.dbo.TBPMO_SAP_FUBA" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@Method" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="Method" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="FuBa_SplitCharacter" ColumnName="FuBa_SplitCharacter" DataSourceName="DD_ECM.dbo.TBPMO_SAP_FUBA" DataTypeServer="varchar(1)" DbType="AnsiString" Direction="Input" ParameterName="@FuBa_SplitCharacter" Precision="0" ProviderType="VarChar" Scale="0" Size="1" SourceColumn="FuBa_SplitCharacter" SourceColumnNullMapping="false" SourceVersion="Current" />
                       <Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="DD_ECM.dbo.TBPMO_SAP_FUBA" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
                       <Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="DD_ECM.dbo.TBPMO_SAP_FUBA" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
                     </Parameters>
@@ -446,6 +449,7 @@ SELECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Password, C
               <Mapping SourceColumn="CHANGED_WHEN" DataSetColumn="CHANGED_WHEN" />
               <Mapping SourceColumn="WHERE_CLAUSE" DataSetColumn="WHERE_CLAUSE" />
               <Mapping SourceColumn="Method" DataSetColumn="Method" />
+              <Mapping SourceColumn="FuBa_SplitCharacter" DataSetColumn="FuBa_SplitCharacter" />
             </Mappings>
             <Sources />
           </TableAdapter>
@@ -457,7 +461,7 @@ SELECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Password, C
   <xs:element name="DD_ECMAdmin" msdata:IsDataSet="true" msdata:UseCurrentLocale="true" msprop:EnableTableAdapterManager="true" msprop:Generator_DataSetName="DD_ECMAdmin" msprop:Generator_UserDSName="DD_ECMAdmin">
     <xs:complexType>
       <xs:choice minOccurs="0" maxOccurs="unbounded">
-        <xs:element name="TBPMO_FORM_CONSTRUCTOR" msprop:Generator_TableClassName="TBPMO_FORM_CONSTRUCTORDataTable" msprop:Generator_TableVarName="tableTBPMO_FORM_CONSTRUCTOR" msprop:Generator_TablePropName="TBPMO_FORM_CONSTRUCTOR" msprop:Generator_RowDeletingName="TBPMO_FORM_CONSTRUCTORRowDeleting" msprop:Generator_RowChangingName="TBPMO_FORM_CONSTRUCTORRowChanging" msprop:Generator_RowEvHandlerName="TBPMO_FORM_CONSTRUCTORRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_FORM_CONSTRUCTORRowDeleted" msprop:Generator_UserTableName="TBPMO_FORM_CONSTRUCTOR" msprop:Generator_RowChangedName="TBPMO_FORM_CONSTRUCTORRowChanged" msprop:Generator_RowEvArgName="TBPMO_FORM_CONSTRUCTORRowChangeEvent" msprop:Generator_RowClassName="TBPMO_FORM_CONSTRUCTORRow">
+        <xs:element name="TBPMO_FORM_CONSTRUCTOR" msprop:Generator_TableClassName="TBPMO_FORM_CONSTRUCTORDataTable" msprop:Generator_TableVarName="tableTBPMO_FORM_CONSTRUCTOR" msprop:Generator_RowChangedName="TBPMO_FORM_CONSTRUCTORRowChanged" msprop:Generator_TablePropName="TBPMO_FORM_CONSTRUCTOR" msprop:Generator_RowDeletingName="TBPMO_FORM_CONSTRUCTORRowDeleting" msprop:Generator_RowChangingName="TBPMO_FORM_CONSTRUCTORRowChanging" msprop:Generator_RowEvHandlerName="TBPMO_FORM_CONSTRUCTORRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_FORM_CONSTRUCTORRowDeleted" msprop:Generator_RowClassName="TBPMO_FORM_CONSTRUCTORRow" msprop:Generator_UserTableName="TBPMO_FORM_CONSTRUCTOR" msprop:Generator_RowEvArgName="TBPMO_FORM_CONSTRUCTORRowChangeEvent">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -503,7 +507,7 @@ SELECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Password, C
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="TBPMO_FORM_CONSTRUCTOR_DETAIL" msprop:Generator_TableClassName="TBPMO_FORM_CONSTRUCTOR_DETAILDataTable" msprop:Generator_TableVarName="tableTBPMO_FORM_CONSTRUCTOR_DETAIL" msprop:Generator_TablePropName="TBPMO_FORM_CONSTRUCTOR_DETAIL" msprop:Generator_RowDeletingName="TBPMO_FORM_CONSTRUCTOR_DETAILRowDeleting" msprop:Generator_RowChangingName="TBPMO_FORM_CONSTRUCTOR_DETAILRowChanging" msprop:Generator_RowEvHandlerName="TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_FORM_CONSTRUCTOR_DETAILRowDeleted" msprop:Generator_UserTableName="TBPMO_FORM_CONSTRUCTOR_DETAIL" msprop:Generator_RowChangedName="TBPMO_FORM_CONSTRUCTOR_DETAILRowChanged" msprop:Generator_RowEvArgName="TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent" msprop:Generator_RowClassName="TBPMO_FORM_CONSTRUCTOR_DETAILRow">
+        <xs:element name="TBPMO_FORM_CONSTRUCTOR_DETAIL" msprop:Generator_TableClassName="TBPMO_FORM_CONSTRUCTOR_DETAILDataTable" msprop:Generator_TableVarName="tableTBPMO_FORM_CONSTRUCTOR_DETAIL" msprop:Generator_RowChangedName="TBPMO_FORM_CONSTRUCTOR_DETAILRowChanged" msprop:Generator_TablePropName="TBPMO_FORM_CONSTRUCTOR_DETAIL" msprop:Generator_RowDeletingName="TBPMO_FORM_CONSTRUCTOR_DETAILRowDeleting" msprop:Generator_RowChangingName="TBPMO_FORM_CONSTRUCTOR_DETAILRowChanging" msprop:Generator_RowEvHandlerName="TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_FORM_CONSTRUCTOR_DETAILRowDeleted" msprop:Generator_RowClassName="TBPMO_FORM_CONSTRUCTOR_DETAILRow" msprop:Generator_UserTableName="TBPMO_FORM_CONSTRUCTOR_DETAIL" msprop:Generator_RowEvArgName="TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -624,7 +628,7 @@ SELECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Password, C
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="TBDD_CONNECTION" msprop:Generator_TableClassName="TBDD_CONNECTIONDataTable" msprop:Generator_TableVarName="tableTBDD_CONNECTION" msprop:Generator_RowChangedName="TBDD_CONNECTIONRowChanged" msprop:Generator_TablePropName="TBDD_CONNECTION" msprop:Generator_RowDeletingName="TBDD_CONNECTIONRowDeleting" msprop:Generator_RowChangingName="TBDD_CONNECTIONRowChanging" msprop:Generator_RowEvHandlerName="TBDD_CONNECTIONRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_CONNECTIONRowDeleted" msprop:Generator_RowClassName="TBDD_CONNECTIONRow" msprop:Generator_UserTableName="TBDD_CONNECTION" msprop:Generator_RowEvArgName="TBDD_CONNECTIONRowChangeEvent">
+        <xs:element name="TBDD_CONNECTION" msprop:Generator_TableClassName="TBDD_CONNECTIONDataTable" msprop:Generator_TableVarName="tableTBDD_CONNECTION" msprop:Generator_TablePropName="TBDD_CONNECTION" msprop:Generator_RowDeletingName="TBDD_CONNECTIONRowDeleting" msprop:Generator_RowChangingName="TBDD_CONNECTIONRowChanging" msprop:Generator_RowEvHandlerName="TBDD_CONNECTIONRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_CONNECTIONRowDeleted" msprop:Generator_UserTableName="TBDD_CONNECTION" msprop:Generator_RowChangedName="TBDD_CONNECTIONRowChanged" msprop:Generator_RowEvArgName="TBDD_CONNECTIONRowChangeEvent" msprop:Generator_RowClassName="TBDD_CONNECTIONRow">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:short" />
@@ -697,14 +701,14 @@ SELECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Password, C
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="DT_VORSCHAU" msprop:Generator_TableClassName="DT_VORSCHAUDataTable" msprop:Generator_TableVarName="tableDT_VORSCHAU" msprop:Generator_TablePropName="DT_VORSCHAU" msprop:Generator_RowDeletingName="DT_VORSCHAURowDeleting" msprop:Generator_RowChangingName="DT_VORSCHAURowChanging" msprop:Generator_RowEvHandlerName="DT_VORSCHAURowChangeEventHandler" msprop:Generator_RowDeletedName="DT_VORSCHAURowDeleted" msprop:Generator_UserTableName="DT_VORSCHAU" msprop:Generator_RowChangedName="DT_VORSCHAURowChanged" msprop:Generator_RowEvArgName="DT_VORSCHAURowChangeEvent" msprop:Generator_RowClassName="DT_VORSCHAURow">
+        <xs:element name="DT_VORSCHAU" msprop:Generator_TableClassName="DT_VORSCHAUDataTable" msprop:Generator_TableVarName="tableDT_VORSCHAU" msprop:Generator_RowChangedName="DT_VORSCHAURowChanged" msprop:Generator_TablePropName="DT_VORSCHAU" msprop:Generator_RowDeletingName="DT_VORSCHAURowDeleting" msprop:Generator_RowChangingName="DT_VORSCHAURowChanging" msprop:Generator_RowEvHandlerName="DT_VORSCHAURowChangeEventHandler" msprop:Generator_RowDeletedName="DT_VORSCHAURowDeleted" msprop:Generator_RowClassName="DT_VORSCHAURow" msprop:Generator_UserTableName="DT_VORSCHAU" msprop:Generator_RowEvArgName="DT_VORSCHAURowChangeEvent">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="VALUE" msprop:Generator_ColumnVarNameInTable="columnVALUE" msprop:Generator_ColumnPropNameInRow="VALUE" msprop:Generator_ColumnPropNameInTable="VALUEColumn" msprop:Generator_UserColumnName="VALUE" type="xs:string" minOccurs="0" />
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="VWTEMPQUICKVIEW" msprop:Generator_TableClassName="VWTEMPQUICKVIEWDataTable" msprop:Generator_TableVarName="tableVWTEMPQUICKVIEW" msprop:Generator_RowChangedName="VWTEMPQUICKVIEWRowChanged" msprop:Generator_TablePropName="VWTEMPQUICKVIEW" msprop:Generator_RowDeletingName="VWTEMPQUICKVIEWRowDeleting" msprop:Generator_RowChangingName="VWTEMPQUICKVIEWRowChanging" msprop:Generator_RowEvHandlerName="VWTEMPQUICKVIEWRowChangeEventHandler" msprop:Generator_RowDeletedName="VWTEMPQUICKVIEWRowDeleted" msprop:Generator_RowClassName="VWTEMPQUICKVIEWRow" msprop:Generator_UserTableName="VWTEMPQUICKVIEW" msprop:Generator_RowEvArgName="VWTEMPQUICKVIEWRowChangeEvent">
+        <xs:element name="VWTEMPQUICKVIEW" msprop:Generator_TableClassName="VWTEMPQUICKVIEWDataTable" msprop:Generator_TableVarName="tableVWTEMPQUICKVIEW" msprop:Generator_TablePropName="VWTEMPQUICKVIEW" msprop:Generator_RowDeletingName="VWTEMPQUICKVIEWRowDeleting" msprop:Generator_RowChangingName="VWTEMPQUICKVIEWRowChanging" msprop:Generator_RowEvHandlerName="VWTEMPQUICKVIEWRowChangeEventHandler" msprop:Generator_RowDeletedName="VWTEMPQUICKVIEWRowDeleted" msprop:Generator_UserTableName="VWTEMPQUICKVIEW" msprop:Generator_RowChangedName="VWTEMPQUICKVIEWRowChanged" msprop:Generator_RowEvArgName="VWTEMPQUICKVIEWRowChangeEvent" msprop:Generator_RowClassName="VWTEMPQUICKVIEWRow">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="Record-ID" msprop:Generator_ColumnVarNameInTable="_columnRecord_ID" msprop:Generator_ColumnPropNameInRow="_Record_ID" msprop:Generator_ColumnPropNameInTable="_Record_IDColumn" msprop:Generator_UserColumnName="Record-ID" type="xs:int" />
@@ -733,7 +737,7 @@ SELECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Password, C
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="TBAD_Users" msprop:Generator_TableClassName="TBAD_UsersDataTable" msprop:Generator_TableVarName="tableTBAD_Users" msprop:Generator_TablePropName="TBAD_Users" msprop:Generator_RowDeletingName="TBAD_UsersRowDeleting" msprop:Generator_RowChangingName="TBAD_UsersRowChanging" msprop:Generator_RowEvHandlerName="TBAD_UsersRowChangeEventHandler" msprop:Generator_RowDeletedName="TBAD_UsersRowDeleted" msprop:Generator_UserTableName="TBAD_Users" msprop:Generator_RowChangedName="TBAD_UsersRowChanged" msprop:Generator_RowEvArgName="TBAD_UsersRowChangeEvent" msprop:Generator_RowClassName="TBAD_UsersRow">
+        <xs:element name="TBAD_Users" msprop:Generator_TableClassName="TBAD_UsersDataTable" msprop:Generator_TableVarName="tableTBAD_Users" msprop:Generator_RowChangedName="TBAD_UsersRowChanged" msprop:Generator_TablePropName="TBAD_Users" msprop:Generator_RowDeletingName="TBAD_UsersRowDeleting" msprop:Generator_RowChangingName="TBAD_UsersRowChanging" msprop:Generator_RowEvHandlerName="TBAD_UsersRowChangeEventHandler" msprop:Generator_RowDeletedName="TBAD_UsersRowDeleted" msprop:Generator_RowClassName="TBAD_UsersRow" msprop:Generator_UserTableName="TBAD_Users" msprop:Generator_RowEvArgName="TBAD_UsersRowChangeEvent">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="Select" msprop:Generator_ColumnVarNameInTable="columnSelect" msprop:Generator_ColumnPropNameInRow="_Select" msprop:Generator_ColumnPropNameInTable="SelectColumn" msprop:Generator_UserColumnName="Select" type="xs:boolean" default="false" minOccurs="0" />
@@ -745,7 +749,7 @@ SELECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Password, C
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="TBWH_ENTITIES" msprop:Generator_TableClassName="TBWH_ENTITIESDataTable" msprop:Generator_TableVarName="tableTBWH_ENTITIES" msprop:Generator_RowChangedName="TBWH_ENTITIESRowChanged" msprop:Generator_TablePropName="TBWH_ENTITIES" msprop:Generator_RowDeletingName="TBWH_ENTITIESRowDeleting" msprop:Generator_RowChangingName="TBWH_ENTITIESRowChanging" msprop:Generator_RowEvHandlerName="TBWH_ENTITIESRowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_ENTITIESRowDeleted" msprop:Generator_RowClassName="TBWH_ENTITIESRow" msprop:Generator_UserTableName="TBWH_ENTITIES" msprop:Generator_RowEvArgName="TBWH_ENTITIESRowChangeEvent">
+        <xs:element name="TBWH_ENTITIES" msprop:Generator_TableClassName="TBWH_ENTITIESDataTable" msprop:Generator_TableVarName="tableTBWH_ENTITIES" msprop:Generator_TablePropName="TBWH_ENTITIES" msprop:Generator_RowDeletingName="TBWH_ENTITIESRowDeleting" msprop:Generator_RowChangingName="TBWH_ENTITIESRowChanging" msprop:Generator_RowEvHandlerName="TBWH_ENTITIESRowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_ENTITIESRowDeleted" msprop:Generator_UserTableName="TBWH_ENTITIES" msprop:Generator_RowChangedName="TBWH_ENTITIESRowChanged" msprop:Generator_RowEvArgName="TBWH_ENTITIESRowChangeEvent" msprop:Generator_RowClassName="TBWH_ENTITIESRow">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -766,7 +770,7 @@ SELECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Password, C
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="TBWH_USER_GROUPS" msprop:Generator_TableClassName="TBWH_USER_GROUPSDataTable" msprop:Generator_TableVarName="tableTBWH_USER_GROUPS" msprop:Generator_RowChangedName="TBWH_USER_GROUPSRowChanged" msprop:Generator_TablePropName="TBWH_USER_GROUPS" msprop:Generator_RowDeletingName="TBWH_USER_GROUPSRowDeleting" msprop:Generator_RowChangingName="TBWH_USER_GROUPSRowChanging" msprop:Generator_RowEvHandlerName="TBWH_USER_GROUPSRowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_USER_GROUPSRowDeleted" msprop:Generator_RowClassName="TBWH_USER_GROUPSRow" msprop:Generator_UserTableName="TBWH_USER_GROUPS" msprop:Generator_RowEvArgName="TBWH_USER_GROUPSRowChangeEvent">
+        <xs:element name="TBWH_USER_GROUPS" msprop:Generator_TableClassName="TBWH_USER_GROUPSDataTable" msprop:Generator_TableVarName="tableTBWH_USER_GROUPS" msprop:Generator_TablePropName="TBWH_USER_GROUPS" msprop:Generator_RowDeletingName="TBWH_USER_GROUPSRowDeleting" msprop:Generator_RowChangingName="TBWH_USER_GROUPSRowChanging" msprop:Generator_RowEvHandlerName="TBWH_USER_GROUPSRowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_USER_GROUPSRowDeleted" msprop:Generator_UserTableName="TBWH_USER_GROUPS" msprop:Generator_RowChangedName="TBWH_USER_GROUPSRowChanged" msprop:Generator_RowEvArgName="TBWH_USER_GROUPSRowChangeEvent" msprop:Generator_RowClassName="TBWH_USER_GROUPSRow">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -780,7 +784,7 @@ SELECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Password, C
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="TBWH_Users1" msprop:Generator_TableClassName="TBWH_Users1DataTable" msprop:Generator_TableVarName="tableTBWH_Users1" msprop:Generator_RowChangedName="TBWH_Users1RowChanged" msprop:Generator_TablePropName="TBWH_Users1" msprop:Generator_RowDeletingName="TBWH_Users1RowDeleting" msprop:Generator_RowChangingName="TBWH_Users1RowChanging" msprop:Generator_RowEvHandlerName="TBWH_Users1RowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_Users1RowDeleted" msprop:Generator_RowClassName="TBWH_Users1Row" msprop:Generator_UserTableName="TBWH_Users1" msprop:Generator_RowEvArgName="TBWH_Users1RowChangeEvent">
+        <xs:element name="TBWH_Users1" msprop:Generator_TableClassName="TBWH_Users1DataTable" msprop:Generator_TableVarName="tableTBWH_Users1" msprop:Generator_TablePropName="TBWH_Users1" msprop:Generator_RowDeletingName="TBWH_Users1RowDeleting" msprop:Generator_RowChangingName="TBWH_Users1RowChanging" msprop:Generator_RowEvHandlerName="TBWH_Users1RowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_Users1RowDeleted" msprop:Generator_UserTableName="TBWH_Users1" msprop:Generator_RowChangedName="TBWH_Users1RowChanged" msprop:Generator_RowEvArgName="TBWH_Users1RowChangeEvent" msprop:Generator_RowClassName="TBWH_Users1Row">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="Select" msprop:Generator_ColumnVarNameInTable="columnSelect" msprop:Generator_ColumnPropNameInRow="_Select" msprop:Generator_ColumnPropNameInTable="SelectColumn" msprop:Generator_UserColumnName="Select" type="xs:boolean" default="false" minOccurs="0" />
@@ -792,7 +796,7 @@ SELECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Password, C
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="TBWH_Users2" msprop:Generator_TableClassName="TBWH_Users2DataTable" msprop:Generator_TableVarName="tableTBWH_Users2" msprop:Generator_TablePropName="TBWH_Users2" msprop:Generator_RowDeletingName="TBWH_Users2RowDeleting" msprop:Generator_RowChangingName="TBWH_Users2RowChanging" msprop:Generator_RowEvHandlerName="TBWH_Users2RowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_Users2RowDeleted" msprop:Generator_UserTableName="TBWH_Users2" msprop:Generator_RowChangedName="TBWH_Users2RowChanged" msprop:Generator_RowEvArgName="TBWH_Users2RowChangeEvent" msprop:Generator_RowClassName="TBWH_Users2Row">
+        <xs:element name="TBWH_Users2" msprop:Generator_TableClassName="TBWH_Users2DataTable" msprop:Generator_TableVarName="tableTBWH_Users2" msprop:Generator_RowChangedName="TBWH_Users2RowChanged" msprop:Generator_TablePropName="TBWH_Users2" msprop:Generator_RowDeletingName="TBWH_Users2RowDeleting" msprop:Generator_RowChangingName="TBWH_Users2RowChanging" msprop:Generator_RowEvHandlerName="TBWH_Users2RowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_Users2RowDeleted" msprop:Generator_RowClassName="TBWH_Users2Row" msprop:Generator_UserTableName="TBWH_Users2" msprop:Generator_RowEvArgName="TBWH_Users2RowChangeEvent">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="Select" msprop:Generator_ColumnVarNameInTable="columnSelect" msprop:Generator_ColumnPropNameInRow="_Select" msprop:Generator_ColumnPropNameInTable="SelectColumn" msprop:Generator_UserColumnName="Select" type="xs:boolean" default="false" minOccurs="0" />
@@ -804,7 +808,7 @@ SELECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Password, C
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="TBPMO_SAP_FUBA" msprop:Generator_TableClassName="TBPMO_SAP_FUBADataTable" msprop:Generator_TableVarName="tableTBPMO_SAP_FUBA" msprop:Generator_TablePropName="TBPMO_SAP_FUBA" msprop:Generator_RowDeletingName="TBPMO_SAP_FUBARowDeleting" msprop:Generator_RowChangingName="TBPMO_SAP_FUBARowChanging" msprop:Generator_RowEvHandlerName="TBPMO_SAP_FUBARowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_SAP_FUBARowDeleted" msprop:Generator_UserTableName="TBPMO_SAP_FUBA" msprop:Generator_RowChangedName="TBPMO_SAP_FUBARowChanged" msprop:Generator_RowEvArgName="TBPMO_SAP_FUBARowChangeEvent" msprop:Generator_RowClassName="TBPMO_SAP_FUBARow">
+        <xs:element name="TBPMO_SAP_FUBA" msprop:Generator_TableClassName="TBPMO_SAP_FUBADataTable" msprop:Generator_TableVarName="tableTBPMO_SAP_FUBA" msprop:Generator_RowChangedName="TBPMO_SAP_FUBARowChanged" msprop:Generator_TablePropName="TBPMO_SAP_FUBA" msprop:Generator_RowDeletingName="TBPMO_SAP_FUBARowDeleting" msprop:Generator_RowChangingName="TBPMO_SAP_FUBARowChanging" msprop:Generator_RowEvHandlerName="TBPMO_SAP_FUBARowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_SAP_FUBARowDeleted" msprop:Generator_RowClassName="TBPMO_SAP_FUBARow" msprop:Generator_UserTableName="TBPMO_SAP_FUBA" msprop:Generator_RowEvArgName="TBPMO_SAP_FUBARowChangeEvent">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -909,6 +913,13 @@ SELECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Password, C
                   </xs:restriction>
                 </xs:simpleType>
               </xs:element>
+              <xs:element name="FuBa_SplitCharacter" msprop:Generator_ColumnVarNameInTable="columnFuBa_SplitCharacter" msprop:Generator_ColumnPropNameInRow="FuBa_SplitCharacter" msprop:Generator_ColumnPropNameInTable="FuBa_SplitCharacterColumn" msprop:Generator_UserColumnName="FuBa_SplitCharacter" default=";">
+                <xs:simpleType>
+                  <xs:restriction base="xs:string">
+                    <xs:maxLength value="1" />
+                  </xs:restriction>
+                </xs:simpleType>
+              </xs:element>
             </xs:sequence>
           </xs:complexType>
         </xs:element>
@@ -945,7 +956,7 @@ SELECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Password, C
   </xs:element>
   <xs:annotation>
     <xs:appinfo>
-      <msdata:Relationship name="FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID" msdata:parent="TBPMO_FORM_CONSTRUCTOR" msdata:child="TBPMO_FORM_CONSTRUCTOR_DETAIL" msdata:parentkey="GUID" msdata:childkey="CONSTRUCT_ID" msprop:Generator_UserChildTable="TBPMO_FORM_CONSTRUCTOR_DETAIL" msprop:Generator_ChildPropName="GetTBPMO_FORM_CONSTRUCTOR_DETAILRows" msprop:Generator_UserRelationName="FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID" msprop:Generator_ParentPropName="TBPMO_FORM_CONSTRUCTORRow" msprop:Generator_RelationVarName="relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID" msprop:Generator_UserParentTable="TBPMO_FORM_CONSTRUCTOR" />
+      <msdata:Relationship name="FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID" msdata:parent="TBPMO_FORM_CONSTRUCTOR" msdata:child="TBPMO_FORM_CONSTRUCTOR_DETAIL" msdata:parentkey="GUID" msdata:childkey="CONSTRUCT_ID" msprop:Generator_UserChildTable="TBPMO_FORM_CONSTRUCTOR_DETAIL" msprop:Generator_ChildPropName="GetTBPMO_FORM_CONSTRUCTOR_DETAILRows" msprop:Generator_UserRelationName="FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID" msprop:Generator_RelationVarName="relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID" msprop:Generator_UserParentTable="TBPMO_FORM_CONSTRUCTOR" msprop:Generator_ParentPropName="TBPMO_FORM_CONSTRUCTORRow" />
     </xs:appinfo>
   </xs:annotation>
 </xs:schema>

app/DD-Record-Organiser/frmConstructor_Main.vb

@@ -2356,10 +2356,10 @@ Public Class frmConstructor_Main
                     Exit Sub
                 End Try
 
-                End If
-                CtrlCommandUI.IsInsert = False
-                RECORD_CHANGED = False
             End If
+            CtrlCommandUI.IsInsert = False
+            RECORD_CHANGED = False
+        End If
     End Sub
     Private Function GET_GROUP_OR_SINGLE_RECORD(PARENT_RECORD_ID As Integer, Entityload As Boolean)
         'Dim sqlRecord As String = String.Format("SELECT T.RECORD2_ID FROM TBPMO_RECORD_CONNECT T, TBPMO_RECORD T1 WHERE T.RECORD2_ID = T1.GUID AND T.RECORD1_ID = {0} AND T1.ENTITY_ID = (SELECT PARENT_ID FROM TBPMO_FORM WHERE GUID = {1})", LINKED_RECORD, ENTITY_ID)
@@ -2477,7 +2477,7 @@ Public Class frmConstructor_Main
                 'Databinding Neu
                 BindingSource_Entity.DataSource = DT_SELECTION
                 GridControlMain.DataSource = BindingSource_Entity
-              
+
                 ' Den Editor Initialisieren und Optionen setzen
                 Dim CheckBoxEditorForDisplay = New RepositoryItemCheckEdit()
                 CheckBoxEditorForDisplay.ValueChecked = 1

app/DD-Record-Organiser/frmSAP_FuBa.Designer.vb

@@ -80,7 +80,7 @@ Partial Class frmSAP_FuBa
         Me.lblSave = New System.Windows.Forms.Label()
         Me.lblConnectionopen = New System.Windows.Forms.Label()
         Me.lblResult = New System.Windows.Forms.Label()
-        Me.Button1 = New System.Windows.Forms.Button()
+        Me.btnInsertData = New System.Windows.Forms.Button()
         Me.Label1 = New System.Windows.Forms.Label()
         Me.txtLimitRows = New System.Windows.Forms.TextBox()
         Me.rBFuba = New System.Windows.Forms.RadioButton()
@@ -88,6 +88,8 @@ Partial Class frmSAP_FuBa
         Me.MethodTextBox = New System.Windows.Forms.TextBox()
         Me.lblMethodname = New System.Windows.Forms.Label()
         Me.btnGetResult = New System.Windows.Forms.Button()
+        Me.FuBa_SplitCharacterTextBox = New System.Windows.Forms.TextBox()
+        Me.lblSplitchr = New System.Windows.Forms.Label()
         GUIDLabel = New System.Windows.Forms.Label()
         NAMELabel = New System.Windows.Forms.Label()
         COMMENTLabel = New System.Windows.Forms.Label()
@@ -284,7 +286,7 @@ Partial Class frmSAP_FuBa
         Me.TBPMO_SAP_FUBABindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem
         Me.TBPMO_SAP_FUBABindingNavigator.Name = "TBPMO_SAP_FUBABindingNavigator"
         Me.TBPMO_SAP_FUBABindingNavigator.PositionItem = Me.BindingNavigatorPositionItem
-        Me.TBPMO_SAP_FUBABindingNavigator.Size = New System.Drawing.Size(1207, 25)
+        Me.TBPMO_SAP_FUBABindingNavigator.Size = New System.Drawing.Size(1215, 25)
         Me.TBPMO_SAP_FUBABindingNavigator.TabIndex = 0
         Me.TBPMO_SAP_FUBABindingNavigator.Text = "BindingNavigator1"
         '
@@ -559,7 +561,7 @@ Partial Class frmSAP_FuBa
         Me.GridControl2.Location = New System.Drawing.Point(5, 358)
         Me.GridControl2.MainView = Me.GridView2
         Me.GridControl2.Name = "GridControl2"
-        Me.GridControl2.Size = New System.Drawing.Size(1190, 339)
+        Me.GridControl2.Size = New System.Drawing.Size(1198, 358)
         Me.GridControl2.TabIndex = 83
         Me.GridControl2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView2})
         '
@@ -626,18 +628,18 @@ Partial Class frmSAP_FuBa
         Me.lblResult.Text = "Result (limited to 1000 rows)"
         Me.lblResult.Visible = False
         '
-        'Button1
+        'btnInsertData
         '
-        Me.Button1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.btnInsertData.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Button1.Image = Global.DD_Record_Organiser.My.Resources.Resources.InsertColumn_5626
+        Me.btnInsertData.Image = Global.DD_Record_Organiser.My.Resources.Resources.InsertColumn_5626
-        Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnInsertData.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button1.Location = New System.Drawing.Point(389, 161)
+        Me.btnInsertData.Location = New System.Drawing.Point(463, 161)
-        Me.Button1.Name = "Button1"
+        Me.btnInsertData.Name = "btnInsertData"
-        Me.Button1.Size = New System.Drawing.Size(176, 24)
+        Me.btnInsertData.Size = New System.Drawing.Size(176, 24)
-        Me.Button1.TabIndex = 88
+        Me.btnInsertData.TabIndex = 88
-        Me.Button1.Text = "Insert results in temptable"
+        Me.btnInsertData.Text = "Insert results in temptable"
-        Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnInsertData.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.Button1.UseVisualStyleBackColor = True
+        Me.btnInsertData.UseVisualStyleBackColor = True
         '
         'Label1
         '
@@ -695,9 +697,10 @@ Partial Class frmSAP_FuBa
         'lblMethodname
         '
         Me.lblMethodname.AutoSize = True
+        Me.lblMethodname.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.lblMethodname.Location = New System.Drawing.Point(184, 189)
         Me.lblMethodname.Name = "lblMethodname"
-        Me.lblMethodname.Size = New System.Drawing.Size(40, 13)
+        Me.lblMethodname.Size = New System.Drawing.Size(41, 13)
         Me.lblMethodname.TabIndex = 94
         Me.lblMethodname.Text = "Label2"
         '
@@ -706,25 +709,46 @@ Partial Class frmSAP_FuBa
         Me.btnGetResult.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.btnGetResult.Image = Global.DD_Record_Organiser.My.Resources.Resources.TableView_nameonly_263
         Me.btnGetResult.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnGetResult.Location = New System.Drawing.Point(389, 203)
+        Me.btnGetResult.Location = New System.Drawing.Point(463, 203)
         Me.btnGetResult.Name = "btnGetResult"
         Me.btnGetResult.Size = New System.Drawing.Size(176, 23)
         Me.btnGetResult.TabIndex = 95
         Me.btnGetResult.Text = "SAP Result testen"
         Me.btnGetResult.UseVisualStyleBackColor = True
         '
+        'FuBa_SplitCharacterTextBox
+        '
+        Me.FuBa_SplitCharacterTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_SAP_FUBABindingSource, "FuBa_SplitCharacter", True))
+        Me.FuBa_SplitCharacterTextBox.Location = New System.Drawing.Point(378, 205)
+        Me.FuBa_SplitCharacterTextBox.Name = "FuBa_SplitCharacterTextBox"
+        Me.FuBa_SplitCharacterTextBox.Size = New System.Drawing.Size(25, 22)
+        Me.FuBa_SplitCharacterTextBox.TabIndex = 96
+        Me.FuBa_SplitCharacterTextBox.Visible = False
+        '
+        'lblSplitchr
+        '
+        Me.lblSplitchr.AutoSize = True
+        Me.lblSplitchr.Location = New System.Drawing.Point(378, 189)
+        Me.lblSplitchr.Name = "lblSplitchr"
+        Me.lblSplitchr.Size = New System.Drawing.Size(79, 13)
+        Me.lblSplitchr.TabIndex = 97
+        Me.lblSplitchr.Text = "SplitCharacter"
+        Me.lblSplitchr.Visible = False
+        '
         'frmSAP_FuBa
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(1207, 698)
+        Me.ClientSize = New System.Drawing.Size(1215, 717)
+        Me.Controls.Add(Me.lblSplitchr)
+        Me.Controls.Add(Me.FuBa_SplitCharacterTextBox)
         Me.Controls.Add(Me.btnGetResult)
         Me.Controls.Add(Me.lblMethodname)
         Me.Controls.Add(Me.rbTable)
         Me.Controls.Add(Me.rBFuba)
         Me.Controls.Add(Me.txtLimitRows)
         Me.Controls.Add(Me.Label1)
-        Me.Controls.Add(Me.Button1)
+        Me.Controls.Add(Me.btnInsertData)
         Me.Controls.Add(Me.lblResult)
         Me.Controls.Add(Me.lblConnectionopen)
         Me.Controls.Add(Me.lblSave)
@@ -821,7 +845,7 @@ Partial Class frmSAP_FuBa
     Friend WithEvents lblSave As System.Windows.Forms.Label
     Friend WithEvents lblConnectionopen As System.Windows.Forms.Label
     Friend WithEvents lblResult As System.Windows.Forms.Label
-    Friend WithEvents Button1 As System.Windows.Forms.Button
+    Friend WithEvents btnInsertData As System.Windows.Forms.Button
     Friend WithEvents Label1 As System.Windows.Forms.Label
     Friend WithEvents txtLimitRows As System.Windows.Forms.TextBox
     Friend WithEvents rBFuba As System.Windows.Forms.RadioButton
@@ -829,4 +853,6 @@ Partial Class frmSAP_FuBa
     Friend WithEvents MethodTextBox As System.Windows.Forms.TextBox
     Friend WithEvents lblMethodname As System.Windows.Forms.Label
     Friend WithEvents btnGetResult As System.Windows.Forms.Button
+    Friend WithEvents FuBa_SplitCharacterTextBox As System.Windows.Forms.TextBox
+    Friend WithEvents lblSplitchr As System.Windows.Forms.Label
 End Class

app/DD-Record-Organiser/frmSAP_FuBa.vb

@@ -60,6 +60,7 @@ Public Class frmSAP_FuBa
             If LogErrorsOnly = False Then ClassLogger.Add(">> SAP-Connection erfolgreich aufgebaut!", False)
             If LogErrorsOnly = False Then ClassLogger.Add("", False)
             lblConnectionopen.Visible = True
+            Me.Cursor = Cursors.Default
         Catch ex As Exception
             MsgBox("Unexpected Error in SAP Connect: " & ex.Message, MsgBoxStyle.Critical)
             lblConnectionopen.Visible = False
@@ -67,6 +68,7 @@ Public Class frmSAP_FuBa
             lblResult.Visible = False
             GridControl2.DataSource = Nothing
             lblSave.Visible = False
+            Me.Cursor = Cursors.Default
             Exit Sub
         End Try
     End Sub
@@ -88,11 +90,12 @@ Public Class frmSAP_FuBa
         End If
     End Sub
 
-    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnInsertData.Click
         If TempTableNameTextBox.Text <> "" Then
+            Me.Cursor = Cursors.WaitCursor
             Dim con As New R3Connection
             Try
-                Me.Cursor = Cursors.WaitCursor
+
                 If LogErrorsOnly = False Then ClassLogger.Add("", False)
                 If LogErrorsOnly = False Then ClassLogger.Add(">> SAP Connect started:", False)
                 ERPConnect.LIC.SetLic("W86DWC992C")
@@ -215,24 +218,25 @@ Public Class frmSAP_FuBa
     End Sub
 
     Private Sub btnGetResult_Click(sender As Object, e As EventArgs) Handles btnGetResult.Click
-        Dim con As New R3Connection
+        Dim SAPCon As New R3Connection
         Try
             Me.Cursor = Cursors.WaitCursor
             If LogErrorsOnly = False Then ClassLogger.Add("", False)
             If LogErrorsOnly = False Then ClassLogger.Add(">> SAP Connect started:", False)
             ERPConnect.LIC.SetLic("W86DWC992C")
-            con.Host = HostTextBox.Text
+            SAPCon.Host = HostTextBox.Text
-            con.SystemNumber = SystemNumberTextBox.Text
+            SAPCon.SystemNumber = SystemNumberTextBox.Text
-            con.UserName = UserNameTextBox.Text
+            SAPCon.UserName = UserNameTextBox.Text
-            con.Password = PasswordTextBox.Text
+            SAPCon.Password = PasswordTextBox.Text
-            con.Client = ClientTextBox.Text
+            SAPCon.Client = ClientTextBox.Text
-            con.Language = LanguageTextBox.Text
+            SAPCon.Language = LanguageTextBox.Text
             If LogErrorsOnly = False Then ClassLogger.Add(">> HOST: " & HostTextBox.Text & " |SystemNumber: " & SystemNumberTextBox.Text & " |UserName: " & UserNameTextBox.Text & " |Password: " & PasswordTextBox.Text & " |Client: " & ClientTextBox.Text & " |Language: " & LanguageTextBox.Text, False)
-            con.Open(False)
+            SAPCon.Open(False)
-            If LogErrorsOnly = False Then ClassLogger.Add(">> SAP-Connection erfolgreich aufgebaut!", False)
+            If LogErrorsOnly = False Then ClassLogger.Add(">> SAP-Connection created and connected!", False)
             If LogErrorsOnly = False Then ClassLogger.Add("", False)
             lblConnectionopen.Visible = True
         Catch ex As Exception
+            ClassLogger.Add(">> Unexpected Error in SAP Connect: " & ex.Message, False)
             MsgBox("Unexpected Error in SAP Connect: " & ex.Message, MsgBoxStyle.Critical)
             lblConnectionopen.Visible = False
             Me.Cursor = Cursors.Default
@@ -241,9 +245,11 @@ Public Class frmSAP_FuBa
             lblSave.Visible = False
             Exit Sub
         End Try
+        Dim SAPResulttable As DataTable = New DataTable
         If rbTable.Checked = True Then
             Try
-                Dim table As New ERPConnect.Utils.ReadTable(con)
+                If LogErrorsOnly = False Then ClassLogger.Add(">> Get data from SAP Table", False)
+                Dim table As New ERPConnect.Utils.ReadTable(SAPCon)
                 'Dim cWhereClause = "SAP_OBJECT EQ '<ObjectType>' AND AR_DATE GE '<AR_DATE>'"
                 'Dim sSearchDate1 = "20160101"
                 'cWhereClause = Replace(cWhereClause, "<ObjectType>", Objekttyp.Text)
@@ -262,41 +268,240 @@ Public Class frmSAP_FuBa
                 If txtLimitRows.Text <> "" Then
                     table.RowCount = CInt(txtLimitRows.Text)
                 End If
-
+                If LogErrorsOnly = False Then ClassLogger.Add(">>Table.Run executed", False)
-
                 table.Run()
 
-                Dim resulttable As DataTable
+
-                resulttable = table.Result
+                SAPResulttable = table.Result
                 Try
-                    GridControl2.DataSource = resulttable
+                    GridControl2.DataSource = SAPResulttable
                 Catch ex As Exception
-                    MsgBox("Fehler bei GridControl2 >> DataTable: " & ex.Message, MsgBoxStyle.Critical)
+                    ClassLogger.Add(">> Unexpected Error in GridControl2 >> DataTable 1: " & ex.Message, False)
+                    MsgBox("Unexpected Error in GridControl2 >> DataTable: " & ex.Message, MsgBoxStyle.Critical)
+                    lblResult.Visible = False
+                    Me.Cursor = Cursors.Default
+                    lblSave.Visible = False
+                    GridControl2.DataSource = Nothing
                 End Try
                 Dim i As Integer
 
                 'For Each row As DataRow In resulttable.Rows
                 '    ClassLogger.Add(">> " & row.Item(0).ToString & "|" & row.Item(1).ToString & "|" & row.Item(2).ToString)
                 'Next
-                con.Close()
+                SAPCon.Close()
                 If txtLimitRows.Text <> "" Then
-                    lblResult.Text = "Result of FuBa (limited to " & txtLimitRows.Text & " rows)"
+                    lblResult.Text = "Result of SAP Table (limited to " & txtLimitRows.Text & " rows)"
                 Else
-                    lblResult.Text = "Result of FuBa (unlimited) >> " & resulttable.Rows.Count & " rows retreived"
+                    lblResult.Text = "Result of SAP Table (unlimited) >> " & SAPResulttable.Rows.Count & " rows retreived"
                 End If
                 lblResult.Visible = True
                 Me.Cursor = Cursors.Default
                 lblSave.Visible = False
             Catch ex As Exception
+                ClassLogger.Add(">> Unexpected Error in SAP Table Result: " & ex.Message, False)
                 MsgBox("Unexpected Error in SAP Table Result: " & ex.Message, MsgBoxStyle.Critical)
                 lblResult.Visible = False
                 Me.Cursor = Cursors.Default
                 lblSave.Visible = False
                 GridControl2.DataSource = Nothing
             End Try
-        Else
+        End If
-            sss()
+        If rBFuba.Checked = True Then
+            If LogErrorsOnly = False Then ClassLogger.Add(" >> Get data from FuBa-Function", False)
+            Dim func As RFCFunction
+            Try
+                func = SAPCon.CreateFunction(TableNameTextBox.Text)
+                If LogErrorsOnly = False Then ClassLogger.Add(" >> func.Execute", False)
+                func.Execute()
+                If LogErrorsOnly = False Then ClassLogger.Add(" >> function was executed", False)
+            Catch ex As Exception
+                ClassLogger.Add(">> Unexpected Error in Create SAP Function: " & ex.Message, False)
+                MsgBox("Error in Create SAP Function: " & ex.Message, MsgBoxStyle.Critical)
+                lblResult.Visible = False
+                Me.Cursor = Cursors.Default
+                lblSave.Visible = False
+                GridControl2.DataSource = Nothing
+                Exit Sub
+            End Try
+            Dim FUNCT_ROW_COUNT As Integer = 1
+            Dim RowMaskresult As String
+            Try
+                If LogErrorsOnly = False Then ClassLogger.Add(" >> Checking FunctionExecute", False)
+                'Den ersten Wert ausgeben lassen um die Spalten zu splitten
+
+                For Each row As RFCStructure In func.Tables("T_INDEX").Rows
+                    Try
+                        If row.Item(1).ToString.Contains(FuBa_SplitCharacterTextBox.Text) Then
+                            RowMaskresult = row.Item(1).ToString
+                            If LogErrorsOnly = False Then ClassLogger.Add(" >> RowMask result: " & RowMaskresult, False)
+                            FUNCT_ROW_COUNT = 2
+                        End If
+                    Catch ex As Exception
+                        RowMaskresult = "ErrorInGetSeperatedResult: " & ex.Message
+                    End Try
+                    If FUNCT_ROW_COUNT = 2 Then Exit For
+                Next
+            Catch ex As Exception
+                ClassLogger.Add(">> Unexpected Error in Checking FunctionExecute: " & ex.Message, False)
+                MsgBox("Error in Checking FunctionExecute: " & ex.Message, MsgBoxStyle.Critical)
+                SAPCon.Close()
+                lblResult.Visible = False
+                Me.Cursor = Cursors.Default
+                lblSave.Visible = False
+                GridControl2.DataSource = Nothing
+                Exit Sub
+            End Try
+            FUNCT_ROW_COUNT = 1
+            Dim ColCount As Integer
+            If FuBa_SplitCharacterTextBox.Text <> "" And RowMaskresult.Contains(FuBa_SplitCharacterTextBox.Text) Then
+                Try
+                    If LogErrorsOnly = False Then ClassLogger.Add(" >> Define Datatable with SplitCharacter method", False)
+                    Dim split() = RowMaskresult.Split(FuBa_SplitCharacterTextBox.Text)
+                    If split.Length > 0 Then
+                        ColCount = split.Length - 1
+                        If LogErrorsOnly = False Then
+                            ClassLogger.Add(" >> ColCount: " & ColCount.ToString, False)
+                            ClassLogger.Add(" >> Split-Results: ", False)
+                            For Each s As String In split
+                                ClassLogger.Add("  # " & s, False)
+                            Next
+                        End If
+                        For x = 0 To ColCount
+                            ' Declare DataColumn and DataRow variables.
+                            Dim column As DataColumn
+                            column = New DataColumn()
+                            column = New DataColumn()
+                            column.DataType = Type.GetType("System.String")
+                            column.ColumnName = "Column " & x.ToString
+                            SAPResulttable.Columns.Add(column)
+                        Next
+                        If LogErrorsOnly = False Then ClassLogger.Add(" >> Datatable Columns after Split created", False)
+                        ' Create new DataRow objects and add to DataTable.   
+                        'Jetzt die Zeilen der Function durchlaufen
+                        For Each row As RFCStructure In func.Tables("T_INDEX").Rows
+                            Dim new_row As DataRow
+                            If txtLimitRows.Text <> "" Then
+                                If CInt(txtLimitRows.Text) = FUNCT_ROW_COUNT Then
+                                    Exit For
+                                End If
+                            End If
+                            new_row = SAPResulttable.NewRow()
+                            Dim Rowresult As String = row.Item(1).ToString
+                            If Rowresult.Contains(FuBa_SplitCharacterTextBox.Text) Then
+                                Dim RowSplit() = RowMaskresult.Split(FuBa_SplitCharacterTextBox.Text)
+                                Dim col_index = 0
+                                'Jetzt die Spaltenwerte in die NewRow eintragen
+                                For x = 0 To ColCount
+                                    new_row(x) = RowSplit(x)
+                                Next
+                                SAPResulttable.Rows.Add(new_row)
+
+                            End If
+                        Next
+                    End If
+                Catch ex As Exception
+                    ClassLogger.Add(">> Unexpected Error in Create Datatable with split-method: " & ex.Message, False)
+                    MsgBox("Unexpected Error in Create Datatable with split-method: " & ex.Message, MsgBoxStyle.Critical)
+                    SAPCon.Close()
+                    lblResult.Visible = False
+                    Me.Cursor = Cursors.Default
+                    lblSave.Visible = False
+                    GridControl2.DataSource = Nothing
+                    Exit Sub
+                End Try
+
+            Else
+                If LogErrorsOnly = False Then ClassLogger.Add(" >> Define Datatable WITHOUT SplitCharacter method", False)
+                ' Declare DataColumn and DataRow variables.
+                Dim column As DataColumn
+                ' Create new DataColumn, set DataType, ColumnName and add to DataTable.    
+                column = New DataColumn()
+                column.DataType = System.Type.GetType("System.Int32")
+                column.ColumnName = "id"
+                SAPResulttable.Columns.Add(column)
+                ' Create second column.
+                column = New DataColumn()
+                column.DataType = Type.GetType("System.String")
+                column.ColumnName = "FuBa-Result"
+                SAPResulttable.Columns.Add(column)
+                If LogErrorsOnly = False Then ClassLogger.Add(" >> Datatable Columns created", False)
+                ' Create new DataRow objects and add to DataTable.   
+                Try
+                    For Each row As RFCStructure In func.Tables("T_INDEX").Rows
+                        Dim new_row As DataRow
+                        If LogErrorsOnly = False And FUNCT_ROW_COUNT = 1 Then
+                            ClassLogger.Add(" >> The first 30 rows will be logged", False)
+                        End If
+                        If txtLimitRows.Text <> "" Then
+                            If CInt(txtLimitRows.Text) = FUNCT_ROW_COUNT Then
+                                Exit For
+                            End If
+                        End If
+                        new_row = SAPResulttable.NewRow()
+
+                        Dim Result As String
+                        Try
+                            Result = row.Item(1).ToString
+                        Catch ex As Exception
+                            Result = "2 Empty"
+                        End Try
+                        new_row("id") = FUNCT_ROW_COUNT
+                        new_row("FuBa-Result") = Result
+
+                        If LogErrorsOnly = False And FUNCT_ROW_COUNT <= 30 Then
+                            ClassLogger.Add(" >> Result Row: " & Result, False)
+                        End If
+                        FUNCT_ROW_COUNT += 1
+                        SAPResulttable.Rows.Add(new_row)
+                    Next
+                Catch ex As Exception
+                    ClassLogger.Add(">> Unexpected Error in Create SAP Function-Create Datatable: " & ex.Message, False)
+                    MsgBox("Error in Create Datatable: " & ex.Message, MsgBoxStyle.Critical)
+                    SAPCon.Close()
+                    lblResult.Visible = False
+                    Me.Cursor = Cursors.Default
+                    lblSave.Visible = False
+                    GridControl2.DataSource = Nothing
+                    Exit Sub
+                End Try
+            End If
+            'Jetzt dem Grid die Datasource zuordnen
+            Try
+                If SAPResulttable.Rows.Count > 0 Then
+                    GridControl2.DataSource = SAPResulttable
+                End If
+                SAPCon.Close()
+                If txtLimitRows.Text <> "" Then
+                    lblResult.Text = "Result of FuBa (limited to " & txtLimitRows.Text & " rows)"
+                Else
+                    lblResult.Text = "Result of FuBa (unlimited) >> " & SAPResulttable.Rows.Count & " rows retreived"
+                End If
+                lblResult.Visible = True
+                Me.Cursor = Cursors.Default
+                lblSave.Visible = False
+            Catch ex As Exception
+                SAPCon.Close()
+                lblResult.Visible = False
+                Me.Cursor = Cursors.Default
+                lblSave.Visible = False
+                GridControl2.DataSource = Nothing
+                ClassLogger.Add(">> Unexpected Error in GridControl2 >> DataTable 2: " & ex.Message, False)
+                MsgBox("Error in GridControl2 >> DataTable: " & ex.Message, MsgBoxStyle.Critical)
+            End Try
+           
+
+
         End If
        
     End Sub
+
+    Private Sub rBFuba_CheckedChanged(sender As Object, e As EventArgs) Handles rBFuba.CheckedChanged
+        If rBFuba.Checked = True Then
+            Me.FuBa_SplitCharacterTextBox.Visible = True
+            lblSplitchr.Visible = True
+        Else
+            Me.FuBa_SplitCharacterTextBox.Visible = False
+            lblSplitchr.Visible = False
+        End If
+    End Sub
 End Class