neu

Gemeinsames/rptSendungen.vb

@@ -1,9 +1,10 @@
 Imports GrapeCity.ActiveReports 
 Imports GrapeCity.ActiveReports.Document 
 
-Public Class rptSendungen 
+Public Class rptSendungen
     Public VALUES As New rptSendungenValues
     Public imgPath As String
+    Public ZOLLANMELDUNG As DAKOSY_Worker.cZollsysteme_Aktenbeschriftung = Nothing
 
     Sub New()
 
@@ -14,10 +15,11 @@ Public Class rptSendungen
 
     End Sub
 
-    Sub New(VALUES As rptSendungenValues, imgPath As String)
+    Sub New(VALUES As rptSendungenValues, imgPath As String, ZOLLANMELDUNG As DAKOSY_Worker.cZollsysteme_Aktenbeschriftung)
         InitializeComponent()
         Me.VALUES = VALUES
         Me.imgPath = imgPath
+        Me.ZOLLANMELDUNG = ZOLLANMELDUNG
         init()
     End Sub
 
@@ -163,6 +165,13 @@ Public Class rptSendungen
                 SubReport.Report = s
             End If
         End If
+        If True Then
+            If ZOLLANMELDUNG IsNot Nothing Then
+                Dim s = New subRptSendungenZollpruefung(ZOLLANMELDUNG)
+                SubReport.Report = s
+            End If
+        End If
+
 
     End Sub