This commit is contained in:
Digital Data - Marlon Schreiber 2018-05-03 10:31:18 +02:00
commit fadc882ba9

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