From e911d979666739cc1eda80b762e95bad3f64a96f Mon Sep 17 00:00:00 2001
From: pitzm <m.pitz@digitaldata.works>
Date: Mon, 8 Jul 2024 14:29:52 +0200
Subject: [PATCH] ZUGFRD-8: Positionstext darf maximal 900 Zeichen lang sein.

---
 Jobs/ZUGFeRD/ImportZUGFeRDFiles.vb | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/Jobs/ZUGFeRD/ImportZUGFeRDFiles.vb b/Jobs/ZUGFeRD/ImportZUGFeRDFiles.vb
index 4525c82a..c8e675b7 100644
--- a/Jobs/ZUGFeRD/ImportZUGFeRDFiles.vb
+++ b/Jobs/ZUGFeRD/ImportZUGFeRDFiles.vb
@@ -645,10 +645,14 @@ Public Class ImportZUGFeRDFiles
                 oGroupCounterValue = 0
             End If
 
+            If oProperty.Value.Length > 900 Then
+                _logger.Warn("Value for field [{0}] is longer than 900 characters, will be truncated!", oProperty.TableColumn)
+            End If
+
             Dim oNewRow As DataRow = oDataTable.NewRow()
             oNewRow("REFERENCE_GUID") = pMessageId
             oNewRow("ITEM_DESCRIPTION") = oProperty.Description
-            oNewRow("ITEM_VALUE") = oProperty.Value.Replace("'", "''")
+            oNewRow("ITEM_VALUE") = oProperty.Value.Truncate(900).Replace("'", "''")
             oNewRow("GROUP_COUNTER") = oGroupCounterValue
             oNewRow("SPEC_NAME") = oProperty.TableColumn
             oNewRow("IS_REQUIRED") = oProperty.IsRequired