QR Verwahrunf Fahrer

Aviso/usrcntlAktDetails.vb

@@ -2247,7 +2247,7 @@ Public Class usrcntlAktDetails
     End Sub
 
     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnOptionen.Click
-        pnlOptionen.Height = 250 '220 '183 '157 '125
+        pnlOptionen.Height = 315 '250 '220 '183 '157 '125
         pnlOptionen.Visible = Not pnlOptionen.Visible
 
         If pnlOptionen.Visible Then pnlOptionen.Location = New Point(pnlOptionen.Location.X, btnOptionen.Height + pnl.Height + FlowLayoutPanel.Height)
@@ -3847,5 +3847,25 @@ Public Class usrcntlAktDetails
 
     End Sub
 
+    Private Sub Button1_Click_2(sender As Object, e As EventArgs) Handles Button1.Click, Button8.Click, btnQRVerwahrung.Click
+        Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = Nothing
+
+        If dgvSendungen.SelectedRows.Count > 0 Then
+            SND = New VERAG_PROG_ALLGEMEIN.cSendungen(dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value)
+        End If
+
+        Dim rpt As New rptQRSendung_VerwahrungApp(AVISO, SND)
+        Dim printer = VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_BON
+        If printer = "" Then printer = SDL.cProgramFunctions.getDruckernameBySearch("INFO", True)
+
+
+        If sender Is Button8 OrElse printer = "" Then
+            SDL.cProgramFunctions.showRpt(rpt, "AVISO", False)
+        Else
+            SDL.cProgramFunctions.printRpt(rpt, printer, True)
+        End If
+
+    End Sub
+
 End Class