From bebebbe98295f6984c9dbf5dc7a77f019b4e7956 Mon Sep 17 00:00:00 2001 From: SchreiberM Date: Tue, 20 Oct 2015 09:50:38 +0200 Subject: [PATCH] MS_20.10.2015 --- .../frmConstructorDesigner.Designer.vb | 32 ++++++--- .../frmConstructorDesigner.resx | 2 +- .../frmConstructorDesigner.vb | 19 +++++- .../frmForm_Constructor.designer.vb | 30 ++++---- .../frmForm_Constructor.resx | 68 +++++++++---------- .../frmForm_Constructor.vb | 2 +- 6 files changed, 88 insertions(+), 65 deletions(-) diff --git a/app/DD-Record-Organiser/frmConstructorDesigner.Designer.vb b/app/DD-Record-Organiser/frmConstructorDesigner.Designer.vb index 065ee17..d66e01c 100644 --- 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 diff --git a/app/DD-Record-Organiser/frmConstructorDesigner.resx b/app/DD-Record-Organiser/frmConstructorDesigner.resx index a67b8a4..8cf3d2b 100644 --- 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 diff --git a/app/DD-Record-Organiser/frmConstructorDesigner.vb b/app/DD-Record-Organiser/frmConstructorDesigner.vb index 68e18bc..293e334 100644 --- 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 diff --git a/app/DD-Record-Organiser/frmForm_Constructor.designer.vb b/app/DD-Record-Organiser/frmForm_Constructor.designer.vb index 0047747..c7e51b6 100644 --- 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 _ 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 diff --git a/app/DD-Record-Organiser/frmForm_Constructor.resx b/app/DD-Record-Organiser/frmForm_Constructor.resx index 747c14c..cd1e684 100644 --- a/app/DD-Record-Organiser/frmForm_Constructor.resx +++ b/app/DD-Record-Organiser/frmForm_Constructor.resx @@ -140,6 +140,15 @@ 1123, 56 + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + xAAADsQBlSsOGwAAALNJREFUOE9jIAS+fftmAMTvgfg/NgxVhh0AFYA1t7W1/XdycsLAKAbATETHIM3N + zS3/P7z/iIKxGoBuAwgja4aJ4TUAppgQpp4BIAKGyTYAxCEWYzPgfH5+PoZCXPjokaMYBjQsX74cQyEu + 3NfXj2GAwZUrVzAU4sLJScmoBkBj4H1kZCSGYlz41s3bYBrZgPm4kis2vH7dejCNbEDCvn37MBQSwsgG + CIA45GCG//8pwf8ZANa5gGyReLItAAAAAElFTkSuQmCC + + 1013, 56 @@ -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== @@ -215,18 +224,6 @@ QNZXOJ+UG+leKBFEziSfaFcB0/llZ2XA64LAz5JA8cDLA5WDxP2K7CbINfm4TzvWIQc6bHRIkI8ZgQcf D+56vpkB1A0978LsCwa9rbtK97dFEArTmp6FTReKO20oprrxPcdDpvpl0YG8v8LfaIoAkP8AXetq1oFY DwcIdDRYJUwiAB0yTe/NNUuIXy/etxLLTTpKAAAAAElFTkSuQmCC - - - - 912, 17 - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - xAAADsQBlSsOGwAAALNJREFUOE9jIAS+fftmAMTvgfg/NgxVhh0AFYA1t7W1/XdycsLAKAbATETHIM3N - zS3/P7z/iIKxGoBuAwgja4aJ4TUAppgQpp4BIAKGyTYAxCEWYzPgfH5+PoZCXPjokaMYBjQsX74cQyEu - 3NfXj2GAwZUrVzAU4sLJScmoBkBj4H1kZCSGYlz41s3bYBrZgPm4kis2vH7dejCNbEDCvn37MBQSwsgG - CIA45GCG//8pwf8ZANa5gGyReLItAAAAAElFTkSuQmCC @@ -249,23 +246,12 @@ 299, 56 - - 299, 56 - 1349, 17 - - 1349, 17 + + 912, 17 - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAB5SURBVDhPlZFBCsAwCAR9W/7/l7aXXFsW3KASqxGmIuok - pLKLOefbRVd8oDHGKCkF9/WktAU8zXIkyGgLkAnrI0HGEuDTxUqdgEWVf29gm5HdjBOgsM1I+wYUxcwZ - 1JYl4GAGh3ccvYH+ZR9o8IQq64oPNLroigmRDwwRqGv/fuehAAAAAElFTkSuQmCC - - iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAABGdBTUEAALGOfPtRkwAAACBjSFJNAAB6 @@ -324,6 +310,14 @@ vFXvHu0qboy1gTO+AGdTgXVqwDg0YOcIUPqXoPpuY1F5o2Tqeer/0Fh7XNqDvQYVubvlJwzK+qvjj+tG Jp/UcSZF3Q+L4vrOTOu1/Pv7VxY0d2rl2luXLh70HGrwLzoy+eeC7DdDjRpyPiqHagAAAABJRU5ErkJg gg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAB5SURBVDhPlZFBCsAwCAR9W/7/l7aXXFsW3KASqxGmIuok + pLKLOefbRVd8oDHGKCkF9/WktAU8zXIkyGgLkAnrI0HGEuDTxUqdgEWVf29gm5HdjBOgsM1I+wYUxcwZ + 1JYl4GAGh3ccvYH+ZR9o8IQq64oPNLroigmRDwwRqGv/fuehAAAAAElFTkSuQmCC @@ -435,16 +429,6 @@ kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== - - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAADQSURBVDhPlY6xC0FRGMXvLIPBYjKZTDIYkOEtDAzU86Qw - MMigZGAQL2WyqVcMFgNZ/Rd6/9PVOa5Vna9O3Xu+fr8+Ez6CaP/sWTXgDGZ39+3rfZEDjoLNrc2PGnAU - rK8tOwyLcsBRsDw37G/iOHav7/z7g6NgfvJcpQnAUTA9VrlQA46C8aHknNoF4CgYbAuu0gTgKAhWeS7U - gKOgs8g5p3YBOAqas6yrNAE4CuqTDBdqwFHgjdLOqV0AjoJaP+UqTQCOgrKfiCrdpFUDzhhjPlRg7jGq - htNmAAAAAElFTkSuQmCC @@ -468,6 +452,16 @@ ZRMmbLlRLflSG2RF+oN/sCmVj5eVjiGVevkcyoiUhACwmC3oh0Cljrn6/mtteS2YeqyjVlt2X1X3hhEt 5Bs3FWPeIJFWuI8ZbjvrqSeYkauCLIyKOYo3tnLYwdB9lCMD5hae5D9VTN+SJ8qNMLqeTYOdd1PS/wAf uGOKZCTnGolfNmACmAiVQqoiYvdvpaZB6h9aip4hu6g2rNRGHEWN9sR0Y2BZma7rP//Z + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAADQSURBVDhPlY6xC0FRGMXvLIPBYjKZTDIYkOEtDAzU86Qw + MMigZGAQL2WyqVcMFgNZ/Rd6/9PVOa5Vna9O3Xu+fr8+Ez6CaP/sWTXgDGZ39+3rfZEDjoLNrc2PGnAU + rK8tOwyLcsBRsDw37G/iOHav7/z7g6NgfvJcpQnAUTA9VrlQA46C8aHknNoF4CgYbAuu0gTgKAhWeS7U + gKOgs8g5p3YBOAqas6yrNAE4CuqTDBdqwFHgjdLOqV0AjoJaP+UqTQCOgrKfiCrdpFUDzhhjPlRg7jGq + htNmAAAAAElFTkSuQmCC diff --git a/app/DD-Record-Organiser/frmForm_Constructor.vb b/app/DD-Record-Organiser/frmForm_Constructor.vb index 92b9420..86e38f7 100644 --- 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)