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 @@
frmGVMSNew.vb
+
PublicVbMyResourcesResXFileCodeGenerator
My.Resources
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