Qualitaetskontrolle, Barbelege + Qualitätskontrolle, ProgrammID wird nun beim start korrekt geladen, etc.

SDL/kassenbuch/frmBelegNeu.vb

@@ -96,6 +96,43 @@ Public Class frmBelegNeu
         If print Then allowPrint = True : btnPrint.PerformClick()
     End Sub
 
+    Public Sub AddPositions(dgv As DataGridView, print As Boolean)
+
+        '   Dim anz = IIf(IsNumeric(txtAnzahl.Text), txtAnzahl.Text, 1)
+        Dim p As EABelegPositionen
+
+        cboSteuerschlüssel.changeItem(2512)
+
+        For Each r As DataGridViewRow In dgv.Rows
+            If r.Cells("Betrag").Value <> 0 Then
+
+                p = New EABelegPositionen
+                p.Mandant = PERSONAL.Mandant
+                p.Niederlassung = PERSONAL.Niederlassung
+                p.Benutzer = PERSONAL.ID
+                'p.Benutzer = BenutzerNr
+                p.BelegDat = Now
+                p.BelegNr = BELEG.BelegNr
+                p.PreislistenNr = 4
+                p.PreislistenPos = 19
+                p.LeistungsNr = 800
+
+                p.LeistungsBez = "QK-Gebühren " & r.Cells("Art").Value
+                p.Leistungsbeschreibung = "QK-Gebühren " & r.Cells("Art").Value
+
+                p.Preis = r.Cells("Betrag").Value
+                p.Abfertigungsart = 0
+                p.Anzahl = IIf(IsNumeric(txtAnzahl.Text), txtAnzahl.Text, 1)
+                p.Betrag = p.Anzahl * p.Preis
+                BELEG.POS.Add(p)
+            End If
+
+        Next
+
+        initDGVBelegPos()
+        If print Then allowPrint = True : btnPrint.PerformClick()
+    End Sub
+
 
     Public Function AddLeihgeld(print As Boolean, BELEG_TMP As EABeleg, POS_ADD As List(Of EABelegPositionen)) As Boolean
         BELEG = BELEG_TMP