AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Update auf .NET 8

Browse Source
This commit is contained in:
Developer01
2025-10-01 15:17:45 +02:00
parent 2332f64748
commit 89b05d5f78
139 changed files with 7729 additions and 59611 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Jobs/ZUGFeRD/EmailFunctions.vb
View File

@@ -6,6 +6,7 @@ Imports DigitalData.Modules.Base
Imports DigitalData.Modules.Database
Imports DigitalData.Modules.Interfaces.PropertyValues
Imports DigitalData.Modules.Logging
Imports Microsoft.Data.SqlClient
Namespace ZUGFeRD
Public Class EmailFunctions
@@ -277,9 +278,9 @@ Namespace ZUGFeRD
Dim oBody = String.Format(EmailStrings.EMAIL_MISSINGPROPERTIES_1, OriginalFilename)
If MissingProperties.Count > 0 Then
oBody &= $"{vbNewLine}{vbNewLine}"
oBody &= $"{vbCrLf}{vbCrLf}"
oBody &= EmailStrings.EMAIL_MISSINGPROPERTIES_2
oBody &= $"{vbNewLine}{vbNewLine}"
oBody &= $"{vbCrLf}{vbCrLf}"
For Each prop In MissingProperties
oBody &= $"- {prop.Description}"

1
Jobs/ZUGFeRD/ImportZUGFeRDFiles.vb
View File

@@ -12,6 +12,7 @@ Imports DigitalData.Modules.Interfaces.PropertyValues
Imports DigitalData.Modules.Jobs.Exceptions
Imports DigitalData.Modules.Logging
Imports GdPicture14
Imports Microsoft.Data.SqlClient
Public Class ImportZUGFeRDFiles
Implements IJob

11
Jobs/ZUGFeRD/XRechnungViewDocument.vb
View File

@@ -50,17 +50,6 @@ Public Class XRechnungViewDocument
'oViewRecieptFilename = oViewRecieptFilename.Replace(".xml", ".pdf")
oViewRecieptFilename = Regex.Replace(oViewRecieptFilename, ".xml", ".pdf", RegexOptions.IgnoreCase)
Using gdpicturePDF As New GdPicturePDF
' Create a new PDF/A-2a compliant document (blank, no pages yet)
Dim status As GdPictureStatus = gdpicturePDF.NewPDF(PdfConformance.PDF_A_2a)
If status = GdPictureStatus.OK Then
Else
MsgBox("The NewPDF(PdfConformance.PDF_A_2a) method has failed with the status: " + status.ToString(), "Example: NewPDF")
End If
End Using
Dim MyGDPicturePDF = New GdPicturePDF
Dim oPDFStatus As GdPictureStatus = MyGDPicturePDF.NewPDF(PdfConformance.PDF_A_2a)