Index: BL/Legacy/FLOWORD7.cls.xml
===================================================================
diff -u
--- BL/Legacy/FLOWORD7.cls.xml	(revision 0)
+++ BL/Legacy/FLOWORD7.cls.xml	(revision 62057)
@@ -0,0 +1,71 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="BL.Legacy.FLOWORD7">
+<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 ..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(),3,*)
+
+    #dim Body As %String = ##class(%GlobalCharacterStream).%New()
+	#dim Message As %String = ""
+   	Do Body.WriteLine(Message)
+   	
+	Do SendMiniMail^vhLib($$$SystemMail("SST in toelevering"_ToeleveringNr),MailTo,Subject,Body,1,1)
+	
+	Quit
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: FLOWORD7.mac.rou
===================================================================
diff -u -r54806 -r62057
--- FLOWORD7.mac.rou	(.../FLOWORD7.mac.rou)	(revision 54806)
+++ FLOWORD7.mac.rou	(.../FLOWORD7.mac.rou)	(revision 62057)
@@ -197,7 +197,8 @@
  ...New TLNr
  ...Set TLNr=TOENr
  ...Do INSERT^FLOWTOE2(R,"E",,0)
- .Set (^KTO1(TOENr),^KTOB(TOENr))=LEVNr_D,^KTO2(LEVNr,TOENr)="" Set:LEVNr=5005 ^BLBeri("Z",TOENr)=LEVNr_D
+ .Set (^KTO1(TOENr),^KTOB(TOENr))=LEVNr_D,^KTO2(LEVNr,TOENr)="" Set:LEVNr=5005 ^BLBeri("Z",TOENr)=LEVNr_D 
+ .If (##class(BL.Legacy.FLOWORD7).HeeftToeleveringMinstensEenSpaceStep(TOENr)) Do ##class(BL.Legacy.FLOWORD7).VerstuurSpaceStepInToeleveringMail(TOENr)
  .Do ##class(DOM.AKP.event.ToeleveringEventRaiser).RaiseToeleveringGemaaktEvent(TOENr)
  .Do REMOVE^vhLock("^KTO(LEVNr,TOENr)")
  Quit
@@ -355,6 +356,8 @@
  . Set R=^PRBS("BS",PRNr,BSKey)
  . Set BSPRNr=$P(R,D)
  . Quit:'BSPRNr
+ . Set BSCode=$P(R,D,11)
+ . Quit:( ("�INK"=BSCode) || ("�EXP"=BSCode) )
  . Set BSAantal=$P(R,D,2),BSType=$P(R,D,3)
  . If 'InclVerpak,$$IsVerpakking^PRODUKT2(BSPRNr) Quit
  . Set Dimensie=$G(^PRBS("BS",PRNr,BSKey,"D"))