Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/HerberekenMaatwerk/LijnCacheValidator.cls.xml
===================================================================
diff -u
--- WSimpl/Vhisie4/Winkelkar/WinkelkarService/HerberekenMaatwerk/LijnCacheValidator.cls.xml	(revision 0)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/HerberekenMaatwerk/LijnCacheValidator.cls.xml	(revision 39415)
@@ -0,0 +1,59 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.Vhisie4.Winkelkar.WinkelkarService.HerberekenMaatwerk.LijnCacheValidator">
+<Super>TECH.RegisteredObject</Super>
+
+<Parameter name="Vhisie3">
+<Type>%String</Type>
+<Default>Vhisie3</Default>
+</Parameter>
+
+<Parameter name="Vhisie4">
+<Type>%String</Type>
+<Default>Vhisie4</Default>
+</Parameter>
+
+<Property name="WinkelkarId">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="ValidateCache">
+<FormalSpec>WinkelkarId:%String,WinkelkarLijnenCache:%ArrayOfObjects</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set ..WinkelkarId = WinkelkarId
+	
+	#dim ExceptionList As TECH.ExceptionList = ##class(TECH.ExceptionList).%New()
+	
+	#dim WinkelkarLijnenCacheIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(WinkelkarLijnenCache)
+	While WinkelkarLijnenCacheIterator.HasNext() {
+		#dim WinkelkarLijnen As %ArrayOfObjects = WinkelkarLijnenCacheIterator.Next()
+		If $$$Not($IsObject(WinkelkarLijnen.GetAt(..#Vhisie4))) {
+			Set InnerException = ##class(TECH.Exceptions.InvalidInputException).%New("Vhisie3 winkelkarlijn " _WinkelkarLijnen.GetAt(..#Vhisie3).ExterneId _" heeft geen overeenkomstige Vhisie4 winkelkarlijn.")
+			Do ExceptionList.Insert(InnerException)
+		} elseIf $$$Not($IsObject(WinkelkarLijnen.GetAt(..#Vhisie3))) {
+			Set InnerException = ##class(TECH.Exceptions.InvalidInputException).%New("Vhisie4 winkelkarlijn " _WinkelkarLijnen.GetAt(..#Vhisie4).ID _" heeft geen overeenkomstige Vhisie3 winkelkarlijn.")
+			Do ExceptionList.Insert(InnerException)
+		}
+	}
+
+	Do ..ThrowException(ExceptionList)
+]]></Implementation>
+</Method>
+
+<Method name="ThrowException">
+<FormalSpec>ExceptionList:TECH.ExceptionList</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If ExceptionList.Count() > 0 {
+		Set Exception = ##class(TECH.Exceptions.InvalidInputException).%New("Er zijn fouten voor winkelkar met ID " _..WinkelkarId )
+		Do Exception.VoegToeInnerExcepties(ExceptionList)
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/HerberekenMaatwerk/LijnCacheBuilder.cls.xml
===================================================================
diff -u -r39385 -r39415
--- WSimpl/Vhisie4/Winkelkar/WinkelkarService/HerberekenMaatwerk/LijnCacheBuilder.cls.xml	(.../LijnCacheBuilder.cls.xml)	(revision 39385)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/HerberekenMaatwerk/LijnCacheBuilder.cls.xml	(.../LijnCacheBuilder.cls.xml)	(revision 39415)
@@ -34,6 +34,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="LijnCacheValidator">
+<Type>WSimpl.Vhisie4.Winkelkar.WinkelkarService.HerberekenMaatwerk.LijnCacheValidator</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>Vhisie3WinkelkarUtils:APPS.EC.Winkelkar.impl.WinkelkarUtils,Vhisie4WinkelkarUtils:WSimpl.Vhisie4.Winkelkar.WinkelkarUtils</FormalSpec>
 <Private>1</Private>
@@ -43,6 +48,7 @@
 <Implementation><![CDATA[
 	Set ..Vhisie3WinkelkarUtils = $$$Inject(Vhisie3WinkelkarUtils, ##class(APPS.EC.Winkelkar.impl.WinkelkarUtils).%New())
 	Set ..Vhisie4WinkelkarUtils = $$$Inject(Vhisie4WinkelkarUtils,##class(WSimpl.Vhisie4.Winkelkar.WinkelkarUtils).%New())
+	Set ..LijnCacheValidator = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.HerberekenMaatwerk.LijnCacheValidator).%New()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -63,7 +69,7 @@
 
 	Set ..WinkelkarId = Vhisie4Winkelkar.ID
 	
-	Do ..ValidateCache()
+	Do ..LijnCacheValidator.ValidateCache(..WinkelkarId, ..WinkelkarLijnenCache)
 	
 	Quit ..WinkelkarLijnenCache
 ]]></Implementation>
@@ -86,41 +92,6 @@
 	}
 ]]></Implementation>
 </Method>
-
-<Method name="ValidateCache">
-<FormalSpec>WinkelkarId:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
-	#dim ExceptionList As TECH.ExceptionList = ##class(TECH.ExceptionList).%New()
-	
-	#dim WinkelkarLijnenCacheIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(..WinkelkarLijnenCache)
-	While WinkelkarLijnenCacheIterator.HasNext() {
-		#dim WinkelkarLijnen As %ArrayOfObjects = WinkelkarLijnenCacheIterator.Next()
-		If $$$Not($IsObject(WinkelkarLijnen.GetAt(..#Vhisie4))) {
-			Set InnerException = ##class(TECH.Exceptions.InvalidInputException).%New("Vhisie3 winkelkarlijn " _WinkelkarLijnen.GetAt(..#Vhisie3).ExterneId _" heeft geen overeenkomstige Vhisie4 winkelkarlijn.")
-			Do ExceptionList.Insert(InnerException)
-		} elseIf $$$Not($IsObject(WinkelkarLijnen.GetAt(..#Vhisie3))) {
-			Set InnerException = ##class(TECH.Exceptions.InvalidInputException).%New("Vhisie4 winkelkarlijn " _WinkelkarLijnen.GetAt(..#Vhisie4).ID _" heeft geen overeenkomstige Vhisie3 winkelkarlijn.")
-			Do ExceptionList.Insert(InnerException)
-		}
-	}
-
-	Do ..ThrowException(ExceptionList)
-]]></Implementation>
-</Method>
-
-<Method name="ThrowException">
-<FormalSpec>ExceptionList:TECH.ExceptionList</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	If ExceptionList.Count() > 0 {
-		Set Exception = ##class(TECH.Exceptions.InvalidInputException).%New("Er zijn fouten voor winkelkar met ID " _..WinkelkarId )
-		Do Exception.VoegToeInnerExcepties(ExceptionList)
-		Do ##class(TECH.ExceptionHandler).Throw(Exception)
-	}
-]]></Implementation>
-</Method>
 </Class>