AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Modules.Jobs: 4000 Zeichen-Grenze

Browse Source
This commit is contained in:
PitzM 2025-09-02 11:20:14 +02:00
parent f4ba4d9e1d
commit 82139fc30d
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Jobs/ZUGFeRD/ImportZUGFeRDFiles.vb
View File

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