update 20231114

DPM2016/Patient/Patient.vb

@@ -141,7 +141,9 @@
     Private Sub tstxtsuche_KeyDown(sender As Object, e As KeyEventArgs) Handles tstxtsuche.KeyDown
         If e.KeyCode = Keys.Enter Then
             Dim db As New clsDB
-            Dim nrprivat As Integer = db.Search("Patient", Me.tstxtsuche.Text)
+            'Dim nrprivat As Integer = db.Search("Patient", Me.tstxtsuche.Text)
+            Dim nrprivat As Integer = db.Search("Behandlungsgrund", Me.tstxtsuche.Text)
+
             If nrprivat <> -1 Then Me.PatientNr = nrprivat
             If Me.SuperTabControl1.SelectedTab.Name = "Dokumente" Then
                 Me.ClsDokumente1.Patientnr = Me.PatientNr
@@ -354,9 +356,7 @@
         Me.Krankengeschichte1.Refresh_KG()
     End Sub
 
-    Private Sub ToolStrip1_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles ToolStrip1.ItemClicked
 
-    End Sub
 
     Private Sub Patient_TextChanged(sender As Object, e As EventArgs) Handles MyBase.TextChanged
         Create_temp_form()
@@ -387,6 +387,8 @@
     End Sub
 
     Private Sub tsrbprivat_Click(sender As Object, e As EventArgs) Handles tsrbprivat.Click
+        'If Globals.OnLoad Then Exit Sub
+        'Me.PatientNr = Me.PatientNr
         If tsrbprivat.Checked Then
             Me.SuperTabControl1.Tabs("Stammdaten").Visible = True
             Me.SuperTabControl1.Tabs("Stammdaten_Firma").Visible = False
@@ -396,8 +398,12 @@
     End Sub
 
     Private Sub tsrbunternehmen_Click(sender As Object, e As EventArgs) Handles tsrbunternehmen.Click
+        '-- If Globals.OnLoad Then Exit Sub
+        ' Me.PatientNr = Me.PatientNr
         Globals.is_stammdatenen_firma = False
+
         If tsrbunternehmen.Checked Then
+
             Globals.is_stammdatenen_firma = True
             'Me.PatientDetails1.chklbAdresstyp.Visible = False
             Me.SuperTabControl1.Tabs("Stammdaten").Visible = False
@@ -412,8 +418,8 @@
         End If
 
     End Sub
-
-    Private Sub ToolStripLabel1_Click(sender As Object, e As EventArgs) Handles ToolStripLabel1.Click
+    Private Sub ToolStrip1_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles ToolStrip1.ItemClicked
 
     End Sub
+
 End Class