Index: BL/Legacy/FLOWTOE3.cls.xml
===================================================================
diff -u -r63237 -r63240
--- BL/Legacy/FLOWTOE3.cls.xml	(.../FLOWTOE3.cls.xml)	(revision 63237)
+++ BL/Legacy/FLOWTOE3.cls.xml	(.../FLOWTOE3.cls.xml)	(revision 63240)
@@ -60,9 +60,7 @@
 	#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)
+	Do SendMiniMail^vhLib($$$SystemMail("SST in toelevering"_ToeleveringNr),MailTo,Subject,Body,1,1)
 	
 	Quit
 ]]></Implementation>
Index: FLOWORD7.mac.rou
===================================================================
diff -u -r62057 -r63240
--- FLOWORD7.mac.rou	(.../FLOWORD7.mac.rou)	(revision 62057)
+++ FLOWORD7.mac.rou	(.../FLOWORD7.mac.rou)	(revision 63240)
@@ -198,7 +198,6 @@
  ...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 
- .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
FishEye: Tag 63240 refers to a dead (removed) revision in file `BL/Legacy/FLOWORD7.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: FLOWTOE3.mac.rou
===================================================================
diff -u -r61589 -r63240
--- FLOWTOE3.mac.rou	(.../FLOWTOE3.mac.rou)	(revision 61589)
+++ FLOWTOE3.mac.rou	(.../FLOWTOE3.mac.rou)	(revision 63240)
@@ -624,7 +624,6 @@
  . Set LastSortKey = SortKey  
  
  If $D(arSplit("~~~~")) Set SortKey=$O(arSplit("")) Merge arSplit(SortKey)=arSplit("~~~~") Kill arSplit("~~~~") ; Eventueel nog wachtende lijnen aan de eerste groep toevoegen
- 
  Quit:$O(arSplit($O(arSplit(""))))=""  // geen split nodig indien alles onder de zelfde sortkey valt
   
  Set SortKey=$O(arSplit("")) 			   //eerste index blijft altijd op originele bon staan
@@ -643,6 +642,12 @@
  . If LEVNr=5005 S ^BLBeri("Z",NTOENr)=LEVNr_D
  . Do ##class(DOM.AKP.event.ToeleveringEventRaiser).RaiseToeleveringGemaaktEvent(NTOENr)
  . // Algemeen automatisch splitsen van te grote LBX toeleveringen zou hier kunnen, � la Do SplitHaluxProd(NTOENr,?,/*BeperkOpGrootte=*/$$$True)
+ .
+ . If (##class(BL.Legacy.FLOWTOE3).HeeftToeleveringMinstensEenSpaceStep(NTOENr)) Do
+ . . Do ##class(BL.Legacy.FLOWTOE3).VerstuurSpaceStepInToeleveringMail(NTOENr)
+ 
+ If (##class(BL.Legacy.FLOWTOE3).HeeftToeleveringMinstensEenSpaceStep(TOENr)) Do
+ . Do ##class(BL.Legacy.FLOWTOE3).VerstuurSpaceStepInToeleveringMail(TOENr)
  Quit
  
  ;