From af8280ef315338272d190dc55b29615f714de459 Mon Sep 17 00:00:00 2001
From: Jonathan Jenne <j.jenne@didalog.de>
Date: Thu, 4 Jan 2018 10:41:27 +0100
Subject: [PATCH] =?UTF-8?q?jj=20Feld=20Dateiname=20hinzuf=C3=BCgen?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 app/ResultHandler_Konfig/clsDateiverarbeitung.vb | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/app/ResultHandler_Konfig/clsDateiverarbeitung.vb b/app/ResultHandler_Konfig/clsDateiverarbeitung.vb
index aa4cc69..84781d5 100644
--- a/app/ResultHandler_Konfig/clsDateiverarbeitung.vb
+++ b/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