Modules.Interface: ZUGFeRD 2.4 - Schema-Klasse und Aufruf ergänzt

Interfaces/Interfaces.vbproj

@@ -269,6 +269,7 @@
     <Compile Include="ZUGFeRDInterface\Version2.2_FacturX\CrossIndustryInvoiceType.vb" />
     <Compile Include="ZUGFeRDInterface\Version2.3_3_FacturX\CrossIndustryInvoiceType.vb" />
     <Compile Include="ZUGFeRDInterface\Version2.3_FacturX\CrossIndustryInvoiceType.vb" />
+    <Compile Include="ZUGFeRDInterface\Version2.4_FacturX\CrossIndustryInvoiceType.vb" />
     <Compile Include="ZUGFeRDInterface\XmlItemProperty.vb" />
   </ItemGroup>
   <ItemGroup>

Interfaces/ZUGFeRDInterface.vb

@@ -29,6 +29,7 @@ Public Class ZUGFeRDInterface
     Public Const XMLSCHEMA_ZUGFERD_22 = "Version2_2_FacturX"
     Public Const XMLSCHEMA_ZUGFERD_23 = "Version2_3_FacturX"
     Public Const XMLSCHEMA_ZUGFERD_233 = "Version2_3_3_FacturX"
+    Public Const XMLSCHEMA_ZUGFERD_24 = "Version2_4_FacturX"
     Public Const XMLSCHEMA_UBL_21_INVOICE = "UBL2_1_INVOICE"
     Public Const XMLSCHEMA_UBL_21_CREDITNOTE = "UBL2_1_CREDITNOTE"
 
@@ -396,9 +397,14 @@ Public Class ZUGFeRDInterface
                 })
             End If
 
-            '' Reihenfolge ab 2.3 geändert. Neuste Version immer zuerst
+            '' Reihenfolge ab 2.3 geändert. Neuste Version immer zuerst bzw. oben
             If _Options.AllowZugferd_2_3_x_Schema Then
                 oAllowedTypes.AddRange(New List(Of AllowedType) From {
+                    New AllowedType With {
+                        .SchemaType = GetType(Version2_4_FacturX.CrossIndustryInvoiceType),
+                        .Specification = ZUGFERD_SPEC_2_3x,
+                        .XMLSchema = XMLSCHEMA_ZUGFERD_24
+                    },
                     New AllowedType With {
                         .SchemaType = GetType(Version2_3_3_FacturX.CrossIndustryInvoiceType),
                         .Specification = ZUGFERD_SPEC_2_3x,