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>