hf

Aviso/frmHauptfenster.vb

@@ -5125,19 +5125,21 @@ Public Class AvisoStatusFunctions
     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 VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "ATILLA" Then
+            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
+                    'If printer = "" Then
+                    SDL.cProgramFunctions.printRpt(rpt, printer, True)
+                    Return True
+                    ' End If
+            End Select
 
+        End If
         Return False
     End Function
     Public Function setAnkunft(AvisoID) As Boolean