From aa3a798b24d3ed693785b0b6d7ce946e176ea6d0 Mon Sep 17 00:00:00 2001
From: pitzm <m.pitz@digitaldata.works>
Date: Fri, 8 Aug 2025 11:49:40 +0200
Subject: [PATCH] Diverse Korrekturen

---
 GUIs.Test.ZUGFeRDTest/Form1.vb | 47 +++++++++++++++++++++++++++++++---
 1 file changed, 44 insertions(+), 3 deletions(-)

diff --git a/GUIs.Test.ZUGFeRDTest/Form1.vb b/GUIs.Test.ZUGFeRDTest/Form1.vb
index 9f07700a..dd355b4b 100644
--- a/GUIs.Test.ZUGFeRDTest/Form1.vb
+++ b/GUIs.Test.ZUGFeRDTest/Form1.vb
@@ -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