MS_20.10.2015

2015-10-20 09:50:38 +02:00
parent 12e13b0b6f
commit bebebbe982
6 changed files with 88 additions and 65 deletions
--- a/app/DD-Record-Organiser/frmConstructorDesigner.Designer.vb
+++ b/app/DD-Record-Organiser/frmConstructorDesigner.Designer.vb
@@ -106,6 +106,7 @@ Partial Class frmConstructorDesigner
        Me.TBPMO_FORM_CONSTRUCTORBindingSource1 = New System.Windows.Forms.BindingSource(Me.components)
        Me.TBPMO_FORM_CONSTRUCTORTableAdapter1 = New DD_Record_Organiser.DD_ECMAdminTableAdapters.TBPMO_FORM_CONSTRUCTORTableAdapter()
        Me.TableAdapterManager1 = New DD_Record_Organiser.DD_ECMAdminTableAdapters.TableAdapterManager()
+        Me.lblSave = New System.Windows.Forms.Label()
        GUIDLabel = New System.Windows.Forms.Label()
        FORM_TITLELabel = New System.Windows.Forms.Label()
        SEQUENCE_MENULabel = New System.Windows.Forms.Label()
@@ -351,6 +352,7 @@ Partial Class frmConstructorDesigner
        'TableAdapterManager
        '
        Me.TableAdapterManager.BackupDataSetBeforeUpdate = False
+        Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing
        Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Me.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter
        Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTORTableAdapter = Me.TBPMO_FORM_CONSTRUCTORTableAdapter
        Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_ECMAdminTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
@@ -484,7 +486,7 @@ Partial Class frmConstructorDesigner
        Me.TreeView1.Location = New System.Drawing.Point(0, 0)
        Me.TreeView1.Name = "TreeView1"
        Me.TreeView1.SelectedImageIndex = 1
-        Me.TreeView1.Size = New System.Drawing.Size(292, 337)
+        Me.TreeView1.Size = New System.Drawing.Size(292, 352)
        Me.TreeView1.TabIndex = 1
        '
        'ImageList1
@@ -601,7 +603,7 @@ Partial Class frmConstructorDesigner
        Me.XtraTabControl1.Location = New System.Drawing.Point(15, 249)
        Me.XtraTabControl1.Name = "XtraTabControl1"
        Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPage1
-        Me.XtraTabControl1.Size = New System.Drawing.Size(1147, 365)
+        Me.XtraTabControl1.Size = New System.Drawing.Size(1147, 380)
        Me.XtraTabControl1.TabIndex = 40
        Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1})
        '
@@ -612,7 +614,7 @@ Partial Class frmConstructorDesigner
        Me.XtraTabPage1.Controls.Add(Me.ToolStrip1)
        Me.XtraTabPage1.Controls.Add(Me.TreeView1)
        Me.XtraTabPage1.Name = "XtraTabPage1"
-        Me.XtraTabPage1.Size = New System.Drawing.Size(1141, 337)
+        Me.XtraTabPage1.Size = New System.Drawing.Size(1141, 352)
        Me.XtraTabPage1.Text = "Entitäten-Übersicht"
        '
        'XtraTabControl2
@@ -621,7 +623,7 @@ Partial Class frmConstructorDesigner
        Me.XtraTabControl2.Location = New System.Drawing.Point(292, 25)
        Me.XtraTabControl2.Name = "XtraTabControl2"
        Me.XtraTabControl2.SelectedTabPage = Me.XtraTabPage3
-        Me.XtraTabControl2.Size = New System.Drawing.Size(849, 290)
+        Me.XtraTabControl2.Size = New System.Drawing.Size(849, 305)
        Me.XtraTabControl2.TabIndex = 35
        Me.XtraTabControl2.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage3, Me.XtraTabPage4, Me.XtraTabPage5})
        '
@@ -648,7 +650,7 @@ Partial Class frmConstructorDesigner
        Me.XtraTabPage3.Controls.Add(Me.GUIDTextBox1)
        Me.XtraTabPage3.Controls.Add(Me.LEVEL1_SELECTCheckBox)
        Me.XtraTabPage3.Name = "XtraTabPage3"
-        Me.XtraTabPage3.Size = New System.Drawing.Size(843, 262)
+        Me.XtraTabPage3.Size = New System.Drawing.Size(843, 277)
        Me.XtraTabPage3.Text = "Allgemein"
        '
        'Label4
@@ -751,7 +753,7 @@ Partial Class frmConstructorDesigner
        Me.XtraTabPage4.Controls.Add(Me.WINDREAM_SEARCHTextBox)
        Me.XtraTabPage4.Controls.Add(WINDREAM_SEARCHLabel)
        Me.XtraTabPage4.Name = "XtraTabPage4"
-        Me.XtraTabPage4.Size = New System.Drawing.Size(847, 265)
+        Me.XtraTabPage4.Size = New System.Drawing.Size(843, 277)
        Me.XtraTabPage4.Text = "windream-Suche Konfiguration"
        '
        'SEARCH_PATTERN4ComboBox
@@ -797,13 +799,13 @@ Partial Class frmConstructorDesigner
        'XtraTabPage5
        '
        Me.XtraTabPage5.Name = "XtraTabPage5"
-        Me.XtraTabPage5.Size = New System.Drawing.Size(847, 265)
+        Me.XtraTabPage5.Size = New System.Drawing.Size(843, 277)
        Me.XtraTabPage5.Text = "XtraTabPage5"
        '
        'StatusStrip1
        '
        Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblSaveDetail})
-        Me.StatusStrip1.Location = New System.Drawing.Point(292, 315)
+        Me.StatusStrip1.Location = New System.Drawing.Point(292, 330)
        Me.StatusStrip1.Name = "StatusStrip1"
        Me.StatusStrip1.Size = New System.Drawing.Size(849, 22)
        Me.StatusStrip1.TabIndex = 35
@@ -871,15 +873,28 @@ Partial Class frmConstructorDesigner
        'TableAdapterManager1
        '
        Me.TableAdapterManager1.BackupDataSetBeforeUpdate = False
+        Me.TableAdapterManager1.TBDD_CONNECTIONTableAdapter = Nothing
        Me.TableAdapterManager1.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing
        Me.TableAdapterManager1.TBPMO_FORM_CONSTRUCTORTableAdapter = Me.TBPMO_FORM_CONSTRUCTORTableAdapter1
        Me.TableAdapterManager1.UpdateOrder = DD_Record_Organiser.DD_ECMAdminTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
        '
+        '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, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblSave.Location = New System.Drawing.Point(575, 214)
+        Me.lblSave.Name = "lblSave"
+        Me.lblSave.Size = New System.Drawing.Size(129, 13)
+        Me.lblSave.TabIndex = 44
+        Me.lblSave.Text = "Erfolgreich gespeichert."
+        '
        'frmConstructorDesigner
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.ClientSize = New System.Drawing.Size(1341, 837)
+        Me.Controls.Add(Me.lblSave)
        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.ListBox1)
        Me.Controls.Add(Me.TreeView_Free)
@@ -992,4 +1007,5 @@ Partial Class frmConstructorDesigner
    Friend WithEvents SEARCH_PATTERN3ComboBox As System.Windows.Forms.ComboBox
    Friend WithEvents SEARCH_PATTERN2ComboBox As System.Windows.Forms.ComboBox
    Friend WithEvents SEARCH_PATTERN1ComboBox As System.Windows.Forms.ComboBox
+    Friend WithEvents lblSave As System.Windows.Forms.Label
 End Class
--- a/app/DD-Record-Organiser/frmConstructorDesigner.resx
+++ b/app/DD-Record-Organiser/frmConstructorDesigner.resx
@@ -281,7 +281,7 @@
        AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
        LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
        ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABS
-        CQAAAk1TRnQBSQFMAgEBAgEAAaABCAGgAQgBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
+        CQAAAk1TRnQBSQFMAgEBAgEAAbABCAGwAQgBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
        AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
        AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
        AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
--- a/app/DD-Record-Organiser/frmConstructorDesigner.vb
+++ b/app/DD-Record-Organiser/frmConstructorDesigner.vb
@@ -1,9 +1,21 @@
 Public Class frmConstructorDesigner
    Dim formloaded As Boolean = False
    Private Sub TBPMO_FORM_CONSTRUCTORBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles TBPMO_FORM_CONSTRUCTORBindingNavigatorSaveItem.Click
-        Me.Validate()
-        Me.TBPMO_FORM_CONSTRUCTORBindingSource.EndEdit()
-        Me.TableAdapterManager.UpdateAll(Me.DD_ECMAdmin)
+        Try
+            Me.Validate()
+            Me.TBPMO_FORM_CONSTRUCTORBindingSource.EndEdit()
+            If DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR.GetChanges Is Nothing = False Then
+                Me.CHANGED_WHOTextBox.Text = Environment.UserName
+                TBPMO_FORM_CONSTRUCTORTableAdapter.Update(DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR)
+                lblSave.Visible = True
+            Else
+                lblSave.Visible = False
+            End If
+
+        Catch ex As Exception
+            MsgBox("Error in Saving FormConstructor:" & vbNewLine & ex.Message)
+        End Try
+       

    End Sub

@@ -93,6 +105,7 @@

    End Sub
    Private Sub TBPMO_FORM_CONSTRUCTORBindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBPMO_FORM_CONSTRUCTORBindingSource.CurrentChanged
+        lblSave.Visible = False
        If formloaded = True Then
            Try
                If CONSTRUCTOR_IDTextBox.Text <> "" Then
--- a/app/DD-Record-Organiser/frmForm_Constructor.designer.vb
+++ b/app/DD-Record-Organiser/frmForm_Constructor.designer.vb
@@ -23,8 +23,8 @@ Partial Class frmForm_Constructor
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container()
-        Dim GridLevelNode3 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
        Dim GridLevelNode1 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
+        Dim GridLevelNode2 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmForm_Constructor))
        Me.grvwCarousel = New DevExpress.XtraGrid.Views.Layout.LayoutView()
        Me.GridControlSelection = New DevExpress.XtraGrid.GridControl()
@@ -185,9 +185,9 @@ Partial Class frmForm_Constructor
        '
        Me.GridControlSelection.AllowDrop = True
        Me.GridControlSelection.Dock = System.Windows.Forms.DockStyle.Fill
-        GridLevelNode3.LevelTemplate = Me.grvwCarousel
-        GridLevelNode3.RelationName = "Level1"
-        Me.GridControlSelection.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode3})
+        GridLevelNode1.LevelTemplate = Me.grvwCarousel
+        GridLevelNode1.RelationName = "Level1"
+        Me.GridControlSelection.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode1})
        Me.GridControlSelection.Location = New System.Drawing.Point(298, 0)
        Me.GridControlSelection.MainView = Me.grvwSelection
        Me.GridControlSelection.Name = "GridControlSelection"
@@ -230,9 +230,9 @@ Partial Class frmForm_Constructor
        Me.GridControlParentEntity.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)
-        GridLevelNode1.LevelTemplate = Me.LayoutView1
-        GridLevelNode1.RelationName = "Level1"
-        Me.GridControlParentEntity.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode1})
+        GridLevelNode2.LevelTemplate = Me.LayoutView1
+        GridLevelNode2.RelationName = "Level1"
+        Me.GridControlParentEntity.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode2})
        Me.GridControlParentEntity.Location = New System.Drawing.Point(3, 3)
        Me.GridControlParentEntity.MainView = Me.GridViewParentEntity
        Me.GridControlParentEntity.Name = "GridControlParentEntity"
@@ -408,7 +408,7 @@ Partial Class frmForm_Constructor
        Me.TabPageDetails.Controls.Add(Me.pnlDetails)
        Me.TabPageDetails.Image = Global.DD_Record_Organiser.My.Resources.Resources.grid_Data_16xMD
        Me.TabPageDetails.Name = "TabPageDetails"
-        Me.TabPageDetails.Size = New System.Drawing.Size(762, 312)
+        Me.TabPageDetails.Size = New System.Drawing.Size(758, 309)
        Me.TabPageDetails.Text = "Detailansicht:"
        '
        'pnlDetails
@@ -417,7 +417,7 @@ Partial Class frmForm_Constructor
        Me.pnlDetails.Dock = System.Windows.Forms.DockStyle.Fill
        Me.pnlDetails.Location = New System.Drawing.Point(0, 0)
        Me.pnlDetails.Name = "pnlDetails"
-        Me.pnlDetails.Size = New System.Drawing.Size(762, 312)
+        Me.pnlDetails.Size = New System.Drawing.Size(758, 309)
        Me.pnlDetails.TabIndex = 0
        '
        'TabPageWD_Files
@@ -426,7 +426,7 @@ Partial Class frmForm_Constructor
        Me.TabPageWD_Files.Controls.Add(Me.ToolStripDokumente)
        Me.TabPageWD_Files.Image = Global.DD_Record_Organiser.My.Resources.Resources.Files_7954
        Me.TabPageWD_Files.Name = "TabPageWD_Files"
-        Me.TabPageWD_Files.Size = New System.Drawing.Size(762, 312)
+        Me.TabPageWD_Files.Size = New System.Drawing.Size(758, 309)
        Me.TabPageWD_Files.Text = "windream-Dateien"
        Me.ttToolTip.SetToolTip(Me.TabPageWD_Files, "Zeigt die Dateien in windream zum ausgewählten Datensatz an")
        '
@@ -438,7 +438,7 @@ Partial Class frmForm_Constructor
        Me.AxObjectListControl.Location = New System.Drawing.Point(0, 25)
        Me.AxObjectListControl.Name = "AxObjectListControl"
        Me.AxObjectListControl.OcxState = CType(resources.GetObject("AxObjectListControl.OcxState"), System.Windows.Forms.AxHost.State)
-        Me.AxObjectListControl.Size = New System.Drawing.Size(762, 287)
+        Me.AxObjectListControl.Size = New System.Drawing.Size(758, 284)
        Me.AxObjectListControl.TabIndex = 5
        Me.AxObjectListControl.TabStop = False
        '
@@ -447,7 +447,7 @@ Partial Class frmForm_Constructor
        Me.ToolStripDokumente.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblWindreamView, Me.ToolStripDropDownButton2})
        Me.ToolStripDokumente.Location = New System.Drawing.Point(0, 0)
        Me.ToolStripDokumente.Name = "ToolStripDokumente"
-        Me.ToolStripDokumente.Size = New System.Drawing.Size(762, 25)
+        Me.ToolStripDokumente.Size = New System.Drawing.Size(758, 25)
        Me.ToolStripDokumente.TabIndex = 1
        Me.ToolStripDokumente.Text = "ToolStrip2"
        '
@@ -695,7 +695,7 @@ Partial Class frmForm_Constructor
        Me.XtraTabControl1.Location = New System.Drawing.Point(0, 0)
        Me.XtraTabControl1.Name = "XtraTabControl1"
        Me.XtraTabControl1.SelectedTabPage = Me.TabPageParentEntity
-        Me.XtraTabControl1.Size = New System.Drawing.Size(525, 340)
+        Me.XtraTabControl1.Size = New System.Drawing.Size(532, 340)
        Me.XtraTabControl1.TabIndex = 0
        Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.TabPageParentEntity})
        '
@@ -709,7 +709,7 @@ Partial Class frmForm_Constructor
        Me.TabPageParentEntity.Controls.Add(Me.Label4)
        Me.TabPageParentEntity.Controls.Add(Me.GridControlParentEntity)
        Me.TabPageParentEntity.Name = "TabPageParentEntity"
-        Me.TabPageParentEntity.Size = New System.Drawing.Size(523, 315)
+        Me.TabPageParentEntity.Size = New System.Drawing.Size(526, 312)
        Me.TabPageParentEntity.Text = "Parent-Entity"
        '
        'Button1
@@ -1070,6 +1070,7 @@ Partial Class frmForm_Constructor
        '
        Me.TableAdapterManager.BackupDataSetBeforeUpdate = False
        Me.TableAdapterManager.Connection = Nothing
+        Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing
        Me.TableAdapterManager.TBDD_DOKUMENTARTTableAdapter = Nothing
        Me.TableAdapterManager.TBDD_EINGANGSARTENTableAdapter = Nothing
        Me.TableAdapterManager.TBDD_EMAIL_ACCOUNTTableAdapter = Nothing
@@ -1077,7 +1078,6 @@ Partial Class frmForm_Constructor
        Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing
        Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing
        Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing
-        Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing
        Me.TableAdapterManager.TBPMO_FILES_USERTableAdapter = Nothing
        Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing
        Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing
--- a/app/DD-Record-Organiser/frmForm_Constructor.resx
+++ b/app/DD-Record-Organiser/frmForm_Constructor.resx
@@ -140,6 +140,15 @@
  <metadata name="CMSEntity.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>1123, 56</value>
  </metadata>
+  <data name="DateiimportEntitätToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
+        xAAADsQBlSsOGwAAALNJREFUOE9jIAS+fftmAMTvgfg/NgxVhh0AFYA1t7W1/XdycsLAKAbATETHIM3N
+        zS3/P7z/iIKxGoBuAwgja4aJ4TUAppgQpp4BIAKGyTYAxCEWYzPgfH5+PoZCXPjokaMYBjQsX74cQyEu
+        3NfXj2GAwZUrVzAU4sLJScmoBkBj4H1kZCSGYlz41s3bYBrZgPm4kis2vH7dejCNbEDCvn37MBQSwsgG
+        CIA45GCG//8pwf8ZANa5gGyReLItAAAAAElFTkSuQmCC
+</value>
+  </data>
  <metadata name="ImageList1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>1013, 56</value>
  </metadata>
@@ -148,7 +157,7 @@
        AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
        LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
        ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABS
-        CQAAAk1TRnQBSQFMAgEBAgEAAUgBCQFIAQkBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
+        CQAAAk1TRnQBSQFMAgEBAgEAAVABCQFQAQkBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
        AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
        AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
        AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
@@ -198,7 +207,7 @@
        AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
        LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACFTeXN0
        ZW0uV2luZG93cy5Gb3Jtcy5BeEhvc3QrU3RhdGUBAAAABERhdGEHAgIAAAAJAwAAAA8DAAAAJQAAAAIB
-        AAAAAQAAAAAAAAAAAAAAABAAAAAAAAEAwU4AAKodAAAAAAAACw==
+        AAAAAQAAAAAAAAAAAAAAABAAAAAAAAEAV04AAFodAAAAAAAACw==
 </value>
  </data>
  <metadata name="ToolStripDokumente.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
@@ -215,18 +224,6 @@
        QNZXOJ+UG+leKBFEziSfaFcB0/llZ2XA64LAz5JA8cDLA5WDxP2K7CbINfm4TzvWIQc6bHRIkI8ZgQcf
        D+56vpkB1A0978LsCwa9rbtK97dFEArTmp6FTReKO20oprrxPcdDpvpl0YG8v8LfaIoAkP8AXetq1oFY
        DwcIdDRYJUwiAB0yTe/NNUuIXy/etxLLTTpKAAAAAElFTkSuQmCC
-</value>
-  </data>
-  <metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>912, 17</value>
-  </metadata>
-  <data name="DateiimportEntitätToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        xAAADsQBlSsOGwAAALNJREFUOE9jIAS+fftmAMTvgfg/NgxVhh0AFYA1t7W1/XdycsLAKAbATETHIM3N
-        zS3/P7z/iIKxGoBuAwgja4aJ4TUAppgQpp4BIAKGyTYAxCEWYzPgfH5+PoZCXPjokaMYBjQsX74cQyEu
-        3NfXj2GAwZUrVzAU4sLJScmoBkBj4H1kZCSGYlz41s3bYBrZgPm4kis2vH7dejCNbEDCvn37MBQSwsgG
-        CIA45GCG//8pwf8ZANa5gGyReLItAAAAAElFTkSuQmCC
 </value>
  </data>
  <data name="btndelete.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -249,23 +246,12 @@
  <metadata name="VWPMO_WF_USER_ACTIVEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>299, 56</value>
  </metadata>
-  <metadata name="VWPMO_WF_USER_ACTIVEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>299, 56</value>
-  </metadata>
  <metadata name="DD_DMSDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>1349, 17</value>
  </metadata>
-  <metadata name="DD_DMSDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>1349, 17</value>
+  <metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>912, 17</value>
  </metadata>
-  <data name="TSDropDownButtonRecordFunctions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAB5SURBVDhPlZFBCsAwCAR9W/7/l7aXXFsW3KASqxGmIuok
-        pLKLOefbRVd8oDHGKCkF9/WktAU8zXIkyGgLkAnrI0HGEuDTxUqdgEWVf29gm5HdjBOgsM1I+wYUxcwZ
-        1JYl4GAGh3ccvYH+ZR9o8IQq64oPNLroigmRDwwRqGv/fuehAAAAAElFTkSuQmCC
-</value>
-  </data>
  <data name="WindreamSucheNeuLadenToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
        iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAABGdBTUEAALGOfPtRkwAAACBjSFJNAAB6
@@ -324,6 +310,14 @@
        vFXvHu0qboy1gTO+AGdTgXVqwDg0YOcIUPqXoPpuY1F5o2Tqeer/0Fh7XNqDvQYVubvlJwzK+qvjj+tG
        Jp/UcSZF3Q+L4vrOTOu1/Pv7VxY0d2rl2luXLh70HGrwLzoy+eeC7DdDjRpyPiqHagAAAABJRU5ErkJg
        gg==
+</value>
+  </data>
+  <data name="TSDropDownButtonRecordFunctions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAB5SURBVDhPlZFBCsAwCAR9W/7/l7aXXFsW3KASqxGmIuok
+        pLKLOefbRVd8oDHGKCkF9/WktAU8zXIkyGgLkAnrI0HGEuDTxUqdgEWVf29gm5HdjBOgsM1I+wYUxcwZ
+        1JYl4GAGh3ccvYH+ZR9o8IQq64oPNLroigmRDwwRqGv/fuehAAAAAElFTkSuQmCC
 </value>
  </data>
  <data name="tsbtnshowTaskoverview.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -435,16 +429,6 @@
        kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG
        WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9
        8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg==
-</value>
-  </data>
-  <data name="ToolStripDropDownButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAADQSURBVDhPlY6xC0FRGMXvLIPBYjKZTDIYkOEtDAzU86Qw
-        MMigZGAQL2WyqVcMFgNZ/Rd6/9PVOa5Vna9O3Xu+fr8+Ez6CaP/sWTXgDGZ39+3rfZEDjoLNrc2PGnAU
-        rK8tOwyLcsBRsDw37G/iOHav7/z7g6NgfvJcpQnAUTA9VrlQA46C8aHknNoF4CgYbAuu0gTgKAhWeS7U
-        gKOgs8g5p3YBOAqas6yrNAE4CuqTDBdqwFHgjdLOqV0AjoJaP+UqTQCOgrKfiCrdpFUDzhhjPlRg7jGq
-        htNmAAAAAElFTkSuQmCC
 </value>
  </data>
  <data name="ClearAllFiltersToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -468,6 +452,16 @@
        ZRMmbLlRLflSG2RF+oN/sCmVj5eVjiGVevkcyoiUhACwmC3oh0Cljrn6/mtteS2YeqyjVlt2X1X3hhEt
        5Bs3FWPeIJFWuI8ZbjvrqSeYkauCLIyKOYo3tnLYwdB9lCMD5hae5D9VTN+SJ8qNMLqeTYOdd1PS/wAf
        uGOKZCTnGolfNmACmAiVQqoiYvdvpaZB6h9aip4hu6g2rNRGHEWN9sR0Y2BZma7rP//Z
+</value>
+  </data>
+  <data name="ToolStripDropDownButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAADQSURBVDhPlY6xC0FRGMXvLIPBYjKZTDIYkOEtDAzU86Qw
+        MMigZGAQL2WyqVcMFgNZ/Rd6/9PVOa5Vna9O3Xu+fr8+Ez6CaP/sWTXgDGZ39+3rfZEDjoLNrc2PGnAU
+        rK8tOwyLcsBRsDw37G/iOHav7/z7g6NgfvJcpQnAUTA9VrlQA46C8aHknNoF4CgYbAuu0gTgKAhWeS7U
+        gKOgs8g5p3YBOAqas6yrNAE4CuqTDBdqwFHgjdLOqV0AjoJaP+UqTQCOgrKfiCrdpFUDzhhjPlRg7jGq
+        htNmAAAAAElFTkSuQmCC
 </value>
  </data>
  <metadata name="BindingSourceForm2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
--- a/app/DD-Record-Organiser/frmForm_Constructor.vb
+++ b/app/DD-Record-Organiser/frmForm_Constructor.vb
@@ -865,7 +865,7 @@ Public Class frmForm_Constructor
                    'Datumsangaben
                    param.Add("dwCreationDate")
                    param.Add("dwCreation_Time")
-                    Me.AxObjectListControl.SetSession(_windream.oSession, "foo", "bar")
+                    Me.AxObjectListControl.SetSession(ClassWindream.oSession, "", "")
                    'Change the satus icon
                    'ICON STATES:
                    Me.AxObjectListControl.SetStatusIcon(0)