Sammelrechung, fakt, Kundenuebersicht

SDL/kunden/frmKundenUebersichtZollRgDetails.vb

@@ -6,7 +6,7 @@ Public Class frmKundenUebersichtZollRgDetails
     Dim RK_ID As Integer = -1
     Dim SQL As New SQL
 
-
+    Dim sammelrechnungskopie As Boolean
     Dim filialeTmp As String
     Dim abfertigungsNrTmp As String
 
@@ -16,6 +16,15 @@ Public Class frmKundenUebersichtZollRgDetails
         Me.RK_ID = RK_ID
         ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
 
+    End Sub
+
+    Sub New(RK_ID, Kopie)
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+        Me.RK_ID = RK_ID
+        Me.sammelrechnungskopie = Kopie
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
     End Sub
     Private Sub frmKundenUebersichtZollRg_Load(sender As Object, e As EventArgs) Handles Me.Load
         Dim dt As DataRow = SQL.loadDgvBySql("SELECT *, /*[SteuerpflichtigerGesamtbetrag]*[Steuersatz %]*/ SteuerpflichtigerGesamtbetrag/(1+[Steuersatz %])*[Steuersatz %] as ErgSteuerbetrag , [SteuerpflichtigerGesamtbetrag]+[SteuerfreierGesamtbetrag] as RgBetrag FROM Rechnungsausgang WHERE RK_ID = " & RK_ID & "", "FMZOLL").Rows(0)
@@ -77,10 +86,6 @@ Public Class frmKundenUebersichtZollRgDetails
         End With
 
 
-    End Sub
-
-    Private Sub pnl_Paint(sender As Object, e As PaintEventArgs) Handles pnl.Paint
-
     End Sub
 
     Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click
@@ -103,7 +108,6 @@ Public Class frmKundenUebersichtZollRgDetails
     End Sub
 
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
-        'cFakturierung.doRechnungsDruck(RK_ID,, True, 3)
-        cFakturierung.doRechnungsDruck_SRorER(RK_ID,, False, 3)
+        cFakturierung.doRechnungsDruck_SRorER(RK_ID,, False, 3,,,,, sammelrechnungskopie)
     End Sub
 End Class