From 5b8b013d2f1be1b33c14c6804f38332eb1d09794 Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Wed, 2 May 2018 14:53:25 +0200 Subject: [PATCH] =?UTF-8?q?jj=2002.05:=20Ivalidfrom,=20Ivaliduntil=20entfe?= =?UTF-8?q?rnen,=20kein=20Ablaufdatum=20f=C3=BCr=20Dateien?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- app/ResultHandler_Konfig/clsDateiverarbeitung.vb | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/app/ResultHandler_Konfig/clsDateiverarbeitung.vb b/app/ResultHandler_Konfig/clsDateiverarbeitung.vb index a3ff47e..1316262 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 { @@ -404,8 +405,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