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

picture

Browse Source
This commit is contained in:
d.breimaier
2024-10-01 11:02:00 +02:00
parent a5921c5faf
commit 76fbf96823
13 changed files with 35 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb
View File

@@ -854,7 +854,7 @@ Public Class cFormularManager
Try
Dim DS As New cDATENSERVER(da_kategorie, da_ordner, da_uOrdner1, da_uOrdner2, da_uOrdner3, da_name)
If Not DS.hasITEMS Then Return ""
Dim path_src = DS.OPEN_SINGLE(False)
Dim path_src As String = DS.OPEN_SINGLE(False)
If path_src = "" Then Return ""
Dim fi As New System.IO.DirectoryInfo(path_src)
@@ -978,7 +978,7 @@ Public Class cFormularManager
Dim DS As New cDATENSERVER(da_kategorie, da_ordner, da_uOrdner1, da_uOrdner2, da_uOrdner3, da_name)
If Not DS.hasITEMS Then Return list
Dim path_src = DS.OPEN_SINGLE(False)
Dim path_src As String = DS.OPEN_SINGLE(False)
If path_src = "" Then Return list
Dim fi As New System.IO.DirectoryInfo(path_src)
@@ -1028,7 +1028,7 @@ Public Class cFormularManager
Public Function fillPDF(da_kategorie As String, da_ordner As String, da_uOrdner1 As String, da_uOrdner2 As String, da_uOrdner3 As String, da_name As String, listToWrite As List(Of cPDFWriteValues), Optional editierbar As Boolean = True, Optional autoDruck As Boolean = False, Optional printerName As String = "", Optional genNewPath As Boolean = True, Optional vorhandenesLokalesPDF_Path As String = "", Optional barcode As List(Of barcodeToPdf) = Nothing) As String
Try
Dim path_src = ""
Dim path_src As String = ""
If vorhandenesLokalesPDF_Path = "" Then
Dim DS As New cDATENSERVER(da_kategorie, da_ordner, da_uOrdner1, da_uOrdner2, da_uOrdner3, da_name)
If Not DS.hasITEMS Then Return ""
@@ -1395,7 +1395,7 @@ Public Class cFormularManager
'If Not VERAG_PROG_ALLGEMEIN.cProgramFunctions.spireLoadLicense() Then MsgBox("Fehler beim Laden der SPIRE-Lizenz")
For Each pdfPath In PDFFile
For Each pdfPath As String In PDFFile
Dim doc As New Spire.Pdf.PdfDocument(pdfPath)