Update 29.8.22

DPM2016/Behandlung/Behandlung.vb

@@ -540,6 +540,11 @@ Public Class Behandlung
         Get_Standards(r.Item("andrucken_taxpunkte"), "ANDRUCKENTAXPUNKTE")
         Get_Standards(r.Item("mitdatum"), "Mitdatum")
         Get_Standards(r.Item("rabattgesamt"), "RABATTGESAMT")
+        Try
+            Get_Standards(r.Item("nrgesetz"), "GESETZ")
+            Get_Standards(r.Item("verguetungsart"), "VERGUETUNGSART")
+        Catch
+        End Try
 
         db.dsDaten.Tables(0).Rows.Add(r)
         db.Update_Data()
@@ -621,6 +626,17 @@ Public Class Behandlung
                             o = dbs.dsDaten.Tables(0).Rows(0).Item(0)
                         End If
                     End If
+                Case "GESETZ"
+                    dbs.Get_Tabledata("Standards", "", "Select * from standards where eintragnr=6", "", False)
+                    If dbs.dsDaten.Tables(0).Rows.Count > 0 Then
+                        o = dbs.dsDaten.Tables(0).Rows(0).Item("Standardwert")
+                    End If
+                Case "VERGUETUNGSART"
+                    dbs.Get_Tabledata("Standards", "", "Select * from standards where eintragnr=7", "", False)
+                    If dbs.dsDaten.Tables(0).Rows.Count > 0 Then
+                        o = dbs.dsDaten.Tables(0).Rows(0).Item("Standardwert")
+                    End If
+
                 Case Else
             End Select
         Catch ex As Exception
@@ -651,6 +667,7 @@ Public Class Behandlung
             db.Update_Data()
             db.Dispose()
             Me.Get_Behandlungen()
+
         End If
     End Sub
 
@@ -667,6 +684,7 @@ Public Class Behandlung
     End Sub
 
     Private Sub BehandlungabschliessenToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles BehandlungabschliessenToolStripMenuItem1.Click
+        If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then Exit Sub
         Application.DoEvents()
         Me.ctxmenubehandlung.Close()
         ' If MsgBox("Behandlung/KV abschliessen?", vbYesNo + vbQuestion) = vbYes Then
@@ -682,7 +700,8 @@ Public Class Behandlung
     Private Sub BehandlunKopierenToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles BehandlungKopierenToolStripMenuItem.Click
         Dim s As String
         If Me.Auftragsmanagement = True Then
-            DB.Copy_Behandlung(Me.treebehandlungen.SelectedNode.Tag.ToString.ToString, 1)
+            DB.Copy_Behandlung(Me.treebehandlungen.SelectedNode.Tag.ToString.ToString, 2)
+            Get_Behandlungen()
             Exit Sub
         End If
         If BehandlungKopierenToolStripMenuItem.Text = "Kostenvoranschlag kopieren" Then