diff --git a/app/ResultHandler_Konfig/clsDateiverarbeitung.vb b/app/ResultHandler_Konfig/clsDateiverarbeitung.vb index e9c677b..3d49409 100644 --- a/app/ResultHandler_Konfig/clsDateiverarbeitung.vb +++ b/app/ResultHandler_Konfig/clsDateiverarbeitung.vb @@ -241,8 +241,9 @@ Public Class clsDateiverarbeitung ' JSON Payload erstellen und serialisieren Dim doc As New BNSDocument() doc.Bemerkung = DOKART - doc.Ivalidfrom = now - doc.Ivaliduntil = now.AddDays(30) + 'Dokumente sollen unbegrenzt gültig sein + 'doc.Ivalidfrom = now + 'doc.Ivaliduntil = now.AddDays(30) doc.Pfad = link doc.Dateiname = WMFile.aName doc.Kategorien = New List(Of BNSDocumentCategory) From { @@ -407,8 +408,9 @@ Public Class clsDateiverarbeitung Public Class BNSDocument Public Doksourcetype As Integer = 3 Public Pfad As String - Public Ivalidfrom As DateTime - Public Ivaliduntil As DateTime + 'Dokumente sollen unbegrenzt gültig sein + 'Public Ivalidfrom As DateTime + 'Public Ivaliduntil As DateTime Public Bemerkung As String Public Primaer As Boolean = False Public Fremsysid As Integer = 1