Update 20240102

DPM2016/Behandlung/Behandlung.vb

@@ -205,6 +205,8 @@ Public Class Behandlung
 
 
     Sub Get_Behandlungen()
+        'Me.SuperTabControl1.TabsVisible = False
+        'Me.SuperTabControl1.Visible = False
         DB.Get_Tabledata("Behandlu", " where aktiv=1 and nrpatient=" + Me.PatientNr.ToString + " order by status, behandlungsbeginn desc")
         Me.treebehandlungen.Nodes.Clear()
 
@@ -330,6 +332,11 @@ Public Class Behandlung
         If Auftragsmanagement = True Then
             Me.treebehandlungen.ContextMenuStrip = Me.ctxMenuAuftragsamanagement
         End If
+        If Globals.DruckBranche Then
+            Me.SuperTabControl1.SelectedTabIndex = 0
+        End If
+        'Me.SuperTabControl1.Visible = True
+        'Me.SuperTabControl1.TabsVisible = True
 
 
     End Sub
@@ -1145,7 +1152,12 @@ Public Class Behandlung
             Dim tn As DevComponents.AdvTree.Node
             tn = Globals.FindNode(Me.treebehandlungen.Nodes, behandlungsnummer, behandlungsnummer)
             Try
-                tn.Text = Me.Behandungdetail1.DDTBehandlungsbeginn.Text + " / " + Me.Behandungdetail1.txtcTotal.Text
+                If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
+                    tn.Text = Me.Behandungdetail1.txtBehandlungsgrund.Text + " / " + Me.Behandungdetail1.txtcTotal.Text
+                Else
+                    tn.Text = Me.Behandungdetail1.DDTBehandlungsbeginn.Text + " / " + Me.Behandungdetail1.txtcTotal.Text
+
+                End If
             Catch
             End Try
         End If