neu

Aviso/usrcntlAktDetails.vb

@@ -2648,6 +2648,20 @@ Public Class usrcntlAktDetails
     Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click, Button15.Click
         pnlDetailsRechts.Cursor = Cursors.WaitCursor
 
+
+
+        ' Fahrer zum Zoll!
+        '------------------------------------------------
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("PRINT_zumZOLL") Then
+            If vbYes = MsgBox("Fahrer-Anweisung ""zum Zollamt gehen"" ausdrucken?", vbYesNo) Then
+                Try
+                    Dim path = SDL.FormularManagerNEU.zumZOLL_AVISO(AVISO)
+                    If path <> "" Then VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaGS(path, (New System.Drawing.Printing.PrinterSettings).PrinterName)
+                Catch ex As Exception : MsgBox(ex.Message & ex.StackTrace) : End Try
+            End If
+        End If
+        '------------------------------------------------
+
         Dim loadAttachRg = True ' (sender Is Button15)
 
         Dim ANH_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge)