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

Merge branch 'master' of http://172.24.11.74:90/scm/git/windreamResulHandlerMSSQL

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber 2018-05-03 10:31:18 +02:00
commit fadc882ba9
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 {
@ -407,8 +408,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