neu

Gemeinsames/rptSendungen.vb

@@ -148,6 +148,9 @@ Public Class rptSendungen
             cbxDyUebermittelt.Visible = True
         End If
 
+        If VALUES.SchnellAbfertigung Then
+            txtSchnellAbfertigung.Visible = True
+        End If
 
         Select Case VALUES.ABF_ART
             Case 5, 6
@@ -323,4 +326,5 @@ Public Class rptSendungenValues
     Property Grenze As String = ""
     Property DyUebermittelt As Boolean = False
 
+    Property SchnellAbfertigung As Boolean = False
 End Class