diff --git a/.gitignore b/.gitignore
index 1bc915c..3c3f500 100644
--- a/.gitignore
+++ b/.gitignore
@@ -154,3 +154,4 @@ $RECYCLE.BIN/
 
 # Mac desktop service store files
 .DS_Store
+/app/.vs/DD_PM_Server/v15/Server/sqlite3
diff --git a/app/DD_PM_Server/Modul_Main.vb b/app/DD_PM_Server/Modul_Main.vb
index f9a3dab..dd1a7e1 100644
--- a/app/DD_PM_Server/Modul_Main.vb
+++ b/app/DD_PM_Server/Modul_Main.vb
@@ -202,13 +202,12 @@ Module Modul_Main
                         windreamSucheErgebnisse = _windreamPM.GetSearchDocuments(WD_Search)
                         stp = "d"
                         Dim Anzahl_Doks As Integer = 0
-                        If windreamSucheErgebnisse Is Nothing = False Then
-                            If windreamSucheErgebnisse.Count > 0 Then
-                                stp = "e"
-                                'Die aktuellen Files auf refreshed = 0 setzten
-                                Dim upd As String = "UPDATE TBPM_PROFILE_FILES SET REFRESHED = 0 WHERE PROFIL_ID = " & ID
-                                If ClassDatabase.Execute_MSSQL(upd) = True Then
-                                    stp = "e-1"
+                        'Die aktuellen Files auf refreshed = 0 setzten
+                        Dim upd As String = "UPDATE TBPM_PROFILE_FILES SET REFRESHED = 0 WHERE PROFIL_ID = " & ID
+                        If ClassDatabase.Execute_MSSQL(upd) = True Then
+                            If windreamSucheErgebnisse Is Nothing = False Then
+                                If windreamSucheErgebnisse.Count > 0 Then
+                                    stp = "e"
                                     'Ein Array mit Dateiinformationen anlegen
                                     Dim Profil_Docs(windreamSucheErgebnisse.Count - 1, 2) As String
                                     For Each dok As WMObject In windreamSucheErgebnisse
@@ -255,26 +254,29 @@ Module Modul_Main
                                             ClassLogger.Add("###Fehler IN Insert or Update File-Record - ast step: " & stp)
                                             ClassLogger.Add("###Fehler-Nachricht: " & ex.Message)
                                         End Try
-                                       
+
                                         Anzahl_Doks += 1
                                     Next
-                                    stp = "f - vor Delete Refreshed = 0"
-                                    Dim Del As String = "DELETE FROM TBPM_PROFILE_FILES WHERE PROFIL_ID = " & ID & " AND REFRESHED = 0"
-                                    ClassDatabase.Execute_MSSQL(Del)
-                                    '---------------------- Aktuelle Anzahl in Profiltabelle updaten ------------------------
-                                    Dim update As String = "UPDATE TBPM_PROFILE SET NO_OF_DOCUMENTS = " & Anzahl_Doks & " WHERE GUID = " & ID
-                                    stp = "g - " & Anzahl_Doks.ToString
-                                    ClassDatabase.Execute_MSSQL(update)
+
                                     ClassLogger.Add(">> Profil '" & Profile_Row.Item("NAME") & "' aktualisiert - Anzahl Dateien: " & Anzahl_Doks.ToString, False)
+
                                 Else
-                                    ClassLogger.Add(">> ACHTUNG: Refresh konnte nicht ausgeführt werden: " & upd, False)
+                                    stp = "g"
+                                    ClassLogger.Add(">> KEINE DATEIEN FÜR PROFIL VORHANDEN.", False)
                                 End If
                             Else
-                                stp = "g"
-                                ClassLogger.Add(">> KEINE DATEIEN FÜR PROFIL VORHANDEN.", False)
+                                ClassLogger.Add(">> ACHTUNG: WINDREAM-SUCHE ist NOTHING.", False)
                             End If
+                            stp = "Step: vor Delete Refreshed = 0"
+                            Dim Del As String = "DELETE FROM TBPM_PROFILE_FILES WHERE PROFIL_ID = " & ID & " AND REFRESHED = 0"
+                            ClassDatabase.Execute_MSSQL(Del)
+                            '---------------------- Aktuelle Anzahl in Profiltabelle updaten ------------------------
+                            Dim update As String = "UPDATE TBPM_PROFILE SET NO_OF_DOCUMENTS = " & Anzahl_Doks & " WHERE GUID = " & ID
+                            stp = "Step h AnzahlDocs: - " & Anzahl_Doks.ToString
+                            ClassDatabase.Execute_MSSQL(update)
+
                         Else
-                            ClassLogger.Add(">> ACHTUNG: WINDREAM-SUCHE ist NOTHING.", False)
+                            ClassLogger.Add(">> ACHTUNG: Refresh konnte nicht ausgeführt werden: " & upd, False)
                         End If
                     End If
                 Next
diff --git a/app/DD_PM_Server/My Project/AssemblyInfo.vb b/app/DD_PM_Server/My Project/AssemblyInfo.vb
index bc5af8a..d615031 100644
--- a/app/DD_PM_Server/My Project/AssemblyInfo.vb	
+++ b/app/DD_PM_Server/My Project/AssemblyInfo.vb	
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.3.0.1")>
+<Assembly: AssemblyVersion("1.4.0.0")>
 <Assembly: AssemblyFileVersion("1.1.0.0")>