div. Änderungen, etc.

This commit is contained in:
2026-07-29 16:14:32 +02:00
parent d78af068f7
commit ec307f7a60
7 changed files with 258 additions and 456 deletions

View File

@@ -10,7 +10,7 @@ Public Class frmFirmenuebersicht
Private Sub frminterneEmailBenachrichtigungen_Load(sender As Object, e As EventArgs) Handles Me.Load
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
loadDGVMailbenachrichtigungen()

View File

@@ -7,13 +7,9 @@ Imports System.Text
Imports System.Text.RegularExpressions
Imports System.Windows.Forms
Imports System.Xml
Imports DocumentFormat.OpenXml
Imports iText.Kernel.Pdf
Imports iText.Kernel.Pdf.Filespec
Imports iText.Kernel.XMP
Imports iText.Kernel.XMP.Options
Imports iText.Pdfa
Imports iText.Pdfa.Exceptions
Imports iTextSharp.text
Imports iTextSharp.text.pdf
Imports Spire.Pdf
@@ -21,7 +17,6 @@ Imports Spire.Pdf.Attachments
Imports Spire.Pdf.Graphics
Imports Spire.Pdf.Print
Imports Font = iTextSharp.text.Font
Imports PdfName = iTextSharp.text.pdf.PdfName
@@ -39,6 +34,7 @@ Public Class cDATENSERVER
'Property da_pfad As Object = Nothing
Property da_info As String = ""
Property da_multifiles As Boolean = False
Property da_date As Object = Nothing
Public Property DATA_LIST As New cDatenserverIDCollectionList
@@ -117,6 +113,7 @@ Public Class cDATENSERVER
Me.da_name = dr.Item("da_name")
Me.da_info = dr.Item("da_info")
Me.da_multifiles = dr.Item("da_multifiles")
Me.da_date = dr.Item("da_date")
DATA_LIST = New cDatenserverIDCollectionList(Me.da_id, rootDir)
End If
@@ -152,6 +149,7 @@ Public Class cDATENSERVER
Me.da_vorlage = dr.Item("da_vorlage")
Me.da_info = dr.Item("da_info")
Me.da_multifiles = dr.Item("da_multifiles")
Me.da_date = dr.Item("da_date")
DATA_LIST = New cDatenserverIDCollectionList(Me.da_id, rootDir)
End If