Index: BL/Legacy/FLOWHALUX.cls.xml
===================================================================
diff -u -r63440 -r63653
--- BL/Legacy/FLOWHALUX.cls.xml	(.../FLOWHALUX.cls.xml)	(revision 63440)
+++ BL/Legacy/FLOWHALUX.cls.xml	(.../FLOWHALUX.cls.xml)	(revision 63653)
@@ -8,42 +8,12 @@
 <FormalSpec>ToeleveringNr:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	#dim ToeleveringAPI As DOM.AKP.ToeleveringAPI = ##class(DOM.DomeinContext).%New().GeefToeleveringAPI()
-	#dim ProductTypeAPI As DOM.PM.ProductTypeAPI = ##class(DOM.DomeinContext).%New().GeefProductTypeAPI()
-	#dim Toelevering As DOM.AKP.Toelevering = ToeleveringAPI.GeefToelevering(ToeleveringNr)
-	#dim ProductLijnIterator = Toelevering.GeefProductLijnIterator()
+	Set ToeleveringsService = ##class(DOM.AKP.ToeleveringService).%New()
 	
-	#dim HeeftToeleveringMinstensEenSpaceStep As %Boolean = $$$False
-	#dim Product As DOM.PM.MaatwerkProduct
-	#dim ProductLijn As DOM.AKP.ProductToeleveringLijn	
-	
-	While ProductLijnIterator.HasNext() {
-		Set ProductLijn = ProductLijnIterator.Next()
-		
-		If ProductTypeAPI.IsMaatwerkProduct(ProductLijn.GeefProductID()) {
-			Set Product = ProductTypeAPI.GeefMaatwerkProduct(ProductLijn.GeefProductID())
-			
-			If (Product.HeeftProductSpecificatie()) && (..HeeftGekoppeldKenmerkSpaceStep(Product.GeefIngegevenKenmerken())) {
-				Set HeeftToeleveringMinstensEenSpaceStep = $$$True
-			}
-		}
-	}
-	
-	Quit HeeftToeleveringMinstensEenSpaceStep
+	Quit ToeleveringsService.HeeftToeleveringMinstensEenSpaceStep(ToeleveringNr)
 ]]></Implementation>
 </Method>
 
-<Method name="HeeftGekoppeldKenmerkSpaceStep">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
-<Private>1</Private>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
-	#dim IngegevenKenmerkenAPI As DOM.PM.IngegevenKenmerkenAPI = ##class(DOM.DomeinContext).Instance().GeefIngegevenKenmerkenAPI()
-	Quit IngegevenKenmerkenAPI.HeeftGekoppeldeSpaceStep(IngegevenKenmerken)
-]]></Implementation>
-</Method>
-
 <Method name="VerstuurSpaceStepInToeleveringMail">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>ToeleveringNr:%String</FormalSpec>