Provisionsabrechnung

SDL/Fakturierung/rptSammelRechnungAnlagenDruck_Leistungen.vb

@@ -2,13 +2,16 @@ Imports GrapeCity.ActiveReports
 Imports GrapeCity.ActiveReports.Document
 
 Public Class rptSammelRechnungAnlagenDruck_Leistungen
-    dim _LAN = ""
+    Dim VorschauID = ""
+    Dim _LAN = ""
     Dim RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang = Nothing
-    Sub New(_LAN As String, RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang)
+    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+    Sub New(_LAN As String, RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, VorschauID As String)
         ' Dieser Aufruf ist f<>r den Designer erforderlich.
         InitializeComponent()
         Me._LAN = _LAN
         Me.RECHNUNG = RECHNUNG
+        Me.VorschauID = VorschauID
         ' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
     End Sub
     Private Sub rptRechnungDruck_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
@@ -51,7 +54,13 @@ Public Class rptSammelRechnungAnlagenDruck_Leistungen
         RECHNUNG.ORDER_POSITIONEN()
 
         For Each POS In RECHNUNG.POSITIONEN
-            dt.Rows.Add(POS.LeistungsBez, POS.SteuerfreierBetrag, POS.SteuerpflichtigerBetrag, POS.Anzahl, POS.LeistungsNr)
+            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
         Next
 
         Me.DataSource = dt