neu

Gemeinsames/rptSendungen.vb

@@ -134,6 +134,7 @@ Public Class rptSendungen
         txtEmpfaenger_ZOLLKto.Text = VALUES.Empfaenger_ZOLLKto
         cbxDyUebermittelt.Checked = VALUES.DyUebermittelt
 
+        TextBox3.Text = "Abkl.: " & VALUES.QS_MA & vbNewLine & "Dekl.: " & VALUES.VG_MA
 
         If VALUES.Grenze.Trim <> "" Then
             lblGrenze.Visible = True
@@ -333,4 +334,8 @@ Public Class rptSendungenValues
     Property DyUebermittelt As Boolean = False
 
     Property SchnellAbfertigung As Boolean = False
+
+    Property VG_MA As String = ""
+    Property QS_MA As String = ""
+
 End Class