QR-Druck bei Ankunft

Aviso/frmHauptfenster.vb

@@ -5114,6 +5114,24 @@ Public Class AvisoStatusFunctions
         Next
     End Sub
 
+    Public Function printQR_CODE(aviso As VERAG_PROG_ALLGEMEIN.cAviso) As Boolean
+        If aviso Is Nothing Then Return False
+
+        Select Case aviso.Grenzstelle
+            Case "NEU", "DTB", "NKN"
+                Dim rpt As New rptQRSendung_VerwahrungApp(aviso, Nothing)
+                Dim printer = VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_BON
+                If printer = "" Then printer = SDL.cProgramFunctions.getDruckernameBySearch("BON", True)
+                If printer = "" Then printer = SDL.cProgramFunctions.getDruckernameBySearch("INFO", True)
+
+                If printer = "" Then
+                    SDL.cProgramFunctions.printRpt(rpt, printer, True)
+                    Return True
+                End If
+        End Select
+
+        Return False
+    End Function
     Public Function setAnkunft(AvisoID) As Boolean
 
         If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
@@ -5219,6 +5237,8 @@ Public Class AvisoStatusFunctions
         End If
 
 
+        'Verwahrungs-Ticket Drucken, wenn parameter 
+        printQR_CODE(Aviso)
         'Ticket Drucken, wenn parameter 
         If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("TICKET_ANKUNFT") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("TICKET_ANKUNFT", "AVISO") Then
             Dim rpt As New rptQRAviso(Aviso)