From 2e78eefe4ef52731c869e11c533cca29a48b6909 Mon Sep 17 00:00:00 2001
From: Jonathan Jenne <j.jenne@didalog.de>
Date: Mon, 7 Jan 2019 14:15:09 +0100
Subject: [PATCH] =?UTF-8?q?jj:=20Weitere=20Jobs=20bei=20Fehler=20in=20RunI?=
 =?UTF-8?q?ndexing=20=C3=BCberspringen?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 app/ClassWMResulthandler/clsProfil.vb | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/app/ClassWMResulthandler/clsProfil.vb b/app/ClassWMResulthandler/clsProfil.vb
index c3ddd8f..c1dfc07 100644
--- a/app/ClassWMResulthandler/clsProfil.vb
+++ b/app/ClassWMResulthandler/clsProfil.vb
@@ -367,7 +367,12 @@ Public Class clsProfil
 
                                                             If arrValue Is Nothing = False Then
                                                                 ' MsgBox("now indexing with: " & idxvalue)
-                                                                windream_index.RunIndexing(WMdok, arrIndex, arrValue, _profObjekttyp)
+                                                                Dim oErrorOccurred = windream_index.RunIndexing(WMdok, arrIndex, arrValue, _profObjekttyp)
+
+                                                                ' 07.01.2019: Weitere Jobs bei Fehler in RunIndexing überspringen
+                                                                If oErrorOccurred = True Then
+                                                                    FileJobSuccessful = False
+                                                                End If
                                                             Else
                                                                 Logger.Warn("arrValue is nothing - keine Indexierung")
                                                             End If