Index: DOM/AKP/impl/DataM/DataMLeverancierToeleveringSpecialWorkshopIt.cls.xml
===================================================================
diff -u
--- DOM/AKP/impl/DataM/DataMLeverancierToeleveringSpecialWorkshopIt.cls.xml	(revision 0)
+++ DOM/AKP/impl/DataM/DataMLeverancierToeleveringSpecialWorkshopIt.cls.xml	(revision 69011)
@@ -0,0 +1,87 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.AKP.impl.DataM.DataMLeverancierToeleveringSpecialWorkshopIt">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,TECH.Iterator</Super>
+<Inheritance>right</Inheritance>
+
+<Property name="LeverancierNr">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LeverancierID">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="VolgendeToeleveringNr">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>LeverancierNr:%Integer</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..LeverancierNr = LeverancierNr
+	Set ..LeverancierID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefLeverancierPartijID(LeverancierNr)
+	Do ..BepaalVolgende()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="HasNext">
+<Description>
+Returns true if the iteration has more elements.</Description>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..VolgendeToeleveringNr '= ""
+]]></Implementation>
+</Method>
+
+<Method name="Next">
+<Description>
+Returns the next element in the iteration.
+Only returns a valid element if HasNext() returns true
+Causes an error if HasNext() returns false</Description>
+<ReturnType>%CacheString</ReturnType>
+<Implementation><![CDATA[
+	Set Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).%New(..VolgendeToeleveringNr,..LeverancierID)
+	Do ..BepaalVolgende()
+	Quit Toelevering
+]]></Implementation>
+</Method>
+
+<Method name="BepaalVolgende">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ..VolgendeToeleveringNr = $Order(^KTO2(..LeverancierNr,..VolgendeToeleveringNr))
+	
+	While (($Length(..VolgendeToeleveringNr) > 0) &&  '..IsValid(..VolgendeToeleveringNr))
+	{
+		Set ..VolgendeToeleveringNr = $Order(^KTO2(..LeverancierNr,..VolgendeToeleveringNr))
+	}
+]]></Implementation>
+</Method>
+
+<Method name="IsValid">
+<FormalSpec>VolgendeToeleveringNr:%Integer</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim IsValid As %Boolean = 0
+	Set ToeleveringsService = ##class(DOM.AKP.impl.ToeleveringService).%New()
+	
+	If ($Length(VolgendeToeleveringNr) > 0) {
+		Set IsValid = ToeleveringsService.BevatToeleveringRevegoProducten(VolgendeToeleveringNr)
+	}
+	
+	Quit IsValid
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/DOM/AKP/Leverancier.cls.xml
===================================================================
diff -u -r35816 -r69011
--- vhTest/Mock/DOM/AKP/Leverancier.cls.xml	(.../Leverancier.cls.xml)	(revision 35816)
+++ vhTest/Mock/DOM/AKP/Leverancier.cls.xml	(.../Leverancier.cls.xml)	(revision 69011)
@@ -3,8 +3,7 @@
 <Class name="vhTest.Mock.DOM.AKP.Leverancier">
 <Description>
 Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
-Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
-Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
 <Super>DOM.AKP.Leverancier,Tools.Mock.MockClassBase</Super>
 
 <Method name="GeefAanspreking">
@@ -169,6 +168,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefToeleveringIteratorVoorSpecialWorkshop">
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefToeleveringIteratorVoorSpecialWorkshop")
+]]></Implementation>
+</Method>
+
 <Method name="GeefToenaam">
 <ReturnType>%Library.String</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefToenaam")
Index: DOM/AKP/Leverancier.cls.xml
===================================================================
diff -u -r35816 -r69011
--- DOM/AKP/Leverancier.cls.xml	(.../Leverancier.cls.xml)	(revision 35816)
+++ DOM/AKP/Leverancier.cls.xml	(.../Leverancier.cls.xml)	(revision 69011)
@@ -158,6 +158,11 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="GeefToeleveringIteratorVoorSpecialWorkshop">
+<Abstract>1</Abstract>
+<ReturnType>TECH.Iterator</ReturnType>
+</Method>
+
 <Method name="GeefOpenstaandeFacturenIterator">
 <Abstract>1</Abstract>
 <ReturnType>TECH.Iterator</ReturnType>
Index: APPS/Halux/Planning/impl/BatchService.cls.xml
===================================================================
diff -u -r69010 -r69011
--- APPS/Halux/Planning/impl/BatchService.cls.xml	(.../BatchService.cls.xml)	(revision 69010)
+++ APPS/Halux/Planning/impl/BatchService.cls.xml	(.../BatchService.cls.xml)	(revision 69011)
@@ -432,8 +432,27 @@
 <ReturnTypeParams>ELEMENTTYPE="APPS.Halux.Planning.dto.TandemboxBatch"</ReturnTypeParams>
 <Implementation><![CDATA[
 	#dim MaatwerkBatches As array of APPS.Halux.Planning.dto.TandemboxBatch = ##class(%ArrayOfObjects).%New()
-	#dim ToeleveringIterator As TECH.Iterator = ##class(DOM.DomeinContext).Instance().GeefAankoopAPI().GeefLeverancier(##class(DOM.AKP.enu.Leverancier).Halux()).GeefToeleveringIterator()
+	#dim ToeleveringenVoorHaluxIterator As TECH.Iterator = ##class(DOM.DomeinContext).Instance().GeefAankoopAPI().GeefLeverancier(##class(DOM.AKP.enu.Leverancier).Halux()).GeefToeleveringIterator()
+	#dim ToeleveringenVoorSpecialWorkshopIterator As TECH.Iterator = ##class(DOM.DomeinContext).Instance().GeefAankoopAPI().GeefLeverancier(##class(DOM.AKP.enu.Leverancier).VanHoecke()).GeefToeleveringIteratorVoorSpecialWorkshop()
 	
+	Do ..VoegToeleveringToeAanMaatwerkBatches(ToeleveringenVoorHaluxIterator)
+	Do ..VoegToeleveringToeAanMaatwerkBatches(ToeleveringenVoorSpecialWorkshopIterator)
+	
+	#dim MaatwerkBatchLijst As %ListOfObjects = ##class(%ListOfObjects).%New()
+	#dim Iterator As TECH.Iterator = ##class(TECH.ListIterator).%New(MaatwerkBatches)
+	
+	while (Iterator.HasNext()) {
+		do MaatwerkBatchLijst.Insert(Iterator.Next())
+	}
+	
+	quit MaatwerkBatchLijst
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeleveringToeAanMaatwerkBatches">
+<FormalSpec><![CDATA[&MaatwerkBatches:%ArrayOfObjects,Datum:%Date,ToeleveringIterator:TECH.Iterator]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
 	While (ToeleveringIterator.HasNext()) {
 		#dim Toelevering As DOM.AKP.Toelevering = ToeleveringIterator.Next()
 		
@@ -464,15 +483,6 @@
 			Do ##class(vhLib.Logger).%New().LogEnMailExceptie(##class(TECH.ExceptionHandler).Catch())
 		}
 	}
-	
-	#dim MaatwerkBatchLijst As %ListOfObjects = ##class(%ListOfObjects).%New()
-	#dim Iterator As TECH.Iterator = ##class(TECH.ListIterator).%New(MaatwerkBatches)
-	
-	while (Iterator.HasNext()) {
-		do MaatwerkBatchLijst.Insert(Iterator.Next())
-	}
-	
-	quit MaatwerkBatchLijst
 ]]></Implementation>
 </Method>
 
Index: DOM/AKP/impl/DataM/DataMLeverancier.cls.xml
===================================================================
diff -u -r35816 -r69011
--- DOM/AKP/impl/DataM/DataMLeverancier.cls.xml	(.../DataMLeverancier.cls.xml)	(revision 35816)
+++ DOM/AKP/impl/DataM/DataMLeverancier.cls.xml	(.../DataMLeverancier.cls.xml)	(revision 69011)
@@ -237,6 +237,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefToeleveringIteratorVoorSpecialWorkshop">
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.AKP.impl.DataM.DataMLeverancierToeleveringSpecialWorkshopIt).%New(..LeverancierNummer)
+]]></Implementation>
+</Method>
+
 <Method name="GeefOpenstaandeFacturenIterator">
 <ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[	quit ##class(DOM.AKP.impl.DataM.DataMLeverancierOpenstaandeFacturenIterator).%New(..GeefID())