Update Version 1.2

This commit is contained in:
2021-11-25 12:33:45 +01:00
parent 13eb4ddf25
commit fe8d21e231
594 changed files with 508537 additions and 48424 deletions

View File

@@ -43,7 +43,7 @@ Partial Class frmPPlan
Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripSeparator()
Me.VorgabeAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.PrüfschrittGenerierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStrip2 = New System.Windows.Forms.ToolStrip()
Me.ToolStripPruefplan = New System.Windows.Forms.ToolStrip()
Me.TSBtnSave = New System.Windows.Forms.ToolStripButton()
Me.TSBtnAddNew = New System.Windows.Forms.ToolStripButton()
Me.TSBtnDelete = New System.Windows.Forms.ToolStripButton()
@@ -93,7 +93,7 @@ Partial Class frmPPlan
Me.SplitContainer1.SuspendLayout()
CType(Me.C1Daten, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ctxMenuDetails.SuspendLayout()
Me.ToolStrip2.SuspendLayout()
Me.ToolStripPruefplan.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.GrpDokumente.SuspendLayout()
Me.grpDetails.SuspendLayout()
@@ -170,6 +170,7 @@ Partial Class frmPPlan
'
'tsTxtSearch
'
Me.tsTxtSearch.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.tsTxtSearch.Name = "tsTxtSearch"
Me.tsTxtSearch.Size = New System.Drawing.Size(100, 25)
'
@@ -201,7 +202,7 @@ Partial Class frmPPlan
'SplitContainer1.Panel1
'
Me.SplitContainer1.Panel1.Controls.Add(Me.C1Daten)
Me.SplitContainer1.Panel1.Controls.Add(Me.ToolStrip2)
Me.SplitContainer1.Panel1.Controls.Add(Me.ToolStripPruefplan)
'
'SplitContainer1.Panel2
'
@@ -269,14 +270,14 @@ Partial Class frmPPlan
Me.PrüfschrittGenerierenToolStripMenuItem.Size = New System.Drawing.Size(245, 22)
Me.PrüfschrittGenerierenToolStripMenuItem.Text = "Assessment generieren"
'
'ToolStrip2
'ToolStripPruefplan
'
Me.ToolStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TSBtnSave, Me.TSBtnAddNew, Me.TSBtnDelete, Me.TSBtnSetSecurityObject, Me.tsbtnReport, Me.tsbtncopy1, Me.tsbtnCopy2, Me.ToolStripButton2})
Me.ToolStrip2.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip2.Name = "ToolStrip2"
Me.ToolStrip2.Size = New System.Drawing.Size(958, 25)
Me.ToolStrip2.TabIndex = 10
Me.ToolStrip2.Text = "ToolStrip2"
Me.ToolStripPruefplan.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TSBtnSave, Me.TSBtnAddNew, Me.TSBtnDelete, Me.TSBtnSetSecurityObject, Me.tsbtnReport, Me.tsbtncopy1, Me.tsbtnCopy2, Me.ToolStripButton2})
Me.ToolStripPruefplan.Location = New System.Drawing.Point(0, 0)
Me.ToolStripPruefplan.Name = "ToolStripPruefplan"
Me.ToolStripPruefplan.Size = New System.Drawing.Size(958, 25)
Me.ToolStripPruefplan.TabIndex = 10
Me.ToolStripPruefplan.Text = "ToolStrip2"
'
'TSBtnSave
'
@@ -666,12 +667,12 @@ Partial Class frmPPlan
Me.ContextMenuStrip1.ImageScalingSize = New System.Drawing.Size(32, 32)
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DefinitionAnzeigenToolStripMenuItem})
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(177, 26)
Me.ContextMenuStrip1.Size = New System.Drawing.Size(181, 48)
'
'DefinitionAnzeigenToolStripMenuItem
'
Me.DefinitionAnzeigenToolStripMenuItem.Name = "DefinitionAnzeigenToolStripMenuItem"
Me.DefinitionAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(176, 22)
Me.DefinitionAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.DefinitionAnzeigenToolStripMenuItem.Text = "Definition anzeigen"
'
'frmPPlan
@@ -696,8 +697,8 @@ Partial Class frmPPlan
Me.SplitContainer1.ResumeLayout(False)
CType(Me.C1Daten, System.ComponentModel.ISupportInitialize).EndInit()
Me.ctxMenuDetails.ResumeLayout(False)
Me.ToolStrip2.ResumeLayout(False)
Me.ToolStrip2.PerformLayout()
Me.ToolStripPruefplan.ResumeLayout(False)
Me.ToolStripPruefplan.PerformLayout()
Me.Panel1.ResumeLayout(False)
Me.GrpDokumente.ResumeLayout(False)
Me.grpDetails.ResumeLayout(False)
@@ -745,7 +746,7 @@ Partial Class frmPPlan
Friend WithEvents TSBtnDelete As ToolStripButton
Friend WithEvents TSBtnAddNew As ToolStripButton
Friend WithEvents TSBtnSave As ToolStripButton
Friend WithEvents ToolStrip2 As ToolStrip
Friend WithEvents ToolStripPruefplan As ToolStrip
Friend WithEvents ImageList1 As ImageList
Friend WithEvents lblSearchStruktur_Definition As ToolStripLabel
Friend WithEvents ToolStripButton3 As ToolStripButton

View File

@@ -232,9 +232,9 @@
</value>
</data>
<data name="C1Daten.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{}Style2{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{BackColor:224, 224, 224;}Style3{}Footer{}Style14{}Heading{AlignVert:Center;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;BackColor:Control;Wrap:True;}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;}Style1{}Caption{AlignHorz:Center;}Style6{}FilterBar{ForeColor:Black;BackColor:255, 255, 192;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" FilterBorderStyle="Raised" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" 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, 956, 289&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;BorderStyle&gt;Sunken&lt;/BorderStyle&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, 956, 289&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
<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{ForeColor:ControlText;Border:Raised,,1, 1, 1, 1;AlignVert:Center;BackColor:Control;Wrap:True;}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 Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" FilterBorderStyle="Raised" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" 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, 956, 289&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;BorderStyle&gt;Sunken&lt;/BorderStyle&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, 956, 289&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
</data>
<metadata name="ToolStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<metadata name="ToolStripPruefplan.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>633, 17</value>
</metadata>
<data name="TSBtnSave.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -320,16 +320,16 @@
<data name="tsbtncopy1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIXSURBVDhPjZPPb9JgGMfJ9OLBgwfP3ozxov8Bxn9ALxw8
4o0Jh84Q4umd5UeBrroBG9BCYfLOHzXTTeTHxhbYQLbhMJunmWjwpgcvxpNZ9sSn5SUvCWzxkzRpnz7f
T5+naW1nQQiZcDqdlz0ez3Wf7+Etl8t1id06Hbvdfr7ZLH8+Otr+2et1j+MxAnpWgkScgGG86Xi93ous
dTwOh+NcvV4/oTkJaD4MdDEK9JkMmUwI/P4AvK9UG4IgXGDtHFmWbi8tae7i6kvp8LD+OyIRCAUJ4BqQ
nJ+GjBa0zs1D19NpFuN0d2ut/lMjcPz3+xfzqbQwA6LIJIlpaxKz1umsv2UxTqdd3aB6CAaSwejmFIry
xJKkFvqSg09br1iMs9MoFmk2CFzS3z8+R2B2FsMpEWRcy6x93K0VWIzT3Fx9TbUAjJMMRlciKMDa3s56
lsU4m9XlAlVFoJofaMYUDUtwJZQoYRRg7cN2OclinI2yodL0YxiR6FyimCtgrd0szbEYZ+3dixhNYcOI
xFwJJbkwKCG8j7VGbUVmMU5pmUZpEhssCb7tMZL9VuVHt11Zo4vqHRbjrBh5kc5jeAEPU2RJcJohSSBA
brL2UQyqPaIJDA5LUijBlXJ43fu692dq6sFV1j5KPh0TKP4wqkzg28HWr/1WqVYtPo+qiaf33G73NfyQ
JljreHyCcGMmIt6dnLx/hZX+A5vtHyFcra2thVTwAAAAAElFTkSuQmCC
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIMSURBVDhPjZNNbxJRFIZJ7caFCxeu3RnjRv8Bxj9QNyxc
4o4WFlNDiKtLh+GjQz8AqTAzFLkp1TqmtRX5aGkDLUhbWkzrqiYa3OnCjXFlmp54Lly8jWDjk0zCnDnv
M+dkLpaLIIQM2e32ay6X65bH8+iuw+G4yh/9G6vVOlyrFT6cnOx8a7dbp5FZAoauQDRCwDRXmm63+wpv
HYzNZrtUqVTOaEoBOu8Hmg4CfRYCTfOB1zsBb4ulqiRJl3m7IBwO3ltcNJy5taXg8XHlR0Ah4JMJ4BoQ
jxHQknLnN7vSaU3jMUFrr1zvvjUAp7++fGRvpZnJP6F4lHQmYbVmc+M1jwmajdImNXzQk/RGZ1Ooargj
mXvSlRy9337JY4Ldai5HdRmEpLt/ZIbA9DSG5wiEcC1WO9grL/CYoLa19oomJ2CQpDe6GkAB1vZ3N+Z5
TLBVWl6gCWxIeoFqTHRegiuhRPXjc6y92ykkeEywWTB1+hQb/pYYQqKyFbDWqOWjPCZYf/MiRnHPfglb
CSUpP6g+rGOtWl4N85ggv5xVaRwbLpAc1otfW43iepbqIzwmWDUzMsUDQ9mnYqIBEkUhd3h7P2bWeEzZ
YTkv4dOk8L79af/n+PjYDd7eT0aLSRT/MIkQgc9H298P6/lyKfdc1eOzD5xO5008SEO8dTAeSbo9NSnf
Hx19eJ2X/gOL5Tdo0KpaiRqTTgAAAABJRU5ErkJggg==
</value>
</data>
<data name="tsbtnCopy2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -349,15 +349,15 @@
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIWSURBVDhPlY9dSJNhFMffCylqduHIEk2pbaWwqMyLpCsL
+sAwJRlBBNLozoYSXhQFc7Su7CLoA+xi1L7bzH02p1ttK1Y3IWgh+bZGOK29vTO3uYs28v33DJ7L3s1+
8Oc8zzn/c87zMJshJJN53ra13aTX/2Omp+fhfYaBoa4OYbn84xuFop6WqiMsPO6cT7Lw3b6Le2TIuESC
F42NmJXJuqmlMr/nbvDZqQ6k2SdILHIY3yvDg5oaeKXSW9QizkZCb/wVOou0pxXLFgYroVNgf/B4qRn6
Ri3iCEn9mWxUhbRPSQbIsTwhBR9ox3fHFiTnnrdS279hA5qtXORqkSObM9MnkHLuwOp0FxmkwJ+QRENt
4mzMD4c5vxKrM6fJCw6SzR3gg8eRD+yKU4s4AntdnQl04qf/CNYiKnDkC2uv+zCpPSB8ctTXUps4pYVH
Kc7fjsL7a+CnjiEXvYQM2S5E91+glsoUPz9FdtGN7Owd5F71ku3nUYoenaDlyoyNXZaAcyP/ZRLrSxEU
UmEU4t3rtFyd5ubdyot9Xch99aHIxYFSwpFf+bCTlqvT1NJybtv2WuxpaPBmlt410fTmiMVi+7Ra7ahO
p9MbLRaVwfBswGq1DrpcrpGy3G73IJGa6IrX6+33eDwng8GggrYzjNPpPGSz2XpJ04DJZBoym80jJI6S
qC2Lnsu5YSK10Wjst9vthxmGYf4CCkkkI6HhNFIAAAAASUVORK5CYII=
+sAwJRlBBNLozoYSXhQFc7Su7CLoA+xi1L7ba+2zOd1qWzG7CUELybc1wmnt7Z25zV20kfv3DJ7L3s1+
8Oc8zzn/c87zMJshKJO537W13aTX/2O6p+fhfYaBoa4OIbn841uFop6WqlNaeNw5n+DgvX0X98iQcYkE
LxobMSuTdVNLZX7P3RAykx1IcU8QX+QxvleGBzU18Eilt6hFnI243vgreBYpdyuWLQxWgqfA/RDwSjP0
jVrEKSX0ZzIRFVJeJRkgx/KEFIK/Hd8dW5CYe95Kbf+G82u28uGrBZ5sTk+dQJLdgdWpLjJIgT9BiYba
xNmYHw7xPiVWp0+TFxwkmzsgBI4j598VoxZxStx1ddrfiZ++I1gLq8CTL6y96QOrPVD65KivpTZxiguP
kryvHfn31yBMHkM2cglpsr0U2X+BWipT+PwUmUUXMrN3kH3dS7afRzFydIKWKzM2dlkC3oXcl5dYXwoj
nwwhH+tep+XqNDfvVl7s60L2qxcFPgYU447cyoedtFydppaWc9u212JPQ4MnvTTTRNObIxqN7tNqtaM6
nU5vtFhUBsOzAavVOuh0OkfKcrlcg0Rqoisej6ff7XafDAQCCtrOMCzLHrLZbL2kacBkMg2ZzeYREkdJ
1JZFz+XcMJHaaDT22+32wwzDMH8BBKAkICW8visAAAAASUVORK5CYII=
</value>
</data>
<metadata name="ImageList1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
@@ -368,7 +368,7 @@
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAm
CwAAAk1TRnQBSQFMAgEBBAEAAYABAQGAAQEBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
CwAAAk1TRnQBSQFMAgEBBAEAAZgBAQGYAQEBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAASADAAEBAQABCAYAAQgYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA

View File

@@ -193,6 +193,7 @@ Public Class frmPPlan
Private Sub frmPPlan_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Refresh_List()
sec.Set_Form_Security(Me)
End Sub
Sub Refresh_List(Optional searchstring As String = "")
@@ -225,6 +226,7 @@ Public Class frmPPlan
Me.C1Daten.Columns("Icon").ValueItems.Values.Add(v3)
Me.C1Daten.Columns("Icon").ValueItems.Translate = True
Me.C1Daten.Splits(0).DisplayColumns("icon").Style.HorizontalAlignment = C1.Win.C1TrueDBGrid.AlignHorzEnum.Center
End Sub
#End Region
@@ -295,8 +297,11 @@ Public Class frmPPlan
f.Pruefplannr = Me.C1Daten.Columns("pruefplannr").Value
f.MdiParent = Me.MdiParent
f.PruefplanHandler = Me.Handle
f.Show()
'If Me.ToolStripPruefplan.Visible = False Or Me.ToolStripPruefplan.Enabled = False Then
' f.IsReadonly = True
'End If
f.Show()
Catch ex As Exception
End Try

View File

@@ -23,6 +23,16 @@
End Set
End Property
Dim m_readonly As Boolean
Property IsReadonly As Boolean
Get
Return m_readonly
End Get
Set(value As Boolean)
m_readonly = value
End Set
End Property
Dim WithEvents evh As MyGenericEventHandler = Globals.MyEventHanlder
Dim sec As New Utils.MySecurity
Dim msg As New Utils.MyMessage
@@ -45,6 +55,7 @@
Private Sub FormularClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
If Me.FormReadonly = True Then Exit Sub
If Me.TSBtnSave.Visible = False Or Me.TSBtnSave.Enabled = False Then Exit Sub
If Check_Changes() = False Then
e.Cancel = True
Else
@@ -218,8 +229,12 @@
End Sub
Private Sub frmPruefplanDetail_Load(sender As Object, e As EventArgs) Handles MyBase.Load
If Me.IsReadonly Then
Me.TSBtnSave.Visible = False
Me.DokumenteAllgemein.Show_Toolbar = False
Me.FormReadonly = True
End If
Me.DokumenteAllgemein.ConnectionString = Globals.sConnectionString
Me.DokumenteAllgemein.Mitarbeiternr = Globals.clsmitarbeiter.iMitarbeiternr.Value
Me.DokumenteAllgemein.Doktype = 3
@@ -265,7 +280,12 @@
Me.txtBezeichnung.SelectAll()
Me.txtBezeichnung.Focus()
AddChanges(Me)
sec.Set_Form_Security(Me)
If Me.TSBtnSave.Visible = False Or Me.TSBtnSave.Enabled = False Then
Me.DokumenteAllgemein.Show_Toolbar = False
Me.FormReadonly = True
End If
End Sub
@@ -395,7 +415,7 @@
#Region "Zuordnung"
Private Sub btnNeueZuordnung_Click(sender As Object, e As EventArgs) Handles btnNeueZuordnung.Click
If Me.FormDataChanged = True Then Me.Save_data()
If Me.FormDataChanged = True And Me.TSBtnSave.Visible = True And Me.TSBtnSave.Enabled = True Then Me.Save_data()
If Me.Pruefplannr = 0 Then Me.Save_data()
If Me.GrpStruktur.Visible = False Then
@@ -414,6 +434,7 @@
#Region "Tree"
Private Sub TreeStruktur_DoubleClick(sender As Object, e As EventArgs) Handles TreeStruktur.DoubleClick
If Me.TSBtnSave.Visible = False Or Me.TSBtnSave.Enabled = False Then Exit Sub
Try
If TreeStruktur.SelectedNode.Nodes.Count > 0 Then
MsgBox("Für die Zuordnung können nur Elemente der untersten Stufe (Definitionen) verwendet werden.", vbExclamation)
@@ -432,6 +453,7 @@
Private Sub TreeZuordnung_DoubleClick(sender As Object, e As EventArgs) Handles TreeZuordnung.DoubleClick
If Me.TSBtnSave.Enabled = False Or Me.TSBtnSave.Visible = False Then Exit Sub
If IsDate(Me.TreeZuordnung.SelectedNode.Text) Then
TreeZuordnung.SelectedNode = Me.TreeZuordnung.SelectedNode.Parent
End If