hf

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>

Aviso/frmHauptfenster.vb

@@ -5125,6 +5125,7 @@ Public Class AvisoStatusFunctions
     Public Function printQR_CODE(aviso As VERAG_PROG_ALLGEMEIN.cAviso) As Boolean
         If aviso Is Nothing Then Return False
 
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "ATILLA" Then
             Select Case aviso.Grenzstelle
                 Case "NEU", "DTB", "NKN"
                     Dim rpt As New rptQRSendung_VerwahrungApp(aviso, Nothing)
@@ -5138,6 +5139,7 @@ Public Class AvisoStatusFunctions
                     ' End If
             End Select
 
+        End If
         Return False
     End Function
     Public Function setAnkunft(AvisoID) As Boolean