Jobs: Version 2.5.7.0

Jobs/My Project/AssemblyInfo.vb

@@ -13,7 +13,7 @@ Imports System.Runtime.InteropServices
 <Assembly: AssemblyCompany("Digital Data")>
 <Assembly: AssemblyProduct("Modules.Jobs")>
 <Assembly: AssemblyCopyright("Copyright © 2024")>
-<Assembly: AssemblyTrademark("2.5.6.0")>
+<Assembly: AssemblyTrademark("2.5.7.0")>
 
 <Assembly: ComVisible(False)>
 
@@ -30,5 +30,5 @@ Imports System.Runtime.InteropServices
 ' Sie können alle Werte angeben oder die standardmäßigen Build- und Revisionsnummern 
 ' übernehmen, indem Sie "*" eingeben:
 
-<Assembly: AssemblyVersion("2.5.6.0")>
-<Assembly: AssemblyFileVersion("2.5.6.0")>
+<Assembly: AssemblyVersion("2.5.7.0")>
+<Assembly: AssemblyFileVersion("2.5.7.0")>

Jobs/ZUGFeRD/EmailFunctions.vb

@@ -47,7 +47,7 @@ Namespace ZUGFeRD
             ' ErrorCode valid?
             If pErrorCode <> ErrorCode.Unknown Then
                 Dim intCode As Integer = DirectCast(pErrorCode, Integer)
-                oErrorCode = $"ZUGFERD_Rejection_{intCode}"
+                oErrorCode = $"{EmailStrings.ErrorCodePraefix}{intCode}"
 
                 Dim oSQL = $"SELECT COUNT(*) FROM TBDD_GUI_LANGUAGE_PHRASE WHERE TITLE = '{oErrorCode}'"
                 If _mssql.GetScalarValue(oSQL) > 0 Then

Jobs/ZUGFeRD/EmailStrings.vb

@@ -57,4 +57,10 @@
     Public Const EMAIL_UNSUPPORTED_DOCUMENT = "
         <p>Ihre Email ({0}) enthielt ein ZUGFeRD Format ({1}), welches zur Zeit noch nicht freigeschaltet ist.</p>
     "
+
+    ''' <summary>
+    ''' Präfix für den verwendeten ErrorCode
+    ''' Beispiel: ZUGFERD_Rejection_20001 
+    ''' </summary>
+    Public Const ErrorCodePraefix = "ZUGFERD_Rejection_"
 End Class