From adbd0fe99b0bc3a7e005e6cb41c7de51dec982d7 Mon Sep 17 00:00:00 2001 From: pitzm Date: Tue, 19 Aug 2025 12:37:38 +0200 Subject: [PATCH] =?UTF-8?q?Modules.Jobs:=20K=C3=BCrzen=20der=20ITEM=5FVALU?= =?UTF-8?q?E-Werte=20entfernt.=20Tabelle=20muss=20VARCHAR(max)=20vorsehen.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Jobs/ZUGFeRD/ImportZUGFeRDFiles.vb | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/Jobs/ZUGFeRD/ImportZUGFeRDFiles.vb b/Jobs/ZUGFeRD/ImportZUGFeRDFiles.vb index 27292537..d9f09710 100644 --- a/Jobs/ZUGFeRD/ImportZUGFeRDFiles.vb +++ b/Jobs/ZUGFeRD/ImportZUGFeRDFiles.vb @@ -1185,9 +1185,9 @@ 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 > 900 Then + ' _logger.Warn("Value for field [{0}] is longer than 900 characters, will be truncated!", oProperty.TableColumn) + 'End If Dim oDescription As String If oProperty.EN16931_ID IsNot Nothing AndAlso oProperty.EN16931_ID.Length > 1 Then @@ -1199,7 +1199,8 @@ 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.Truncate(900) + oNewRow("ITEM_VALUE") = oProperty.Value oNewRow("GROUP_COUNTER") = oGroupCounterValue oNewRow("SPEC_NAME") = oProperty.TableColumn oNewRow("IS_REQUIRED") = oProperty.IsRequired