Index: DOM/EC/Winkelkar/Winkelkar.cls.xml
===================================================================
diff -u -r38788 -r60594
--- DOM/EC/Winkelkar/Winkelkar.cls.xml	(.../Winkelkar.cls.xml)	(revision 38788)
+++ DOM/EC/Winkelkar/Winkelkar.cls.xml	(.../Winkelkar.cls.xml)	(revision 60594)
@@ -69,6 +69,7 @@
 
 <Index name="ExterneIdIndex">
 <Properties>ExterneId</Properties>
+<Unique>1</Unique>
 </Index>
 
 <Index name="onKlantID">
@@ -314,10 +315,24 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	#dim LijnIterator = ..Root.SublijnIterator()
+	
 	While (LijnIterator.HasNext())
 	{
-		Do LijnIterator.Next().Accept(Visitor)
+		#dim WinkelkarLijn As DOM.EC.Winkelkar.Lijn = LijnIterator.Next()
+		
+		If $IsObject(WinkelkarLijn) {
+			#dim OperatieScope As TECH.OperatieScope = ##class(TECH.OperatieScope).StartMetTx()
+			
+			Try {
+				Do WinkelkarLijn.Accept(Visitor)
+				Do OperatieScope.Gelukt()
+			} Catch {
+				Do OperatieScope.Gefaald()
+				Do ##class(TECH.ExceptionHandler).Rethrow()
+			}
+		}
 	}
+	
 	Do Visitor.Finalize()
 	
 	Quit $$$OK
@@ -351,6 +366,15 @@
 ]]></Implementation>
 </Method>
 
+<Method name="HeeftHerbestellingBijProbleem">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	set IsHerBestellingBijProbleemBepaler = ##class(DOM.EC.Winkelkar.Visitors.IsHerbestellingBijProbleemBepaler).%New()
+	Do ..Accept(IsHerBestellingBijProbleemBepaler)
+	Quit IsHerBestellingBijProbleemBepaler.HerbestellingBijProbleem
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^DOM.EC.Winkelkar.WinkelkarD</DataLocation>