diff --git a/Jobs/ZUGFeRD/ImportZUGFeRDFiles.vb b/Jobs/ZUGFeRD/ImportZUGFeRDFiles.vb
index d9f09710..cbd73eb3 100644
--- a/Jobs/ZUGFeRD/ImportZUGFeRDFiles.vb
+++ b/Jobs/ZUGFeRD/ImportZUGFeRDFiles.vb
@@ -1185,9 +1185,10 @@ 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
+            If oProperty.Value.Length > 4000 Then
+                _logger.Warn("Value for field [{0}] is longer than 4000 characters, will be truncated!", oProperty.TableColumn)
+                oProperty.Value = oProperty.Value.Truncate(4000)
+            End If
 
             Dim oDescription As String
             If oProperty.EN16931_ID IsNot Nothing AndAlso oProperty.EN16931_ID.Length > 1 Then
@@ -1199,7 +1200,6 @@ Public Class ImportZUGFeRDFiles
             Dim oNewRow As DataRow = oDataTable.NewRow()
             oNewRow("REFERENCE_GUID") = pMessageId
             oNewRow("ITEM_DESCRIPTION") = oDescription
-            'oNewRow("ITEM_VALUE") = oProperty.Value.Truncate(900)
             oNewRow("ITEM_VALUE") = oProperty.Value
             oNewRow("GROUP_COUNTER") = oGroupCounterValue
             oNewRow("SPEC_NAME") = oProperty.TableColumn