jj 02.05: Ivalidfrom, Ivaliduntil entfernen, kein Ablaufdatum für Dateien

This commit is contained in:
Jonathan Jenne 2018-05-02 14:53:25 +02:00
parent 8e66004110
commit 5b8b013d2f

View File

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