This commit is contained in:
Digital Data - Marlon Schreiber 2018-01-17 17:17:47 +01:00
commit 8e5fd9e663

View File

@ -244,6 +244,7 @@ Public Class clsDateiverarbeitung
doc.Ivalidfrom = now
doc.Ivaliduntil = now.AddDays(30)
doc.Pfad = link
doc.Dateiname = WMFile.aName
doc.Kategorien = New List(Of BNSDocumentCategory) From {
New BNSDocumentCategory With {.Id = GetDocTypeCategory(DOKART)}
}
@ -391,6 +392,7 @@ Public Class clsDateiverarbeitung
Public Primaer As Boolean = False
Public Fremsysid As Integer = 1
Public Kategorien As List(Of BNSDocumentCategory)
Public Dateiname As String
End Class
Public Class BNSDocumentCategory