Initial commit

.svn/pristine/99/99a65041a088ccfe0f066e77e5abcc84d508e0ac.svn-base

@@ -0,0 +1,225 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmVorgabeDefinition
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmVorgabeDefinition))
+        Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
+        Me.TSBtnQuit = New System.Windows.Forms.ToolStripButton()
+        Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
+        Me.lblDefinitioin = New System.Windows.Forms.Label()
+        Me.lblBemerkung = New System.Windows.Forms.Label()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.dtGueltigbis = New System.Windows.Forms.DateTimePicker()
+        Me.txtDefinition = New System.Windows.Forms.TextBox()
+        Me.txtBemerkung = New System.Windows.Forms.TextBox()
+        Me.btnAbbruch = New System.Windows.Forms.Button()
+        Me.btnSave = New System.Windows.Forms.Button()
+        Me.cbaktiv = New System.Windows.Forms.CheckBox()
+        Me.lblAktiv = New System.Windows.Forms.Label()
+        Me.lblBezeichnung = New System.Windows.Forms.Label()
+        Me.txtBezeichnung = New DevComponents.DotNetBar.Controls.TextBoxX()
+        Me.ToolStrip1.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'ToolStrip1
+        '
+        Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TSBtnQuit, Me.ToolStripButton1})
+        Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
+        Me.ToolStrip1.Name = "ToolStrip1"
+        Me.ToolStrip1.Size = New System.Drawing.Size(709, 25)
+        Me.ToolStrip1.TabIndex = 7
+        Me.ToolStrip1.Text = "ToolStrip1"
+        '
+        'TSBtnQuit
+        '
+        Me.TSBtnQuit.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.TSBtnQuit.Image = CType(resources.GetObject("TSBtnQuit.Image"), System.Drawing.Image)
+        Me.TSBtnQuit.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.TSBtnQuit.Name = "TSBtnQuit"
+        Me.TSBtnQuit.Size = New System.Drawing.Size(23, 22)
+        Me.TSBtnQuit.Text = "ToolStripButton1"
+        Me.TSBtnQuit.ToolTipText = "Fenster schliessen"
+        '
+        '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
+        '
+        'lblDefinitioin
+        '
+        Me.lblDefinitioin.AutoSize = True
+        Me.lblDefinitioin.Location = New System.Drawing.Point(13, 71)
+        Me.lblDefinitioin.Name = "lblDefinitioin"
+        Me.lblDefinitioin.Size = New System.Drawing.Size(51, 13)
+        Me.lblDefinitioin.TabIndex = 18
+        Me.lblDefinitioin.Text = "Definition"
+        '
+        'lblBemerkung
+        '
+        Me.lblBemerkung.AutoSize = True
+        Me.lblBemerkung.Location = New System.Drawing.Point(13, 176)
+        Me.lblBemerkung.Name = "lblBemerkung"
+        Me.lblBemerkung.Size = New System.Drawing.Size(61, 13)
+        Me.lblBemerkung.TabIndex = 19
+        Me.lblBemerkung.Text = "Bemerkung"
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(14, 277)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(50, 13)
+        Me.Label1.TabIndex = 21
+        Me.Label1.Text = "Gültig bis"
+        '
+        'dtGueltigbis
+        '
+        Me.dtGueltigbis.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.dtGueltigbis.Location = New System.Drawing.Point(83, 277)
+        Me.dtGueltigbis.Name = "dtGueltigbis"
+        Me.dtGueltigbis.Size = New System.Drawing.Size(100, 20)
+        Me.dtGueltigbis.TabIndex = 3
+        '
+        'txtDefinition
+        '
+        Me.txtDefinition.Location = New System.Drawing.Point(83, 68)
+        Me.txtDefinition.Multiline = True
+        Me.txtDefinition.Name = "txtDefinition"
+        Me.txtDefinition.Size = New System.Drawing.Size(605, 97)
+        Me.txtDefinition.TabIndex = 1
+        '
+        'txtBemerkung
+        '
+        Me.txtBemerkung.Location = New System.Drawing.Point(83, 176)
+        Me.txtBemerkung.Multiline = True
+        Me.txtBemerkung.Name = "txtBemerkung"
+        Me.txtBemerkung.Size = New System.Drawing.Size(605, 97)
+        Me.txtBemerkung.TabIndex = 2
+        '
+        'btnAbbruch
+        '
+        Me.btnAbbruch.Location = New System.Drawing.Point(616, 335)
+        Me.btnAbbruch.Name = "btnAbbruch"
+        Me.btnAbbruch.Size = New System.Drawing.Size(75, 23)
+        Me.btnAbbruch.TabIndex = 6
+        Me.btnAbbruch.Text = "Abbruch"
+        Me.btnAbbruch.UseVisualStyleBackColor = True
+        '
+        'btnSave
+        '
+        Me.btnSave.Location = New System.Drawing.Point(16, 335)
+        Me.btnSave.Name = "btnSave"
+        Me.btnSave.Size = New System.Drawing.Size(75, 23)
+        Me.btnSave.TabIndex = 5
+        Me.btnSave.Text = "Speichern"
+        Me.btnSave.UseVisualStyleBackColor = True
+        '
+        'cbaktiv
+        '
+        Me.cbaktiv.AutoSize = True
+        Me.cbaktiv.Location = New System.Drawing.Point(83, 303)
+        Me.cbaktiv.Name = "cbaktiv"
+        Me.cbaktiv.Size = New System.Drawing.Size(15, 14)
+        Me.cbaktiv.TabIndex = 4
+        Me.cbaktiv.UseVisualStyleBackColor = True
+        '
+        'lblAktiv
+        '
+        Me.lblAktiv.AutoSize = True
+        Me.lblAktiv.Location = New System.Drawing.Point(13, 304)
+        Me.lblAktiv.Name = "lblAktiv"
+        Me.lblAktiv.Size = New System.Drawing.Size(31, 13)
+        Me.lblAktiv.TabIndex = 27
+        Me.lblAktiv.Text = "Aktiv"
+        '
+        'lblBezeichnung
+        '
+        Me.lblBezeichnung.AutoSize = True
+        Me.lblBezeichnung.Location = New System.Drawing.Point(14, 44)
+        Me.lblBezeichnung.Name = "lblBezeichnung"
+        Me.lblBezeichnung.Size = New System.Drawing.Size(69, 13)
+        Me.lblBezeichnung.TabIndex = 28
+        Me.lblBezeichnung.Text = "Bezeichnung"
+        '
+        'txtBezeichnung
+        '
+        '
+        '
+        '
+        Me.txtBezeichnung.Border.Class = "TextBoxBorder"
+        Me.txtBezeichnung.Border.CornerType = DevComponents.DotNetBar.eCornerType.Square
+        Me.txtBezeichnung.Location = New System.Drawing.Point(83, 42)
+        Me.txtBezeichnung.Name = "txtBezeichnung"
+        Me.txtBezeichnung.PreventEnterBeep = True
+        Me.txtBezeichnung.Size = New System.Drawing.Size(591, 20)
+        Me.txtBezeichnung.TabIndex = 0
+        '
+        'frmVorgabeDefinition
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(709, 364)
+        Me.Controls.Add(Me.txtBezeichnung)
+        Me.Controls.Add(Me.lblBezeichnung)
+        Me.Controls.Add(Me.lblAktiv)
+        Me.Controls.Add(Me.cbaktiv)
+        Me.Controls.Add(Me.btnAbbruch)
+        Me.Controls.Add(Me.btnSave)
+        Me.Controls.Add(Me.txtBemerkung)
+        Me.Controls.Add(Me.txtDefinition)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.dtGueltigbis)
+        Me.Controls.Add(Me.lblBemerkung)
+        Me.Controls.Add(Me.lblDefinitioin)
+        Me.Controls.Add(Me.ToolStrip1)
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Name = "frmVorgabeDefinition"
+        Me.Text = "Vorgabe-Definition"
+        Me.ToolStrip1.ResumeLayout(False)
+        Me.ToolStrip1.PerformLayout()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents ToolStrip1 As ToolStrip
+    Friend WithEvents TSBtnQuit As ToolStripButton
+    Friend WithEvents ToolStripButton1 As ToolStripButton
+    Friend WithEvents lblDefinitioin As Label
+    Friend WithEvents lblBemerkung As Label
+    Friend WithEvents Label1 As Label
+    Friend WithEvents dtGueltigbis As DateTimePicker
+    Friend WithEvents txtDefinition As TextBox
+    Friend WithEvents txtBemerkung As TextBox
+    Friend WithEvents btnAbbruch As Button
+    Friend WithEvents btnSave As Button
+    Friend WithEvents cbaktiv As CheckBox
+    Friend WithEvents lblAktiv As Label
+    Friend WithEvents lblBezeichnung As Label
+    Friend WithEvents txtBezeichnung As DevComponents.DotNetBar.Controls.TextBoxX
+End Class

.svn/pristine/99/99efe5bdcc33944fad3e13ca35bc0391281fb034.svn-base

@@ -0,0 +1,289 @@
+Imports System.ComponentModel
+Imports C1.Win.C1TrueDBGrid
+Imports DevComponents.AdvTree
+
+Public Class frmMassnahmenuebersicht
+
+#Region "Deklarationen"
+
+
+    Dim WithEvents evh As MyGenericEventHandler = Globals.MyEventHanlder
+    Dim sec As New Utils.MySecurity
+    Dim msg As New Utils.MyMessage
+    Dim FormReadonly As Boolean = False
+    Dim FormDataChanged As Boolean = False
+    Dim Massnahme As New clsMassnahme
+
+
+#End Region
+    Sub New()
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+        Me.ImageList1 = Globals.StatusImages
+        Me.TreeUebersicht.ImageList = Me.ImageList1
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+    Private Sub frmPruefschrittUebersicht_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Refresh_All()
+    End Sub
+
+
+    Sub Load_Status()
+
+        Me.DokumenteAllgemein.Show_Toolbar = False
+        Me.DokumenteAllgemein.ConnectionString = Globals.sConnectionString
+        Me.DokumenteAllgemein.Mitarbeiternr = Globals.clsmitarbeiter.iMitarbeiternr.Value
+        Me.DokumenteAllgemein.Doktype = 7
+        'Me.DokumenteAllgemein.ThemaNr = 0
+        'Me.DokumenteAllgemein.Refresh()
+        Me.DokumenteAllgemein.TempFilePath = Globals.clsapplication.sTmp_filepath.Value
+
+
+        Me.TreeUebersicht.Nodes.Clear()
+        Dim i As Integer = 0
+        For Each r As DataRow In Massnahme.Status.Rows
+            Dim tn As New DevComponents.AdvTree.Node
+            tn.Text = r("Bezeichnung")
+            tn.Tag = r(0)
+            tn.ImageIndex = i
+            i = i + 1
+            Me.TreeUebersicht.Nodes.Add(tn)
+        Next
+
+    End Sub
+
+    Private Sub TreeUebersicht_AfterNodeSelect(sender As Object, e As AdvTreeNodeEventArgs) Handles TreeUebersicht.AfterNodeSelect
+        Try
+            Me.C1Daten.Columns("StatusNr").FilterText = Me.TreeUebersicht.SelectedNode.Tag
+        Catch
+        End Try
+        Me.DokumenteAllgemein.Pruefschrittnr = -1
+        Try
+            Me.DokumenteAllgemein.Pruefschrittnr = Me.C1Daten.Columns("Massnahmenr").Value
+
+        Catch
+        End Try
+
+
+    End Sub
+
+    Private Sub C1Daten_RowColChange(sender As Object, e As RowColChangeEventArgs) Handles C1Daten.RowColChange
+        Me.DokumenteAllgemein.Init()
+        Me.C1Notiz.DataSource = Nothing
+        Try
+            Me.DokumenteAllgemein.Pruefschrittnr = Me.C1Daten.Columns("Massnahmenr").Value
+            Refresh_notizen()
+            Refresh_History()
+        Catch
+        End Try
+        Refresh_Details()
+
+    End Sub
+
+    Sub Refresh_notizen()
+        Dim notizen As New clsPruefschrittNotiz
+        Try
+            notizen.Get_Eintraege(Me.C1Notiz, Me.C1Daten.Columns("Massnahmenr").Value)
+        Catch
+        End Try
+
+    End Sub
+
+    Sub Refresh_History()
+        Dim history As New clsHistory
+        Try
+            history.Get_Eintraege(Me.C1History, Me.C1Daten.Columns("Massnahmenr").Value)
+        Catch
+        End Try
+
+    End Sub
+
+    Sub Refresh_All()
+        Load_Status()
+        Massnahme.Get_Eintraege(Me.C1Daten, Globals.clsmitarbeiter.iMitarbeiternr, Me.TreeUebersicht)
+        Me.TreeUebersicht.SelectedNode = Me.TreeUebersicht.Nodes(0)
+    End Sub
+
+
+    Sub Refresh_Details()
+        Try
+            Me.txtBezeichnung.Text = ""
+            Me.txtBeschreibung.Text = ""
+            Me.txtPruefgegenstand.Text = ""
+            Me.txtMassnahmen.Text = ""
+            Me.txtEreignisse.Text = ""
+            Me.txtHilfsmittel.Text = ""
+            Me.txtVerantwortlich.Text = ""
+            Me.txtVerantwortungISI.Text = ""
+            Me.txtAktuellVerantwortlich.Text = ""
+            Me.txtTermin.Text = ""
+            Me.txtZugewiesen.Text = ""
+            Me.txtErstelltam.Text = ""
+            Me.txtMutiertam.Text = ""
+            Me.txtMutierer.Text = ""
+
+            Me.txtBezeichnung.Text = Me.C1Daten.Columns("Bezeichnung").Value
+            Me.txtBeschreibung.Text = Me.C1Daten.Columns("Beschreibung").Value
+            Me.txtPruefgegenstand.Text = Me.C1Daten.Columns("Pruefgegenstand").Value
+            Me.txtMassnahmen.Text = Me.C1Daten.Columns("Massnahmen").Value
+            Me.txtEreignisse.Text = Me.C1Daten.Columns("Ergebnisse").Value
+            Me.txtHilfsmittel.Text = Me.C1Daten.Columns("Hilfsmittel").Value
+
+            Me.txtVerantwortlich.Text = Me.C1Daten.Columns("Hauptverantwortung").Value
+            Me.txtAktuellVerantwortlich.Text = Me.C1Daten.Columns("aktuell_verantwortlich").Value
+            Me.txtVerantwortungISI.Text = Me.C1Daten.Columns("Verantwortung_isi").Value
+            Me.txtZugewiesen.Text = Me.C1Daten.Columns("Zugewiesen").Value
+            Me.txtErstelltam.Text = Me.C1Daten.Columns("erstellt_am").Value
+            Me.txtMutiertam.Text = Me.C1Daten.Columns("mutiert_am").Value
+            Me.txtMutierer.Text = Me.C1Daten.Columns("mutierer").Value
+
+            Me.txtTermin.Text = Me.C1Daten.Columns("Termin").Value
+        Catch ex As Exception
+            'MsgBox(ex.Message)
+        End Try
+
+    End Sub
+    Private Sub TSBtnQuit_Click(sender As Object, e As EventArgs) Handles TSBtnQuit.Click
+        Me.Close()
+    End Sub
+
+    Private Sub WeiterleitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles WeiterleitenToolStripMenuItem.Click
+        Try
+            Dim f As New frmWeitergabe(Me.C1Daten.Columns("MassnahmeNr").Value)
+            f.ShowDialog()
+            If f.DialogResult = DialogResult.OK Then
+                Dim clsnotiz As New clsPruefschrittNotiz
+                clsnotiz.Add_New()
+                clsnotiz.sNotiz = New SqlTypes.SqlString(CType(f.txtNotiz.Text, String))
+                clsnotiz.iPruefschrittnr = New SqlTypes.SqlInt32(CType(C1Daten.Columns("MassnahmeNr").Value, Int32))
+                clsnotiz.Save_Data()
+                clsnotiz = Nothing
+
+                Dim History As New clsHistory
+                History.Insert_History(C1Daten.Columns("massnahmenr").Value, 1, Globals.clsmitarbeiter.iMitarbeiternr.Value, f.cbboxmitarbeiter.SelectedValue)
+                History.Dispose()
+
+                Me.Massnahme.Get_Data(C1Daten.Columns("MassnahmeNr").Value)
+                Me.Massnahme.iAktueller_Verantwortlicher = New SqlTypes.SqlInt32(CType(f.cbboxmitarbeiter.SelectedValue, Int32))
+                Me.Massnahme.iStatusNr = New SqlTypes.SqlInt32(CType(2, Int32))
+                Me.Massnahme.Save_Data()
+                Refresh_All()
+
+            End If
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+
+    End Sub
+
+    Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
+        Refresh_All()
+    End Sub
+
+    Private Sub C1Notiz_RowColChange(sender As Object, e As RowColChangeEventArgs) Handles C1Notiz.RowColChange
+        Me.txtnotiz.Text = ""
+        Try
+            Me.txtnotiz.Text = Me.C1Notiz.Columns("Notiz").Value
+        Catch ex As Exception
+
+        End Try
+    End Sub
+
+    Private Sub BearbeitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BearbeitenToolStripMenuItem.Click
+        Dim f As New MassnahmeDetailBearbeitung
+        f.Massnahmenr = C1Daten.Columns("massnahmenr").Value
+        f.MdiParent = Me.MdiParent
+        f.Handler = Me.Handle
+        f.Show()
+
+    End Sub
+
+    Private Sub C1Daten_DoubleClick(sender As Object, e As EventArgs) Handles C1Daten.DoubleClick
+        Try
+            BearbeitenToolStripMenuItem_Click(sender, e)
+        Catch ex As Exception
+
+        End Try
+    End Sub
+
+    Private Sub tsbtnFindingBearbeiten_Click(sender As Object, e As EventArgs) Handles tsbtnPruefschrittbearbeiten.Click
+        Try
+            Me.C1Daten_DoubleClick(sender, e)
+        Catch
+        End Try
+
+    End Sub
+
+    Private Sub evh_pruefschrittresultat_closed(handler As Integer, key As Integer) Handles evh.pruefschrittresultat_closed
+        Try
+            If Me.Handle = handler Then Refresh_All()
+        Catch
+        End Try
+    End Sub
+
+    Private Sub evh_Pruefschrittresultat_saved(handler As Integer, key As Integer) Handles evh.Pruefschrittresultat_saved
+        Try
+            If Me.Handle = handler Then Refresh_All()
+        Catch
+        End Try
+    End Sub
+
+    Private Sub ctxMenuPruefschritt_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ctxMenuPruefschritt.Opening
+        If Me.C1Daten.Splits(0).Rows.Count < 1 Then
+            Me.ctxMenuPruefschritt.Visible = False
+        Else
+            Me.ctxMenuPruefschritt.Visible = True
+        End If
+
+        Me.BearbeitenToolStripMenuItem.Enabled = False
+        Me.WeiterleitenToolStripMenuItem.Enabled = False
+        Me.AbschliessenToolStripMenuItem.Enabled = False
+
+
+
+        'Prüfung abgeschlossen
+        If Me.TreeUebersicht.SelectedNode.Tag < 4 Then
+            Me.BearbeitenToolStripMenuItem.Enabled = True
+            Me.WeiterleitenToolStripMenuItem.Enabled = True
+            Me.AbschliessenToolStripMenuItem.Enabled = True
+        End If
+    End Sub
+
+    Private Sub AnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AnzeigenToolStripMenuItem.Click
+        Dim f As New MassnahmeDetailBearbeitung
+        f.Massnahmenr = C1Daten.Columns("massnahmenr").Value
+        f.MdiParent = Me.MdiParent
+        f.Handler = Me.Handle
+        f.IsReadonly = True
+        f.Show()
+    End Sub
+
+    Private Sub AbschliessenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AbschliessenToolStripMenuItem.Click
+        If MsgBox("Ist die Massnahme definitiv abgeschlossen?", vbYesNo + vbQuestion) = MsgBoxResult.Yes Then
+            Massnahme.Get_Data(Me.C1Daten.Columns("PruefschrittNr").Value)
+            Dim f As New frmWeitergabe(Me.Massnahme.iMassnahmeNr, Me.Massnahme.iVerantwortungIsINr)
+            f.ShowDialog()
+            If f.DialogResult = DialogResult.OK Then
+
+                Me.Massnahme.iAktueller_Verantwortlicher = New SqlTypes.SqlInt32(CType(f.cbboxmitarbeiter.SelectedValue, Int32))
+                Me.Massnahme.iStatusNr = 5
+                Me.Massnahme.Save_Data()
+
+                Dim History As New clsHistory
+                History.Insert_History(C1Daten.Columns("massnahmenr").Value, 1, Globals.clsmitarbeiter.iMitarbeiternr.Value, f.cbboxmitarbeiter.SelectedValue)
+                History.Dispose()
+
+
+                Me.Refresh_All()
+            End If
+        End If
+
+    End Sub
+
+    Private Sub tsBtnSearchStruktur_Definition_Click(sender As Object, e As EventArgs) Handles tsBtnSearchStruktur_Definition.Click
+
+    End Sub
+End Class