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

Update 20230215

Browse Source
This commit is contained in:
Stefan Hutter
2023-02-15 21:30:27 +01:00
parent 35df876d21
commit e83b2e6f35
179 changed files with 7274 additions and 7173 deletions
Download Patch File Download Diff File Expand all files Collapse all files

42
DPM2016/Reporting/frmReportView.vb
View File

@@ -66,19 +66,20 @@ Public Class frmReportView
db.Rechnung_buchen(1, daten.Tables("esdaten").Rows(0).Item("fakturanr"), rate, daten.Tables("behandlungsdaten").Rows(0).Item("nrbehandlung"), Betrag)
End Sub
Public Sub Mahnungg(ByVal Stufe As Integer, ByVal reportnr As String, ByVal nrbehandlung As Integer, ByVal Parameter As String, ByVal rate As Integer, Optional kopie As Integer = 0, Optional fakturanr As Integer = 0, Optional buchen As Boolean = True, Optional Preview As Boolean = False, Optional design As Boolean = False)
Public Sub Mahnungg(ByVal Stufe As Integer, ByVal reportnr As String, ByVal nrbehandlung As Integer, ByVal Parameter As String, ByVal rate As Integer, Optional kopie As Integer = 0, Optional fakturanr As Integer = 0, Optional buchen As Boolean = True, Optional Preview As Boolean = False, Optional design As Boolean = False, Optional aspdf As Boolean = False)
Me.ReportNr = reportnr
Me.Parameter = Parameter
Me.NrBehandlung = nrbehandlung
If Globals.FakturaNr <> 0 Then fakturanr = Globals.FakturaNr
Print_Mahnung(Stufe, Preview, design, rate, 1, fakturanr)
Print_Mahnung(Stufe, Preview, design, rate, 1, fakturanr, aspdf)
If Preview Then Exit Sub
If buchen = False Then Exit Sub
db.Mahnung_Buchen(fakturanr, Stufe, daten.Tables("esdaten"))
' rechnung_buchen(rate, daten.Tables("ESDaten").Rows(0).Item("Nur_Franken") + daten.Tables("ESDaten").Rows(0).Item("Nur_Rappen") / 100)
End Sub
Public Sub Print_Mahnung(ByVal Stufe As Integer, Optional vorschau As Boolean = False, Optional design As Boolean = False, Optional Rate As Integer = 0, Optional kopie As Integer = 0, Optional Fakturanr As Integer = 0)
Public Sub Print_Mahnung(ByVal Stufe As Integer, Optional vorschau As Boolean = False, Optional design As Boolean = False, Optional Rate As Integer = 0, Optional kopie As Integer = 0, Optional Fakturanr As Integer = 0, Optional aspdf As Boolean = False)
If Rate > 1 Then ReportNr = ReportNr + 1
Dim kopien As Integer = 1
@@ -243,6 +244,41 @@ Public Class frmReportView
freport.Preview = Me.previewControl1
freport.Show()
End If
If aspdf Then
If aspdf Then
Dim s As String = My.Settings.DocArchivPath + "\" + Now.ToString("yyyyddMMhhmmssfff") + "_" + Me.NrBehandlung.ToString
Dim xpsfilename As String = s + ".xps"
Dim pdffilename As String = s + ".pdf"
Dim imagefilename As String = s + ".jpg"
Dim rtffilename As String = s + ".rtf"
Dim pdfexport As New FastReport.Export.Pdf.PDFExport
pdfexport.ShowProgress = False
pdfexport.Subject = "Export"
pdfexport.Title = "Export"
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
'pdfexport.TextInCurves = True
'pdfexport.Compressed = True
'pdfexport.PdfCompliance = FastReport.Export.Pdf.PDFExport.PdfStandard.PdfA_2a
freport.Prepare()
freport.Export(pdfexport, s + ".PDF")
'Process.Start(s + ".pdf")
Dim pdfitem As New clspdfcollectionitem(Globals.FakturaNr.ToString, s + ".pdf")
Globals.pdfCollection.Add(pdfitem)
' Globals.pdfCollection.Add(s + ".pdf")
Exit Sub
End If
End If
If vorschau = False And design = False Then
Dim printer As New clsPrinter