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 DigitalData.Modules.Config
Imports DigitalData.Modules.Database
Imports DigitalData.Modules.Interfaces
Imports DigitalData.Modules.Interfaces.ZUGFeRDInterface
Imports DigitalData.Modules.Jobs
Imports DigitalData.Modules.Logging
@ -154,6 +155,10 @@ Public Class Form1
Dim oDoc = _zugferd.ValidateZUGFeRDFileWithGDPicture(OpenFileDialog1.FileName)
Dim oZUGFERD = _zugferd.SerializeZUGFeRDDocument(oDoc)
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
MsgBox(ex.Message)
End Try
@ -207,7 +212,9 @@ Public Class Form1
Dim oArgs As New WorkerArgs() With {
.AllowFacturX = True,
.AllowXRechnung = True,
.AllowPeppolBISBill3x = True
.AllowPeppolBISBill3x = True,
.AllowZugferd23x = True,
.AllowZugferd2x = True
}
oArgs = LoadPropertyMapListFor(oArgs)
@ -242,6 +249,7 @@ Public Class Form1
End If
Next
WriteLog("--------------------------------")
WriteLog("Missing Properties: [{0}]", oResult2.MissingProperties.Count)
For Each Prop In oResult2.MissingProperties
WriteLog("Missing Property: [{0}]", Prop.ToString) ''Prop.Description
@ -249,6 +257,10 @@ Public Class Form1
WriteLog("--------------------------------")
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
MsgBox(ex.Message)
End Try
@ -331,5 +343,34 @@ Public Class Form1
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