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

ZUGFeRD Dienst: Lesen des XML-PATH-Wertes in die Property-Objekte, für spätere Verwendung

Browse Source
This commit is contained in:
PitzM 2024-07-10 14:18:17 +02:00
parent e4d258cde6
commit 89391ed599
2 changed files with 9 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,13 +1,9 @@
Imports System.IO Imports System.IO
Imports System.Reflection
Imports System.Security.Cryptography Imports System.Security.Cryptography
Imports System.Text.RegularExpressions
Imports System.Xml
Imports DigitalData.Modules Imports DigitalData.Modules
Imports DigitalData.Modules.Database Imports DigitalData.Modules.Database
Imports DigitalData.Modules.Interfaces Imports DigitalData.Modules.Interfaces
Imports DigitalData.Modules.Jobs Imports DigitalData.Modules.Jobs
Imports DigitalData.Modules.Jobs.ImportZUGFeRDFiles
Imports DigitalData.Modules.Logging Imports DigitalData.Modules.Logging
Public Class Form1 Public Class Form1
@ -36,7 +32,7 @@ Public Class Form1
Dim oResult As DataTable = _mssql.GetDatatable(oSQL) Dim oResult As DataTable = _mssql.GetDatatable(oSQL)
For Each oRow As DataRow In oResult.Rows For Each oRow As DataRow In oResult.Rows
Dim xmlPath = oRow.Item("XML_PATH") Dim xmlPath As String = oRow.Item("XML_PATH")
Dim tableName = oRow.Item("TABLE_NAME") Dim tableName = oRow.Item("TABLE_NAME")
Dim tableColumn = oRow.Item("TABLE_COLUMN") Dim tableColumn = oRow.Item("TABLE_COLUMN")
Dim description = oRow.Item("DESCRIPTION") Dim description = oRow.Item("DESCRIPTION")
@ -52,7 +48,8 @@ Public Class Form1
.IsRequired = isRequired, .IsRequired = isRequired,
.IsGrouped = isGrouped, .IsGrouped = isGrouped,
.GroupScope = groupScope, .GroupScope = groupScope,
.Specification = specification .Specification = specification,
.XMLPath = xmlPath.Replace(".Value", "")
}) })
Next Next
@ -86,7 +83,8 @@ Public Class Form1
.OriginalEmailDirectory = "E:\TestFiles\ZUGFERDService\Result\Original_eml", .OriginalEmailDirectory = "E:\TestFiles\ZUGFERDService\Result\Original_eml",
.RejectedEmailDirectory = "E:\TestFiles\ZUGFERDService\Result\Rejected_eml", .RejectedEmailDirectory = "E:\TestFiles\ZUGFERDService\Result\Rejected_eml",
.AttachmentsSubDirectory = "Attachments", .AttachmentsSubDirectory = "Attachments",
.RejectionTemplateId = 1 .RejectionTemplateId = 1,
.MinFileAgeInMinutes = 1
} }
args = LoadPropertyMapFor(args) args = LoadPropertyMapFor(args)
@ -154,7 +152,7 @@ Public Class Form1
WriteLog("Missing Properties: [{0}]", oResult2.MissingProperties.Count) WriteLog("Missing Properties: [{0}]", oResult2.MissingProperties.Count)
For Each Prop In oResult2.MissingProperties For Each Prop In oResult2.MissingProperties
WriteLog("Missing Property: [{0}]", Prop) WriteLog("Missing Property: [{0}]", Prop.Description)
Next Next
WriteLog("--------------------------------") WriteLog("--------------------------------")

5
Services.ZUGFeRDService/ThreadRunner.vb
View File

@ -173,7 +173,7 @@ Public Class ThreadRunner
Dim oResult As DataTable = _mssql.GetDatatable(oSQL) Dim oResult As DataTable = _mssql.GetDatatable(oSQL)
For Each oRow As DataRow In oResult.Rows For Each oRow As DataRow In oResult.Rows
Dim oXmlPath = oRow.Item("XML_PATH") Dim oXmlPath As String = oRow.Item("XML_PATH")
Dim oTableName = oRow.Item("TABLE_NAME") Dim oTableName = oRow.Item("TABLE_NAME")
Dim oTableColumn = oRow.Item("TABLE_COLUMN") Dim oTableColumn = oRow.Item("TABLE_COLUMN")
Dim oDescription = oRow.Item("DESCRIPTION") Dim oDescription = oRow.Item("DESCRIPTION")
@ -189,7 +189,8 @@ Public Class ThreadRunner
.IsRequired = oIsRequired, .IsRequired = oIsRequired,
.IsGrouped = oIsGrouped, .IsGrouped = oIsGrouped,
.GroupScope = oGroupScope, .GroupScope = oGroupScope,
.Specification = oSpecification .Specification = oSpecification,
.XMLPath = oXmlPath.Replace(".Value", "")
}) })
Next Next