Initial commit

EDOKA_Toolset/Plugin_Aufhebung/Form.vb

@@ -0,0 +1,77 @@
+Imports System.Windows.Forms
+
+Public Class Form
+    Dim d As New edokadb.clsMyDokumentart
+    Dim dbconn As New DB_Connection
+    Dim db As New DB
+
+    Private Sub Form_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        d.Load_Neue_Dokumente_Vollstaendig(Me.TreeDokVorlagen, "", False, 0)
+        Dim tn As New TreeNode
+        Try
+            tn = FindNode(Me.TreeDokVorlagen.Nodes, 0, "Einzeldokumente")
+            TreeDokVorlagen.Nodes.Remove(tn)
+        Catch ex As Exception
+        End Try
+        Me.TreeDokVorlagen.ExpandAll()
+        Me.TreeDokVorlagen.SelectedNode = Me.TreeDokVorlagen.Nodes(0)
+        Me.TreeDokVorlagen.SelectedNode.EnsureVisible()
+    End Sub
+
+    Public Function FindNode(ByVal _nodeCollection As TreeNodeCollection, ByVal SearchVal As Integer, ByVal SearchString As String) As TreeNode
+        Dim tmpNode As TreeNode
+        For Each _child As TreeNode In _nodeCollection
+            If _child.Text = SearchString Then
+
+                Return _child
+            End If
+            ' If InStr(UCase(_child.Text), UCase(SearchString)) > 0 Then
+            ' Return _child
+            ' End If
+            tmpNode = FindNode(_child.Nodes, SearchVal, SearchString)
+            If Not tmpNode Is Nothing Then
+                Return tmpNode
+            End If
+        Next
+        Return Nothing
+    End Function
+
+    Private Function TagValue(ByVal tag As String) As String
+        Dim Keyvalue As String
+        Keyvalue = tag
+        Return Keyvalue.Substring(3, Len(Keyvalue) - 3)
+    End Function
+
+    Private Sub TreeDokVorlagen_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles TreeDokVorlagen.AfterSelect
+        Me.C1DokumenttypFunktionen.DataSource = Nothing
+        db.Get_Dokumenttyp_Funktionsgruppe(TagValue(Me.TreeDokVorlagen.SelectedNode.Tag))
+        Me.C1DokumenttypFunktionen.DataSource = db.dsdaten1.Tables(0)
+        Me.C1DokumenttypFunktionen.DataMember = db.dsdaten1.Tables(0).TableName
+
+    End Sub
+
+    Private Sub btnsuche_Click(sender As Object, e As EventArgs) Handles btnsuche.Click
+        dokumentvorlage_suchen()
+    End Sub
+
+    Private Sub txtSuchbegriff_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtSuchbegriff.KeyDown
+        If e.KeyCode = Keys.KeyCode.Return Then
+            dokumentvorlage_suchen()
+        End If
+    End Sub
+
+    Private Sub dokumentvorlage_suchen()
+        Me.TreeDokVorlagen.BeginUpdate()
+        Dim d As New edokadb.clsMyDokumentart()
+        d.Load_Neue_Dokumente_Vollstaendig(Me.TreeDokVorlagen, Me.txtSuchbegriff.Text, False, 0)
+        d.Dispose()
+        Me.TreeDokVorlagen.ExpandAll()
+        'Me.txtSuchbegriff.Text = ""
+        Me.TreeDokVorlagen.EndUpdate()
+        Try
+            Me.TreeDokVorlagen.SelectedNode = Me.TreeDokVorlagen.Nodes(0)
+        Catch
+        End Try
+    End Sub
+
+End Class