Index: FLOWHALUX.mac.rou
===================================================================
diff -u -r63368 -r63842
--- FLOWHALUX.mac.rou	(.../FLOWHALUX.mac.rou)	(revision 63368)
+++ FLOWHALUX.mac.rou	(.../FLOWHALUX.mac.rou)	(revision 63842)
@@ -16,7 +16,8 @@
  . Quit:$LF(CacheTOENr,TOENr)
  . Set CacheTOENr=CacheTOENr_$LB(TOENr)
  . Do SetDueOutProductieTOELEV(TOENr,.Forced)
- . If (##class(BL.Legacy.FLOWHALUX).HeeftToeleveringMinstensEenSpaceStep(TOENr)) Do
+ . Set ToeleveringsService = ##class(DOM.AKP.impl.ToeleveringService).%New()	
+ . If (ToeleveringsService.HeeftToeleveringMinstensEenSpaceStep(TOENr)) Do
  . . Do ##class(BL.Legacy.FLOWHALUX).VerstuurSpaceStepInToeleveringMail(TOENr)
  Quit
  
Index: BL/Legacy/FLOWHALUX.cls.xml
===================================================================
diff -u -r63685 -r63842
--- BL/Legacy/FLOWHALUX.cls.xml	(.../FLOWHALUX.cls.xml)	(revision 63685)
+++ BL/Legacy/FLOWHALUX.cls.xml	(.../FLOWHALUX.cls.xml)	(revision 63842)
@@ -3,17 +3,6 @@
 <Class name="BL.Legacy.FLOWHALUX">
 <Super>TECH.RegisteredObject</Super>
 
-<Method name="HeeftToeleveringMinstensEenSpaceStep">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>ToeleveringNr:%String</FormalSpec>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
-	Set ToeleveringsService = ##class(DOM.AKP.impl.ToeleveringService).%New()
-	
-	Quit ToeleveringsService.HeeftToeleveringMinstensEenSpaceStep(ToeleveringNr)
-]]></Implementation>
-</Method>
-
 <Method name="VerstuurSpaceStepInToeleveringMail">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>ToeleveringNr:%String</FormalSpec>