Index: BL/Legacy/FLOWTOE3.cls.xml
===================================================================
diff -u
--- BL/Legacy/FLOWTOE3.cls.xml	(revision 0)
+++ BL/Legacy/FLOWTOE3.cls.xml	(revision 63237)
@@ -0,0 +1,73 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="BL.Legacy.FLOWTOE3">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="HeeftToeleveringMinstensEenSpaceStep">
+<ClassMethod>1</ClassMethod>
+<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()
+	
+	#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
+]]></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>
+<Implementation><![CDATA[
+	
+	#dim DateTimeAPI= ##class(TECH.Context).Instance().GeefDateTimeAPI()
+	#dim ToeleveringAPI As DOM.AKP.ToeleveringAPI = ##class(DOM.DomeinContext).%New().GeefToeleveringAPI()
+	#dim Toelevering As DOM.AKP.Toelevering = ToeleveringAPI.GeefToelevering(ToeleveringNr)
+	
+	#dim MailTo As %ListOfDataTypes = $listbuild("planning_halux@vanhoecke.be")
+	#dim Subject As %String = "SST: toelevering "_ToeleveringNr_" bevat "_Toelevering.GeefAantalProducten()_" stuks en heeft due out = "_DateTimeAPI.HorologToTimeStamp(Toelevering.GeefDueOutTime())_" - klant "_$Extract(Toelevering.GeefKlantID(),4,*)
+
+    #dim Body As %String = ##class(%GlobalCharacterStream).%New()
+	#dim Message As %String = ""
+   	Do Body.WriteLine(Message)
+   	
+   	Do ##class(Tools.Wlip).%New(26).String(Subject)
+   	
+	//Do SendMiniMail^vhLib($$$SystemMail("SST in toelevering"_ToeleveringNr),MailTo,Subject,Body,1,1)
+	
+	Quit
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>