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