AppStd/Monorepo
8
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

GDPicture Update Zugferdtest, Zugferdservice auf 14.4.4

Browse Source
This commit is contained in:
Developer01
2026-06-18 13:13:18 +02:00
parent a6f3031860
commit b9522cf7ef
8 changed files with 261 additions and 289 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
DDMonorepo.sln
View File

@@ -74,8 +74,6 @@ Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "DBCleaner", "DBCleaner\DBCl
EndProject EndProject
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "EDMIService.Tests", "EDMIService.Tests\EDMIService.Tests.vbproj", "{E3DA65CA-964D-4896-991A-B5426884E215}" Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "EDMIService.Tests", "EDMIService.Tests\EDMIService.Tests.vbproj", "{E3DA65CA-964D-4896-991A-B5426884E215}"
EndProject EndProject
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Jobs", "..\DDModules\Jobs\Jobs.vbproj", "{39EC839A-3C30-4922-A41E-6B09D1DDE5C3}"
EndProject
Global Global
GlobalSection(SolutionConfigurationPlatforms) = preSolution GlobalSection(SolutionConfigurationPlatforms) = preSolution
Debug|Any CPU = Debug|Any CPU Debug|Any CPU = Debug|Any CPU
@@ -182,10 +180,6 @@ Global
{E3DA65CA-964D-4896-991A-B5426884E215}.Debug|Any CPU.Build.0 = Debug|Any CPU {E3DA65CA-964D-4896-991A-B5426884E215}.Debug|Any CPU.Build.0 = Debug|Any CPU
{E3DA65CA-964D-4896-991A-B5426884E215}.Release|Any CPU.ActiveCfg = Release|Any CPU {E3DA65CA-964D-4896-991A-B5426884E215}.Release|Any CPU.ActiveCfg = Release|Any CPU
{E3DA65CA-964D-4896-991A-B5426884E215}.Release|Any CPU.Build.0 = Release|Any CPU {E3DA65CA-964D-4896-991A-B5426884E215}.Release|Any CPU.Build.0 = Release|Any CPU
{39EC839A-3C30-4922-A41E-6B09D1DDE5C3}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{39EC839A-3C30-4922-A41E-6B09D1DDE5C3}.Debug|Any CPU.Build.0 = Debug|Any CPU
{39EC839A-3C30-4922-A41E-6B09D1DDE5C3}.Release|Any CPU.ActiveCfg = Release|Any CPU
{39EC839A-3C30-4922-A41E-6B09D1DDE5C3}.Release|Any CPU.Build.0 = Release|Any CPU
EndGlobalSection EndGlobalSection
GlobalSection(SolutionProperties) = preSolution GlobalSection(SolutionProperties) = preSolution
HideSolutionNode = FALSE HideSolutionNode = FALSE
@@ -216,7 +210,6 @@ Global
{9D4AC920-C78E-41C3-994E-91690FF79380} = {8FFE925E-8B84-45F1-93CB-32B1C96F41EB} {9D4AC920-C78E-41C3-994E-91690FF79380} = {8FFE925E-8B84-45F1-93CB-32B1C96F41EB}
{5A7913CE-7D3D-4E84-B23D-4747C178CD71} = {CC368D6A-6AC4-4EB9-A092-14700FABEF7A} {5A7913CE-7D3D-4E84-B23D-4747C178CD71} = {CC368D6A-6AC4-4EB9-A092-14700FABEF7A}
{E3DA65CA-964D-4896-991A-B5426884E215} = {7AF3F9C2-C939-4A08-95C1-0453207E298A} {E3DA65CA-964D-4896-991A-B5426884E215} = {7AF3F9C2-C939-4A08-95C1-0453207E298A}
{39EC839A-3C30-4922-A41E-6B09D1DDE5C3} = {CC368D6A-6AC4-4EB9-A092-14700FABEF7A}
EndGlobalSection EndGlobalSection
GlobalSection(ExtensibilityGlobals) = postSolution GlobalSection(ExtensibilityGlobals) = postSolution
SolutionGuid = {C1BE4090-A0FD-48AF-86CB-39099D14B286} SolutionGuid = {C1BE4090-A0FD-48AF-86CB-39099D14B286}

20
GUIs.Test.ZUGFeRDTest/App.config
View File

@@ -163,26 +163,6 @@
<assemblyIdentity name="System.Text.Json" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral" /> <assemblyIdentity name="System.Text.Json" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-8.0.0.6" newVersion="8.0.0.6" /> <bindingRedirect oldVersion="0.0.0.0-8.0.0.6" newVersion="8.0.0.6" />
</dependentAssembly> </dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="GdPicture.NET.14" publicKeyToken="f52a2e60ad468dbb" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-14.3.19.0" newVersion="14.3.19.0" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="GdPicture.NET.14.Common" publicKeyToken="f52a2e60ad468dbb" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-14.3.19.0" newVersion="14.3.19.0" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="GdPicture.NET.14" publicKeyToken="f52a2e60ad468dbb" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-14.3.3.0" newVersion="14.3.3.0" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="GdPicture.NET.14.Common" publicKeyToken="f52a2e60ad468dbb" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-14.3.3.0" newVersion="14.3.3.0" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="GdPicture.NET.14.Imaging" publicKeyToken="f52a2e60ad468dbb" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-14.3.3.0" newVersion="14.3.3.0" />
</dependentAssembly>
</assemblyBinding> </assemblyBinding>
</runtime> </runtime>
</configuration> </configuration>

451
GUIs.Test.ZUGFeRDTest/Form1.Designer.vb generated
View File

@@ -24,237 +24,225 @@ Partial Class Form1
'Das Bearbeiten mit dem Code-Editor ist nicht möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> <System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent() Private Sub InitializeComponent()
OpenFileDialog1 = New OpenFileDialog() Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
btRunJob = New Button() Me.btRunJob = New System.Windows.Forms.Button()
ListBox1 = New ListBox() Me.ListBox1 = New System.Windows.Forms.ListBox()
btValidateSerializePDF = New Button() Me.btValidateSerializePDF = New System.Windows.Forms.Button()
btValidateSerializeParseProps = New Button() Me.btValidateSerializeParseProps = New System.Windows.Forms.Button()
btCreateMD5Checksum = New Button() Me.btCreateMD5Checksum = New System.Windows.Forms.Button()
GroupBox1 = New GroupBox() Me.GroupBox1 = New System.Windows.Forms.GroupBox()
ButtonValidateXMLOnly = New Button() Me.ButtonValidateXMLOnly = New System.Windows.Forms.Button()
GroupBox2 = New GroupBox() Me.GroupBox2 = New System.Windows.Forms.GroupBox()
btExtractPDFAttachments = New Button() Me.btExtractPDFAttachments = New System.Windows.Forms.Button()
GroupBox3 = New GroupBox() Me.GroupBox3 = New System.Windows.Forms.GroupBox()
txtMD5Checksum = New TextBox() Me.txtMD5Checksum = New System.Windows.Forms.TextBox()
txtPropName = New TextBox() Me.txtPropName = New System.Windows.Forms.TextBox()
GroupBox4 = New GroupBox() Me.GroupBox4 = New System.Windows.Forms.GroupBox()
btFindExtractXMLValue = New Button() Me.btFindExtractXMLValue = New System.Windows.Forms.Button()
FolderBrowserDialog1 = New FolderBrowserDialog() Me.FolderBrowserDialog1 = New System.Windows.Forms.FolderBrowserDialog()
GroupBox5 = New GroupBox() Me.GroupBox5 = New System.Windows.Forms.GroupBox()
btWriteBinary = New Button() Me.btWriteBinary = New System.Windows.Forms.Button()
OpenFileDialog2 = New OpenFileDialog() Me.OpenFileDialog2 = New System.Windows.Forms.OpenFileDialog()
Me.Button1 = New System.Windows.Forms.Button()
GroupBox1.SuspendLayout() Me.GroupBox1.SuspendLayout()
GroupBox2.SuspendLayout() Me.GroupBox2.SuspendLayout()
GroupBox3.SuspendLayout() Me.GroupBox3.SuspendLayout()
GroupBox4.SuspendLayout() Me.GroupBox4.SuspendLayout()
GroupBox5.SuspendLayout() Me.GroupBox5.SuspendLayout()
SuspendLayout() Me.SuspendLayout()
' '
' OpenFileDialog1 'OpenFileDialog1
' '
OpenFileDialog1.FileName = "OpenFileDialog1" Me.OpenFileDialog1.FileName = "OpenFileDialog1"
' '
' btRunJob 'btRunJob
' '
btRunJob.Location = New System.Drawing.Point(8, 29) Me.btRunJob.Location = New System.Drawing.Point(6, 19)
btRunJob.Margin = New Padding(4, 5, 4, 5) Me.btRunJob.Name = "btRunJob"
btRunJob.Name = "btRunJob" Me.btRunJob.Size = New System.Drawing.Size(221, 23)
btRunJob.Size = New System.Drawing.Size(295, 35) Me.btRunJob.TabIndex = 0
btRunJob.TabIndex = 0 Me.btRunJob.Text = "Run Job"
btRunJob.Text = "Run Job" Me.btRunJob.UseVisualStyleBackColor = True
btRunJob.UseVisualStyleBackColor = True '
' 'ListBox1
' ListBox1 '
' Me.ListBox1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
ListBox1.Anchor = AnchorStyles.Top Or AnchorStyles.Bottom Or AnchorStyles.Left Or AnchorStyles.Right Or System.Windows.Forms.AnchorStyles.Left) _
ListBox1.FormattingEnabled = True Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
ListBox1.Location = New System.Drawing.Point(504, 12) Me.ListBox1.FormattingEnabled = True
ListBox1.Margin = New Padding(4, 5, 4, 5) Me.ListBox1.Location = New System.Drawing.Point(430, 7)
ListBox1.Name = "ListBox1" Me.ListBox1.Name = "ListBox1"
ListBox1.Size = New System.Drawing.Size(362, 664) Me.ListBox1.Size = New System.Drawing.Size(498, 433)
ListBox1.TabIndex = 1 Me.ListBox1.TabIndex = 1
' '
' btValidateSerializePDF 'btValidateSerializePDF
' '
btValidateSerializePDF.Location = New System.Drawing.Point(8, 29) Me.btValidateSerializePDF.Location = New System.Drawing.Point(6, 19)
btValidateSerializePDF.Margin = New Padding(4, 5, 4, 5) Me.btValidateSerializePDF.Name = "btValidateSerializePDF"
btValidateSerializePDF.Name = "btValidateSerializePDF" Me.btValidateSerializePDF.Size = New System.Drawing.Size(246, 23)
btValidateSerializePDF.Size = New System.Drawing.Size(328, 35) Me.btValidateSerializePDF.TabIndex = 2
btValidateSerializePDF.TabIndex = 2 Me.btValidateSerializePDF.Text = "Validate and Serialize PDF"
btValidateSerializePDF.Text = "Validate and Serialize PDF" Me.btValidateSerializePDF.UseVisualStyleBackColor = True
btValidateSerializePDF.UseVisualStyleBackColor = True '
' 'btValidateSerializeParseProps
' btValidateSerializeParseProps '
' Me.btValidateSerializeParseProps.Location = New System.Drawing.Point(6, 48)
btValidateSerializeParseProps.Location = New System.Drawing.Point(8, 74) Me.btValidateSerializeParseProps.Name = "btValidateSerializeParseProps"
btValidateSerializeParseProps.Margin = New Padding(4, 5, 4, 5) Me.btValidateSerializeParseProps.Size = New System.Drawing.Size(246, 23)
btValidateSerializeParseProps.Name = "btValidateSerializeParseProps" Me.btValidateSerializeParseProps.TabIndex = 3
btValidateSerializeParseProps.Size = New System.Drawing.Size(328, 35) Me.btValidateSerializeParseProps.Text = "Validate and Serialize PDF and Parse Props"
btValidateSerializeParseProps.TabIndex = 3 Me.btValidateSerializeParseProps.UseVisualStyleBackColor = True
btValidateSerializeParseProps.Text = "Validate and Serialize PDF and Parse Props" '
btValidateSerializeParseProps.UseVisualStyleBackColor = True 'btCreateMD5Checksum
' '
' btCreateMD5Checksum Me.btCreateMD5Checksum.Location = New System.Drawing.Point(6, 19)
' Me.btCreateMD5Checksum.Name = "btCreateMD5Checksum"
btCreateMD5Checksum.Location = New System.Drawing.Point(8, 29) Me.btCreateMD5Checksum.Size = New System.Drawing.Size(221, 23)
btCreateMD5Checksum.Margin = New Padding(4, 5, 4, 5) Me.btCreateMD5Checksum.TabIndex = 4
btCreateMD5Checksum.Name = "btCreateMD5Checksum" Me.btCreateMD5Checksum.Text = "Create MD5 Checksum for PDF"
btCreateMD5Checksum.Size = New System.Drawing.Size(295, 35) Me.btCreateMD5Checksum.UseVisualStyleBackColor = True
btCreateMD5Checksum.TabIndex = 4 '
btCreateMD5Checksum.Text = "Create MD5 Checksum for PDF" 'GroupBox1
btCreateMD5Checksum.UseVisualStyleBackColor = True '
' Me.GroupBox1.Controls.Add(Me.ButtonValidateXMLOnly)
' GroupBox1 Me.GroupBox1.Controls.Add(Me.btRunJob)
' Me.GroupBox1.Location = New System.Drawing.Point(12, 12)
GroupBox1.Controls.Add(ButtonValidateXMLOnly) Me.GroupBox1.Name = "GroupBox1"
GroupBox1.Controls.Add(btRunJob) Me.GroupBox1.Size = New System.Drawing.Size(239, 75)
GroupBox1.Location = New System.Drawing.Point(16, 18) Me.GroupBox1.TabIndex = 7
GroupBox1.Margin = New Padding(4, 5, 4, 5) Me.GroupBox1.TabStop = False
GroupBox1.Name = "GroupBox1" Me.GroupBox1.Text = "Run Job like in eInvoice Service"
GroupBox1.Padding = New Padding(4, 5, 4, 5) '
GroupBox1.Size = New System.Drawing.Size(319, 116) 'ButtonValidateXMLOnly
GroupBox1.TabIndex = 7 '
GroupBox1.TabStop = False Me.ButtonValidateXMLOnly.Location = New System.Drawing.Point(6, 48)
GroupBox1.Text = "Run Job like in eInvoice Service" Me.ButtonValidateXMLOnly.Name = "ButtonValidateXMLOnly"
' Me.ButtonValidateXMLOnly.Size = New System.Drawing.Size(221, 23)
' ButtonValidateXMLOnly Me.ButtonValidateXMLOnly.TabIndex = 4
' Me.ButtonValidateXMLOnly.Text = "Run XML Job (spez. Configuration)"
ButtonValidateXMLOnly.Location = New System.Drawing.Point(8, 74) Me.ButtonValidateXMLOnly.UseVisualStyleBackColor = True
ButtonValidateXMLOnly.Margin = New Padding(4, 5, 4, 5) '
ButtonValidateXMLOnly.Name = "ButtonValidateXMLOnly" 'GroupBox2
ButtonValidateXMLOnly.Size = New System.Drawing.Size(295, 35) '
ButtonValidateXMLOnly.TabIndex = 4 Me.GroupBox2.Controls.Add(Me.btValidateSerializePDF)
ButtonValidateXMLOnly.Text = "Run XML Job (spez. Configuration)" Me.GroupBox2.Controls.Add(Me.btExtractPDFAttachments)
ButtonValidateXMLOnly.UseVisualStyleBackColor = True Me.GroupBox2.Controls.Add(Me.btValidateSerializeParseProps)
' Me.GroupBox2.Location = New System.Drawing.Point(12, 94)
' GroupBox2 Me.GroupBox2.Name = "GroupBox2"
' Me.GroupBox2.Size = New System.Drawing.Size(360, 109)
GroupBox2.Controls.Add(btValidateSerializePDF) Me.GroupBox2.TabIndex = 8
GroupBox2.Controls.Add(btExtractPDFAttachments) Me.GroupBox2.TabStop = False
GroupBox2.Controls.Add(btValidateSerializeParseProps) Me.GroupBox2.Text = "Run Functions on a single file (needs Breakpoint)"
GroupBox2.Location = New System.Drawing.Point(16, 144) '
GroupBox2.Margin = New Padding(4, 5, 4, 5) 'btExtractPDFAttachments
GroupBox2.Name = "GroupBox2" '
GroupBox2.Padding = New Padding(4, 5, 4, 5) Me.btExtractPDFAttachments.Location = New System.Drawing.Point(6, 77)
GroupBox2.Size = New System.Drawing.Size(480, 167) Me.btExtractPDFAttachments.Name = "btExtractPDFAttachments"
GroupBox2.TabIndex = 8 Me.btExtractPDFAttachments.Size = New System.Drawing.Size(246, 23)
GroupBox2.TabStop = False Me.btExtractPDFAttachments.TabIndex = 3
GroupBox2.Text = "Run Functions on a single file (needs Breakpoint)" Me.btExtractPDFAttachments.Text = "Extract PDF Attachments"
' Me.btExtractPDFAttachments.UseVisualStyleBackColor = True
' btExtractPDFAttachments '
' 'GroupBox3
btExtractPDFAttachments.Location = New System.Drawing.Point(8, 118) '
btExtractPDFAttachments.Margin = New Padding(4, 5, 4, 5) Me.GroupBox3.Controls.Add(Me.btCreateMD5Checksum)
btExtractPDFAttachments.Name = "btExtractPDFAttachments" Me.GroupBox3.Controls.Add(Me.txtMD5Checksum)
btExtractPDFAttachments.Size = New System.Drawing.Size(328, 35) Me.GroupBox3.Location = New System.Drawing.Point(12, 209)
btExtractPDFAttachments.TabIndex = 3 Me.GroupBox3.Name = "GroupBox3"
btExtractPDFAttachments.Text = "Extract PDF Attachments" Me.GroupBox3.Size = New System.Drawing.Size(360, 85)
btExtractPDFAttachments.UseVisualStyleBackColor = True Me.GroupBox3.TabIndex = 9
' Me.GroupBox3.TabStop = False
' GroupBox3 Me.GroupBox3.Text = "Open PDF and calculate Checksum"
' '
GroupBox3.Controls.Add(btCreateMD5Checksum) 'txtMD5Checksum
GroupBox3.Controls.Add(txtMD5Checksum) '
GroupBox3.Location = New System.Drawing.Point(16, 321) Me.txtMD5Checksum.Location = New System.Drawing.Point(6, 49)
GroupBox3.Margin = New Padding(4, 5, 4, 5) Me.txtMD5Checksum.Name = "txtMD5Checksum"
GroupBox3.Name = "GroupBox3" Me.txtMD5Checksum.Size = New System.Drawing.Size(348, 20)
GroupBox3.Padding = New Padding(4, 5, 4, 5) Me.txtMD5Checksum.TabIndex = 5
GroupBox3.Size = New System.Drawing.Size(480, 131) '
GroupBox3.TabIndex = 9 'txtPropName
GroupBox3.TabStop = False '
GroupBox3.Text = "Open PDF and calculate Checksum" Me.txtPropName.Location = New System.Drawing.Point(6, 48)
' Me.txtPropName.Name = "txtPropName"
' txtMD5Checksum Me.txtPropName.Size = New System.Drawing.Size(348, 20)
' Me.txtPropName.TabIndex = 10
txtMD5Checksum.Location = New System.Drawing.Point(8, 75) '
txtMD5Checksum.Margin = New Padding(4, 5, 4, 5) 'GroupBox4
txtMD5Checksum.Name = "txtMD5Checksum" '
txtMD5Checksum.Size = New System.Drawing.Size(463, 27) Me.GroupBox4.Controls.Add(Me.btFindExtractXMLValue)
txtMD5Checksum.TabIndex = 5 Me.GroupBox4.Controls.Add(Me.txtPropName)
' Me.GroupBox4.Location = New System.Drawing.Point(12, 300)
' txtPropName Me.GroupBox4.Name = "GroupBox4"
' Me.GroupBox4.Size = New System.Drawing.Size(360, 76)
txtPropName.Location = New System.Drawing.Point(8, 74) Me.GroupBox4.TabIndex = 11
txtPropName.Margin = New Padding(4, 5, 4, 5) Me.GroupBox4.TabStop = False
txtPropName.Name = "txtPropName" Me.GroupBox4.Text = "GroupBox4"
txtPropName.Size = New System.Drawing.Size(463, 27) '
txtPropName.TabIndex = 10 'btFindExtractXMLValue
' '
' GroupBox4 Me.btFindExtractXMLValue.Location = New System.Drawing.Point(6, 19)
' Me.btFindExtractXMLValue.Name = "btFindExtractXMLValue"
GroupBox4.Controls.Add(btFindExtractXMLValue) Me.btFindExtractXMLValue.Size = New System.Drawing.Size(221, 23)
GroupBox4.Controls.Add(txtPropName) Me.btFindExtractXMLValue.TabIndex = 11
GroupBox4.Location = New System.Drawing.Point(16, 462) Me.btFindExtractXMLValue.Text = "Find and Extract XML Path Value"
GroupBox4.Margin = New Padding(4, 5, 4, 5) Me.btFindExtractXMLValue.UseVisualStyleBackColor = True
GroupBox4.Name = "GroupBox4" '
GroupBox4.Padding = New Padding(4, 5, 4, 5) 'GroupBox5
GroupBox4.Size = New System.Drawing.Size(480, 117) '
GroupBox4.TabIndex = 11 Me.GroupBox5.Controls.Add(Me.btWriteBinary)
GroupBox4.TabStop = False Me.GroupBox5.Location = New System.Drawing.Point(10, 383)
GroupBox4.Text = "GroupBox4" Me.GroupBox5.Name = "GroupBox5"
' Me.GroupBox5.Size = New System.Drawing.Size(360, 57)
' btFindExtractXMLValue Me.GroupBox5.TabIndex = 12
' Me.GroupBox5.TabStop = False
btFindExtractXMLValue.Location = New System.Drawing.Point(8, 29) Me.GroupBox5.Text = "GroupBox5"
btFindExtractXMLValue.Margin = New Padding(4, 5, 4, 5) '
btFindExtractXMLValue.Name = "btFindExtractXMLValue" 'btWriteBinary
btFindExtractXMLValue.Size = New System.Drawing.Size(295, 35) '
btFindExtractXMLValue.TabIndex = 11 Me.btWriteBinary.Location = New System.Drawing.Point(6, 19)
btFindExtractXMLValue.Text = "Find and Extract XML Path Value" Me.btWriteBinary.Name = "btWriteBinary"
btFindExtractXMLValue.UseVisualStyleBackColor = True Me.btWriteBinary.Size = New System.Drawing.Size(221, 23)
' Me.btWriteBinary.TabIndex = 11
' GroupBox5 Me.btWriteBinary.Text = "Write Binary to PDF"
' Me.btWriteBinary.UseVisualStyleBackColor = True
GroupBox5.Controls.Add(btWriteBinary) '
GroupBox5.Location = New System.Drawing.Point(13, 589) 'OpenFileDialog2
GroupBox5.Margin = New Padding(4, 5, 4, 5) '
GroupBox5.Name = "GroupBox5" Me.OpenFileDialog2.FileName = "OpenFileDialog2"
GroupBox5.Padding = New Padding(4, 5, 4, 5) Me.OpenFileDialog2.Filter = "XML files (*.xml)|*.xml"
GroupBox5.Size = New System.Drawing.Size(480, 87) '
GroupBox5.TabIndex = 12 'Button1
GroupBox5.TabStop = False '
GroupBox5.Text = "GroupBox5" Me.Button1.Location = New System.Drawing.Point(257, 31)
' Me.Button1.Name = "Button1"
' btWriteBinary Me.Button1.Size = New System.Drawing.Size(115, 23)
' Me.Button1.TabIndex = 13
btWriteBinary.Location = New System.Drawing.Point(8, 29) Me.Button1.Text = "Open Log"
btWriteBinary.Margin = New Padding(4, 5, 4, 5) Me.Button1.UseVisualStyleBackColor = True
btWriteBinary.Name = "btWriteBinary" '
btWriteBinary.Size = New System.Drawing.Size(295, 35) 'Form1
btWriteBinary.TabIndex = 11 '
btWriteBinary.Text = "Write Binary to PDF" Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
btWriteBinary.UseVisualStyleBackColor = True Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
' Me.ClientSize = New System.Drawing.Size(937, 448)
' OpenFileDialog2 Me.Controls.Add(Me.Button1)
' Me.Controls.Add(Me.GroupBox5)
OpenFileDialog2.FileName = "OpenFileDialog2" Me.Controls.Add(Me.GroupBox4)
OpenFileDialog2.Filter = "XML files (*.xml)|*.xml" Me.Controls.Add(Me.GroupBox3)
Me.Controls.Add(Me.GroupBox2)
' Me.Controls.Add(Me.GroupBox1)
' Form1 Me.Controls.Add(Me.ListBox1)
' Me.Name = "Form1"
AutoScaleDimensions = New System.Drawing.SizeF(8.0F, 20.0F) Me.Text = "E-Invoice-TEST-Tool"
AutoScaleMode = AutoScaleMode.Font Me.GroupBox1.ResumeLayout(False)
ClientSize = New System.Drawing.Size(879, 690) Me.GroupBox2.ResumeLayout(False)
Me.GroupBox3.ResumeLayout(False)
Controls.Add(GroupBox5) Me.GroupBox3.PerformLayout()
Controls.Add(GroupBox4) Me.GroupBox4.ResumeLayout(False)
Controls.Add(GroupBox3) Me.GroupBox4.PerformLayout()
Controls.Add(GroupBox2) Me.GroupBox5.ResumeLayout(False)
Controls.Add(GroupBox1) Me.ResumeLayout(False)
Controls.Add(ListBox1)
Margin = New Padding(4, 5, 4, 5)
Name = "Form1"
Text = "E-Invoice-TEST-Tool"
GroupBox1.ResumeLayout(False)
GroupBox2.ResumeLayout(False)
GroupBox3.ResumeLayout(False)
GroupBox3.PerformLayout()
GroupBox4.ResumeLayout(False)
GroupBox4.PerformLayout()
GroupBox5.ResumeLayout(False)
ResumeLayout(False)
End Sub End Sub
@@ -277,4 +265,5 @@ Partial Class Form1
Friend WithEvents btWriteBinary As Button Friend WithEvents btWriteBinary As Button
Friend WithEvents ButtonValidateXMLOnly As Button Friend WithEvents ButtonValidateXMLOnly As Button
Friend WithEvents OpenFileDialog2 As OpenFileDialog Friend WithEvents OpenFileDialog2 As OpenFileDialog
Friend WithEvents Button1 As Button
End Class End Class

54
GUIs.Test.ZUGFeRDTest/Form1.resx
View File

@@ -1,17 +1,17 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<root> <root>
<!-- <!--
Microsoft ResX Schema Microsoft ResX Schema
Version 2.0 Version 2.0
The primary goals of this format is to allow a simple XML format The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes various data types are done through the TypeConverter classes
associated with the data types. associated with the data types.
Example: Example:
... ado.net/XML headers & schema ... ... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader> <resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader> <resheader name="version">2.0</resheader>
@@ -26,36 +26,36 @@
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value> <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment> <comment>This is a comment</comment>
</data> </data>
There are any number of "resheader" rows that contain simple There are any number of "resheader" rows that contain simple
name/value pairs. name/value pairs.
Each data row contains a name, and value. The row also contains a Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture. text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the Classes that don't support this are serialized and stored with the
mimetype set. mimetype set.
The mimetype is used for serialized objects, and tells the The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly: extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below. read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64 mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding. : and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64 mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding. : and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64 mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter : using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding. : and then encoded with base64 encoding.
--> -->

11
GUIs.Test.ZUGFeRDTest/Form1.vb
View File

@@ -216,6 +216,12 @@ Public Class Form1
oResult = FolderBrowserDialog1.ShowDialog() oResult = FolderBrowserDialog1.ShowDialog()
oInputPath = FolderBrowserDialog1.SelectedPath oInputPath = FolderBrowserDialog1.SelectedPath
End If End If
Dim xmlFiles = Directory.GetFiles(oInputPath, "*.xml")
Dim pdfFiles = Directory.GetFiles(oInputPath, "*.pdf")
If xmlFiles.Length = 0 AndAlso pdfFiles.Length = 0 Then
MessageBox.Show($"Keine XML- oder PDF-Dateien in {oInputPath} gefunden!")
Return
End If
If oResult = DialogResult.OK Then If oResult = DialogResult.OK Then
Dim args As New WorkerArgs() With { Dim args As New WorkerArgs() With {
@@ -238,6 +244,7 @@ Public Class Form1
Dim job As New ImportZUGFeRDFiles(_logConfig, _mssql) Dim job As New ImportZUGFeRDFiles(_logConfig, _mssql)
job.Start(args) job.Start(args)
End If End If
End Sub End Sub
@@ -414,6 +421,10 @@ Public Class Form1
End Function End Function
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Process.Start("explorer.exe", _logConfig.LogDirectory)
End Sub
'Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 'Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
' Process.Start("explorer.exe", _logConfig.LogDirectory) ' Process.Start("explorer.exe", _logConfig.LogDirectory)
'End Sub 'End Sub

2
GUIs.Test.ZUGFeRDTest/ZUGFeRDTest.vbproj
View File

@@ -17,7 +17,7 @@
</PropertyGroup> </PropertyGroup>
<ItemGroup> <ItemGroup>
<PackageReference Include="GdPicture" Version="14.3.3" /> <PackageReference Include="GdPicture" Version="14.4.4" />
<PackageReference Include="Microsoft.Data.SqlClient" Version="7.0.1" /> <PackageReference Include="Microsoft.Data.SqlClient" Version="7.0.1" />
<PackageReference Include="NLog" Version="5.0.5" /> <PackageReference Include="NLog" Version="5.0.5" />
</ItemGroup> </ItemGroup>

3
Services.ZUGFeRDService/DDZUGFeRDService.vbproj
View File

@@ -60,8 +60,7 @@
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
<HintPath>..\..\DDModules\Database\bin\Debug\DigitalData.Modules.Database.dll</HintPath> <HintPath>..\..\DDModules\Database\bin\Debug\DigitalData.Modules.Database.dll</HintPath>
</Reference> </Reference>
<Reference Include="DigitalData.Modules.Interfaces, Version=2.2.6.0, Culture=neutral, processorArchitecture=MSIL"> <Reference Include="DigitalData.Modules.Interfaces">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\DDModules\Interfaces\bin\Debug\DigitalData.Modules.Interfaces.dll</HintPath> <HintPath>..\..\DDModules\Interfaces\bin\Debug\DigitalData.Modules.Interfaces.dll</HintPath>
</Reference> </Reference>
<Reference Include="DigitalData.Modules.Jobs, Version=2.8.1.0, Culture=neutral, processorArchitecture=MSIL"> <Reference Include="DigitalData.Modules.Jobs, Version=2.8.1.0, Culture=neutral, processorArchitecture=MSIL">

2
Services.ZUGFeRDService/packages.config
View File

@@ -1,4 +1,4 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<packages> <packages>
<package id="NLog" version="5.0.5" targetFramework="net461" /> <package id="NLog" version="5.0.5" targetFramework="net462" />
</packages> </packages>