Ms10052016

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

@@ -0,0 +1,748 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmSAP_FuBa
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Dim GUIDLabel As System.Windows.Forms.Label
+        Dim NAMELabel As System.Windows.Forms.Label
+        Dim COMMENTLabel As System.Windows.Forms.Label
+        Dim TableNameLabel As System.Windows.Forms.Label
+        Dim HostLabel As System.Windows.Forms.Label
+        Dim SystemNumberLabel As System.Windows.Forms.Label
+        Dim UserNameLabel As System.Windows.Forms.Label
+        Dim PasswordLabel As System.Windows.Forms.Label
+        Dim ClientLabel As System.Windows.Forms.Label
+        Dim LanguageLabel As System.Windows.Forms.Label
+        Dim TempTableNameLabel As System.Windows.Forms.Label
+        Dim ADDED_WHOLabel As System.Windows.Forms.Label
+        Dim ADDED_WHENLabel As System.Windows.Forms.Label
+        Dim CHANGED_WHOLabel As System.Windows.Forms.Label
+        Dim CHANGED_WHENLabel As System.Windows.Forms.Label
+        Dim WHERE_CLAUSELabel As System.Windows.Forms.Label
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSAP_FuBa))
+        Me.DD_ECMAdmin = New DD_Record_Organiser.DD_ECMAdmin()
+        Me.TBPMO_SAP_FUBABindingSource = New System.Windows.Forms.BindingSource(Me.components)
+        Me.TBPMO_SAP_FUBATableAdapter = New DD_Record_Organiser.DD_ECMAdminTableAdapters.TBPMO_SAP_FUBATableAdapter()
+        Me.TableAdapterManager = New DD_Record_Organiser.DD_ECMAdminTableAdapters.TableAdapterManager()
+        Me.TBPMO_SAP_FUBABindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components)
+        Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton()
+        Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel()
+        Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton()
+        Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton()
+        Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton()
+        Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator()
+        Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox()
+        Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator()
+        Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton()
+        Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton()
+        Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator()
+        Me.TBPMO_SAP_FUBABindingNavigatorSaveItem = New System.Windows.Forms.ToolStripButton()
+        Me.GUIDTextBox = New System.Windows.Forms.TextBox()
+        Me.NAMETextBox = New System.Windows.Forms.TextBox()
+        Me.COMMENTTextBox = New System.Windows.Forms.TextBox()
+        Me.TableNameTextBox = New System.Windows.Forms.TextBox()
+        Me.HostTextBox = New System.Windows.Forms.TextBox()
+        Me.SystemNumberTextBox = New System.Windows.Forms.TextBox()
+        Me.UserNameTextBox = New System.Windows.Forms.TextBox()
+        Me.PasswordTextBox = New System.Windows.Forms.TextBox()
+        Me.ClientTextBox = New System.Windows.Forms.TextBox()
+        Me.LanguageTextBox = New System.Windows.Forms.TextBox()
+        Me.TempTableNameTextBox = New System.Windows.Forms.TextBox()
+        Me.ACTIVECheckBox = New System.Windows.Forms.CheckBox()
+        Me.ADDED_WHOTextBox = New System.Windows.Forms.TextBox()
+        Me.ADDED_WHENTextBox = New System.Windows.Forms.TextBox()
+        Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox()
+        Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox()
+        Me.ListBox1 = New System.Windows.Forms.ListBox()
+        Me.btnERPConnect = New System.Windows.Forms.Button()
+        Me.GridControl2 = New DevExpress.XtraGrid.GridControl()
+        Me.GridView2 = New DevExpress.XtraGrid.Views.Grid.GridView()
+        Me.WHERE_CLAUSETextBox = New System.Windows.Forms.TextBox()
+        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()
+        GUIDLabel = New System.Windows.Forms.Label()
+        NAMELabel = New System.Windows.Forms.Label()
+        COMMENTLabel = New System.Windows.Forms.Label()
+        TableNameLabel = New System.Windows.Forms.Label()
+        HostLabel = New System.Windows.Forms.Label()
+        SystemNumberLabel = New System.Windows.Forms.Label()
+        UserNameLabel = New System.Windows.Forms.Label()
+        PasswordLabel = New System.Windows.Forms.Label()
+        ClientLabel = New System.Windows.Forms.Label()
+        LanguageLabel = New System.Windows.Forms.Label()
+        TempTableNameLabel = New System.Windows.Forms.Label()
+        ADDED_WHOLabel = New System.Windows.Forms.Label()
+        ADDED_WHENLabel = New System.Windows.Forms.Label()
+        CHANGED_WHOLabel = New System.Windows.Forms.Label()
+        CHANGED_WHENLabel = New System.Windows.Forms.Label()
+        WHERE_CLAUSELabel = New System.Windows.Forms.Label()
+        CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TBPMO_SAP_FUBABindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TBPMO_SAP_FUBABindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.TBPMO_SAP_FUBABindingNavigator.SuspendLayout()
+        CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.GridView2, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'GUIDLabel
+        '
+        GUIDLabel.AutoSize = True
+        GUIDLabel.Location = New System.Drawing.Point(131, 28)
+        GUIDLabel.Name = "GUIDLabel"
+        GUIDLabel.Size = New System.Drawing.Size(37, 13)
+        GUIDLabel.TabIndex = 1
+        GUIDLabel.Text = "GUID:"
+        '
+        'NAMELabel
+        '
+        NAMELabel.AutoSize = True
+        NAMELabel.Location = New System.Drawing.Point(184, 28)
+        NAMELabel.Name = "NAMELabel"
+        NAMELabel.Size = New System.Drawing.Size(73, 13)
+        NAMELabel.TabIndex = 3
+        NAMELabel.Text = "Name intern:"
+        '
+        'COMMENTLabel
+        '
+        COMMENTLabel.AutoSize = True
+        COMMENTLabel.Location = New System.Drawing.Point(375, 28)
+        COMMENTLabel.Name = "COMMENTLabel"
+        COMMENTLabel.Size = New System.Drawing.Size(68, 13)
+        COMMENTLabel.TabIndex = 5
+        COMMENTLabel.Text = "Kommentar:"
+        '
+        'TableNameLabel
+        '
+        TableNameLabel.AutoSize = True
+        TableNameLabel.Location = New System.Drawing.Point(184, 69)
+        TableNameLabel.Name = "TableNameLabel"
+        TableNameLabel.Size = New System.Drawing.Size(69, 13)
+        TableNameLabel.TabIndex = 7
+        TableNameLabel.Text = "Table Name:"
+        '
+        'HostLabel
+        '
+        HostLabel.AutoSize = True
+        HostLabel.Location = New System.Drawing.Point(375, 69)
+        HostLabel.Name = "HostLabel"
+        HostLabel.Size = New System.Drawing.Size(84, 13)
+        HostLabel.TabIndex = 9
+        HostLabel.Text = "SAP Hostname:"
+        '
+        'SystemNumberLabel
+        '
+        SystemNumberLabel.AutoSize = True
+        SystemNumberLabel.Location = New System.Drawing.Point(574, 69)
+        SystemNumberLabel.Name = "SystemNumberLabel"
+        SystemNumberLabel.Size = New System.Drawing.Size(108, 13)
+        SystemNumberLabel.TabIndex = 11
+        SystemNumberLabel.Text = "SAP SystemNumber:"
+        '
+        'UserNameLabel
+        '
+        UserNameLabel.AutoSize = True
+        UserNameLabel.Location = New System.Drawing.Point(184, 110)
+        UserNameLabel.Name = "UserNameLabel"
+        UserNameLabel.Size = New System.Drawing.Size(65, 13)
+        UserNameLabel.TabIndex = 13
+        UserNameLabel.Text = "User Name:"
+        '
+        'PasswordLabel
+        '
+        PasswordLabel.AutoSize = True
+        PasswordLabel.Location = New System.Drawing.Point(375, 110)
+        PasswordLabel.Name = "PasswordLabel"
+        PasswordLabel.Size = New System.Drawing.Size(59, 13)
+        PasswordLabel.TabIndex = 15
+        PasswordLabel.Text = "Password:"
+        '
+        'ClientLabel
+        '
+        ClientLabel.AutoSize = True
+        ClientLabel.Location = New System.Drawing.Point(484, 110)
+        ClientLabel.Name = "ClientLabel"
+        ClientLabel.Size = New System.Drawing.Size(62, 13)
+        ClientLabel.TabIndex = 17
+        ClientLabel.Text = "SAP Client:"
+        '
+        'LanguageLabel
+        '
+        LanguageLabel.AutoSize = True
+        LanguageLabel.Location = New System.Drawing.Point(669, 110)
+        LanguageLabel.Name = "LanguageLabel"
+        LanguageLabel.Size = New System.Drawing.Size(61, 13)
+        LanguageLabel.TabIndex = 19
+        LanguageLabel.Text = "Language:"
+        '
+        'TempTableNameLabel
+        '
+        TempTableNameLabel.AutoSize = True
+        TempTableNameLabel.Location = New System.Drawing.Point(184, 148)
+        TempTableNameLabel.Name = "TempTableNameLabel"
+        TempTableNameLabel.Size = New System.Drawing.Size(99, 13)
+        TempTableNameLabel.TabIndex = 21
+        TempTableNameLabel.Text = "Temp Table Name:"
+        '
+        'ADDED_WHOLabel
+        '
+        ADDED_WHOLabel.AutoSize = True
+        ADDED_WHOLabel.Location = New System.Drawing.Point(185, 233)
+        ADDED_WHOLabel.Name = "ADDED_WHOLabel"
+        ADDED_WHOLabel.Size = New System.Drawing.Size(67, 13)
+        ADDED_WHOLabel.TabIndex = 25
+        ADDED_WHOLabel.Text = "Erstellt wer:"
+        '
+        'ADDED_WHENLabel
+        '
+        ADDED_WHENLabel.AutoSize = True
+        ADDED_WHENLabel.Location = New System.Drawing.Point(331, 233)
+        ADDED_WHENLabel.Name = "ADDED_WHENLabel"
+        ADDED_WHENLabel.Size = New System.Drawing.Size(77, 13)
+        ADDED_WHENLabel.TabIndex = 27
+        ADDED_WHENLabel.Text = "Erstellt wann:"
+        '
+        'CHANGED_WHOLabel
+        '
+        CHANGED_WHOLabel.AutoSize = True
+        CHANGED_WHOLabel.Location = New System.Drawing.Point(465, 232)
+        CHANGED_WHOLabel.Name = "CHANGED_WHOLabel"
+        CHANGED_WHOLabel.Size = New System.Drawing.Size(80, 13)
+        CHANGED_WHOLabel.TabIndex = 29
+        CHANGED_WHOLabel.Text = "Geändert wer:"
+        '
+        'CHANGED_WHENLabel
+        '
+        CHANGED_WHENLabel.AutoSize = True
+        CHANGED_WHENLabel.Location = New System.Drawing.Point(606, 232)
+        CHANGED_WHENLabel.Name = "CHANGED_WHENLabel"
+        CHANGED_WHENLabel.Size = New System.Drawing.Size(90, 13)
+        CHANGED_WHENLabel.TabIndex = 31
+        CHANGED_WHENLabel.Text = "Geändert wann:"
+        '
+        'WHERE_CLAUSELabel
+        '
+        WHERE_CLAUSELabel.AutoSize = True
+        WHERE_CLAUSELabel.Location = New System.Drawing.Point(184, 189)
+        WHERE_CLAUSELabel.Name = "WHERE_CLAUSELabel"
+        WHERE_CLAUSELabel.Size = New System.Drawing.Size(77, 13)
+        WHERE_CLAUSELabel.TabIndex = 83
+        WHERE_CLAUSELabel.Text = "where clause:"
+        '
+        'DD_ECMAdmin
+        '
+        Me.DD_ECMAdmin.DataSetName = "DD_ECMAdmin"
+        Me.DD_ECMAdmin.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
+        '
+        'TBPMO_SAP_FUBABindingSource
+        '
+        Me.TBPMO_SAP_FUBABindingSource.DataMember = "TBPMO_SAP_FUBA"
+        Me.TBPMO_SAP_FUBABindingSource.DataSource = Me.DD_ECMAdmin
+        '
+        'TBPMO_SAP_FUBATableAdapter
+        '
+        Me.TBPMO_SAP_FUBATableAdapter.ClearBeforeFill = True
+        '
+        'TableAdapterManager
+        '
+        Me.TableAdapterManager.BackupDataSetBeforeUpdate = False
+        Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing
+        Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing
+        Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTORTableAdapter = Nothing
+        Me.TableAdapterManager.TBPMO_SAP_FUBATableAdapter = Me.TBPMO_SAP_FUBATableAdapter
+        Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_ECMAdminTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
+        '
+        'TBPMO_SAP_FUBABindingNavigator
+        '
+        Me.TBPMO_SAP_FUBABindingNavigator.AddNewItem = Me.BindingNavigatorAddNewItem
+        Me.TBPMO_SAP_FUBABindingNavigator.BindingSource = Me.TBPMO_SAP_FUBABindingSource
+        Me.TBPMO_SAP_FUBABindingNavigator.CountItem = Me.BindingNavigatorCountItem
+        Me.TBPMO_SAP_FUBABindingNavigator.CountItemFormat = "von {0} Bausteinverknüpfngen"
+        Me.TBPMO_SAP_FUBABindingNavigator.DeleteItem = Me.BindingNavigatorDeleteItem
+        Me.TBPMO_SAP_FUBABindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.BindingNavigatorAddNewItem, Me.BindingNavigatorDeleteItem, Me.TBPMO_SAP_FUBABindingNavigatorSaveItem})
+        Me.TBPMO_SAP_FUBABindingNavigator.Location = New System.Drawing.Point(0, 0)
+        Me.TBPMO_SAP_FUBABindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem
+        Me.TBPMO_SAP_FUBABindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem
+        Me.TBPMO_SAP_FUBABindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem
+        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(983, 25)
+        Me.TBPMO_SAP_FUBABindingNavigator.TabIndex = 0
+        Me.TBPMO_SAP_FUBABindingNavigator.Text = "BindingNavigator1"
+        '
+        'BindingNavigatorAddNewItem
+        '
+        Me.BindingNavigatorAddNewItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.BindingNavigatorAddNewItem.Image = CType(resources.GetObject("BindingNavigatorAddNewItem.Image"), System.Drawing.Image)
+        Me.BindingNavigatorAddNewItem.Name = "BindingNavigatorAddNewItem"
+        Me.BindingNavigatorAddNewItem.RightToLeftAutoMirrorImage = True
+        Me.BindingNavigatorAddNewItem.Size = New System.Drawing.Size(23, 22)
+        Me.BindingNavigatorAddNewItem.Text = "Neu hinzufügen"
+        '
+        'BindingNavigatorCountItem
+        '
+        Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem"
+        Me.BindingNavigatorCountItem.Size = New System.Drawing.Size(166, 22)
+        Me.BindingNavigatorCountItem.Text = "von {0} Bausteinverknüpfngen"
+        Me.BindingNavigatorCountItem.ToolTipText = "Die Gesamtanzahl der Elemente."
+        '
+        'BindingNavigatorDeleteItem
+        '
+        Me.BindingNavigatorDeleteItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.BindingNavigatorDeleteItem.Image = CType(resources.GetObject("BindingNavigatorDeleteItem.Image"), System.Drawing.Image)
+        Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem"
+        Me.BindingNavigatorDeleteItem.RightToLeftAutoMirrorImage = True
+        Me.BindingNavigatorDeleteItem.Size = New System.Drawing.Size(23, 22)
+        Me.BindingNavigatorDeleteItem.Text = "Löschen"
+        '
+        'BindingNavigatorMoveFirstItem
+        '
+        Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.BindingNavigatorMoveFirstItem.Image = CType(resources.GetObject("BindingNavigatorMoveFirstItem.Image"), System.Drawing.Image)
+        Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem"
+        Me.BindingNavigatorMoveFirstItem.RightToLeftAutoMirrorImage = True
+        Me.BindingNavigatorMoveFirstItem.Size = New System.Drawing.Size(23, 22)
+        Me.BindingNavigatorMoveFirstItem.Text = "Erste verschieben"
+        '
+        'BindingNavigatorMovePreviousItem
+        '
+        Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.BindingNavigatorMovePreviousItem.Image = CType(resources.GetObject("BindingNavigatorMovePreviousItem.Image"), System.Drawing.Image)
+        Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem"
+        Me.BindingNavigatorMovePreviousItem.RightToLeftAutoMirrorImage = True
+        Me.BindingNavigatorMovePreviousItem.Size = New System.Drawing.Size(23, 22)
+        Me.BindingNavigatorMovePreviousItem.Text = "Vorherige verschieben"
+        '
+        'BindingNavigatorSeparator
+        '
+        Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator"
+        Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 25)
+        '
+        'BindingNavigatorPositionItem
+        '
+        Me.BindingNavigatorPositionItem.AccessibleName = "Position"
+        Me.BindingNavigatorPositionItem.AutoSize = False
+        Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem"
+        Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(50, 23)
+        Me.BindingNavigatorPositionItem.Text = "0"
+        Me.BindingNavigatorPositionItem.ToolTipText = "Aktuelle Position"
+        '
+        'BindingNavigatorSeparator1
+        '
+        Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1"
+        Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 25)
+        '
+        'BindingNavigatorMoveNextItem
+        '
+        Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.BindingNavigatorMoveNextItem.Image = CType(resources.GetObject("BindingNavigatorMoveNextItem.Image"), System.Drawing.Image)
+        Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem"
+        Me.BindingNavigatorMoveNextItem.RightToLeftAutoMirrorImage = True
+        Me.BindingNavigatorMoveNextItem.Size = New System.Drawing.Size(23, 22)
+        Me.BindingNavigatorMoveNextItem.Text = "Nächste verschieben"
+        '
+        'BindingNavigatorMoveLastItem
+        '
+        Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.BindingNavigatorMoveLastItem.Image = CType(resources.GetObject("BindingNavigatorMoveLastItem.Image"), System.Drawing.Image)
+        Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem"
+        Me.BindingNavigatorMoveLastItem.RightToLeftAutoMirrorImage = True
+        Me.BindingNavigatorMoveLastItem.Size = New System.Drawing.Size(23, 22)
+        Me.BindingNavigatorMoveLastItem.Text = "Letzte verschieben"
+        '
+        'BindingNavigatorSeparator2
+        '
+        Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2"
+        Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 25)
+        '
+        'TBPMO_SAP_FUBABindingNavigatorSaveItem
+        '
+        Me.TBPMO_SAP_FUBABindingNavigatorSaveItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.TBPMO_SAP_FUBABindingNavigatorSaveItem.Image = CType(resources.GetObject("TBPMO_SAP_FUBABindingNavigatorSaveItem.Image"), System.Drawing.Image)
+        Me.TBPMO_SAP_FUBABindingNavigatorSaveItem.Name = "TBPMO_SAP_FUBABindingNavigatorSaveItem"
+        Me.TBPMO_SAP_FUBABindingNavigatorSaveItem.Size = New System.Drawing.Size(23, 22)
+        Me.TBPMO_SAP_FUBABindingNavigatorSaveItem.Text = "Daten speichern"
+        '
+        'GUIDTextBox
+        '
+        Me.GUIDTextBox.BackColor = System.Drawing.Color.WhiteSmoke
+        Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_SAP_FUBABindingSource, "GUID", True))
+        Me.GUIDTextBox.Enabled = False
+        Me.GUIDTextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.GUIDTextBox.Location = New System.Drawing.Point(134, 44)
+        Me.GUIDTextBox.Name = "GUIDTextBox"
+        Me.GUIDTextBox.Size = New System.Drawing.Size(47, 22)
+        Me.GUIDTextBox.TabIndex = 2
+        '
+        'NAMETextBox
+        '
+        Me.NAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_SAP_FUBABindingSource, "NAME", True))
+        Me.NAMETextBox.Location = New System.Drawing.Point(187, 44)
+        Me.NAMETextBox.Name = "NAMETextBox"
+        Me.NAMETextBox.Size = New System.Drawing.Size(182, 22)
+        Me.NAMETextBox.TabIndex = 4
+        '
+        'COMMENTTextBox
+        '
+        Me.COMMENTTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_SAP_FUBABindingSource, "COMMENT", True))
+        Me.COMMENTTextBox.Location = New System.Drawing.Point(378, 44)
+        Me.COMMENTTextBox.Name = "COMMENTTextBox"
+        Me.COMMENTTextBox.Size = New System.Drawing.Size(505, 22)
+        Me.COMMENTTextBox.TabIndex = 6
+        '
+        'TableNameTextBox
+        '
+        Me.TableNameTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_SAP_FUBABindingSource, "TableName", True))
+        Me.TableNameTextBox.Location = New System.Drawing.Point(187, 85)
+        Me.TableNameTextBox.Name = "TableNameTextBox"
+        Me.TableNameTextBox.Size = New System.Drawing.Size(182, 22)
+        Me.TableNameTextBox.TabIndex = 8
+        '
+        'HostTextBox
+        '
+        Me.HostTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_SAP_FUBABindingSource, "Host", True))
+        Me.HostTextBox.Location = New System.Drawing.Point(378, 85)
+        Me.HostTextBox.Name = "HostTextBox"
+        Me.HostTextBox.Size = New System.Drawing.Size(190, 22)
+        Me.HostTextBox.TabIndex = 10
+        '
+        'SystemNumberTextBox
+        '
+        Me.SystemNumberTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_SAP_FUBABindingSource, "SystemNumber", True))
+        Me.SystemNumberTextBox.Location = New System.Drawing.Point(577, 85)
+        Me.SystemNumberTextBox.Name = "SystemNumberTextBox"
+        Me.SystemNumberTextBox.Size = New System.Drawing.Size(86, 22)
+        Me.SystemNumberTextBox.TabIndex = 12
+        '
+        'UserNameTextBox
+        '
+        Me.UserNameTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_SAP_FUBABindingSource, "UserName", True))
+        Me.UserNameTextBox.Location = New System.Drawing.Point(187, 123)
+        Me.UserNameTextBox.Name = "UserNameTextBox"
+        Me.UserNameTextBox.Size = New System.Drawing.Size(182, 22)
+        Me.UserNameTextBox.TabIndex = 14
+        '
+        'PasswordTextBox
+        '
+        Me.PasswordTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_SAP_FUBABindingSource, "Password", True))
+        Me.PasswordTextBox.Location = New System.Drawing.Point(378, 123)
+        Me.PasswordTextBox.Name = "PasswordTextBox"
+        Me.PasswordTextBox.Size = New System.Drawing.Size(100, 22)
+        Me.PasswordTextBox.TabIndex = 16
+        Me.PasswordTextBox.UseSystemPasswordChar = True
+        '
+        'ClientTextBox
+        '
+        Me.ClientTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_SAP_FUBABindingSource, "Client", True))
+        Me.ClientTextBox.Location = New System.Drawing.Point(487, 123)
+        Me.ClientTextBox.Name = "ClientTextBox"
+        Me.ClientTextBox.Size = New System.Drawing.Size(176, 22)
+        Me.ClientTextBox.TabIndex = 18
+        '
+        'LanguageTextBox
+        '
+        Me.LanguageTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_SAP_FUBABindingSource, "Language", True))
+        Me.LanguageTextBox.Location = New System.Drawing.Point(672, 123)
+        Me.LanguageTextBox.Name = "LanguageTextBox"
+        Me.LanguageTextBox.Size = New System.Drawing.Size(148, 22)
+        Me.LanguageTextBox.TabIndex = 20
+        '
+        'TempTableNameTextBox
+        '
+        Me.TempTableNameTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_SAP_FUBABindingSource, "TempTableName", True))
+        Me.TempTableNameTextBox.Location = New System.Drawing.Point(187, 164)
+        Me.TempTableNameTextBox.Name = "TempTableNameTextBox"
+        Me.TempTableNameTextBox.Size = New System.Drawing.Size(291, 22)
+        Me.TempTableNameTextBox.TabIndex = 22
+        '
+        'ACTIVECheckBox
+        '
+        Me.ACTIVECheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBPMO_SAP_FUBABindingSource, "ACTIVE", True))
+        Me.ACTIVECheckBox.Location = New System.Drawing.Point(898, 42)
+        Me.ACTIVECheckBox.Name = "ACTIVECheckBox"
+        Me.ACTIVECheckBox.Size = New System.Drawing.Size(65, 24)
+        Me.ACTIVECheckBox.TabIndex = 24
+        Me.ACTIVECheckBox.Text = "Aktiv"
+        Me.ACTIVECheckBox.UseVisualStyleBackColor = True
+        '
+        'ADDED_WHOTextBox
+        '
+        Me.ADDED_WHOTextBox.BackColor = System.Drawing.Color.WhiteSmoke
+        Me.ADDED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_SAP_FUBABindingSource, "ADDED_WHO", True))
+        Me.ADDED_WHOTextBox.Enabled = False
+        Me.ADDED_WHOTextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.ADDED_WHOTextBox.Location = New System.Drawing.Point(188, 249)
+        Me.ADDED_WHOTextBox.Name = "ADDED_WHOTextBox"
+        Me.ADDED_WHOTextBox.Size = New System.Drawing.Size(140, 22)
+        Me.ADDED_WHOTextBox.TabIndex = 26
+        '
+        'ADDED_WHENTextBox
+        '
+        Me.ADDED_WHENTextBox.BackColor = System.Drawing.Color.WhiteSmoke
+        Me.ADDED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_SAP_FUBABindingSource, "ADDED_WHEN", True))
+        Me.ADDED_WHENTextBox.Enabled = False
+        Me.ADDED_WHENTextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.ADDED_WHENTextBox.Location = New System.Drawing.Point(334, 249)
+        Me.ADDED_WHENTextBox.Name = "ADDED_WHENTextBox"
+        Me.ADDED_WHENTextBox.Size = New System.Drawing.Size(130, 22)
+        Me.ADDED_WHENTextBox.TabIndex = 28
+        '
+        'CHANGED_WHOTextBox
+        '
+        Me.CHANGED_WHOTextBox.BackColor = System.Drawing.Color.WhiteSmoke
+        Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_SAP_FUBABindingSource, "CHANGED_WHO", True))
+        Me.CHANGED_WHOTextBox.Enabled = False
+        Me.CHANGED_WHOTextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.CHANGED_WHOTextBox.Location = New System.Drawing.Point(468, 248)
+        Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox"
+        Me.CHANGED_WHOTextBox.Size = New System.Drawing.Size(132, 22)
+        Me.CHANGED_WHOTextBox.TabIndex = 30
+        '
+        'CHANGED_WHENTextBox
+        '
+        Me.CHANGED_WHENTextBox.BackColor = System.Drawing.Color.WhiteSmoke
+        Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_SAP_FUBABindingSource, "CHANGED_WHEN", True))
+        Me.CHANGED_WHENTextBox.Enabled = False
+        Me.CHANGED_WHENTextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.CHANGED_WHENTextBox.Location = New System.Drawing.Point(609, 248)
+        Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox"
+        Me.CHANGED_WHENTextBox.Size = New System.Drawing.Size(147, 22)
+        Me.CHANGED_WHENTextBox.TabIndex = 32
+        '
+        'ListBox1
+        '
+        Me.ListBox1.DataSource = Me.TBPMO_SAP_FUBABindingSource
+        Me.ListBox1.DisplayMember = "NAME"
+        Me.ListBox1.FormattingEnabled = True
+        Me.ListBox1.Location = New System.Drawing.Point(5, 28)
+        Me.ListBox1.Name = "ListBox1"
+        Me.ListBox1.Size = New System.Drawing.Size(120, 199)
+        Me.ListBox1.TabIndex = 33
+        '
+        'btnERPConnect
+        '
+        Me.btnERPConnect.Font = New System.Drawing.Font("Segoe UI Semibold", 9.75!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle))
+        Me.btnERPConnect.Image = Global.DD_Record_Organiser.My.Resources.Resources.database_connect
+        Me.btnERPConnect.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnERPConnect.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.btnERPConnect.Location = New System.Drawing.Point(827, 116)
+        Me.btnERPConnect.Name = "btnERPConnect"
+        Me.btnERPConnect.Size = New System.Drawing.Size(126, 29)
+        Me.btnERPConnect.TabIndex = 78
+        Me.btnERPConnect.Text = "Connect testen"
+        Me.btnERPConnect.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnERPConnect.UseVisualStyleBackColor = True
+        '
+        'GridControl2
+        '
+        Me.GridControl2.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.GridControl2.Location = New System.Drawing.Point(5, 303)
+        Me.GridControl2.MainView = Me.GridView2
+        Me.GridControl2.Name = "GridControl2"
+        Me.GridControl2.Size = New System.Drawing.Size(966, 375)
+        Me.GridControl2.TabIndex = 83
+        Me.GridControl2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView2})
+        '
+        'GridView2
+        '
+        Me.GridView2.Appearance.EvenRow.BackColor = System.Drawing.Color.Cyan
+        Me.GridView2.Appearance.EvenRow.Options.UseBackColor = True
+        Me.GridView2.Appearance.SelectedRow.BackColor = System.Drawing.Color.Magenta
+        Me.GridView2.Appearance.SelectedRow.Options.UseBackColor = True
+        Me.GridView2.GridControl = Me.GridControl2
+        Me.GridView2.Name = "GridView2"
+        Me.GridView2.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
+        Me.GridView2.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
+        Me.GridView2.OptionsBehavior.Editable = False
+        Me.GridView2.OptionsBehavior.ReadOnly = True
+        Me.GridView2.OptionsView.ColumnAutoWidth = False
+        Me.GridView2.OptionsView.EnableAppearanceEvenRow = True
+        Me.GridView2.OptionsView.ShowAutoFilterRow = True
+        '
+        'WHERE_CLAUSETextBox
+        '
+        Me.WHERE_CLAUSETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_SAP_FUBABindingSource, "WHERE_CLAUSE", True))
+        Me.WHERE_CLAUSETextBox.Location = New System.Drawing.Point(187, 205)
+        Me.WHERE_CLAUSETextBox.Name = "WHERE_CLAUSETextBox"
+        Me.WHERE_CLAUSETextBox.Size = New System.Drawing.Size(766, 22)
+        Me.WHERE_CLAUSETextBox.TabIndex = 84
+        '
+        'lblSave
+        '
+        Me.lblSave.AutoSize = True
+        Me.lblSave.BackColor = System.Drawing.Color.Yellow
+        Me.lblSave.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold)
+        Me.lblSave.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.lblSave.Location = New System.Drawing.Point(785, 252)
+        Me.lblSave.Name = "lblSave"
+        Me.lblSave.Size = New System.Drawing.Size(132, 13)
+        Me.lblSave.TabIndex = 85
+        Me.lblSave.Text = "Data saved successfully!"
+        Me.lblSave.Visible = False
+        '
+        'lblConnectionopen
+        '
+        Me.lblConnectionopen.AutoSize = True
+        Me.lblConnectionopen.BackColor = System.Drawing.Color.Yellow
+        Me.lblConnectionopen.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold)
+        Me.lblConnectionopen.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.lblConnectionopen.Location = New System.Drawing.Point(828, 148)
+        Me.lblConnectionopen.Name = "lblConnectionopen"
+        Me.lblConnectionopen.Size = New System.Drawing.Size(125, 13)
+        Me.lblConnectionopen.TabIndex = 86
+        Me.lblConnectionopen.Text = "Connection successfull"
+        Me.lblConnectionopen.Visible = False
+        '
+        'lblResult
+        '
+        Me.lblResult.AutoSize = True
+        Me.lblResult.BackColor = System.Drawing.Color.Yellow
+        Me.lblResult.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold)
+        Me.lblResult.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.lblResult.Location = New System.Drawing.Point(2, 287)
+        Me.lblResult.Name = "lblResult"
+        Me.lblResult.Size = New System.Drawing.Size(155, 13)
+        Me.lblResult.TabIndex = 87
+        Me.lblResult.Text = "Result (limited to 1000 rows)"
+        Me.lblResult.Visible = False
+        '
+        'Button1
+        '
+        Me.Button1.Image = Global.DD_Record_Organiser.My.Resources.Resources.InsertColumn_5626
+        Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button1.Location = New System.Drawing.Point(487, 162)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(176, 24)
+        Me.Button1.TabIndex = 88
+        Me.Button1.Text = "Insert results in temptable"
+        Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        '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(983, 679)
+        Me.Controls.Add(Me.Button1)
+        Me.Controls.Add(Me.lblResult)
+        Me.Controls.Add(Me.lblConnectionopen)
+        Me.Controls.Add(Me.lblSave)
+        Me.Controls.Add(WHERE_CLAUSELabel)
+        Me.Controls.Add(Me.WHERE_CLAUSETextBox)
+        Me.Controls.Add(Me.GridControl2)
+        Me.Controls.Add(Me.btnERPConnect)
+        Me.Controls.Add(Me.ListBox1)
+        Me.Controls.Add(CHANGED_WHENLabel)
+        Me.Controls.Add(Me.CHANGED_WHENTextBox)
+        Me.Controls.Add(CHANGED_WHOLabel)
+        Me.Controls.Add(Me.CHANGED_WHOTextBox)
+        Me.Controls.Add(ADDED_WHENLabel)
+        Me.Controls.Add(Me.ADDED_WHENTextBox)
+        Me.Controls.Add(ADDED_WHOLabel)
+        Me.Controls.Add(Me.ADDED_WHOTextBox)
+        Me.Controls.Add(Me.ACTIVECheckBox)
+        Me.Controls.Add(TempTableNameLabel)
+        Me.Controls.Add(Me.TempTableNameTextBox)
+        Me.Controls.Add(LanguageLabel)
+        Me.Controls.Add(Me.LanguageTextBox)
+        Me.Controls.Add(ClientLabel)
+        Me.Controls.Add(Me.ClientTextBox)
+        Me.Controls.Add(PasswordLabel)
+        Me.Controls.Add(Me.PasswordTextBox)
+        Me.Controls.Add(UserNameLabel)
+        Me.Controls.Add(Me.UserNameTextBox)
+        Me.Controls.Add(SystemNumberLabel)
+        Me.Controls.Add(Me.SystemNumberTextBox)
+        Me.Controls.Add(HostLabel)
+        Me.Controls.Add(Me.HostTextBox)
+        Me.Controls.Add(TableNameLabel)
+        Me.Controls.Add(Me.TableNameTextBox)
+        Me.Controls.Add(COMMENTLabel)
+        Me.Controls.Add(Me.COMMENTTextBox)
+        Me.Controls.Add(NAMELabel)
+        Me.Controls.Add(Me.NAMETextBox)
+        Me.Controls.Add(GUIDLabel)
+        Me.Controls.Add(Me.GUIDTextBox)
+        Me.Controls.Add(Me.TBPMO_SAP_FUBABindingNavigator)
+        Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Name = "frmSAP_FuBa"
+        Me.Text = "SAP - Funktionsbausteinverknüpfungen"
+        CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TBPMO_SAP_FUBABindingSource, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TBPMO_SAP_FUBABindingNavigator, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.TBPMO_SAP_FUBABindingNavigator.ResumeLayout(False)
+        Me.TBPMO_SAP_FUBABindingNavigator.PerformLayout()
+        CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.GridView2, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents DD_ECMAdmin As DD_Record_Organiser.DD_ECMAdmin
+    Friend WithEvents TBPMO_SAP_FUBABindingSource As System.Windows.Forms.BindingSource
+    Friend WithEvents TBPMO_SAP_FUBATableAdapter As DD_Record_Organiser.DD_ECMAdminTableAdapters.TBPMO_SAP_FUBATableAdapter
+    Friend WithEvents TableAdapterManager As DD_Record_Organiser.DD_ECMAdminTableAdapters.TableAdapterManager
+    Friend WithEvents TBPMO_SAP_FUBABindingNavigator As System.Windows.Forms.BindingNavigator
+    Friend WithEvents BindingNavigatorAddNewItem As System.Windows.Forms.ToolStripButton
+    Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel
+    Friend WithEvents BindingNavigatorDeleteItem As System.Windows.Forms.ToolStripButton
+    Friend WithEvents BindingNavigatorMoveFirstItem As System.Windows.Forms.ToolStripButton
+    Friend WithEvents BindingNavigatorMovePreviousItem As System.Windows.Forms.ToolStripButton
+    Friend WithEvents BindingNavigatorSeparator As System.Windows.Forms.ToolStripSeparator
+    Friend WithEvents BindingNavigatorPositionItem As System.Windows.Forms.ToolStripTextBox
+    Friend WithEvents BindingNavigatorSeparator1 As System.Windows.Forms.ToolStripSeparator
+    Friend WithEvents BindingNavigatorMoveNextItem As System.Windows.Forms.ToolStripButton
+    Friend WithEvents BindingNavigatorMoveLastItem As System.Windows.Forms.ToolStripButton
+    Friend WithEvents BindingNavigatorSeparator2 As System.Windows.Forms.ToolStripSeparator
+    Friend WithEvents TBPMO_SAP_FUBABindingNavigatorSaveItem As System.Windows.Forms.ToolStripButton
+    Friend WithEvents GUIDTextBox As System.Windows.Forms.TextBox
+    Friend WithEvents NAMETextBox As System.Windows.Forms.TextBox
+    Friend WithEvents COMMENTTextBox As System.Windows.Forms.TextBox
+    Friend WithEvents TableNameTextBox As System.Windows.Forms.TextBox
+    Friend WithEvents HostTextBox As System.Windows.Forms.TextBox
+    Friend WithEvents SystemNumberTextBox As System.Windows.Forms.TextBox
+    Friend WithEvents UserNameTextBox As System.Windows.Forms.TextBox
+    Friend WithEvents PasswordTextBox As System.Windows.Forms.TextBox
+    Friend WithEvents ClientTextBox As System.Windows.Forms.TextBox
+    Friend WithEvents LanguageTextBox As System.Windows.Forms.TextBox
+    Friend WithEvents TempTableNameTextBox As System.Windows.Forms.TextBox
+    Friend WithEvents ACTIVECheckBox As System.Windows.Forms.CheckBox
+    Friend WithEvents ADDED_WHOTextBox As System.Windows.Forms.TextBox
+    Friend WithEvents ADDED_WHENTextBox As System.Windows.Forms.TextBox
+    Friend WithEvents CHANGED_WHOTextBox As System.Windows.Forms.TextBox
+    Friend WithEvents CHANGED_WHENTextBox As System.Windows.Forms.TextBox
+    Friend WithEvents ListBox1 As System.Windows.Forms.ListBox
+    Friend WithEvents btnERPConnect As System.Windows.Forms.Button
+    Friend WithEvents GridControl2 As DevExpress.XtraGrid.GridControl
+    Friend WithEvents GridView2 As DevExpress.XtraGrid.Views.Grid.GridView
+    Friend WithEvents WHERE_CLAUSETextBox As System.Windows.Forms.TextBox
+    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
+End Class

app/DD-Record-Organiser/frmSAP_FuBa.vb

@@ -0,0 +1,219 @@
+Imports ERPConnect
+Imports System.Data.SqlClient
+
+Public Class frmSAP_FuBa
+
+    Private Sub TBPMO_SAP_FUBABindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles TBPMO_SAP_FUBABindingNavigatorSaveItem.Click
+        Try
+            Me.TBPMO_SAP_FUBABindingSource.EndEdit()
+            If DD_ECMAdmin.TBPMO_SAP_FUBA.GetChanges Is Nothing = False Then
+                Me.CHANGED_WHOTextBox.Text = Environment.UserName
+                Me.TBPMO_SAP_FUBABindingSource.EndEdit()
+                Me.TBPMO_SAP_FUBATableAdapter.Update(DD_ECMAdmin.TBPMO_SAP_FUBA)
+                lblSave.Visible = True
+            Else
+                lblSave.Visible = False
+            End If
+        Catch ex As Exception
+            MsgBox("Error in Save Fuba:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+        End Try
+
+
+
+    End Sub
+
+    Private Sub frmSAP_FuBa_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        'TODO: Diese Codezeile lädt Daten in die Tabelle "DD_ECMAdmin.TBPMO_SAP_FUBA". Sie können sie bei Bedarf verschieben oder entfernen.
+        Refresh_Fubas()
+    End Sub
+    Sub Refresh_Fubas()
+        Try
+            Me.TBPMO_SAP_FUBATableAdapter.Connection.ConnectionString = MyConnectionString
+            Me.TBPMO_SAP_FUBATableAdapter.Fill(Me.DD_ECMAdmin.TBPMO_SAP_FUBA)
+        Catch ex As Exception
+            MsgBox("Error in Load Fubas:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+        End Try
+    End Sub
+
+    Private Sub btnERPConnect_Click(sender As Object, e As EventArgs) Handles btnERPConnect.Click
+        Dim con As New R3Connection
+        Try
+            Me.Cursor = Cursors.WaitCursor
+            ClassLogger.Add("", False)
+            ClassLogger.Add(">> SAP Connect started:", False)
+            ERPConnect.LIC.SetLic("W86DWC992C")
+            con.Host = HostTextBox.Text
+            con.SystemNumber = SystemNumberTextBox.Text
+            con.UserName = UserNameTextBox.Text
+            con.Password = PasswordTextBox.Text
+            con.Client = ClientTextBox.Text
+            con.Language = LanguageTextBox.Text
+            ClassLogger.Add(">> HOST: " & HostTextBox.Text & " |SystemNumber: " & SystemNumberTextBox.Text & " |UserName: " & UserNameTextBox.Text & " |Password: " & PasswordTextBox.Text & " |Client: " & ClientTextBox.Text & " |Language: " & LanguageTextBox.Text, False)
+            con.Open(False)
+            ClassLogger.Add(">> SAP-Connection erfolgreich aufgebaut!", False)
+            ClassLogger.Add("", False)
+            lblConnectionopen.Visible = True
+        Catch ex As Exception
+            MsgBox("Unexpected Error in SAP Connect: " & ex.Message, MsgBoxStyle.Critical)
+            lblConnectionopen.Visible = False
+            Me.Cursor = Cursors.Default
+            lblResult.Visible = False
+            Exit Sub
+        End Try
+        Try
+            Dim table As New ERPConnect.Utils.ReadTable(con)
+            'Dim cWhereClause = "SAP_OBJECT EQ '<ObjectType>' AND AR_DATE GE '<AR_DATE>'"
+            'Dim sSearchDate1 = "20160101"
+            'cWhereClause = Replace(cWhereClause, "<ObjectType>", Objekttyp.Text)
+            'cWhereClause = Replace(cWhereClause, "<AR_DATE>", sSearchDate1)
+            If WHERE_CLAUSETextBox.Text <> "" Then
+                table.AddCriteria(WHERE_CLAUSETextBox.Text)
+            End If
+
+            'ClassLogger.Add(">> cWhereClause: " & cWhereClause, False)
+            'table.AddField("MATNR")
+            'table.AddField("MAKTX")
+
+            ' table.AddCriteria("SPRAS = 'DE'")
+
+            table.TableName = TableNameTextBox.Text
+            table.RowCount = 1000
+
+            table.Run()
+
+            Dim resulttable As DataTable
+            resulttable = table.Result
+            Try
+                GridControl2.DataSource = resulttable
+            Catch ex As Exception
+                MsgBox("Fehler bei GridControl2 >> DataTable: " & ex.Message, MsgBoxStyle.Critical)
+            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()
+            lblResult.Visible = True
+            Me.Cursor = Cursors.Default
+        Catch ex As Exception
+            MsgBox("Unexpected Error in SAP Table Result: " & ex.Message, MsgBoxStyle.Critical)
+            lblResult.Visible = False
+        End Try
+    End Sub
+
+    Private Sub TBPMO_SAP_FUBABindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBPMO_SAP_FUBABindingSource.AddingNew
+        DD_ECMAdmin.TBPMO_SAP_FUBA.ADDED_WHOColumn.DefaultValue = Environment.UserName
+    End Sub
+
+    Private Sub TBPMO_SAP_FUBABindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBPMO_SAP_FUBABindingSource.CurrentChanged
+        lblSave.Visible = False
+        GridControl2.DataSource = Nothing
+        lblConnectionopen.Visible = False
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        If TempTableNameTextBox.Text <> "" Then
+            Dim con As New R3Connection
+            Try
+                Me.Cursor = Cursors.WaitCursor
+                ClassLogger.Add("", False)
+                ClassLogger.Add(">> SAP Connect started:", False)
+                ERPConnect.LIC.SetLic("W86DWC992C")
+                con.Host = HostTextBox.Text
+                con.SystemNumber = SystemNumberTextBox.Text
+                con.UserName = UserNameTextBox.Text
+                con.Password = PasswordTextBox.Text
+                con.Client = ClientTextBox.Text
+                con.Language = LanguageTextBox.Text
+                ClassLogger.Add(">> HOST: " & HostTextBox.Text & " |SystemNumber: " & SystemNumberTextBox.Text & " |UserName: " & UserNameTextBox.Text & " |Password: " & PasswordTextBox.Text & " |Client: " & ClientTextBox.Text & " |Language: " & LanguageTextBox.Text, False)
+                con.Open(False)
+                ClassLogger.Add(">> SAP-Connection erfolgreich aufgebaut!", False)
+                ClassLogger.Add("", False)
+            Catch ex As Exception
+                MsgBox("Unexpected Error in SAP Connect: " & ex.Message, MsgBoxStyle.Critical)
+                Me.Cursor = Cursors.Default
+                Exit Sub
+            End Try
+            Dim resulttable As DataTable
+            Try
+                Dim table As New ERPConnect.Utils.ReadTable(con)
+                'Dim cWhereClause = "SAP_OBJECT EQ '<ObjectType>' AND AR_DATE GE '<AR_DATE>'"
+                'Dim sSearchDate1 = "20160101"
+                'cWhereClause = Replace(cWhereClause, "<ObjectType>", Objekttyp.Text)
+                'cWhereClause = Replace(cWhereClause, "<AR_DATE>", sSearchDate1)
+                If WHERE_CLAUSETextBox.Text <> "" Then
+                    table.AddCriteria(WHERE_CLAUSETextBox.Text)
+                End If
+
+                'ClassLogger.Add(">> cWhereClause: " & cWhereClause, False)
+                'table.AddField("MATNR")
+                'table.AddField("MAKTX")
+
+                ' table.AddCriteria("SPRAS = 'DE'")
+
+                table.TableName = TableNameTextBox.Text
+                table.Run()
+
+                resulttable = table.Result
+                ClassLogger.Add(">> resulttable created!", False)
+                ClassLogger.Add("", False)
+
+            Catch ex As Exception
+                Me.Cursor = Cursors.Default
+                MsgBox("Unexpected Error in Get SAP Table Result: " & ex.Message, MsgBoxStyle.Critical)
+                Exit Sub
+            End Try
+            Dim i = 0
+            Dim tablename = "TPPMO_SAPFUBA_ " & TempTableNameTextBox.Text
+            Dim createtablesql = "CREATE TABLE TPPMO_SAPFUBA_ " & TempTableNameTextBox.Text & " ("
+
+
+            For Each col As System.Data.DataColumn In resulttable.Columns
+                If i = 0 Then
+                    createtablesql += "[" & col.ColumnName & "] [varchar](100)"
+                Else
+                    createtablesql += ", [" & col.ColumnName & "] [varchar](100)"
+                End If
+                i += 1
+            Next
+            createtablesql += ")"
+            Dim check = String.Format("SELECT 1 FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_TYPE='BASE TABLE' AND TABLE_NAME='{0}'", tablename)
+
+            If ClassDatabase.Execute_Scalar(check) = 1 Then
+                ClassDatabase.Execute_non_Query("DROP TABLE " & tablename)
+            End If
+
+            'Die Tabelle anlegen
+            ClassLogger.Add(">> Create Table: " & createtablesql, False)
+            If ClassDatabase.Execute_non_Query(createtablesql) = False Then
+                Me.Cursor = Cursors.Default
+                Exit Sub
+            End If
+            Try
+                Dim SQLconnect As New SqlClient.SqlConnection
+                SQLconnect.ConnectionString = MyConnectionString
+                SQLconnect.Open()
+                ' Note that the column positions in the source DataTable 
+                ' match the column positions in the destination table, 
+                ' so there is no need to map columns.
+                Using bulkCopy As SqlBulkCopy = _
+                  New SqlBulkCopy(SQLconnect)
+                    bulkCopy.DestinationTableName = tablename
+
+                    Try
+                        ' Write from the source to the destination.
+                        bulkCopy.WriteToServer(resulttable)
+
+                    Catch ex As Exception
+                        Console.WriteLine(ex.Message)
+                    End Try
+                End Using
+                SQLconnect.Close()
+            Catch ex As Exception
+                MsgBox("Unexpected Error in Get SAP Table Result: " & ex.Message, MsgBoxStyle.Critical)
+                Me.Cursor = Cursors.Default
+            End Try
+        End If
+    End Sub
+End Class