jj Feld Dateiname hinzufügen

app/ResultHandler_Konfig/clsDateiverarbeitung.vb

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