Update 20240102

DPM2016/Utils/frmSuche.vb

@@ -82,6 +82,22 @@ Public Class frmSuche
                     End If
                 Case "Dokumente"
                     DokumentAnzeigenToolStripMenuItem_Click(sender, e)
+                Case "Freitext"
+                    Cursor = Cursors.WaitCursor
+                    Dim db As New clsDB
+                    db.Get_Tabledata("Behandlu", " where nrbehandlung=" & Key.ToString)
+                    Key = db.dsDaten.Tables(0).Rows(0).Item("nrpatient").ToString
+                    Dim nrbehandlung As Integer = db.dsDaten.Tables(0).Rows(0).Item("nrbehandlung").ToString
+                    Dim f As New Patient
+                    f.MdiParent = Me.MdiParent
+                    f.Show()
+                    f.PatientNr = Key
+                    f.Behandlung1.PatientNr = Key
+                    f.SuperTabControl1.SelectedTabIndex = 3
+                    f.Behandlung1.treebehandlungen.SelectedNode = Globals.FindNode(f.Behandlung1.treebehandlungen.Nodes, nrbehandlung, nrbehandlung)
+
+
+                    Cursor = Cursors.Default
             End Select
         Catch
         End Try
@@ -107,6 +123,10 @@ Public Class frmSuche
         If Globals.License.DMS = False Then
             Me.SuperTabControl1.Tabs(4).Visible = False
         End If
+        If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
+            Me.SuperTabItem1.Text = "Kunde"
+            Me.SuperTabItem2.Visible = False
+        End If
 
     End Sub
 
@@ -263,4 +283,16 @@ Public Class frmSuche
         End Try
 
     End Sub
+
+    Private Sub btnSucheFreitext_Click(sender As Object, e As EventArgs) Handles btnSucheFreitext.Click
+        Dim db As New clsDB
+        db.Get_Tabledata("Freitextsuche", "", db.Get_SQL(40), Me.txtsucheFreitext.Text)
+        Me.C1Daten.DataSource = Nothing
+        Me.C1Daten.DataSource = db.dsDaten.Tables(0)
+        Me.C1Daten.DataMember = db.dsDaten.Tables(0).TableName
+    End Sub
+
+    Private Sub txtsucheFreitext_KeyDown(sender As Object, e As KeyEventArgs) Handles txtsucheFreitext.KeyDown
+        If e.KeyCode = Keys.Enter Then btnSucheFreitext_Click(sender, e)
+    End Sub
 End Class