MS_10052016

app/DD-Record-Organiser/ClassControlBuilder.vb

@@ -274,11 +274,11 @@ Public Class ClassControlBuilder
                     Dim ctrlvalID = ClassDatabase.Execute_Scalar(sqlguid)
                     If Not IsNothing(ctrlvalID) Then
                         Dim upd1 = String.Format("UPDATE TBPMO_CONTROL_VALUE SET VALUE = '{0}' WHERE CONTROL_ID = {1} AND RECORD_ID = {2}", value.ToString, CONTROL_ID, CURRENT_RECORD_ID)
-                        ' ClassDatabase.Execute_non_Query(upd1)
+                        ClassDatabase.Execute_non_Query(upd1)
                     Else
                         If CURRENT_RECORD_ID <> 0 Then
                             Dim ins = String.Format("INSERT INTO TBPMO_CONTROL_VALUE (CONTROL_ID,RECORD_ID,VALUE,ADDED_WHO) VALUES ({0},{1},'{2}','{3}')", CONTROL_ID, CURRENT_RECORD_ID, value, Environment.UserName)
-                            'If ClassDatabase.Execute_non_Query(ins) = True Then
+                            ClassDatabase.Execute_non_Query(ins)
                         End If
                        
                         '    If LogErrorsOnly = False Then ClassLogger.Add(" >> Value was nothing - Inserted the ControlValue '" & ins & "'")
@@ -389,6 +389,43 @@ Public Class ClassControlBuilder
             MsgBox("Error in DependingControls - " & CONTROL_ID.ToString & ": " & ex.Message, MsgBoxStyle.Critical)
         End Try
     End Sub
+    Public Sub OnDateTimeValueChanged(sender As Object, ByVal e As EventArgs)
+        If CURRENT_RECORD_ENABLED = False Then Exit Sub
+
+        Try
+            Dim control As Control = DirectCast(sender, Control)
+            Dim controlId As Integer = DirectCast(control.Tag, ClassControlMetadata).Id
+            CONTROL_ID = controlId
+            'SQL für abhängige Auswahllisten
+            Dim SQL As String = String.Format("SELECT GUID, SQL_COMMAND_1 FROM TBPMO_CONTROL WHERE SQL_COMMAND_1 LIKE '%@{0}@%'", controlId)
+            Dim value
+            'SQL für enable control
+            Dim SQLenable As String = String.Format("SELECT GUID, SQL_COMMAND_2 FROM TBPMO_CONTROL WHERE SQL_COMMAND_2 LIKE '%@{0}@%'", controlId)
+
+           
+            value = DirectCast(control, DevExpress.XtraEditors.DateEdit).DateTime
+
+            If String.IsNullOrEmpty(value) Then
+                Exit Sub
+            End If
+            If CURRENT_RECORD_ID = 0 And CtrlCommandUI.IsInsert = True Then
+                Exit Sub
+            End If
+
+            Dim datatable As DataTable = ClassDatabase.Return_Datatable(SQL)
+            Dim datatable1 As DataTable = ClassDatabase.Return_Datatable(SQLenable)
+            Depending_Controls(control, datatable, value)
+            Enable_Controls(control, datatable1, value)
+
+            Console.WriteLine("value changed")
+        Catch ex As Exception
+            If ex.Message.Contains("Objektverweis") Or ex.Message.Contains("reference not set") Then
+
+            Else
+                MsgBox("Error in OnComboBoxValueChanged - " & CONTROL_ID.ToString & ": " & ex.Message, MsgBoxStyle.Critical)
+            End If
+        End Try
+    End Sub
     Public Sub OnComboBoxValueChanged(sender As Object, ByVal e As EventArgs)
         If CURRENT_RECORD_ENABLED = False Then Exit Sub
 
@@ -431,7 +468,7 @@ Public Class ClassControlBuilder
             Dim datatable1 As DataTable = ClassDatabase.Return_Datatable(SQLenable)
             Depending_Controls(control, datatable, value)
             Enable_Controls(control, datatable1, value)
-            
+
             Console.WriteLine("value changed")
         Catch ex As Exception
             If ex.Message.Contains("Objektverweis") Or ex.Message.Contains("reference not set") Then
@@ -618,6 +655,7 @@ Public Class ClassControlBuilder
             Case "DateEdit"
                 Dim datetimepick As DevExpress.XtraEditors.DateEdit = CType(control, DevExpress.XtraEditors.DateEdit)
                 AddHandler datetimepick.DateTimeChanged, AddressOf RecordChanged
+                AddHandler datetimepick.DateTimeChanged, AddressOf OnDateTimeValueChanged
                 AddHandler datetimepick.EnabledChanged, AddressOf OnEnabledChanged
 
             Case "ListBoxControl"

app/DD-Record-Organiser/ClassControlCommandsUI.vb

@@ -284,21 +284,26 @@ Public Class ClassControlCommandsUI
     End Sub
 
     Function DeleteRecord(RecordID As Integer)
-        Dim sql As String = "DELETE FROM TBPMO_RECORD_CONNECT WHERE RECORD1_ID = " & RecordID & " OR RECORD2_ID = " & RecordID
+        Dim del = "EXEC [dbo].[PRPMO_DELETE_RECORD] " & RecordID
-        If ClassDatabase.Execute_non_Query(sql) = True Then
+        Return ClassDatabase.Execute_non_Query(del, True) = True
-            sql = "DELETE FROM TBPMO_WORKFLOW_TASK WHERE RECORD_ID = " & RecordID
-            If ClassDatabase.Execute_non_Query(sql) = True Then
-                sql = "DELETE FROM TBPMO_CONTROL_VALUE WHERE RECORD_ID = " & RecordID
-                If ClassDatabase.Execute_non_Query(sql) = True Then ' Delete der Controls erfolgreich ausgeführt, jetzt der Record
-                    sql = "DELETE FROM TBPMO_RECORD WHERE GUID = " & RecordID
-                    If ClassDatabase.Execute_non_Query(sql) = True Then
-                        Return True
-                    End If
-                End If
-            End If
-        End If
 
-        Return False
+
+
+        'Dim sql As String = "DELETE FROM TBPMO_RECORD_CONNECT WHERE RECORD1_ID = " & RecordID & " OR RECORD2_ID = " & RecordID
+        'If ClassDatabase.Execute_non_Query(sql) = True Then
+        '    sql = "DELETE FROM TBPMO_WORKFLOW_TASK WHERE RECORD_ID = " & RecordID
+        '    If ClassDatabase.Execute_non_Query(sql) = True Then
+        '        sql = "DELETE FROM TBPMO_CONTROL_VALUE WHERE RECORD_ID = " & RecordID
+        '        If ClassDatabase.Execute_non_Query(sql) = True Then ' Delete der Controls erfolgreich ausgeführt, jetzt der Record
+        '            sql = "DELETE FROM TBPMO_RECORD WHERE GUID = " & RecordID
+        '            If ClassDatabase.Execute_non_Query(sql) = True Then
+        '                Return True
+        '            End If
+        '        End If
+        '    End If
+        'End If
+
+        'Return False
     End Function
 
 

app/DD-Record-Organiser/DD-Record-Organiser.vbproj

@@ -167,6 +167,9 @@
     <Reference Include="DLLLicenseManager">
       <HintPath>..\..\lib\DLLLicenseManager.dll</HintPath>
     </Reference>
+    <Reference Include="ERPConnect45">
+      <HintPath>D:\Programme\Sprachen\ERPConnect\ERPConnect45.dll</HintPath>
+    </Reference>
     <Reference Include="Independentsoft.Msg">
       <HintPath>..\..\3rdparty\lib\MSG.NET\Independentsoft.Msg.dll</HintPath>
     </Reference>
@@ -259,6 +262,12 @@
     <Compile Include="frmRight_Management.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="frmSAP_FuBa.Designer.vb">
+      <DependentUpon>frmSAP_FuBa.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmSAP_FuBa.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="frmStaticListEditor.Designer.vb">
       <DependentUpon>frmStaticListEditor.vb</DependentUpon>
     </Compile>
@@ -617,6 +626,9 @@
     <EmbeddedResource Include="frmRight_Management.resx">
       <DependentUpon>frmRight_Management.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="frmSAP_FuBa.resx">
+      <DependentUpon>frmSAP_FuBa.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="frmStaticListEditor.en-US.resx">
       <DependentUpon>frmStaticListEditor.vb</DependentUpon>
     </EmbeddedResource>
@@ -1179,6 +1191,7 @@
     <None Include="Resources\brick.png" />
   </ItemGroup>
   <ItemGroup>
+    <None Include="Resources\InsertColumn_5626.png" />
     <None Include="Resources\lock_16xMD.png" />
     <None Include="Resources\NetworkPipes_32xLG.png" />
     <None Include="Resources\dwg.png" />
@@ -1260,6 +1273,7 @@
     <None Include="Resources\changechartlegendalignment_32x32.png" />
     <None Include="Resources\calendar_32x32.png" />
     <None Include="Resources\csv.png" />
+    <None Include="Resources\Connection_Manager.png" />
     <Content Include="Resources\cube.ico" />
     <Content Include="Resources\138_PushPin_32x42_72.png" />
     <None Include="Resources\PropertyGridEditorPart_6041.png" />

app/DD-Record-Organiser/DD_ECMAdmin.xsc

@@ -45,5 +45,23 @@
         </ColumnUISetting>
       </ColumnUISettings>
     </TableUISetting>
+    <TableUISetting Name="TBPMO_SAP_FUBA">
+      <ColumnUISettings>
+        <ColumnUISetting Name="ADDED_WHEN">
+          <ControlSettings>
+            <ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form">
+              <BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
+            </ControlSetting>
+          </ControlSettings>
+        </ColumnUISetting>
+        <ColumnUISetting Name="CHANGED_WHEN">
+          <ControlSettings>
+            <ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form">
+              <BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
+            </ControlSetting>
+          </ControlSettings>
+        </ColumnUISetting>
+      </ColumnUISettings>
+    </TableUISetting>
   </TableUISettings>
 </DataSetUISetting>

app/DD-Record-Organiser/DD_ECMAdmin.xsd

@@ -354,6 +354,98 @@ ORDER BY NAME</CommandText>
             </Mappings>
             <Sources />
           </TableAdapter>
+          <TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="TBPMO_SAP_FUBATableAdapter" GeneratorDataComponentClassName="TBPMO_SAP_FUBATableAdapter" Name="TBPMO_SAP_FUBA" UserDataComponentName="TBPMO_SAP_FUBATableAdapter">
+            <MainSource>
+              <DbSource ConnectionRef="DD_DMSConnectionString (MySettings)" DbObjectName="DD_ECM.dbo.TBPMO_SAP_FUBA" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
+                <DeleteCommand>
+                  <DbCommand CommandType="Text" ModifiedByUser="false">
+                    <CommandText>DELETE FROM TBPMO_SAP_FUBA
+WHERE        (GUID = @Original_GUID)</CommandText>
+                    <Parameters>
+                      <Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
+                    </Parameters>
+                  </DbCommand>
+                </DeleteCommand>
+                <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)
+VALUES        (@NAME,@COMMENT,@TableName,@Host,@SystemNumber,@UserName,@Password,@Client,@Language,@TempTableName,@ACTIVE,@ADDED_WHO,@WHERE_CLAUSE);  
+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" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="COMMENT" ColumnName="COMMENT" DataSourceName="DD_ECM.dbo.TBPMO_SAP_FUBA" DataTypeServer="varchar(500)" DbType="AnsiString" Direction="Input" ParameterName="@COMMENT" Precision="0" ProviderType="VarChar" Scale="0" Size="500" SourceColumn="COMMENT" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="TableName" ColumnName="TableName" DataSourceName="DD_ECM.dbo.TBPMO_SAP_FUBA" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@TableName" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="TableName" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="Host" ColumnName="Host" DataSourceName="DD_ECM.dbo.TBPMO_SAP_FUBA" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@Host" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="Host" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="SystemNumber" ColumnName="SystemNumber" DataSourceName="DD_ECM.dbo.TBPMO_SAP_FUBA" DataTypeServer="varchar(30)" DbType="AnsiString" Direction="Input" ParameterName="@SystemNumber" Precision="0" ProviderType="VarChar" Scale="0" Size="30" SourceColumn="SystemNumber" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="UserName" ColumnName="UserName" DataSourceName="DD_ECM.dbo.TBPMO_SAP_FUBA" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@UserName" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="UserName" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="Password" ColumnName="Password" DataSourceName="DD_ECM.dbo.TBPMO_SAP_FUBA" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@Password" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="Password" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="Client" ColumnName="Client" DataSourceName="DD_ECM.dbo.TBPMO_SAP_FUBA" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@Client" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="Client" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="Language" ColumnName="Language" DataSourceName="DD_ECM.dbo.TBPMO_SAP_FUBA" DataTypeServer="varchar(20)" DbType="AnsiString" Direction="Input" ParameterName="@Language" Precision="0" ProviderType="VarChar" Scale="0" Size="20" SourceColumn="Language" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="TempTableName" ColumnName="TempTableName" DataSourceName="DD_ECM.dbo.TBPMO_SAP_FUBA" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@TempTableName" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="TempTableName" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="ACTIVE" ColumnName="ACTIVE" DataSourceName="DD_ECM.dbo.TBPMO_SAP_FUBA" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@ACTIVE" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="ACTIVE" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <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" />
+                    </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
+FROM            TBPMO_SAP_FUBA</CommandText>
+                    <Parameters />
+                  </DbCommand>
+                </SelectCommand>
+                <UpdateCommand>
+                  <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
+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" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="COMMENT" ColumnName="COMMENT" DataSourceName="DD_ECM.dbo.TBPMO_SAP_FUBA" DataTypeServer="varchar(500)" DbType="AnsiString" Direction="Input" ParameterName="@COMMENT" Precision="0" ProviderType="VarChar" Scale="0" Size="500" SourceColumn="COMMENT" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="TableName" ColumnName="TableName" DataSourceName="DD_ECM.dbo.TBPMO_SAP_FUBA" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@TableName" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="TableName" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="Host" ColumnName="Host" DataSourceName="DD_ECM.dbo.TBPMO_SAP_FUBA" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@Host" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="Host" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="SystemNumber" ColumnName="SystemNumber" DataSourceName="DD_ECM.dbo.TBPMO_SAP_FUBA" DataTypeServer="varchar(30)" DbType="AnsiString" Direction="Input" ParameterName="@SystemNumber" Precision="0" ProviderType="VarChar" Scale="0" Size="30" SourceColumn="SystemNumber" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="UserName" ColumnName="UserName" DataSourceName="DD_ECM.dbo.TBPMO_SAP_FUBA" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@UserName" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="UserName" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="Password" ColumnName="Password" DataSourceName="DD_ECM.dbo.TBPMO_SAP_FUBA" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@Password" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="Password" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="Client" ColumnName="Client" DataSourceName="DD_ECM.dbo.TBPMO_SAP_FUBA" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@Client" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="Client" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="Language" ColumnName="Language" DataSourceName="DD_ECM.dbo.TBPMO_SAP_FUBA" DataTypeServer="varchar(20)" DbType="AnsiString" Direction="Input" ParameterName="@Language" Precision="0" ProviderType="VarChar" Scale="0" Size="20" SourceColumn="Language" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="TempTableName" ColumnName="TempTableName" DataSourceName="DD_ECM.dbo.TBPMO_SAP_FUBA" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@TempTableName" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="TempTableName" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="ACTIVE" ColumnName="ACTIVE" DataSourceName="DD_ECM.dbo.TBPMO_SAP_FUBA" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@ACTIVE" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="ACTIVE" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <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="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>
+                  </DbCommand>
+                </UpdateCommand>
+              </DbSource>
+            </MainSource>
+            <Mappings>
+              <Mapping SourceColumn="GUID" DataSetColumn="GUID" />
+              <Mapping SourceColumn="NAME" DataSetColumn="NAME" />
+              <Mapping SourceColumn="COMMENT" DataSetColumn="COMMENT" />
+              <Mapping SourceColumn="TableName" DataSetColumn="TableName" />
+              <Mapping SourceColumn="Host" DataSetColumn="Host" />
+              <Mapping SourceColumn="SystemNumber" DataSetColumn="SystemNumber" />
+              <Mapping SourceColumn="UserName" DataSetColumn="UserName" />
+              <Mapping SourceColumn="Password" DataSetColumn="Password" />
+              <Mapping SourceColumn="Client" DataSetColumn="Client" />
+              <Mapping SourceColumn="Language" DataSetColumn="Language" />
+              <Mapping SourceColumn="TempTableName" DataSetColumn="TempTableName" />
+              <Mapping SourceColumn="ACTIVE" DataSetColumn="ACTIVE" />
+              <Mapping SourceColumn="ADDED_WHO" DataSetColumn="ADDED_WHO" />
+              <Mapping SourceColumn="ADDED_WHEN" DataSetColumn="ADDED_WHEN" />
+              <Mapping SourceColumn="CHANGED_WHO" DataSetColumn="CHANGED_WHO" />
+              <Mapping SourceColumn="CHANGED_WHEN" DataSetColumn="CHANGED_WHEN" />
+              <Mapping SourceColumn="WHERE_CLAUSE" DataSetColumn="WHERE_CLAUSE" />
+            </Mappings>
+            <Sources />
+          </TableAdapter>
         </Tables>
         <Sources />
       </DataSource>
@@ -709,6 +801,107 @@ ORDER BY NAME</CommandText>
             </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_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" />
+              <xs:element name="NAME" msprop:Generator_ColumnVarNameInTable="columnNAME" msprop:Generator_ColumnPropNameInRow="NAME" msprop:Generator_ColumnPropNameInTable="NAMEColumn" msprop:Generator_UserColumnName="NAME">
+                <xs:simpleType>
+                  <xs:restriction base="xs:string">
+                    <xs:maxLength value="100" />
+                  </xs:restriction>
+                </xs:simpleType>
+              </xs:element>
+              <xs:element name="COMMENT" msprop:Generator_ColumnVarNameInTable="columnCOMMENT" msprop:Generator_ColumnPropNameInRow="COMMENT" msprop:Generator_ColumnPropNameInTable="COMMENTColumn" msprop:Generator_UserColumnName="COMMENT" minOccurs="0">
+                <xs:simpleType>
+                  <xs:restriction base="xs:string">
+                    <xs:maxLength value="500" />
+                  </xs:restriction>
+                </xs:simpleType>
+              </xs:element>
+              <xs:element name="TableName" msprop:Generator_ColumnVarNameInTable="columnTableName" msprop:Generator_ColumnPropNameInRow="TableName" msprop:Generator_ColumnPropNameInTable="TableNameColumn" msprop:Generator_UserColumnName="TableName">
+                <xs:simpleType>
+                  <xs:restriction base="xs:string">
+                    <xs:maxLength value="100" />
+                  </xs:restriction>
+                </xs:simpleType>
+              </xs:element>
+              <xs:element name="Host" msprop:Generator_ColumnVarNameInTable="columnHost" msprop:Generator_ColumnPropNameInRow="Host" msprop:Generator_ColumnPropNameInTable="HostColumn" msprop:Generator_UserColumnName="Host">
+                <xs:simpleType>
+                  <xs:restriction base="xs:string">
+                    <xs:maxLength value="100" />
+                  </xs:restriction>
+                </xs:simpleType>
+              </xs:element>
+              <xs:element name="SystemNumber" msprop:Generator_ColumnVarNameInTable="columnSystemNumber" msprop:Generator_ColumnPropNameInRow="SystemNumber" msprop:Generator_ColumnPropNameInTable="SystemNumberColumn" msprop:Generator_UserColumnName="SystemNumber">
+                <xs:simpleType>
+                  <xs:restriction base="xs:string">
+                    <xs:maxLength value="30" />
+                  </xs:restriction>
+                </xs:simpleType>
+              </xs:element>
+              <xs:element name="UserName" msprop:Generator_ColumnVarNameInTable="columnUserName" msprop:Generator_ColumnPropNameInRow="UserName" msprop:Generator_ColumnPropNameInTable="UserNameColumn" msprop:Generator_UserColumnName="UserName">
+                <xs:simpleType>
+                  <xs:restriction base="xs:string">
+                    <xs:maxLength value="50" />
+                  </xs:restriction>
+                </xs:simpleType>
+              </xs:element>
+              <xs:element name="Password" msprop:Generator_ColumnVarNameInTable="columnPassword" msprop:Generator_ColumnPropNameInRow="Password" msprop:Generator_ColumnPropNameInTable="PasswordColumn" msprop:Generator_UserColumnName="Password">
+                <xs:simpleType>
+                  <xs:restriction base="xs:string">
+                    <xs:maxLength value="100" />
+                  </xs:restriction>
+                </xs:simpleType>
+              </xs:element>
+              <xs:element name="Client" msprop:Generator_ColumnVarNameInTable="columnClient" msprop:Generator_ColumnPropNameInRow="Client" msprop:Generator_ColumnPropNameInTable="ClientColumn" msprop:Generator_UserColumnName="Client">
+                <xs:simpleType>
+                  <xs:restriction base="xs:string">
+                    <xs:maxLength value="100" />
+                  </xs:restriction>
+                </xs:simpleType>
+              </xs:element>
+              <xs:element name="Language" msprop:Generator_ColumnVarNameInTable="columnLanguage" msprop:Generator_ColumnPropNameInRow="Language" msprop:Generator_ColumnPropNameInTable="LanguageColumn" msprop:Generator_UserColumnName="Language">
+                <xs:simpleType>
+                  <xs:restriction base="xs:string">
+                    <xs:maxLength value="20" />
+                  </xs:restriction>
+                </xs:simpleType>
+              </xs:element>
+              <xs:element name="TempTableName" msprop:Generator_ColumnVarNameInTable="columnTempTableName" msprop:Generator_ColumnPropNameInRow="TempTableName" msprop:Generator_ColumnPropNameInTable="TempTableNameColumn" msprop:Generator_UserColumnName="TempTableName">
+                <xs:simpleType>
+                  <xs:restriction base="xs:string">
+                    <xs:maxLength value="100" />
+                  </xs:restriction>
+                </xs:simpleType>
+              </xs:element>
+              <xs:element name="ACTIVE" msprop:Generator_ColumnVarNameInTable="columnACTIVE" msprop:Generator_ColumnPropNameInRow="ACTIVE" msprop:Generator_ColumnPropNameInTable="ACTIVEColumn" msprop:Generator_UserColumnName="ACTIVE" type="xs:boolean" default="false" />
+              <xs:element name="ADDED_WHO" msprop:Generator_ColumnVarNameInTable="columnADDED_WHO" msprop:Generator_ColumnPropNameInRow="ADDED_WHO" msprop:Generator_ColumnPropNameInTable="ADDED_WHOColumn" msprop:Generator_UserColumnName="ADDED_WHO">
+                <xs:simpleType>
+                  <xs:restriction base="xs:string">
+                    <xs:maxLength value="50" />
+                  </xs:restriction>
+                </xs:simpleType>
+              </xs:element>
+              <xs:element name="ADDED_WHEN" msprop:Generator_ColumnVarNameInTable="columnADDED_WHEN" msprop:Generator_ColumnPropNameInRow="ADDED_WHEN" msprop:Generator_ColumnPropNameInTable="ADDED_WHENColumn" msprop:Generator_UserColumnName="ADDED_WHEN" type="xs:dateTime" minOccurs="0" />
+              <xs:element name="CHANGED_WHO" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHO" msprop:Generator_ColumnPropNameInRow="CHANGED_WHO" msprop:Generator_ColumnPropNameInTable="CHANGED_WHOColumn" msprop:Generator_UserColumnName="CHANGED_WHO" minOccurs="0">
+                <xs:simpleType>
+                  <xs:restriction base="xs:string">
+                    <xs:maxLength value="50" />
+                  </xs:restriction>
+                </xs:simpleType>
+              </xs:element>
+              <xs:element name="CHANGED_WHEN" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHEN" msprop:Generator_ColumnPropNameInRow="CHANGED_WHEN" msprop:Generator_ColumnPropNameInTable="CHANGED_WHENColumn" msprop:Generator_UserColumnName="CHANGED_WHEN" type="xs:dateTime" minOccurs="0" />
+              <xs:element name="WHERE_CLAUSE" msprop:Generator_ColumnVarNameInTable="columnWHERE_CLAUSE" msprop:Generator_ColumnPropNameInRow="WHERE_CLAUSE" msprop:Generator_ColumnPropNameInTable="WHERE_CLAUSEColumn" msprop:Generator_UserColumnName="WHERE_CLAUSE" minOccurs="0">
+                <xs:simpleType>
+                  <xs:restriction base="xs:string">
+                    <xs:maxLength value="500" />
+                  </xs:restriction>
+                </xs:simpleType>
+              </xs:element>
+            </xs:sequence>
+          </xs:complexType>
+        </xs:element>
       </xs:choice>
     </xs:complexType>
     <xs:unique name="Constraint1" msdata:PrimaryKey="true">
@@ -735,6 +928,10 @@ ORDER BY NAME</CommandText>
       <xs:selector xpath=".//mstns:TBWH_USER_GROUPS" />
       <xs:field xpath="mstns:GUID" />
     </xs:unique>
+    <xs:unique name="TBPMO_SAP_FUBA_Constraint1" msdata:ConstraintName="Constraint1" msdata:PrimaryKey="true">
+      <xs:selector xpath=".//mstns:TBPMO_SAP_FUBA" />
+      <xs:field xpath="mstns:GUID" />
+    </xs:unique>
   </xs:element>
   <xs:annotation>
     <xs:appinfo>

app/DD-Record-Organiser/My Project/AssemblyInfo.vb

@@ -33,7 +33,7 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("2.4.5.2")> 
+<Assembly: AssemblyVersion("2.4.5.3")> 
 <Assembly: AssemblyFileVersion("1.0.0.0")> 
 
 <Assembly: NeutralResourcesLanguageAttribute("")> 

app/DD-Record-Organiser/My Project/Resources.Designer.vb

@@ -560,6 +560,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property Connection_Manager() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("Connection_Manager", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -1120,6 +1130,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property InsertColumn_5626() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("InsertColumn_5626", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>

app/DD-Record-Organiser/My Project/Resources.resx

@@ -136,8 +136,8 @@
   <data name="DD_Icons-ADDI" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\DD_Icons-ADDI.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="brainpool" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="Home_5699_32" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\brainpool.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\Home_5699_32.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="action_add_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\action_add_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -361,6 +361,9 @@
   <data name="key_go1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\key_go1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="lock_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\lock_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="database_go1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\database_go1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -445,6 +448,9 @@
   <data name="save_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\save_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="brainpool" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\brainpool.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="refresh_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\refresh_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -478,8 +484,8 @@
   <data name="WebUserControl(ascx)_11270_16x" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\WebUserControl(ascx)_11270_16x.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Home_5699_32" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="Table_748" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Home_5699_32.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\Table_748.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="table_refresh" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\table_refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -496,6 +502,9 @@
   <data name="email_edit" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\email_edit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="Connection_Manager" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Connection_Manager.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="bricks" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\bricks.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -532,9 +541,6 @@
   <data name="page_refresh" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\page_refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Table_748" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Table_748.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="add1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\add1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -625,7 +631,7 @@
   <data name="action_Cancel_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\action_Cancel_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="lock_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="InsertColumn_5626" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\lock_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\InsertColumn_5626.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
 </root>

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

@@ -22,6 +22,7 @@ Partial Class frmConstructor_Main
     'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmConstructor_Main))
         Dim GridLevelNode1 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
         Dim GridLevelNode2 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
@@ -29,12 +30,12 @@ Partial Class frmConstructor_Main
         Me.SplitContainerMain = New DevExpress.XtraEditors.SplitContainerControl()
         Me.SplitContainerTop = New DevExpress.XtraEditors.SplitContainerControl()
         Me.TreeViewMain = New System.Windows.Forms.TreeView()
-        Me.CMSEntity = New System.Windows.Forms.ContextMenuStrip()
+        Me.CMSEntity = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.ResetEbenenAuswahlToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.DateiimportEntitätToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.FormDesignerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.GridControlMain = New DevExpress.XtraGrid.GridControl()
-        Me.ContextMenuGrid = New System.Windows.Forms.ContextMenuStrip()
+        Me.ContextMenuGrid = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.FunktionenDataGridToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
         Me.AnsichtUmschaltenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -58,7 +59,7 @@ Partial Class frmConstructor_Main
         Me.pnlDetails = New System.Windows.Forms.Panel()
         Me.TabWindream = New DevExpress.XtraTab.XtraTabPage()
         Me.GridControlDocSearch = New DevExpress.XtraGrid.GridControl()
-        Me.ContextMenuStripResultFiles = New System.Windows.Forms.ContextMenuStrip()
+        Me.ContextMenuStripResultFiles = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.DateiÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripSeparator7 = New System.Windows.Forms.ToolStripSeparator()
         Me.CopyToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -93,7 +94,7 @@ Partial Class frmConstructor_Main
         Me.Panel1 = New System.Windows.Forms.Panel()
         Me.GridControlPos = New DevExpress.XtraGrid.GridControl()
         Me.grvwGridPos = New DevExpress.XtraGrid.Views.Grid.GridView()
-        Me.BindingNavigatorPOS = New System.Windows.Forms.BindingNavigator()
+        Me.BindingNavigatorPOS = 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()
@@ -129,7 +130,7 @@ Partial Class frmConstructor_Main
         Me.GridControlParent = New DevExpress.XtraGrid.GridControl()
         Me.GridViewParent = New DevExpress.XtraGrid.Views.Grid.GridView()
         Me.btnRelinkParentID = New System.Windows.Forms.Button()
-        Me.BindingSource_Entity = New System.Windows.Forms.BindingSource()
+        Me.BindingSource_Entity = New System.Windows.Forms.BindingSource(Me.components)
         Me.NavPane = New DevExpress.XtraBars.Navigation.TileNavPane()
         Me.NavButtonHome = New DevExpress.XtraBars.Navigation.NavButton()
         Me.NavButtonRefresh = New DevExpress.XtraBars.Navigation.NavButton()
@@ -138,18 +139,18 @@ Partial Class frmConstructor_Main
         Me.tsslblRecord = New System.Windows.Forms.ToolStripStatusLabel()
         Me.tsslblWorkflowstate = New System.Windows.Forms.ToolStripStatusLabel()
         Me.DD_ECMAdmin = New DD_Record_Organiser.DD_ECMAdmin()
-        Me.ImageCollection1 = New DevExpress.Utils.ImageCollection()
+        Me.ImageCollection1 = New DevExpress.Utils.ImageCollection(Me.components)
-        Me.ttToolTip = New System.Windows.Forms.ToolTip()
+        Me.ttToolTip = New System.Windows.Forms.ToolTip(Me.components)
-        Me.ContextMenuDetails = New System.Windows.Forms.ContextMenuStrip()
+        Me.ContextMenuDetails = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet()
-        Me.VWPMO_WF_USER_ACTIVEBindingSource = New System.Windows.Forms.BindingSource()
+        Me.VWPMO_WF_USER_ACTIVEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
         Me.VWPMO_WF_USER_ACTIVETableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter()
         Me.TableAdapterManager = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager()
         Me.TBPMO_FILES_USERTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_FILES_USERTableAdapter()
-        Me.VWPMO_WF_ACTIVEBindingSource = New System.Windows.Forms.BindingSource()
+        Me.VWPMO_WF_ACTIVEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
         Me.VWPMO_WF_ACTIVETableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter()
-        Me.TBPMO_FILES_USERBindingSource = New System.Windows.Forms.BindingSource()
+        Me.TBPMO_FILES_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components)
-        Me.ToolTipController = New DevExpress.Utils.ToolTipController()
+        Me.ToolTipController = New DevExpress.Utils.ToolTipController(Me.components)
         CType(Me.SplitContainerMain, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SplitContainerMain.SuspendLayout()
         CType(Me.SplitContainerTop, System.ComponentModel.ISupportInitialize).BeginInit()

app/DD-Record-Organiser/frmConstructor_Main.vb

@@ -2284,14 +2284,14 @@ Public Class frmConstructor_Main
             Else
                 ' Wenn nicht gespeichert werden soll, den Record wieder löschen
                 If CtrlCommandUI.IsInsert = True Then
-                    CtrlCommandUI.DeleteRecord(CURRENT_RECORD_ID)
+                    Dim del = "EXEC [dbo].[PRPMO_DELETE_RECORD] " & SELECTED_RECORD_ID
+                    ClassDatabase.Execute_non_Query(del, True)
                 End If
-                
 
+                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)

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

@@ -62,6 +62,7 @@ Partial Class frmMain
         Me.BarButtonItem19 = New DevExpress.XtraBars.BarButtonItem()
         Me.LabelLanguage = New DevExpress.XtraBars.BarStaticItem()
         Me.BarButtonItem20 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarButtonItem21 = New DevExpress.XtraBars.BarButtonItem()
         Me.pageHome = New DevExpress.XtraBars.Ribbon.RibbonPage()
         Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.groupQuickAccessForm = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
@@ -170,9 +171,9 @@ Partial Class frmMain
         Me.ribbonMain.ApplicationButtonDropDownControl = Me.MainMenu
         Me.ribbonMain.BackColor = System.Drawing.Color.DarkGray
         Me.ribbonMain.ExpandCollapseItem.Id = 0
-        Me.ribbonMain.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.ribbonMain.ExpandCollapseItem, Me.LabelMachine, Me.LabelUser, Me.LabelLoggedIn, Me.LabelVersion, Me.itemInfo, Me.itemExit, Me.BarButtonItem1, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItem8, Me.BarButtonItem9, Me.itemSettings, Me.BarButtonItem2, Me.BarButtonItem10, Me.BarButtonItem12, Me.BarButtonItem13, Me.BarButtonItem14, Me.BarButtonItem15, Me.BarButtonItem16, Me.BarButtonItem17, Me.BarButtonItem18, Me.BarButtonItem19, Me.LabelLanguage, Me.BarButtonItem20})
+        Me.ribbonMain.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.ribbonMain.ExpandCollapseItem, Me.LabelMachine, Me.LabelUser, Me.LabelLoggedIn, Me.LabelVersion, Me.itemInfo, Me.itemExit, Me.BarButtonItem1, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItem8, Me.BarButtonItem9, Me.itemSettings, Me.BarButtonItem2, Me.BarButtonItem10, Me.BarButtonItem12, Me.BarButtonItem13, Me.BarButtonItem14, Me.BarButtonItem15, Me.BarButtonItem16, Me.BarButtonItem17, Me.BarButtonItem18, Me.BarButtonItem19, Me.LabelLanguage, Me.BarButtonItem20, Me.BarButtonItem21})
         resources.ApplyResources(Me.ribbonMain, "ribbonMain")
-        Me.ribbonMain.MaxItemId = 36
+        Me.ribbonMain.MaxItemId = 37
         Me.ribbonMain.Name = "ribbonMain"
         Me.ribbonMain.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.pageHome, Me.pageForms, Me.pageAdmin})
         Me.ribbonMain.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonControlStyle.Office2013
@@ -397,6 +398,14 @@ Partial Class frmMain
         Me.BarButtonItem20.Name = "BarButtonItem20"
         Me.BarButtonItem20.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large
         '
+        'BarButtonItem21
+        '
+        resources.ApplyResources(Me.BarButtonItem21, "BarButtonItem21")
+        Me.BarButtonItem21.Glyph = Global.DD_Record_Organiser.My.Resources.Resources.Connection_Manager
+        Me.BarButtonItem21.Id = 36
+        Me.BarButtonItem21.Name = "BarButtonItem21"
+        Me.BarButtonItem21.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large
+        '
         'pageHome
         '
         Me.pageHome.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup2, Me.groupQuickAccessForm})
@@ -481,6 +490,7 @@ Partial Class frmMain
         '
         Me.RibbonPageGroup1.AllowTextClipping = False
         Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem14)
+        Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem21)
         Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
         resources.ApplyResources(Me.RibbonPageGroup1, "RibbonPageGroup1")
         '
@@ -594,5 +604,6 @@ Partial Class frmMain
     Friend WithEvents CockpitAnzeigenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
     Friend WithEvents LabelLanguage As DevExpress.XtraBars.BarStaticItem
     Friend WithEvents BarButtonItem20 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents BarButtonItem21 As DevExpress.XtraBars.BarButtonItem
 
 End Class

app/DD-Record-Organiser/frmMain.resx

@@ -124,18 +124,6 @@
     <value>442, 56</value>
   </metadata>
   <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
-  <data name="ADDIBeendenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>165, 22</value>
-  </data>
-  <data name="ADDIBeendenToolStripMenuItem.Text" xml:space="preserve">
-    <value>ADDI beenden</value>
-  </data>
-  <data name="CockpitAnzeigenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>165, 22</value>
-  </data>
-  <data name="CockpitAnzeigenToolStripMenuItem.Text" xml:space="preserve">
-    <value>Cockpit anzeigen</value>
-  </data>
   <data name="cmsSystray.Size" type="System.Drawing.Size, System.Drawing">
     <value>166, 48</value>
   </data>
@@ -1044,6 +1032,18 @@
   <data name="NotifyIcon.Visible" type="System.Boolean, mscorlib">
     <value>True</value>
   </data>
+  <data name="ADDIBeendenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
+    <value>165, 22</value>
+  </data>
+  <data name="ADDIBeendenToolStripMenuItem.Text" xml:space="preserve">
+    <value>ADDI beenden</value>
+  </data>
+  <data name="CockpitAnzeigenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
+    <value>165, 22</value>
+  </data>
+  <data name="CockpitAnzeigenToolStripMenuItem.Text" xml:space="preserve">
+    <value>Cockpit anzeigen</value>
+  </data>
   <metadata name="TimerTasks.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>190, 56</value>
   </metadata>
@@ -1898,24 +1898,18 @@ Konfiguration</value>
         Mo2gQ5ClxGkN/D+QoPYNyjCHoEagDiHUZ/F/wv8lADB+B3eE88Zb5X+IAAAAAElFTkSuQmCC
 </value>
   </data>
+  <data name="BarButtonItem21.Caption" xml:space="preserve">
+    <value>SAP - Fuba Verknüpfungen</value>
+  </data>
   <data name="ribbonMain.Location" type="System.Drawing.Point, System.Drawing">
     <value>0, 0</value>
   </data>
-  <data name="RibbonPageGroup2.Text" xml:space="preserve">
-    <value>Kalender</value>
-  </data>
-  <data name="groupQuickAccessForm.Text" xml:space="preserve">
-    <value>Views/Sichten</value>
-  </data>
   <data name="pageHome.Text" xml:space="preserve">
     <value>Home</value>
   </data>
   <data name="pageForms.Appearance.BackColor" type="System.Drawing.Color, System.Drawing">
     <value>Yellow</value>
   </data>
-  <data name="groupQuickAccessForm2.Text" xml:space="preserve">
-    <value>Views/Sichten</value>
-  </data>
   <data name="pageForms.Text" xml:space="preserve">
     <value>Weitere Sichten</value>
   </data>
@@ -1932,19 +1926,19 @@ Konfiguration</value>
     <value>Windream Konfiguration</value>
   </data>
   <data name="RibbonPageGroup1.Text" xml:space="preserve">
-    <value>SQL Konfiguration</value>
+    <value>Connections</value>
   </data>
   <data name="pageAdmin.Text" xml:space="preserve">
     <value>Administration</value>
   </data>
   <data name="ribbonMain.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1570, 150</value>
+    <value>1578, 150</value>
   </data>
   <data name="RibbonStatusBar1.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 691</value>
+    <value>0, 695</value>
   </data>
   <data name="RibbonStatusBar1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1570, 23</value>
+    <value>1578, 23</value>
   </data>
   <data name="&gt;&gt;RibbonStatusBar1.Name" xml:space="preserve">
     <value>RibbonStatusBar1</value>
@@ -1970,6 +1964,15 @@ Konfiguration</value>
   <data name="&gt;&gt;ribbonMain.ZOrder" xml:space="preserve">
     <value>3</value>
   </data>
+  <data name="RibbonPageGroup2.Text" xml:space="preserve">
+    <value>Kalender</value>
+  </data>
+  <data name="groupQuickAccessForm.Text" xml:space="preserve">
+    <value>Views/Sichten</value>
+  </data>
+  <data name="groupQuickAccessForm2.Text" xml:space="preserve">
+    <value>Views/Sichten</value>
+  </data>
   <metadata name="DefaultLookAndFeel1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>242, 17</value>
   </metadata>
@@ -1995,7 +1998,7 @@ Konfiguration</value>
     <value>6, 13</value>
   </data>
   <data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
-    <value>1570, 714</value>
+    <value>1578, 718</value>
   </data>
   <data name="$this.Font" type="System.Drawing.Font, System.Drawing">
     <value>Segoe UI, 8.25pt</value>
@@ -3111,6 +3114,12 @@ Konfiguration</value>
   <data name="&gt;&gt;BarButtonItem20.Type" xml:space="preserve">
     <value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
+  <data name="&gt;&gt;BarButtonItem21.Name" xml:space="preserve">
+    <value>BarButtonItem21</value>
+  </data>
+  <data name="&gt;&gt;BarButtonItem21.Type" xml:space="preserve">
+    <value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
   <data name="&gt;&gt;pageHome.Name" xml:space="preserve">
     <value>pageHome</value>
   </data>

app/DD-Record-Organiser/frmMain.vb

@@ -729,4 +729,10 @@ Public Class frmMain
         frm.MdiParent = MAIN_FORM
         frm.Show()
     End Sub
+
+    Private Sub BarButtonItem21_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItem21.ItemClick
+        Dim frm As New frmSAP_FuBa
+        frm.MdiParent = Me
+        frm.Show()
+    End Sub
 End Class

app/SetupWiX/Product.wxs

@@ -98,6 +98,10 @@
             <Component Id="IndependentsoftLibs" Guid="C3B3BB48-DB41-4419-A4B8-0E4DC5E8856B">
               <File Id="MSGLib" Name="Independentsoft.Msg.dll" Source="Independentsoft.Msg.dll" KeyPath="yes" />
             </Component>
+            <!-- MAIL.NET Bibliothek -->
+            <Component Id="ERPConnectLibs" Guid="9AC1DD00-6225-47DD-A142-1EB462CD5240">
+              <File Id="ERPConnect45" Name="ERPConnect45.dll" Source="ERPConnect45.dll" KeyPath="yes" />
+            </Component>
             
             <!-- DEVEXPRESS Bibliotheken -->
             <Component Id="DevExpressLibs" Guid="CB40DAAE-348E-4BD3-B275-9A526EB8F191">
@@ -218,6 +222,7 @@
       <!--<ComponentRef Id="RegistryEntries"/>-->
       <ComponentRef Id="Oracle" />
       <ComponentRef Id="Commandline" />
+      <ComponentRef Id="ERPConnectLibs" />
     </Feature>
 
     <!-- Legt das Standard-Installationsverzeichnis fest-->