QR App

Aviso/usrcntlAktDetails.vb

@@ -350,7 +350,6 @@ Public Class usrcntlAktDetails
         '  btnLkwBeleg.Visible = False
         btnAktAbschliessen.Visible = False
         btnAktAbschliessen.BackColor = Color.DarkGreen
-
         lblBarZuKassierenSumme.Visible = False
 
         Select Case AVISO.Status
@@ -393,9 +392,12 @@ Public Class usrcntlAktDetails
             pnlAbgeschlossen.Visible = True
             btnAktAbschliessen.Visible = False
             '  btnLkwBeleg.Visible = False
+            btnQRVerwahrung.Visible = False
+
         Else
             pnlAbgeschlossen.Visible = False
             '   btnAktAbschliessen.Visible = True
+            btnQRVerwahrung.Visible = True
         End If
 
         intiAktUebernehmenBtn()
@@ -3856,6 +3858,7 @@ Public Class usrcntlAktDetails
 
         Dim rpt As New rptQRSendung_VerwahrungApp(AVISO, SND)
         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)