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

Diverse Korrekturen

Browse Source
This commit is contained in:
PitzM 2025-08-08 11:49:40 +02:00
parent 74049888b6
commit aa3a798b24
1 changed files with 44 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,9 +1,10 @@
Imports System.Globalization Imports System.IO
Imports System.IO Imports System.Reflection
Imports System.Security.Cryptography Imports System.Security.Cryptography
Imports DigitalData.Modules.Config Imports DigitalData.Modules.Config
Imports DigitalData.Modules.Database Imports DigitalData.Modules.Database
Imports DigitalData.Modules.Interfaces Imports DigitalData.Modules.Interfaces
Imports DigitalData.Modules.Interfaces.ZUGFeRDInterface
Imports DigitalData.Modules.Jobs Imports DigitalData.Modules.Jobs
Imports DigitalData.Modules.Logging Imports DigitalData.Modules.Logging
@ -154,6 +155,10 @@ Public Class Form1
Dim oDoc = _zugferd.ValidateZUGFeRDFileWithGDPicture(OpenFileDialog1.FileName) Dim oDoc = _zugferd.ValidateZUGFeRDFileWithGDPicture(OpenFileDialog1.FileName)
Dim oZUGFERD = _zugferd.SerializeZUGFeRDDocument(oDoc) Dim oZUGFERD = _zugferd.SerializeZUGFeRDDocument(oDoc)
Console.WriteLine() Console.WriteLine()
Catch ex As DigitalData.Modules.Interfaces.Exceptions.ZUGFeRDExecption
Dim oErrorCode = GetRejectionCodeNumber(ex.ErrorCode)
Dim oMessage = oErrorCode + " - (" + ex.ErrorCode.ToString() + ") - " + ex.Message
MsgBox(oMessage, MsgBoxStyle.OkOnly, "ZUGFeRDExecption")
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message) MsgBox(ex.Message)
End Try End Try
@ -207,7 +212,9 @@ Public Class Form1
Dim oArgs As New WorkerArgs() With { Dim oArgs As New WorkerArgs() With {
.AllowFacturX = True, .AllowFacturX = True,
.AllowXRechnung = True, .AllowXRechnung = True,
.AllowPeppolBISBill3x = True .AllowPeppolBISBill3x = True,
.AllowZugferd23x = True,
.AllowZugferd2x = True
} }
oArgs = LoadPropertyMapListFor(oArgs) oArgs = LoadPropertyMapListFor(oArgs)
@ -242,6 +249,7 @@ Public Class Form1
End If End If
Next Next
WriteLog("--------------------------------")
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.ToString) ''Prop.Description WriteLog("Missing Property: [{0}]", Prop.ToString) ''Prop.Description
@ -249,6 +257,10 @@ Public Class Form1
WriteLog("--------------------------------") WriteLog("--------------------------------")
End If End If
Catch ex As DigitalData.Modules.Interfaces.Exceptions.ZUGFeRDExecption
Dim oErrorCode = GetRejectionCodeNumber(ex.ErrorCode)
Dim oMessage = oErrorCode + " - (" + ex.ErrorCode.ToString() + ") - " + ex.Message
MsgBox(oMessage, MsgBoxStyle.OkOnly, "ZUGFeRDExecption")
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message) MsgBox(ex.Message)
End Try End Try
@ -331,5 +343,34 @@ Public Class Form1
End Sub End Sub
Private Function GetRejectionCodeNumber(pErrorCode As ErrorCodes) As String
Select Case pErrorCode
Case ErrorCodes.ValidationException
Return "20001"
Case ErrorCodes.MD5HashException
Return "20002"
Case ErrorCodes.UnsupportedFerdException
Return "20003"
Case ErrorCodes.InvalidFerdException
Return "20004"
Case ErrorCodes.TooMuchFerdsException
Return "20005"
Case ErrorCodes.InvalidFerdNoXMLAttachmentFound
Return "20006"
Case ErrorCodes.MissingValueException
Return "20007"
Case ErrorCodes.FileSizeLimitReachedException
Return "20008"
Case ErrorCodes.OutOfMemoryException
Return "20009"
Case ErrorCodes.UnhandledException
Return "20010"
Case ErrorCodes.FileMoveException
Return "20011"
Case Else
Return "20010"
End Select
End Function
End Class End Class