edv/AVISO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Paper Verwahrunf QR

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-04-13 13:16:01 +02:00
parent 6b2e60a3a2
commit 101b33759b
2 changed files with 22 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Aviso/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("4.2.5.9")> <Assembly: AssemblyVersion("4.2.6.0")>
<Assembly: AssemblyFileVersion("4.2.5.9")> <Assembly: AssemblyFileVersion("4.2.6.0")>

33
Aviso/usrcntlAktDetails.vb
View File

@@ -3717,23 +3717,30 @@ Public Class usrcntlAktDetails
End Sub End Sub
Private Sub Button1_Click_2(sender As Object, e As EventArgs) Handles Button1.Click, Button8.Click, btnQRVerwahrung.Click 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 Try
If dgvSendungen.SelectedRows.Count > 0 Then Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = Nothing
SND = New VERAG_PROG_ALLGEMEIN.cSendungen(dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value)
End If
Dim rpt As New rptQRSendung_VerwahrungApp(AVISO, SND) If dgvSendungen.SelectedRows.Count > 0 Then
Dim printer = VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_BON SND = New VERAG_PROG_ALLGEMEIN.cSendungen(dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value)
If printer = "" Then printer = SDL.cProgramFunctions.getDruckernameBySearch("BON", True) End If
If printer = "" Then printer = SDL.cProgramFunctions.getDruckernameBySearch("INFO", True)
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)
If sender Is Button8 OrElse printer = "" Then rpt.Document.Printer.PaperKind = Printing.PaperKind.Custom
SDL.cProgramFunctions.showRpt(rpt, "AVISO", False)
Else If sender Is Button8 OrElse printer = "" Then
SDL.cProgramFunctions.printRpt(rpt, printer, True) SDL.cProgramFunctions.showRpt(rpt, "AVISO", False)
End If Else
SDL.cProgramFunctions.printRpt(rpt, printer, True)
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub End Sub