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

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

Browse Source
This commit is contained in:
Jonathan Jenne 2018-05-02 14:53:25 +02:00
parent 8e66004110
commit 5b8b013d2f
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
app/ResultHandler_Konfig/clsDateiverarbeitung.vb
View File

@ -241,8 +241,9 @@ Public Class clsDateiverarbeitung
' JSON Payload erstellen und serialisieren ' JSON Payload erstellen und serialisieren
Dim doc As New BNSDocument() Dim doc As New BNSDocument()
doc.Bemerkung = DOKART doc.Bemerkung = DOKART
doc.Ivalidfrom = now 'Dokumente sollen unbegrenzt gültig sein
doc.Ivaliduntil = now.AddDays(30) 'doc.Ivalidfrom = now
'doc.Ivaliduntil = now.AddDays(30)
doc.Pfad = link doc.Pfad = link
doc.Dateiname = WMFile.aName doc.Dateiname = WMFile.aName
doc.Kategorien = New List(Of BNSDocumentCategory) From { doc.Kategorien = New List(Of BNSDocumentCategory) From {
@ -404,8 +405,9 @@ Public Class clsDateiverarbeitung
Public Class BNSDocument Public Class BNSDocument
Public Doksourcetype As Integer = 3 Public Doksourcetype As Integer = 3
Public Pfad As String Public Pfad As String
Public Ivalidfrom As DateTime 'Dokumente sollen unbegrenzt gültig sein
Public Ivaliduntil As DateTime 'Public Ivalidfrom As DateTime
'Public Ivaliduntil As DateTime
Public Bemerkung As String Public Bemerkung As String
Public Primaer As Boolean = False Public Primaer As Boolean = False
Public Fremsysid As Integer = 1 Public Fremsysid As Integer = 1