essensbestellungen, etc.

SDL/Fakturierung/rptSammelRechnungAnlagenDruck_Leistungen.vb

@@ -6,12 +6,23 @@ Public Class rptSammelRechnungAnlagenDruck_Leistungen
     Dim _LAN = ""
     Dim RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang = Nothing
     Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
-    Sub New(_LAN As String, RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, VorschauID As String)
+    Dim isZNB As Boolean
+    Dim LeistungsText As String
+    Dim Anzahl As Integer
+    Dim SteuerpflichtigerBetrag As Double
+    Dim SteuerfreierBetrag As Double
+
+    Sub New(_LAN As String, RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, VorschauID As String, Optional isZNB As Boolean = False, Optional LeistungsText As String = "", Optional Anzahl As Integer = 0, Optional SteuerpflichtigerBetrag As Double = 0, Optional SteuerfreierBetrag As Double = 0)
         ' Dieser Aufruf ist f<>r den Designer erforderlich.
         InitializeComponent()
         Me._LAN = _LAN
         Me.RECHNUNG = RECHNUNG
         Me.VorschauID = VorschauID
+        Me.isZNB = isZNB
+        Me.LeistungsText = LeistungsText
+        Me.Anzahl = Anzahl
+        Me.SteuerpflichtigerBetrag = SteuerpflichtigerBetrag
+        Me.SteuerfreierBetrag = SteuerfreierBetrag
         ' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
     End Sub
     Private Sub rptRechnungDruck_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
@@ -52,16 +63,22 @@ Public Class rptSammelRechnungAnlagenDruck_Leistungen
         dt.Columns.Add("clmnLeistungsNr")
 
         RECHNUNG.ORDER_POSITIONEN()
-
-        For Each POS In RECHNUNG.POSITIONEN
-            If VorschauID = "PROVISIONSABRECHNUNG" Then
-                If CBool(SQL.DLookup("Abfertigungskosten", "Leistungen", "LeistungsNr='" & POS.LeistungsNr & "'", "FMZOLL")) Then
+        If Not isZNB Then
+            For Each POS In RECHNUNG.POSITIONEN
+                If VorschauID = "PROVISIONSABRECHNUNG" Then
+                    If CBool(SQL.DLookup("Abfertigungskosten", "Leistungen", "LeistungsNr='" & POS.LeistungsNr & "'", "FMZOLL")) Then
+                        dt.Rows.Add(POS.LeistungsBez, POS.SteuerfreierBetrag, POS.SteuerpflichtigerBetrag, POS.Anzahl, POS.LeistungsNr)
+                    End If
+                Else
                     dt.Rows.Add(POS.LeistungsBez, POS.SteuerfreierBetrag, POS.SteuerpflichtigerBetrag, POS.Anzahl, POS.LeistungsNr)
                 End If
-            Else
-                dt.Rows.Add(POS.LeistungsBez, POS.SteuerfreierBetrag, POS.SteuerpflichtigerBetrag, POS.Anzahl, POS.LeistungsNr)
-            End If
-        Next
+            Next
+
+        Else
+
+            dt.Rows.Add(LeistungsText, SteuerfreierBetrag, SteuerpflichtigerBetrag, Anzahl, 950)
+        End If
+
 
         Me.DataSource = dt