20200108

Gemeinsames/rptSendungen.vb

@@ -5,6 +5,7 @@ Public Class rptSendungen
     Public VALUES As New rptSendungenValues
     Public imgPath As String
     Public ZOLLANMELDUNG As DAKOSY_Worker.cZollsysteme_Aktenbeschriftung = Nothing
+    Public HANDLING As List(Of VERAG_PROG_ALLGEMEIN.cSendHandling) = Nothing
 
     Sub New()
 
@@ -15,11 +16,12 @@ Public Class rptSendungen
 
     End Sub
 
-    Sub New(VALUES As rptSendungenValues, imgPath As String, ZOLLANMELDUNG As DAKOSY_Worker.cZollsysteme_Aktenbeschriftung)
+    Sub New(VALUES As rptSendungenValues, imgPath As String, ZOLLANMELDUNG As DAKOSY_Worker.cZollsysteme_Aktenbeschriftung, HANDLING As List(Of VERAG_PROG_ALLGEMEIN.cSendHandling))
         InitializeComponent()
         Me.VALUES = VALUES
         Me.imgPath = imgPath
         Me.ZOLLANMELDUNG = ZOLLANMELDUNG
+        Me.HANDLING = HANDLING
         init()
     End Sub
 
@@ -104,6 +106,13 @@ Public Class rptSendungen
         txtEmpfaenger_eigBIN.Text = VALUES.Empfaenger_eigBIN
         txtAbsender_eigBIN.Text = VALUES.Absender_eigBIN
         txtFrachtfuehrer_eigBIN.Text = VALUES.Frachtfuehrer_eigBIN
+
+        txtAvisierer_VK.Text = VALUES.Avisierer_VK
+        txtAuftraggeber_VK.Text = VALUES.Auftraggeber_VK
+        txtEmpfaenger_VK.Text = VALUES.Empfaenger_VK
+        txtAbsender_VK.Text = VALUES.Absender_VK
+        txtFrachtfuehrer_VK.Text = VALUES.Frachtfuehrer_VK
+
         txtLKWKennzeichen.Text = VALUES.LKWKennzeichen
         txtAnkunft.Text = VALUES.Ankunft
         txtAbfahrt.Text = VALUES.Abfahrt
@@ -165,14 +174,16 @@ 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
 
 
+        If ZOLLANMELDUNG IsNot Nothing Then
+            Dim s = New subRptSendungenZollpruefung(ZOLLANMELDUNG)
+            SubReport.Report = s
+        ElseIf HANDLING IsNot Nothing Then
+            Dim s = New subRptSendungenATA(HANDLING)
+            SubReport.Report = s
+        End If
+
     End Sub
 
     Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
@@ -276,6 +287,11 @@ Public Class rptSendungenValues
     Property Empfaenger_eigBIN As String = ""
     Property Absender_eigBIN As String = ""
     Property Frachtfuehrer_eigBIN As String = ""
+    Property Avisierer_VK As String = ""
+    Property Auftraggeber_VK As String = ""
+    Property Empfaenger_VK As String = ""
+    Property Absender_VK As String = ""
+    Property Frachtfuehrer_VK As String = ""
     Property LKWKennzeichen As String = ""
     Property Ankunft As String = ""
     Property Abfahrt As String = ""