From 85b0db961abf787e6d375d4bb74b85174808f762 Mon Sep 17 00:00:00 2001
From: Andreas Luxbauer <al@verag.ag>
Date: Wed, 18 Dec 2024 14:30:44 +0100
Subject: [PATCH] hf

---
 Aviso/Aviso.vbproj       |  1 +
 Aviso/frmHauptfenster.vb | 24 +++++++++++++-----------
 2 files changed, 14 insertions(+), 11 deletions(-)

diff --git a/Aviso/Aviso.vbproj b/Aviso/Aviso.vbproj
index 1a0236c..35d2fde 100644
--- a/Aviso/Aviso.vbproj
+++ b/Aviso/Aviso.vbproj
@@ -1456,6 +1456,7 @@
     <EmbeddedResource Include="GVMS\frmGVMSNew.resx">
       <DependentUpon>frmGVMSNew.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="My Project\licenses.licx" />
     <EmbeddedResource Include="My Project\Resources.resx">
       <Generator>PublicVbMyResourcesResXFileCodeGenerator</Generator>
       <CustomToolNamespace>My.Resources</CustomToolNamespace>
diff --git a/Aviso/frmHauptfenster.vb b/Aviso/frmHauptfenster.vb
index 646f021..eb38260 100644
--- a/Aviso/frmHauptfenster.vb
+++ b/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