Update 2024-01-10

DPM2016/Patient/Patient.vb

@@ -1,4 +1,7 @@
-Public Class Patient
+Imports DevComponents.DotNetBar
+Imports FlexCel.Core
+
+Public Class Patient
 
     Dim m_nrpatient As Integer
     Property PatientNr As Integer
@@ -132,7 +135,18 @@
         Try
             '    Globals.sec.Set_Form_Security(Me)
         Catch
+
         End Try
+        If Globals.DruckBranche Then
+            tsrbprivat.Visible = True
+            tsrbunternehmen.Visible = True
+        Else
+            tsrbunternehmen.Visible = False
+            tsrbprivat.Visible = False
+        End If
+
+
+
     End Sub
 
     Private Sub ToolStripButton6_Click(sender As Object, e As EventArgs) Handles tsbtnSave.Click
@@ -147,8 +161,12 @@
     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("Behandlungsgrund", Me.tstxtsuche.Text)
+            Dim nrprivat As Integer
+            If Globals.DruckBranche Then
+                nrprivat = db.Search("Behandlungsgrund", Me.tstxtsuche.Text)
+            Else
+                nrprivat = db.Search("Patient", Me.tstxtsuche.Text)
+            End If
 
             If nrprivat <> -1 Then Me.PatientNr = nrprivat
             If Me.SuperTabControl1.SelectedTab.Name = "Dokumente" Then