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

Merge branch 'master' of http://git.dd:3000/AppStd/Monorepo

Browse Source
This commit is contained in:
Developer01 2025-07-18 15:43:31 +02:00
commit dbba1c9bae
5 changed files with 90 additions and 92 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -25,21 +25,21 @@ Partial Class Form1
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog() Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
Me.btRunJob = New System.Windows.Forms.Button() Me.btRunJob = New System.Windows.Forms.Button()
Me.ListBox1 = New System.Windows.Forms.ListBox() Me.ListBox1 = New System.Windows.Forms.ListBox()
Me.Button2 = New System.Windows.Forms.Button() Me.btValidateSerializePDF = New System.Windows.Forms.Button()
Me.Button3 = New System.Windows.Forms.Button() Me.btValidateSerializeParseProps = New System.Windows.Forms.Button()
Me.Button4 = New System.Windows.Forms.Button() Me.btCreateMD5Checksum = New System.Windows.Forms.Button()
Me.GroupBox1 = New System.Windows.Forms.GroupBox() Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.ButtonValidateXMLOnly = New System.Windows.Forms.Button() Me.ButtonValidateXMLOnly = New System.Windows.Forms.Button()
Me.Button7 = New System.Windows.Forms.Button() Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.btExtractPDFAttachments = New System.Windows.Forms.Button()
Me.GroupBox3 = New System.Windows.Forms.GroupBox() Me.GroupBox3 = New System.Windows.Forms.GroupBox()
Me.txtMD5Checksum = New System.Windows.Forms.TextBox() Me.txtMD5Checksum = New System.Windows.Forms.TextBox()
Me.txtPropName = New System.Windows.Forms.TextBox() Me.txtPropName = New System.Windows.Forms.TextBox()
Me.GroupBox4 = New System.Windows.Forms.GroupBox() Me.GroupBox4 = New System.Windows.Forms.GroupBox()
Me.Button6 = New System.Windows.Forms.Button() Me.btFindExtractXMLValue = New System.Windows.Forms.Button()
Me.FolderBrowserDialog1 = New System.Windows.Forms.FolderBrowserDialog() Me.FolderBrowserDialog1 = New System.Windows.Forms.FolderBrowserDialog()
Me.GroupBox5 = New System.Windows.Forms.GroupBox() Me.GroupBox5 = New System.Windows.Forms.GroupBox()
Me.Button5 = New System.Windows.Forms.Button() Me.btWriteBinary = New System.Windows.Forms.Button()
Me.OpenFileDialog2 = New System.Windows.Forms.OpenFileDialog() Me.OpenFileDialog2 = New System.Windows.Forms.OpenFileDialog()
Me.GroupBox1.SuspendLayout() Me.GroupBox1.SuspendLayout()
Me.GroupBox2.SuspendLayout() Me.GroupBox2.SuspendLayout()
@ -72,32 +72,32 @@ Partial Class Form1
Me.ListBox1.Size = New System.Drawing.Size(532, 602) Me.ListBox1.Size = New System.Drawing.Size(532, 602)
Me.ListBox1.TabIndex = 1 Me.ListBox1.TabIndex = 1
' '
'Button2 'btValidateSerializePDF
' '
Me.Button2.Location = New System.Drawing.Point(6, 19) Me.btValidateSerializePDF.Location = New System.Drawing.Point(6, 19)
Me.Button2.Name = "Button2" Me.btValidateSerializePDF.Name = "btValidateSerializePDF"
Me.Button2.Size = New System.Drawing.Size(246, 23) Me.btValidateSerializePDF.Size = New System.Drawing.Size(246, 23)
Me.Button2.TabIndex = 2 Me.btValidateSerializePDF.TabIndex = 2
Me.Button2.Text = "Validate and Serialize PDF" Me.btValidateSerializePDF.Text = "Validate and Serialize PDF"
Me.Button2.UseVisualStyleBackColor = True Me.btValidateSerializePDF.UseVisualStyleBackColor = True
' '
'Button3 'btValidateSerializeParseProps
' '
Me.Button3.Location = New System.Drawing.Point(6, 48) Me.btValidateSerializeParseProps.Location = New System.Drawing.Point(6, 48)
Me.Button3.Name = "Button3" Me.btValidateSerializeParseProps.Name = "btValidateSerializeParseProps"
Me.Button3.Size = New System.Drawing.Size(246, 23) Me.btValidateSerializeParseProps.Size = New System.Drawing.Size(246, 23)
Me.Button3.TabIndex = 3 Me.btValidateSerializeParseProps.TabIndex = 3
Me.Button3.Text = "Validate and Serialize PDF and Parse Props" Me.btValidateSerializeParseProps.Text = "Validate and Serialize PDF and Parse Props"
Me.Button3.UseVisualStyleBackColor = True Me.btValidateSerializeParseProps.UseVisualStyleBackColor = True
' '
'Button4 'btCreateMD5Checksum
' '
Me.Button4.Location = New System.Drawing.Point(6, 19) Me.btCreateMD5Checksum.Location = New System.Drawing.Point(6, 19)
Me.Button4.Name = "Button4" Me.btCreateMD5Checksum.Name = "btCreateMD5Checksum"
Me.Button4.Size = New System.Drawing.Size(221, 23) Me.btCreateMD5Checksum.Size = New System.Drawing.Size(221, 23)
Me.Button4.TabIndex = 4 Me.btCreateMD5Checksum.TabIndex = 4
Me.Button4.Text = "Create MD5 Checksum for PDF" Me.btCreateMD5Checksum.Text = "Create MD5 Checksum for PDF"
Me.Button4.UseVisualStyleBackColor = True Me.btCreateMD5Checksum.UseVisualStyleBackColor = True
' '
'GroupBox1 'GroupBox1
' '
@ -108,19 +108,7 @@ Partial Class Form1
Me.GroupBox1.Size = New System.Drawing.Size(360, 92) Me.GroupBox1.Size = New System.Drawing.Size(360, 92)
Me.GroupBox1.TabIndex = 7 Me.GroupBox1.TabIndex = 7
Me.GroupBox1.TabStop = False Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Run Job like in ZUGFeRD Service" Me.GroupBox1.Text = "Run Job like in eInvoice Service"
'
'GroupBox2
'
Me.GroupBox2.Controls.Add(Me.Button2)
Me.GroupBox2.Controls.Add(Me.Button7)
Me.GroupBox2.Controls.Add(Me.Button3)
Me.GroupBox2.Location = New System.Drawing.Point(12, 110)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Size = New System.Drawing.Size(360, 155)
Me.GroupBox2.TabIndex = 8
Me.GroupBox2.TabStop = False
Me.GroupBox2.Text = "Run Functions on a single file (needs Breakpoint)"
' '
'ButtonValidateXMLOnly 'ButtonValidateXMLOnly
' '
@ -131,18 +119,30 @@ Partial Class Form1
Me.ButtonValidateXMLOnly.Text = "Run XML Job (spez. Configuration)" Me.ButtonValidateXMLOnly.Text = "Run XML Job (spez. Configuration)"
Me.ButtonValidateXMLOnly.UseVisualStyleBackColor = True Me.ButtonValidateXMLOnly.UseVisualStyleBackColor = True
' '
'Button7 'GroupBox2
' '
Me.Button7.Location = New System.Drawing.Point(6, 77) Me.GroupBox2.Controls.Add(Me.btValidateSerializePDF)
Me.Button7.Name = "Button7" Me.GroupBox2.Controls.Add(Me.btExtractPDFAttachments)
Me.Button7.Size = New System.Drawing.Size(246, 23) Me.GroupBox2.Controls.Add(Me.btValidateSerializeParseProps)
Me.Button7.TabIndex = 3 Me.GroupBox2.Location = New System.Drawing.Point(12, 110)
Me.Button7.Text = "Extract PDF Attachments" Me.GroupBox2.Name = "GroupBox2"
Me.Button7.UseVisualStyleBackColor = True Me.GroupBox2.Size = New System.Drawing.Size(360, 155)
Me.GroupBox2.TabIndex = 8
Me.GroupBox2.TabStop = False
Me.GroupBox2.Text = "Run Functions on a single file (needs Breakpoint)"
'
'btExtractPDFAttachments
'
Me.btExtractPDFAttachments.Location = New System.Drawing.Point(6, 77)
Me.btExtractPDFAttachments.Name = "btExtractPDFAttachments"
Me.btExtractPDFAttachments.Size = New System.Drawing.Size(246, 23)
Me.btExtractPDFAttachments.TabIndex = 3
Me.btExtractPDFAttachments.Text = "Extract PDF Attachments"
Me.btExtractPDFAttachments.UseVisualStyleBackColor = True
' '
'GroupBox3 'GroupBox3
' '
Me.GroupBox3.Controls.Add(Me.Button4) Me.GroupBox3.Controls.Add(Me.btCreateMD5Checksum)
Me.GroupBox3.Controls.Add(Me.txtMD5Checksum) Me.GroupBox3.Controls.Add(Me.txtMD5Checksum)
Me.GroupBox3.Location = New System.Drawing.Point(12, 271) Me.GroupBox3.Location = New System.Drawing.Point(12, 271)
Me.GroupBox3.Name = "GroupBox3" Me.GroupBox3.Name = "GroupBox3"
@ -169,7 +169,7 @@ Partial Class Form1
' '
'GroupBox4 'GroupBox4
' '
Me.GroupBox4.Controls.Add(Me.Button6) Me.GroupBox4.Controls.Add(Me.btFindExtractXMLValue)
Me.GroupBox4.Controls.Add(Me.txtPropName) Me.GroupBox4.Controls.Add(Me.txtPropName)
Me.GroupBox4.Location = New System.Drawing.Point(12, 362) Me.GroupBox4.Location = New System.Drawing.Point(12, 362)
Me.GroupBox4.Name = "GroupBox4" Me.GroupBox4.Name = "GroupBox4"
@ -178,18 +178,18 @@ Partial Class Form1
Me.GroupBox4.TabStop = False Me.GroupBox4.TabStop = False
Me.GroupBox4.Text = "GroupBox4" Me.GroupBox4.Text = "GroupBox4"
' '
'Button6 'btFindExtractXMLValue
' '
Me.Button6.Location = New System.Drawing.Point(6, 19) Me.btFindExtractXMLValue.Location = New System.Drawing.Point(6, 19)
Me.Button6.Name = "Button6" Me.btFindExtractXMLValue.Name = "btFindExtractXMLValue"
Me.Button6.Size = New System.Drawing.Size(221, 23) Me.btFindExtractXMLValue.Size = New System.Drawing.Size(221, 23)
Me.Button6.TabIndex = 11 Me.btFindExtractXMLValue.TabIndex = 11
Me.Button6.Text = "Find and Extract XML Path Value" Me.btFindExtractXMLValue.Text = "Find and Extract XML Path Value"
Me.Button6.UseVisualStyleBackColor = True Me.btFindExtractXMLValue.UseVisualStyleBackColor = True
' '
'GroupBox5 'GroupBox5
' '
Me.GroupBox5.Controls.Add(Me.Button5) Me.GroupBox5.Controls.Add(Me.btWriteBinary)
Me.GroupBox5.Location = New System.Drawing.Point(12, 490) Me.GroupBox5.Location = New System.Drawing.Point(12, 490)
Me.GroupBox5.Name = "GroupBox5" Me.GroupBox5.Name = "GroupBox5"
Me.GroupBox5.Size = New System.Drawing.Size(360, 122) Me.GroupBox5.Size = New System.Drawing.Size(360, 122)
@ -197,14 +197,14 @@ Partial Class Form1
Me.GroupBox5.TabStop = False Me.GroupBox5.TabStop = False
Me.GroupBox5.Text = "GroupBox5" Me.GroupBox5.Text = "GroupBox5"
' '
'Button5 'btWriteBinary
' '
Me.Button5.Location = New System.Drawing.Point(6, 19) Me.btWriteBinary.Location = New System.Drawing.Point(6, 19)
Me.Button5.Name = "Button5" Me.btWriteBinary.Name = "btWriteBinary"
Me.Button5.Size = New System.Drawing.Size(221, 23) Me.btWriteBinary.Size = New System.Drawing.Size(221, 23)
Me.Button5.TabIndex = 11 Me.btWriteBinary.TabIndex = 11
Me.Button5.Text = "Write Binary to PDF" Me.btWriteBinary.Text = "Write Binary to PDF"
Me.Button5.UseVisualStyleBackColor = True Me.btWriteBinary.UseVisualStyleBackColor = True
' '
'OpenFileDialog2 'OpenFileDialog2
' '
@ -223,7 +223,7 @@ Partial Class Form1
Me.Controls.Add(Me.GroupBox1) Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.ListBox1) Me.Controls.Add(Me.ListBox1)
Me.Name = "Form1" Me.Name = "Form1"
Me.Text = "Form1" Me.Text = "E-Invoice-TEST-Tool"
Me.GroupBox1.ResumeLayout(False) Me.GroupBox1.ResumeLayout(False)
Me.GroupBox2.ResumeLayout(False) Me.GroupBox2.ResumeLayout(False)
Me.GroupBox3.ResumeLayout(False) Me.GroupBox3.ResumeLayout(False)
@ -238,20 +238,20 @@ Partial Class Form1
Friend WithEvents OpenFileDialog1 As OpenFileDialog Friend WithEvents OpenFileDialog1 As OpenFileDialog
Friend WithEvents btRunJob As Button Friend WithEvents btRunJob As Button
Friend WithEvents ListBox1 As ListBox Friend WithEvents ListBox1 As ListBox
Friend WithEvents Button2 As Button Friend WithEvents btValidateSerializePDF As Button
Friend WithEvents Button3 As Button Friend WithEvents btValidateSerializeParseProps As Button
Friend WithEvents Button4 As Button Friend WithEvents btCreateMD5Checksum As Button
Friend WithEvents txtMD5Checksum As TextBox Friend WithEvents txtMD5Checksum As TextBox
Friend WithEvents GroupBox1 As GroupBox Friend WithEvents GroupBox1 As GroupBox
Friend WithEvents GroupBox2 As GroupBox Friend WithEvents GroupBox2 As GroupBox
Friend WithEvents GroupBox3 As GroupBox Friend WithEvents GroupBox3 As GroupBox
Friend WithEvents txtPropName As TextBox Friend WithEvents txtPropName As TextBox
Friend WithEvents GroupBox4 As GroupBox Friend WithEvents GroupBox4 As GroupBox
Friend WithEvents Button6 As Button Friend WithEvents btFindExtractXMLValue As Button
Friend WithEvents Button7 As Button Friend WithEvents btExtractPDFAttachments As Button
Friend WithEvents FolderBrowserDialog1 As FolderBrowserDialog Friend WithEvents FolderBrowserDialog1 As FolderBrowserDialog
Friend WithEvents GroupBox5 As GroupBox Friend WithEvents GroupBox5 As GroupBox
Friend WithEvents Button5 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
End Class End Class

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

File diff suppressed because one or more lines are too long

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

@ -50,9 +50,6 @@
<OptionInfer>On</OptionInfer> <OptionInfer>On</OptionInfer>
</PropertyGroup> </PropertyGroup>
<ItemGroup> <ItemGroup>
<Reference Include="BouncyCastle.Cryptography, Version=2.0.0.0, Culture=neutral, PublicKeyToken=072edcf4a5328938, processorArchitecture=MSIL">
<HintPath>..\packages\BouncyCastle.Cryptography.2.5.0\lib\net461\BouncyCastle.Cryptography.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.Config"> <Reference Include="DigitalData.Modules.Config">
<HintPath>..\..\DDModules\Config\bin\Debug\DigitalData.Modules.Config.dll</HintPath> <HintPath>..\..\DDModules\Config\bin\Debug\DigitalData.Modules.Config.dll</HintPath>
</Reference> </Reference>
@ -74,9 +71,6 @@
<Reference Include="DocumentFormat.OpenXml.Framework, Version=3.2.0.0, Culture=neutral, PublicKeyToken=8fb06cb64d019a17, processorArchitecture=MSIL"> <Reference Include="DocumentFormat.OpenXml.Framework, Version=3.2.0.0, Culture=neutral, PublicKeyToken=8fb06cb64d019a17, processorArchitecture=MSIL">
<HintPath>..\packages\DocumentFormat.OpenXml.Framework.3.2.0\lib\net46\DocumentFormat.OpenXml.Framework.dll</HintPath> <HintPath>..\packages\DocumentFormat.OpenXml.Framework.3.2.0\lib\net46\DocumentFormat.OpenXml.Framework.dll</HintPath>
</Reference> </Reference>
<Reference Include="GdPicture.NET.14, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
<HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.dll</HintPath>
</Reference>
<Reference Include="GdPicture.NET.14.barcode.1d.writer, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL"> <Reference Include="GdPicture.NET.14.barcode.1d.writer, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
<HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.barcode.1d.writer.dll</HintPath> <HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.barcode.1d.writer.dll</HintPath>
</Reference> </Reference>
@ -138,9 +132,9 @@
<HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.wia.gateway.dll</HintPath> <HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.wia.gateway.dll</HintPath>
<EmbedInteropTypes>True</EmbedInteropTypes> <EmbedInteropTypes>True</EmbedInteropTypes>
</Reference> </Reference>
<Reference Include="Microsoft.Bcl.AsyncInterfaces, Version=8.0.0.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL"> <Reference Include="GdPicture.NET.14, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
<HintPath>..\packages\Microsoft.Bcl.AsyncInterfaces.8.0.0\lib\net462\Microsoft.Bcl.AsyncInterfaces.dll</HintPath> <HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.dll</HintPath>
</Reference> </Reference>
<Reference Include="Microsoft.CSharp" /> <Reference Include="Microsoft.CSharp" />
<Reference Include="Newtonsoft.Json, Version=13.0.0.0, Culture=neutral, PublicKeyToken=30ad4fe6b2a6aeed, processorArchitecture=MSIL"> <Reference Include="Newtonsoft.Json, Version=13.0.0.0, Culture=neutral, PublicKeyToken=30ad4fe6b2a6aeed, processorArchitecture=MSIL">
<HintPath>..\packages\Newtonsoft.Json.13.0.3\lib\net45\Newtonsoft.Json.dll</HintPath> <HintPath>..\packages\Newtonsoft.Json.13.0.3\lib\net45\Newtonsoft.Json.dll</HintPath>

6
Services.ZUGFeRDService/My Project/AssemblyInfo.vb
View File

@ -13,7 +13,7 @@ Imports System.Runtime.InteropServices
<Assembly: AssemblyCompany("Digital Data")> <Assembly: AssemblyCompany("Digital Data")>
<Assembly: AssemblyProduct("DDZUGFeRDService")> <Assembly: AssemblyProduct("DDZUGFeRDService")>
<Assembly: AssemblyCopyright("Copyright © 2025")> <Assembly: AssemblyCopyright("Copyright © 2025")>
<Assembly: AssemblyTrademark("2.9.1.0")> <Assembly: AssemblyTrademark("2.9.2.0")>
<Assembly: ComVisible(False)> <Assembly: ComVisible(False)>
@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.9.1.0")> <Assembly: AssemblyVersion("2.9.2.0")>
<Assembly: AssemblyFileVersion("2.9.1.0")> <Assembly: AssemblyFileVersion("2.9.2.0")>

4
Services.ZUGFeRDService/ThreadRunner.vb
View File

@ -185,6 +185,7 @@ Public Class ThreadRunner
Dim oGroupScope = oRow.Item("GROUP_SCOPE") Dim oGroupScope = oRow.Item("GROUP_SCOPE")
Dim oSpecification = oRow.Item("SPECIFICATION") Dim oSpecification = oRow.Item("SPECIFICATION")
Dim oItemType = oRow.Item("ITEM_TYPE") Dim oItemType = oRow.Item("ITEM_TYPE")
Dim oEN16931Value = oRow.Item("EN16931_ID")
pArgs.PropertyMap.Add(oXmlPath, New XmlItemProperty() With { pArgs.PropertyMap.Add(oXmlPath, New XmlItemProperty() With {
.Description = oDescription, .Description = oDescription,
@ -195,7 +196,8 @@ Public Class ThreadRunner
.GroupScope = oGroupScope, .GroupScope = oGroupScope,
.Specification = oSpecification, .Specification = oSpecification,
.XMLPath = oXmlPath.Replace(".Value", ""), .XMLPath = oXmlPath.Replace(".Value", ""),
.ItemType = oItemType .ItemType = oItemType,
.EN16931_ID = oEN16931Value
}) })
Next Next