Index: FLOWORD7.mac.rou
===================================================================
diff -u -r63240 -r68952
--- FLOWORD7.mac.rou	(.../FLOWORD7.mac.rou)	(revision 63240)
+++ FLOWORD7.mac.rou	(.../FLOWORD7.mac.rou)	(revision 68952)
@@ -148,7 +148,7 @@
  ..Set R=^KPR(PRNr,1),IsStock=$P(R,D,20),R=^KPR(PRNr,2),InOrder=$P(R,D,9)
  ..Set R=^KPR(PRNr,$O(^KPR(PRNr,"J"))),LEVNr=$P(R,D),MinBestH=$P(R,D,6),PrMunt=$P(R,D,17)
  ..Quit:((InventTransId'="")&&($$OrderLijnIsGeblokkeerd(InventTransId)))
- ..Quit:((LEVNr'=$$$LevHalux)||IsStock)
+ ..Quit:(((LEVNr'=$$$LevHalux) && '(##class(BL.Legacy.FLOWORD7).BevatOrderRevegoProducten(ORDNr) && (LEVNr=$$$LevVanHoecke)))||IsStock)
  ..Set LevTerm=$P(R,D,7),GrootVp=$P(R,D,16) Set:'GrootVp GrootVp=1
  ..If IsStock Quit:$$CALCDATE^vhLib.DataTypes(,"W")+(LevTerm+1*7)>OLevWk
  ..Set OrdToe("P",LEVNr)=PrMunt,OrdToe("P",LEVNr,OLNr)=""
@@ -460,7 +460,8 @@
 ToeLevBSControl(ORDNr,Control)
  New R,KLNr,LEVNr,TOENr,PRNr,FBLocal,Data
  Set KLNr=$P(^KO1(ORDNr,"F"),D),LEVNr=""
- For  Set LEVNr=$O(Control("T",LEVNr)) Quit:(LEVNr="")||(LEVNr'=$$$LevHalux)  Do
+ For  Set LEVNr=$O(Control("T",LEVNr)) Quit:(LEVNr="")||((LEVNr'=$$$LevHalux) || (LEVNr'=$$$LevVanHoecke))  Do
+ . Do ##class(Tools.Wlip).%New(26).String("Test maken toelevering")
  . Kill PRNr
  . Merge PRNr=Control("T",LEVNr)
  . Do BUILDOBJ^FLOWTOE(.PRNr,KLNr_" - "_ORDNr,1,,"FBLocal")
FishEye: Tag 63240 refers to a dead (removed) revision in file `BL/Legacy/FLOWORD7.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?