shu/DPM_PADM
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Update Korrektur QR-Verarbeitung

Browse Source
This commit is contained in:
Stefan Hutter
2022-12-20 23:19:28 +01:00
parent 971afb5716
commit 35df876d21
181 changed files with 20085 additions and 19423 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
DPM2016/Reporting/frmReportView.vb
View File

@@ -3,6 +3,7 @@ Imports Syncfusion.Pdf
Imports Syncfusion.XPS
Imports QRCoder
Imports QRCoder.PayloadGenerator
Imports System.IO
Public Class frmReportView
Dim splitter() As String
@@ -84,6 +85,15 @@ Public Class frmReportView
db.Get_Tabledata("Auswertung", "where Auswertungnr=" + Me.ReportNr.ToString)
kopien = db.dsDaten.Tables(0).Rows(0).Item("Kopien")
freport = New FastReport.Report
'20221108 - Fonts
'Dim fonts = Directory.GetFiles(Application.StartupPath + "\Fonts")
'For Each F As String In fonts
' FastReport.Utils.Config.PrivateFontCollection.AddFontFile(F)
'Next
'FastReport.Utils.Config.FontListFolder = Application.StartupPath + "\Fonts"
''20221108 Ende
Dim FILENAME As String = db.get_reportdata(Me.ReportNr, Parameter)
db.Get_RptDatei((Me.ReportNr), FILENAME)
@@ -264,6 +274,7 @@ Public Class frmReportView
pdfexport.Compressed = UCase(db.Get_Option(50000)) = "TRUE"
pdfexport.AllowPrint = UCase(db.Get_Option(50002)) = "TRUE"
pdfexport.TextInCurves = UCase(db.Get_Option(50001)) = "TRUE"
pdfexport.EmbeddingFonts = True
'pdfexport.Compressed = False
'pdfexport.AllowPrint = True
'pdfexport.EmbeddingFonts = True
@@ -290,6 +301,15 @@ Public Class frmReportView
db.Get_Tabledata("Auswertung", "where Auswertungnr=" + Me.ReportNr.ToString)
kopien = db.dsDaten.Tables(0).Rows(0).Item("Kopien")
freport = New FastReport.Report
'20221108 - Fonts
'Dim fonts = Directory.GetFiles(Application.StartupPath + "\Fonts")
'For Each F As String In fonts
' FastReport.Utils.Config.PrivateFontCollection.AddFontFile(F)
'Next
'FastReport.Utils.Config.FontListFolder = Application.StartupPath + "\Fonts"
''20221108 Ende
Dim FILENAME As String = db.get_reportdata(Me.ReportNr, Parameter)
db.Get_RptDatei((Me.ReportNr), FILENAME)
@@ -487,7 +507,8 @@ Public Class frmReportView
pdfexport.Compressed = UCase(db.Get_Option(50000)) = "TRUE"
pdfexport.AllowPrint = UCase(db.Get_Option(50002)) = "TRUE"
pdfexport.TextInCurves = UCase(db.Get_Option(50001)) = "TRUE"
'pdfexport.EmbeddingFonts = True
'pdfexport.PdfCompliance = FastReport.Export.Pdf.PDFExport.PdfStandard.PdfX_4
'pdfexport.Compressed = False
'pdfexport.AllowPrint = True
' pdfexport.EmbeddingFonts = True
@@ -521,7 +542,7 @@ Public Class frmReportView
pdfexport.Compressed = UCase(db.Get_Option(50000)) = "TRUE"
pdfexport.AllowPrint = UCase(db.Get_Option(50002)) = "TRUE"
pdfexport.TextInCurves = UCase(db.Get_Option(50001)) = "TRUE"
pdfexport.EmbeddingFonts = True
' pdfexport.Compressed = False
'pdfexport.AllowPrint = True
'pdfexport.EmbeddingFonts = True