Update 2021-12-22

2021-12-22 19:10:18 +01:00
parent 1d43955e2b
commit 31cbd5dfae
17 changed files with 278 additions and 108 deletions
--- a/Vertragsverwaltung/Applikation/Applikation/frmApplikation.designer.vb
+++ b/Vertragsverwaltung/Applikation/Applikation/frmApplikation.designer.vb
@@ -318,6 +318,10 @@ Partial Class frmApplikation
        Me.GroupBox2 = New System.Windows.Forms.GroupBox()
        Me.C1ApplikationAbhaengigVon = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
        Me.ctxMenuAppAbhaengigVon = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.NeuerEintragToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.EintragLöschenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.BemerkungToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripSeparator()
        Me.ApplikationsdetailsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.GrpApplAbhaengigkeit = New System.Windows.Forms.GroupBox()
        Me.C1Applikationsabhaengigkeiten = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
@@ -337,9 +341,9 @@ Partial Class frmApplikation
        Me.tsAppTreeSearchSearch = New System.Windows.Forms.ToolStripButton()
        Me.tsAppTreeSearchPrev = New System.Windows.Forms.ToolStripButton()
        Me.tsbtnappabhaengigkeit_neu = New System.Windows.Forms.ToolStrip()
+        Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
        Me.tsAppAbhaengigkeit_Export = New System.Windows.Forms.ToolStripButton()
        Me.tsappabhaengigkeitneu = New System.Windows.Forms.ToolStripButton()
-        Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
        Me.ToolStrip1.SuspendLayout()
        Me.MenuStrip1.SuspendLayout()
        Me.TreeApplikationenContextMenuStrip.SuspendLayout()
@@ -3288,6 +3292,7 @@ Partial Class frmApplikation
        '
        'GroupBox2
        '
+        Me.GroupBox2.BackColor = System.Drawing.Color.Transparent
        Me.GroupBox2.Controls.Add(Me.C1ApplikationAbhaengigVon)
        Me.GroupBox2.Dock = System.Windows.Forms.DockStyle.Fill
        Me.GroupBox2.Location = New System.Drawing.Point(228, 248)
@@ -3299,7 +3304,9 @@ Partial Class frmApplikation
        '
        'C1ApplikationAbhaengigVon
        '
+        Me.C1ApplikationAbhaengigVon.AllowDrop = True
        Me.C1ApplikationAbhaengigVon.AlternatingRows = True
+        Me.C1ApplikationAbhaengigVon.BackColor = System.Drawing.SystemColors.Control
        Me.C1ApplikationAbhaengigVon.ContextMenuStrip = Me.ctxMenuAppAbhaengigVon
        Me.C1ApplikationAbhaengigVon.Dock = System.Windows.Forms.DockStyle.Fill
        Me.C1ApplikationAbhaengigVon.FetchRowStyles = True
@@ -3321,9 +3328,32 @@ Partial Class frmApplikation
        '
        'ctxMenuAppAbhaengigVon
        '
-        Me.ctxMenuAppAbhaengigVon.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ApplikationsdetailsToolStripMenuItem})
+        Me.ctxMenuAppAbhaengigVon.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NeuerEintragToolStripMenuItem1, Me.EintragLöschenToolStripMenuItem1, Me.BemerkungToolStripMenuItem1, Me.ToolStripMenuItem6, Me.ApplikationsdetailsToolStripMenuItem})
        Me.ctxMenuAppAbhaengigVon.Name = "ctxMenuAppAbhaengigVon"
-        Me.ctxMenuAppAbhaengigVon.Size = New System.Drawing.Size(175, 26)
+        Me.ctxMenuAppAbhaengigVon.Size = New System.Drawing.Size(175, 98)
+        '
+        'NeuerEintragToolStripMenuItem1
+        '
+        Me.NeuerEintragToolStripMenuItem1.Name = "NeuerEintragToolStripMenuItem1"
+        Me.NeuerEintragToolStripMenuItem1.Size = New System.Drawing.Size(174, 22)
+        Me.NeuerEintragToolStripMenuItem1.Text = "Neuer Eintrag"
+        '
+        'EintragLöschenToolStripMenuItem1
+        '
+        Me.EintragLöschenToolStripMenuItem1.Name = "EintragLöschenToolStripMenuItem1"
+        Me.EintragLöschenToolStripMenuItem1.Size = New System.Drawing.Size(174, 22)
+        Me.EintragLöschenToolStripMenuItem1.Text = "Eintrag löschen"
+        '
+        'BemerkungToolStripMenuItem1
+        '
+        Me.BemerkungToolStripMenuItem1.Name = "BemerkungToolStripMenuItem1"
+        Me.BemerkungToolStripMenuItem1.Size = New System.Drawing.Size(174, 22)
+        Me.BemerkungToolStripMenuItem1.Text = "Bemerkung"
+        '
+        'ToolStripMenuItem6
+        '
+        Me.ToolStripMenuItem6.Name = "ToolStripMenuItem6"
+        Me.ToolStripMenuItem6.Size = New System.Drawing.Size(171, 6)
        '
        'ApplikationsdetailsToolStripMenuItem
        '
@@ -3344,7 +3374,9 @@ Partial Class frmApplikation
        '
        'C1Applikationsabhaengigkeiten
        '
+        Me.C1Applikationsabhaengigkeiten.AllowDrop = True
        Me.C1Applikationsabhaengigkeiten.AlternatingRows = True
+        Me.C1Applikationsabhaengigkeiten.BackColor = System.Drawing.SystemColors.Control
        Me.C1Applikationsabhaengigkeiten.ContextMenuStrip = Me.ctxmenuAbhaengigkeiten
        Me.C1Applikationsabhaengigkeiten.Dock = System.Windows.Forms.DockStyle.Fill
        Me.C1Applikationsabhaengigkeiten.FetchRowStyles = True
@@ -3492,6 +3524,16 @@ Partial Class frmApplikation
        Me.tsbtnappabhaengigkeit_neu.TabIndex = 17
        Me.tsbtnappabhaengigkeit_neu.Text = "ToolStrip3"
        '
+        'ToolStripButton1
+        '
+        Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.ToolStripButton1.Image = CType(resources.GetObject("ToolStripButton1.Image"), System.Drawing.Image)
+        Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.ToolStripButton1.Name = "ToolStripButton1"
+        Me.ToolStripButton1.Size = New System.Drawing.Size(23, 22)
+        Me.ToolStripButton1.Text = "ToolStripButton1"
+        Me.ToolStripButton1.Visible = False
+        '
        'tsAppAbhaengigkeit_Export
        '
        Me.tsAppAbhaengigkeit_Export.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
@@ -3512,16 +3554,6 @@ Partial Class frmApplikation
        Me.tsappabhaengigkeitneu.Text = "ToolStripButton1"
        Me.tsappabhaengigkeitneu.ToolTipText = "Neuer Eintrag"
        '
-        'ToolStripButton1
-        '
-        Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.ToolStripButton1.Image = CType(resources.GetObject("ToolStripButton1.Image"), System.Drawing.Image)
-        Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
-        Me.ToolStripButton1.Name = "ToolStripButton1"
-        Me.ToolStripButton1.Size = New System.Drawing.Size(23, 22)
-        Me.ToolStripButton1.Text = "ToolStripButton1"
-        Me.ToolStripButton1.Visible = False
-        '
        'frmApplikation
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -3979,4 +4011,8 @@ Partial Class frmApplikation
    Friend WithEvents tsappabhaengigkeitneu As ToolStripButton
    Friend WithEvents BemerkungToolStripMenuItem As ToolStripMenuItem
    Friend WithEvents ToolStripButton1 As ToolStripButton
+    Friend WithEvents NeuerEintragToolStripMenuItem1 As ToolStripMenuItem
+    Friend WithEvents EintragLöschenToolStripMenuItem1 As ToolStripMenuItem
+    Friend WithEvents BemerkungToolStripMenuItem1 As ToolStripMenuItem
+    Friend WithEvents ToolStripMenuItem6 As ToolStripSeparator
 End Class
--- a/Vertragsverwaltung/Applikation/Applikation/frmApplikation.resx
+++ b/Vertragsverwaltung/Applikation/Applikation/frmApplikation.resx
@@ -296,7 +296,7 @@
        AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
        LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
        ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADg
-        CwAAAk1TRnQBSQFMAgEBBQEAAfwBCgH8AQoBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
+        CwAAAk1TRnQBSQFMAgEBBQEAAdwBCwHcAQsBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
        AwABQAMAASADAAEBAQABCAYAAQgYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
        AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
        AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
@@ -360,7 +360,7 @@
        AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
        LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
        ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAACM
-        DwAAAk1TRnQBSQFMAgEBBwEAAfwBCgH8AQoBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
+        DwAAAk1TRnQBSQFMAgEBBwEAAdwBCwHcAQsBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
        AwABQAMAASADAAEBAQABCAYAAQgYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
        AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
        AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
@@ -467,7 +467,7 @@
        AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
        LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
        ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAw
-        CQAAAk1TRnQBSQFMAgEBAgEAAYABAgGAAQIBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
+        CQAAAk1TRnQBSQFMAgEBAgEAAWABAwFgAQMBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
        AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
        AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
        AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
@@ -634,7 +634,7 @@
        AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
        LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
        ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAA6
-        DQAAAk1TRnQBSQFMAgEBBwEAAfwBCgH8AQoBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
+        DQAAAk1TRnQBSQFMAgEBBwEAAdwBCwHcAQsBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
        AwABQAMAASADAAEBAQABCAYAAQgYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
        AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
        AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
@@ -718,47 +718,6 @@
  <metadata name="ToolStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>563, 95</value>
  </metadata>
-  <metadata name="ctxmenuabhaengigkeitenTree.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>1288, 95</value>
-  </metadata>
-  <metadata name="tsAppTreeSearch.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>1181, 95</value>
-  </metadata>
-  <data name="tsAppTreeSelectClose.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACkSURBVDhPlZALDsMwCEM5OkfLzbIaMGH5dJkligL2a1o5
-        qP9RW3VVXYpzqLV2D+CZQVU/Y27uIg4OQQAJXz+hDsyEDtVQ7dib+1GH1fpUDljD6OF5HgjvKgHvN+iC
-        A0O1EvB+A8ghPvgqB4j9xPlHhidVB2lwwICfbkBxMAFGqHbszb1RGhywhtGxN/dGXAbgGD4CqACMMGZR
-        VwrA/Rtn/QiKfADckGXYsnwKqAAAAABJRU5ErkJggg==
-</value>
-  </data>
-  <data name="tsAppTreeSearchSearch.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACpSURBVFhH7ZLhCoQwDIP36Hu0vdl5DU7GbFx6KtyPfhBQ
-        26aBWpIkEfhMYqh9YVRjtS+Maqz2hVGN1T6Z2RCqtULfZzC8M/0GMx2+d45QZCYMjFprzPCkvnwxIwMT
-        Qw1g6iG82i4ZKYCwcJYMjFcneDXAS5Lxhp+QzOoEDNQvTiMDg4ufkIG6BSfhZf4jwJ0T3A5gIstNjKMn
-        GPyENzyK4fWOSpIkcShlA/2ShGAugX0dAAAAAElFTkSuQmCC
-</value>
-  </data>
-  <data name="tsAppTreeSearchPrev.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAETSURBVDhPrVPLccIwEN0C4Oxw8wUacAPqggOugFQALdAA
-        M8kx1+Bj7umBAzRAERkQ761XshzZA5nJm3mj1duPpJUk/4aryMGL+JtIbVIP0Gf0/4icMU5M7hACrMjM
-        5IiwAFiZlANOx6BPNTus20QWfjVpHG9dsB4FdsX5t5oPUJalx+G0gLG6TKdqv7QFyGE453zTNBrk2uTI
-        r7r2LE6fMUdagGQfYIR+/OYgYsAchBHJeeoHc6Q7YMNgsJFbjpx/7PfpMXKEApskmTruf8f5cbXyjIE0
-        XADwy6LQ5PTKYExOGKjjBVGPvh4YyCASqy9MVkDTtzD6jIkn/oL2IxytBybRiSLvJmXgyrYD7nL8P/wN
-        InfTOb1kQ+hzeQAAAABJRU5ErkJggg==
-</value>
-  </data>
-  <metadata name="tsbtnappabhaengigkeit_neu.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>1074, 95</value>
-  </metadata>
-  <metadata name="ToolStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>563, 95</value>
-  </metadata>
  <data name="tsbtnStruktursort.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
@@ -1259,6 +1218,59 @@
  <data name="C1Applikationsabhaengigkeiten.PropBag" xml:space="preserve">
    <value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}OddRow{BackColor:224, 224, 224;}Style3{}Footer{}Style14{}FilterBar{ForeColor:Black;BackColor:255, 255, 192;}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;Wrap:True;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{AlignHorz:Near;}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView HBarHeight="16" VBarHeight="16" Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FetchRowStyles="True" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="16" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 421, 202&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 421, 202&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
  </data>
+  <metadata name="ctxmenuabhaengigkeitenTree.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>1288, 95</value>
+  </metadata>
+  <metadata name="tsAppTreeSearch.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>1181, 95</value>
+  </metadata>
+  <data name="tsAppTreeSelectClose.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACkSURBVDhPlZALDsMwCEM5OkfLzbIaMGH5dJkligL2a1o5
+        qP9RW3VVXYpzqLV2D+CZQVU/Y27uIg4OQQAJXz+hDsyEDtVQ7dib+1GH1fpUDljD6OF5HgjvKgHvN+iC
+        A0O1EvB+A8ghPvgqB4j9xPlHhidVB2lwwICfbkBxMAFGqHbszb1RGhywhtGxN/dGXAbgGD4CqACMMGZR
+        VwrA/Rtn/QiKfADckGXYsnwKqAAAAABJRU5ErkJggg==
+</value>
+  </data>
+  <data name="tsAppTreeSearchSearch.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACpSURBVFhH7ZLhCoQwDIP36Hu0vdl5DU7GbFx6KtyPfhBQ
+        26aBWpIkEfhMYqh9YVRjtS+Maqz2hVGN1T6Z2RCqtULfZzC8M/0GMx2+d45QZCYMjFprzPCkvnwxIwMT
+        Qw1g6iG82i4ZKYCwcJYMjFcneDXAS5Lxhp+QzOoEDNQvTiMDg4ufkIG6BSfhZf4jwJ0T3A5gIstNjKMn
+        GPyENzyK4fWOSpIkcShlA/2ShGAugX0dAAAAAElFTkSuQmCC
+</value>
+  </data>
+  <data name="tsAppTreeSearchPrev.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAETSURBVDhPrVPLccIwEN0C4Oxw8wUacAPqggOugFQALdAA
+        M8kx1+Bj7umBAzRAERkQ761XshzZA5nJm3mj1duPpJUk/4aryMGL+JtIbVIP0Gf0/4icMU5M7hACrMjM
+        5IiwAFiZlANOx6BPNTus20QWfjVpHG9dsB4FdsX5t5oPUJalx+G0gLG6TKdqv7QFyGE453zTNBrk2uTI
+        r7r2LE6fMUdagGQfYIR+/OYgYsAchBHJeeoHc6Q7YMNgsJFbjpx/7PfpMXKEApskmTruf8f5cbXyjIE0
+        XADwy6LQ5PTKYExOGKjjBVGPvh4YyCASqy9MVkDTtzD6jIkn/oL2IxytBybRiSLvJmXgyrYD7nL8P/wN
+        InfTOb1kQ+hzeQAAAABJRU5ErkJggg==
+</value>
+  </data>
+  <metadata name="tsbtnappabhaengigkeit_neu.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>1074, 95</value>
+  </metadata>
+  <data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
+        YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9
+        0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw
+        bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc
+        VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9
+        c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32
+        Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo
+        mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+
+        kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D
+        TgDQASA1MVpwzwAAAABJRU5ErkJggg==
+</value>
+  </data>
  <data name="tsAppAbhaengigkeit_Export.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
        iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
@@ -1342,21 +1354,6 @@
        OiGWR5jkygfD+ZDtb+trY5xzX9PuNs+OgU+0q8eYswZ2mI9NCnKbzkNg+R9kV5WH0EJkNXMaoXOJ6AIE
        9miIGCXLkOP7jSJ6EWkE7jGKYGp+wZlG8HEY3C1yrEek6PMQjD7GxNTBGUdwzr0fgj92GtoyhIbI+Lzn
        IzD0MdY/mhMpKUS69uY/mTthk1u8I7QAAAAASUVORK5CYII=
-</value>
-  </data>
-  <data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
-        YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9
-        0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw
-        bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc
-        VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9
-        c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32
-        Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo
-        mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+
-        kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D
-        TgDQASA1MVpwzwAAAABJRU5ErkJggg==
 </value>
  </data>
  <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
--- a/Vertragsverwaltung/Applikation/Applikation/frmApplikation.vb
+++ b/Vertragsverwaltung/Applikation/Applikation/frmApplikation.vb
@@ -2942,6 +2942,9 @@ Public Class frmApplikation
        Me.SpaltenTitel.Spaltentitel_aktualisieren(Me.C1Applikationsabhaengigkeiten, "appdependency", Me.Applikation.dtab1)
        Me.C1ApplikationAbhaengigVon.DataSource = Me.Applikation.dtab2
        Me.SpaltenTitel.Spaltentitel_aktualisieren(Me.C1ApplikationAbhaengigVon, "appdependency", Me.Applikation.dtab2)
+        Me.C1Applikationsabhaengigkeiten.Bookmark = -1
+        Me.C1ApplikationAbhaengigVon.Bookmark = -1
+
        GrpApplAbhaengigkeit.Dock = DockStyle.None
        GrpApplAbhaengigkeit.Dock = DockStyle.Top

@@ -2975,9 +2978,11 @@ Public Class frmApplikation
    End Sub


-
+    Dim Destinationgrid As Integer = 0
    Private Sub NeuerEintragToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeuerEintragToolStripMenuItem.Click
-
+        Destinationgrid = 0
+        Me.GroupBox2.BackColor = Color.Transparent
+        Me.GrpApplAbhaengigkeit.BackColor = Color.LightCoral
        'Dim originalNode As TreeNode
        'For Each originalNode In Me.TreeApplikationen.Nodes
        '    Dim NewNode As TreeNode = New TreeNode(originalNode.Text)
@@ -2994,6 +2999,11 @@ Public Class frmApplikation
        Me.AppTreeSelect.ExpandAll()
        Me.AppTreeSelect.SelectedNode = Me.AppTreeSelect.Nodes(0)
        Me.grpAppselect.Visible = True
+        If Destinationgrid = 0 Then
+            Me.GrpApplAbhaengigkeit.BackColor = Color.LightCoral
+        Else
+            Me.GroupBox2.BackColor = Color.LightCoral
+        End If
    End Sub
    Private Sub IterateTreeNodes(ByVal originalNode As TreeNode, ByVal rootNode As TreeNode)
        Dim childNode As TreeNode
@@ -3013,8 +3023,12 @@ Public Class frmApplikation
    End Sub

    Private Sub AbhängigkeitHinzufügenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AbhängigkeitHinzufügenToolStripMenuItem.Click
+        If Destinationgrid = 0 Then
+            Applikation.Abhaengigkeiten(3, Me.Aktuelle_Applikation, Me.AppTreeSelect.SelectedNode.Tag, Globals.clsmitarbeiter.iMitarbeiternr.Value)
+        Else
+            Applikation.Abhaengigkeiten(3, Me.AppTreeSelect.SelectedNode.Tag, Me.Aktuelle_Applikation, Globals.clsmitarbeiter.iMitarbeiternr.Value)
+        End If

-        Applikation.Abhaengigkeiten(3, Me.Aktuelle_Applikation, Me.AppTreeSelect.SelectedNode.Tag, Globals.clsmitarbeiter.iMitarbeiternr.Value)
        refresh_Applikationsabhaengigkeiten()
    End Sub

@@ -3036,6 +3050,8 @@ Public Class frmApplikation

    Private Sub tsAppTreeSelectClose_Click(sender As Object, e As EventArgs) Handles tsAppTreeSelectClose.Click
        grpAppselect.Visible = False
+        Me.GrpApplAbhaengigkeit.BackColor = Color.Transparent
+        Me.GroupBox2.BackColor = Color.Transparent
    End Sub

    Private Sub tsAppTreeSearchSearch_Click(sender As Object, e As EventArgs) Handles tsAppTreeSearchSearch.Click
@@ -3190,7 +3206,30 @@ Public Class frmApplikation
    End Sub

    Private Sub ctxMenuAppAbhaengigVon_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ctxMenuAppAbhaengigVon.Opening
-        If Me.C1ApplikationAbhaengigVon.Splits(0).Rows.Count < 1 Then ApplikationsdetailsToolStripMenuItem.Enabled = False Else ApplikationsdetailsToolStripMenuItem.Enabled = True
+        If Me.C1ApplikationAbhaengigVon.Splits(0).Rows.Count < 1 Then
+            ApplikationsdetailsToolStripMenuItem.Enabled = False
+            EintragLöschenToolStripMenuItem1.Enabled = False
+            BemerkungToolStripMenuItem1.Enabled = False
+        Else
+            ApplikationsdetailsToolStripMenuItem.Enabled = True
+            EintragLöschenToolStripMenuItem1.Enabled = True
+            BemerkungToolStripMenuItem1.Enabled = True
+
+        End If
+
+
+        If Me.C1Applikationsabhaengigkeiten.Splits(0).Rows.Count < 1 Then
+            'NeuerEintragToolStripMenuItem.Enabled = False
+            EintragLöschenToolStripMenuItem.Enabled = False
+            BemerkungToolStripMenuItem.Enabled = False
+            ApplikatioinsdetailsToolStripMenuItem.Enabled = False
+        Else
+            'NeuerEintragToolStripMenuItem.Enabled = True
+            EintragLöschenToolStripMenuItem.Enabled = True
+            BemerkungToolStripMenuItem.Enabled = True
+            ApplikatioinsdetailsToolStripMenuItem.Enabled = True
+        End If
+
    End Sub

    Private Sub ctxmenuAbhaengigkeiten_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ctxmenuAbhaengigkeiten.Opening
@@ -3206,5 +3245,118 @@ Public Class frmApplikation
            ApplikatioinsdetailsToolStripMenuItem.Enabled = True
        End If
    End Sub
+
+    Private Sub AppTreeSelect_ItemDrag(sender As Object, e As ItemDragEventArgs) Handles AppTreeSelect.ItemDrag
+        DoDragDrop(e.Item, DragDropEffects.Move)
+        Me.AppTreeSelect.SelectedNode = e.Item
+    End Sub
+
+
+
+    Private Sub C1Applikationsabhaengigkeiten_DragEnter(sender As Object, e As DragEventArgs) Handles C1Applikationsabhaengigkeiten.DragEnter
+        If e.Data.GetDataPresent("System.Windows.Forms.TreeNode", True) Then
+            Dim dropnode As TreeNode = CType(e.Data.GetData("System.Windows.Forms.TreeNode"), TreeNode)
+            If dropnode.TreeView.Name = "AppTreeSelect" Then
+                'TreeNode found allow move effect
+                e.Effect = DragDropEffects.Move
+            Else
+                e.Effect = DragDropEffects.None
+
+            End If
+
+        Else
+                'No TreeNode found, prevent move
+                e.Effect = DragDropEffects.None
+        End If
+    End Sub
+
+    Private Sub C1Applikationsabhaengigkeiten_DragDrop(sender As Object, e As DragEventArgs) Handles C1Applikationsabhaengigkeiten.DragDrop
+        If e.Data.GetDataPresent("System.Windows.Forms.TreeNode", True) Then
+            Dim dropnode As TreeNode = CType(e.Data.GetData("System.Windows.Forms.TreeNode"), TreeNode)
+            If dropnode.TreeView.Name <> "AppTreeSelect" Then Exit Sub
+            Applikation.Abhaengigkeiten(3, Me.Aktuelle_Applikation, dropnode.Tag, Globals.clsmitarbeiter.iMitarbeiternr.Value)
+            refresh_Applikationsabhaengigkeiten()
+            e.Effect = DragDropEffects.None
+        End If
+
+    End Sub
+
+    Private Sub C1ApplikationAbhaengigVon_DragDrop(sender As Object, e As DragEventArgs) Handles C1ApplikationAbhaengigVon.DragDrop
+        If e.Data.GetDataPresent("System.Windows.Forms.TreeNode", True) Then
+            Dim dropnode As TreeNode = CType(e.Data.GetData("System.Windows.Forms.TreeNode"), TreeNode)
+            If dropnode.TreeView.Name <> "AppTreeSelect" Then Exit Sub
+            Applikation.Abhaengigkeiten(3, dropnode.Tag, Me.Aktuelle_Applikation, Globals.clsmitarbeiter.iMitarbeiternr.Value)
+            refresh_Applikationsabhaengigkeiten()
+            e.Effect = DragDropEffects.None
+        End If
+    End Sub
+
+    Private Sub C1ApplikationAbhaengigVon_DragEnter(sender As Object, e As DragEventArgs) Handles C1ApplikationAbhaengigVon.DragEnter
+        If e.Data.GetDataPresent("System.Windows.Forms.TreeNode", True) Then
+            Dim dropnode As TreeNode = CType(e.Data.GetData("System.Windows.Forms.TreeNode"), TreeNode)
+            If dropnode.TreeView.Name = "AppTreeSelect" Then
+                'TreeNode found allow move effect
+                e.Effect = DragDropEffects.Move
+            Else
+                e.Effect = DragDropEffects.None
+
+            End If
+
+        Else
+            'No TreeNode found, prevent move
+            e.Effect = DragDropEffects.None
+        End If
+    End Sub
+
+    Private Sub NeuerEintragToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles NeuerEintragToolStripMenuItem1.Click
+
+        NeuerEintragToolStripMenuItem_Click(sender, e)
+        Destinationgrid = 1
+        Me.GroupBox2.BackColor = Color.LightCoral
+        Me.GrpApplAbhaengigkeit.BackColor = Color.Transparent
+    End Sub
+
+    Private Sub EintragLöschenToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles EintragLöschenToolStripMenuItem1.Click
+        If MsgBox("Eintrag wirklich löschen?", vbYesNo) = vbYes Then
+            Me.Applikation.Abhaengigkeiten(4, Me.C1ApplikationAbhaengigVon.Columns("ID").Value, Globals.clsmitarbeiter.iMitarbeiternr.Value, "")
+            refresh_Applikationsabhaengigkeiten()
+        End If
+    End Sub
+
+    Private Sub BemerkungToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles BemerkungToolStripMenuItem1.Click
+        Dim s As String
+        s = Me.C1ApplikationAbhaengigVon.Columns("Bemerkung").Value
+        Dim f As New frmBemerkung
+        f.TextBox1.Text = s
+        f.ShowDialog()
+        If f.DialogResult = DialogResult.OK Then
+            Me.Applikation.Abhaengigkeiten(6, f.TextBox1.Text, Me.C1ApplikationAbhaengigVon.Columns("ID").Value, Globals.clsmitarbeiter.iMitarbeiternr.Value)
+            Me.refresh_Applikationsabhaengigkeiten()
+        End If
+    End Sub
+
+    Private Sub C1Applikationsabhaengigkeiten_MouseDown(sender As Object, e As MouseEventArgs) Handles C1Applikationsabhaengigkeiten.MouseDown
+        Me.C1Applikationsabhaengigkeiten.Bookmark = Me.C1Applikationsabhaengigkeiten.RowContaining(e.Y)
+    End Sub
+
+    Private Sub C1ApplikationAbhaengigVon_MouseDown(sender As Object, e As MouseEventArgs) Handles C1ApplikationAbhaengigVon.MouseDown
+        Me.C1ApplikationAbhaengigVon.Bookmark = Me.C1ApplikationAbhaengigVon.RowContaining(e.Y)
+    End Sub
+
+    Private Sub AppTreeSelect_MouseDown(sender As Object, e As MouseEventArgs) Handles AppTreeSelect.MouseDown
+        Try
+            Dim mouseEvents As MouseEventArgs
+            mouseEvents = e
+            selectPoint.Y = mouseEvents.Y
+            selectPoint.X = mouseEvents.X
+            Me.AppTreeSelect.SelectedNode = Me.AppTreeSelect.GetNodeAt(selectPoint)
+
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+    End Sub
+
+
+
 #End Region
 End Class