Update 29.8.22

DPM2016/Behandlung/Leistungen.vb

@@ -779,6 +779,7 @@ Public Class Leistungen
 
     Private Sub BtnInsertLeistung_Click(sender As Object, e As EventArgs) Handles BtnInsertLeistung.Click
         Leistung_Einfuegen()
+        update_lagerbesatnd()
     End Sub
 
     Private Sub diwert_KeyDown(sender As Object, e As KeyEventArgs) Handles txtPosition.KeyDown, txtBezD.KeyDown, diwert.KeyDown, DIPunkte.KeyDown, DIMenge.KeyDown
@@ -787,6 +788,7 @@ Public Class Leistungen
 
             If sender.name = "txtPosition" Then Me.txtPosition_TextChanged(sender, e)
             Leistung_Einfuegen()
+            update_lagerbesatnd()
             Me.txtPosition.Focus()
             Me.txtPosition.SelectAll()
         End If