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>

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

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>