Index: vhUnitTest/APPS/OV/impl/TestFlowObjectInhoudService.cls.xml
===================================================================
diff -u -r29059 -r29689
--- vhUnitTest/APPS/OV/impl/TestFlowObjectInhoudService.cls.xml	(.../TestFlowObjectInhoudService.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/OV/impl/TestFlowObjectInhoudService.cls.xml	(.../TestFlowObjectInhoudService.cls.xml)	(revision 29689)
@@ -159,10 +159,34 @@
 	Kill ^KO1(113220)
 	Do ##class(DOM.VKP.event.OrderEventRaiser).RaiseOrderVerwijderdEvent(113220)
 	
+	Do ..CleanupCorruptedIndicesFromKO1()
+	
 	Do ##super()
 ]]></Implementation>
 </Method>
 
+<Method name="CleanupCorruptedIndicesFromKO1">
+<Private>1</Private>
+<Implementation><![CDATA[
+	// Dit is een tijdelijke oplossing. 
+	// Veel beter is : 
+	//  - BeforeAllTests : VerwijderAlleOrdersVanKlant(KLNr)  --> incl propere opkuis van de indexen!
+	//  - After AllTests : idem
+	
+	#dim KlantNr As %String
+	#dim BONNr As %String
+	#dim OrderID As %String = ""
+	
+	For { Set OrderID=$O(^KO1(OrderID))  Quit:(OrderID="") 
+		Set KlantNr=$P(^KO1(OrderID,"F"),"\",1)
+		Set BONNr=$P(^KO1(OrderID,"F"),"\",2)
+		If (BONNr="") && ('$D(^KOD(KlantNr,"F",OrderID))) {
+			Kill ^KO1(OrderID)
+		}
+	}
+]]></Implementation>
+</Method>
+
 <Method name="TestService">
 <Implementation><![CDATA[
 	Set OrderAPI = ##class(DOM.DomeinContext).Instance().GeefOrderAPI()