Index: DOM/AKP/impl/ToeleveringService.cls.xml
===================================================================
diff -u -r68989 -r69019
--- DOM/AKP/impl/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 68989)
+++ DOM/AKP/impl/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 69019)
@@ -214,6 +214,28 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsToeleveringEnkelVoorSpecialWorkshop">
+<FormalSpec>ToeleveringID:%String=""</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim IsToeleveringEnkelVoorSpecialWorkshop As %Boolean = $$$False
+	
+	If (##class(TECH.StringUtils).IsEmpty(ToeleveringID)) {
+		Set Exception = ##class(TECH.Exceptions.InvalidInputException).%New("Geen toeleveringNr meegegeven.")
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
+	
+	#dim Toelevering As DOM.AKP.Toelevering = ..ToeleveringApi.GeefToelevering(ToeleveringID)
+	#dim ProductGroepen As %ListOfDataTypes = Toelevering.GeefProductieGroepen()
+	
+	If ((ProductGroepen.Count() = 1) && (ProductGroepen.GetAt(1) = ##class(APPS.Halux.common.enu.ProductieGroep).SpecialWorkshop())) {
+		Set IsToeleveringEnkelVoorSpecialWorkshop = $$$True
+	}
+	
+	Quit IsToeleveringEnkelVoorSpecialWorkshop
+]]></Implementation>
+</Method>
+
 <Method name="HeeftGekoppeldKenmerkSpaceStep">
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
 <Private>1</Private>
Index: DOM/AKP/impl/DataM/DataMLeverancierToeleveringSpecialWorkshopIt.cls.xml
===================================================================
diff -u -r69011 -r69019
--- DOM/AKP/impl/DataM/DataMLeverancierToeleveringSpecialWorkshopIt.cls.xml	(.../DataMLeverancierToeleveringSpecialWorkshopIt.cls.xml)	(revision 69011)
+++ DOM/AKP/impl/DataM/DataMLeverancierToeleveringSpecialWorkshopIt.cls.xml	(.../DataMLeverancierToeleveringSpecialWorkshopIt.cls.xml)	(revision 69019)
@@ -75,7 +75,7 @@
 	Set ToeleveringsService = ##class(DOM.AKP.impl.ToeleveringService).%New()
 	
 	If ($Length(VolgendeToeleveringNr) > 0) {
-		Set IsValid = ToeleveringsService.BevatToeleveringRevegoProducten(VolgendeToeleveringNr)
+		Set IsValid = ToeleveringsService.IsToeleveringEnkelVoorSpecialWorkshop(VolgendeToeleveringNr)
 	}
 	
 	Quit IsValid
Index: vhTest/Mock/DOM/AKP/impl/ToeleveringService.cls.xml
===================================================================
diff -u -r68989 -r69019
--- vhTest/Mock/DOM/AKP/impl/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 68989)
+++ vhTest/Mock/DOM/AKP/impl/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 69019)
@@ -63,6 +63,13 @@
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("HeeftToeleveringMinstensEenSpaceStep",ToeleveringNr)
 ]]></Implementation>
 </Method>
+
+<Method name="IsToeleveringEnkelVoorSpecialWorkshop">
+<FormalSpec>ToeleveringID:%String=""</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("IsToeleveringEnkelVoorSpecialWorkshop",ToeleveringID)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Fake/DOM/AKP/impl/ToeleveringService.cls.xml
===================================================================
diff -u -r68989 -r69019
--- vhTest/Fake/DOM/AKP/impl/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 68989)
+++ vhTest/Fake/DOM/AKP/impl/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 69019)
@@ -7,15 +7,16 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>DOM.AKP.impl.ToeleveringService</Super>
 
-<Method name="GeefKlant">
-<FormalSpec>ToeleveringID:%String</FormalSpec>
-<ReturnType>DOM.VKP.VanHoeckeKlant</ReturnType>
+<Method name="BevatToeleveringRevegoProducten">
+<FormalSpec>ToeleveringID:%String=""</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[	Quit ""
 ]]></Implementation>
 </Method>
 
-<Method name="BevatToeleveringRevegoProducten">
-<ReturnType>%Boolean</ReturnType>
+<Method name="GeefKlant">
+<FormalSpec>ToeleveringID:%String</FormalSpec>
+<ReturnType>DOM.VKP.VanHoeckeKlant</ReturnType>
 <Implementation><![CDATA[	Quit ""
 ]]></Implementation>
 </Method>
@@ -54,6 +55,13 @@
 <Implementation><![CDATA[	Quit ""
 ]]></Implementation>
 </Method>
+
+<Method name="IsToeleveringEnkelVoorSpecialWorkshop">
+<FormalSpec>ToeleveringID:%String=""</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: DOM/AKP/ToeleveringService.cls.xml
===================================================================
diff -u -r68989 -r69019
--- DOM/AKP/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 68989)
+++ DOM/AKP/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 69019)
@@ -40,6 +40,12 @@
 <FormalSpec>ToeleveringID:%String=""</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 </Method>
+
+<Method name="IsToeleveringEnkelVoorSpecialWorkshop">
+<Abstract>1</Abstract>
+<FormalSpec>ToeleveringID:%String=""</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+</Method>
 </Class>
 
 
Index: vhTest/Mock/DOM/AKP/ToeleveringService.cls.xml
===================================================================
diff -u -r68989 -r69019
--- vhTest/Mock/DOM/AKP/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 68989)
+++ vhTest/Mock/DOM/AKP/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 69019)
@@ -48,6 +48,13 @@
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("HeeftToeleveringMinstensEenSpaceStep",ToeleveringNr)
 ]]></Implementation>
 </Method>
+
+<Method name="IsToeleveringEnkelVoorSpecialWorkshop">
+<FormalSpec>ToeleveringID:%String=""</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("IsToeleveringEnkelVoorSpecialWorkshop",ToeleveringID)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/DOM/AKP/impl/ToeleveringService/IsToeleveringEnkelVoorSpecialWorkshop/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/AKP/impl/ToeleveringService/IsToeleveringEnkelVoorSpecialWorkshop/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/AKP/impl/ToeleveringService/IsToeleveringEnkelVoorSpecialWorkshop/Test.cls.xml	(revision 69019)
@@ -0,0 +1,98 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.AKP.impl.ToeleveringService.IsToeleveringEnkelVoorSpecialWorkshop.Test">
+<Super>vhUnitTest.DOM.AKP.impl.ToeleveringService.TestBase</Super>
+
+<Property name="ToeleveringMock">
+<Type>vhTest.Mock.DOM.AKP.Toelevering</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ToeleveringApiMock">
+<Type>DOM.AKP.ToeleveringAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductTypeApiMock">
+<Type>DOM.PM.ProductTypeAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	
+	Set ..ToeleveringMock = ##class(vhTest.Utils.DOM.AKP.Toelevering).StandaardToeleveringHoofding()
+	Set ..ToeleveringApiMock = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).%New()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Toeleveringnummer is leeg">
+<Implementation><![CDATA[
+	#dim Substring = ##class(TECH.ListUtils).CreateListOfDataTypes("Geen toeleveringNr meegegeven.")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException",Substring))
+	
+	Set ToeleveringService = ##class(DOM.AKP.impl.ToeleveringService).%New()
+	#dim BevatRVG As %Boolean = ToeleveringService.BevatToeleveringRevegoProducten()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Toelevering bevat één productiegroep en is niet SpecialWorkshop geeft false">
+<Implementation><![CDATA[
+	#dim ProductieGroepen As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	Do ProductieGroepen.Insert(##class(APPS.Halux.common.enu.ProductieGroep).Pallet())
+	
+	Do ..ToeleveringMock.VerwachtMethodCall("GeefProductieGroepen").DanReturn(ProductieGroepen)
+	Do ..ToeleveringApiMock.VerwachtMethodCall("GeefToelevering", ..ToeleveringMock.GeefID()).DanReturn(..ToeleveringMock)
+	
+	Set ToeleveringService = ##class(DOM.AKP.impl.ToeleveringService).%New(..ToeleveringApiMock, ..ProductTypeApiMock)
+	#dim IsToeleveringEnkelVoorSpecialWorkshop As %Boolean = ToeleveringService.IsToeleveringEnkelVoorSpecialWorkshop(..ToeleveringMock.GeefID())
+	
+	Do $$$AssertFalse(IsToeleveringEnkelVoorSpecialWorkshop)
+	
+	Do ..ToeleveringMock.Verifieer()
+	Do ..ToeleveringApiMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Toelevering bevat één productiegroep en is wel SpecialWorkshop geeft true">
+<Implementation><![CDATA[
+	#dim ProductieGroepen As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	Do ProductieGroepen.Insert(##class(APPS.Halux.common.enu.ProductieGroep).SpecialWorkshop())
+	
+	Do ..ToeleveringMock.VerwachtMethodCall("GeefProductieGroepen").DanReturn(ProductieGroepen)
+	Do ..ToeleveringApiMock.VerwachtMethodCall("GeefToelevering", ..ToeleveringMock.GeefID()).DanReturn(..ToeleveringMock)
+	
+	Set ToeleveringService = ##class(DOM.AKP.impl.ToeleveringService).%New(..ToeleveringApiMock, ..ProductTypeApiMock)
+	#dim IsToeleveringEnkelVoorSpecialWorkshop As %Boolean = ToeleveringService.IsToeleveringEnkelVoorSpecialWorkshop(..ToeleveringMock.GeefID())
+	
+	Do $$$AssertTrue(IsToeleveringEnkelVoorSpecialWorkshop)
+	
+	Do ..ToeleveringMock.Verifieer()
+	Do ..ToeleveringApiMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Toelevering bevat meerdere productiegroep met oa SpecialWorkshop geeft false">
+<Implementation><![CDATA[
+	#dim ProductieGroepen As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	Do ProductieGroepen.Insert(##class(APPS.Halux.common.enu.ProductieGroep).SpecialWorkshop())
+	Do ProductieGroepen.Insert(##class(APPS.Halux.common.enu.ProductieGroep).Pallet())
+	
+	Do ..ToeleveringMock.VerwachtMethodCall("GeefProductieGroepen").DanReturn(ProductieGroepen)
+	Do ..ToeleveringApiMock.VerwachtMethodCall("GeefToelevering", ..ToeleveringMock.GeefID()).DanReturn(..ToeleveringMock)
+	
+	Set ToeleveringService = ##class(DOM.AKP.impl.ToeleveringService).%New(..ToeleveringApiMock, ..ProductTypeApiMock)
+	#dim IsToeleveringEnkelVoorSpecialWorkshop As %Boolean = ToeleveringService.IsToeleveringEnkelVoorSpecialWorkshop(..ToeleveringMock.GeefID())
+	
+	Do $$$AssertFalse(IsToeleveringEnkelVoorSpecialWorkshop)
+	
+	Do ..ToeleveringMock.Verifieer()
+	Do ..ToeleveringApiMock.Verifieer()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>