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

Compare commits

base: AppStd:f4ba4d9e1d15769f8d01864ecc7de776ebb62f9e
Branches Tags
AppStd:master
AppStd:Modules-Update-.Net-8
AppStd:Update-Net-8
AppStd:Database_SqlConnection
..
compare: AppStd:9ae5465c487a765ecd453614aae3ac776afbddce
Branches Tags
AppStd:master
AppStd:Modules-Update-.Net-8
AppStd:Update-Net-8
AppStd:Database_SqlConnection

2 Commits
f4ba4d9e1d ... 9ae5465c48

Author SHA1 Message Date
pitzm
9ae5465c48 Modules.Jobs: Version 3.0.3.0 2025-09-02 11:22:03 +02:00
pitzm
82139fc30d Modules.Jobs: 4000 Zeichen-Grenze 2025-09-02 11:20:14 +02:00
2 changed files with 7 additions and 7 deletions
Show Stats Expand all files Collapse all files

6
Jobs/My Project/AssemblyInfo.vb
View File

@ -13,7 +13,7 @@ Imports System.Runtime.InteropServices
<Assembly: AssemblyCompany("Digital Data")>
<Assembly: AssemblyProduct("Modules.Jobs")>
<Assembly: AssemblyCopyright("Copyright © 2025")>
<Assembly: AssemblyTrademark("3.0.2.0")>
<Assembly: AssemblyTrademark("3.0.3.0")>
<Assembly: ComVisible(False)>
@ -30,5 +30,5 @@ Imports System.Runtime.InteropServices
' Sie können alle Werte angeben oder die standardmäßigen Build- und Revisionsnummern
' übernehmen, indem Sie "*" eingeben:
<Assembly: AssemblyVersion("3.0.2.0")>
<Assembly: AssemblyFileVersion("3.0.2.0")>
<Assembly: AssemblyVersion("3.0.3.0")>
<Assembly: AssemblyFileVersion("3.0.3.0")>

8
Jobs/ZUGFeRD/ImportZUGFeRDFiles.vb
View File

@ -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