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

MDM

Browse Source
This commit is contained in:
d.breimaier
2024-09-20 12:23:41 +02:00
parent a496cb6722
commit 06a4256140
11 changed files with 881 additions and 239 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
VERAG_PROG_ALLGEMEIN/Classes/cKundenKontakte.vb
View File

@@ -103,6 +103,8 @@ Public Class cKundenKontakte
Property kkd_Land As Object = Nothing
Property kkd_Passgueltigbis As Object = Nothing
Property kkd_Firmenname As Object = Nothing
Property kkd_Geburtsort As Object = Nothing
Property kkd_Geburtsland As Object = Nothing
@@ -142,6 +144,8 @@ Public Class cKundenKontakte
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_Land", kkd_Land))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_Passgueltigbis", kkd_Passgueltigbis))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_Firmenname", kkd_Firmenname))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_Geburtsort", kkd_Geburtsort))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_Geburtsland", kkd_Geburtsland))
Return list

7
VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb
View File

@@ -984,13 +984,16 @@ Public Class cFormularManager
Dim fi As New IO.DirectoryInfo(path_src)
Dim destPath = DATENVERVER_OPTIONS.getTMPPath(fi.Name, fi.Extension, True, False)
Dim pdf As iTextSharp.text.pdf.PdfReader = New iTextSharp.text.pdf.PdfReader(path_src)
pdf.unethicalreading = True
Using fw As New FileStream(destPath, FileMode.OpenOrCreate)
Dim stamper = New PdfStamper(pdf, fw)
Try
Dim f = stamper.AcroFields
If f IsNot Nothing Then
If f IsNot Nothing AndAlso f.Fields.Count > 0 Then
f.GenerateAppearances = True
For Each r In f.Fields
Dim key = r.Key.ToString
@@ -1001,7 +1004,7 @@ Public Class cFormularManager
Next
Else
MsgBox("In der Vorlage wurden sind keine ausfühlbaren Felder vorhanden!")
'MsgBox("In der Vorlage wurden sind keine ausfühlbaren Felder vorhanden!")
End If