relayhub

VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/RELAYHUB/cRelayHub.vb

@@ -83,6 +83,7 @@ Public Class cRelayHub
 
     Public Class cRelayHubAdditionalSettings
         Public Property combineOptions As List(Of String)
+        Public Property combineItemsPriorityDocumentType As String
     End Class
 
     Public Class cRelayHubJobOrderRequest
@@ -295,7 +296,9 @@ Public Class cRelayHub
                         "description", "commodity_code", "country_of_origin", "unit_type"
                     }
 
-            If req.additionalSettings IsNot Nothing AndAlso req.additionalSettings.combineOptions IsNot Nothing Then
+            If req.additionalSettings IsNot Nothing Then
+
+                If req.additionalSettings.combineOptions IsNot Nothing Then
                     Dim cleaned = req.additionalSettings.combineOptions.
                 Where(Function(o) Not String.IsNullOrWhiteSpace(o)).
                 Select(Function(o) o.Trim().ToLowerInvariant()).
@@ -306,6 +309,15 @@ Public Class cRelayHub
                     req.additionalSettings.combineOptions = cleaned
                 End If
 
+                req.additionalSettings.combineItemsPriorityDocumentType =
+            If(req.additionalSettings.combineItemsPriorityDocumentType, "").Trim()
+
+                If req.additionalSettings.combineItemsPriorityDocumentType = "" Then
+                    req.additionalSettings.combineItemsPriorityDocumentType = Nothing
+                End If
+
+            End If
+
             Return req
         End Function