Index: FLOWHALUX.mac.rou
===================================================================
diff -u -r69022 -r69156
--- FLOWHALUX.mac.rou	(.../FLOWHALUX.mac.rou)	(revision 69022)
+++ FLOWHALUX.mac.rou	(.../FLOWHALUX.mac.rou)	(revision 69156)
@@ -26,7 +26,7 @@
 SetDueOutProductieTOELEV(TOENr,Forced)
  New LevNr,VroegsteDueOut
  Set LevNr=$P(^KTO1(TOENr),D)
- Quit:('##class(BL.Legacy.FLOWHALUX).IsLeverancieHaluxOfVanHoeckeMetRevego(LevNr, TOENr))
+ Quit:LevNr'=$$$LevHalux
  Quit:'$G(Forced)&&($P(^KTO(LevNr,TOENr,1),D,19)) ; reeds ingevuld
  Set VroegsteDueOut=$$GetDueOutProductieTOELEV(LevNr,TOENr)
  Do PutDueOutProductieTOELEV(LevNr,TOENr,VroegsteDueOut)
@@ -53,7 +53,7 @@
  Set DateComparator = ##class(TECH.Comparator.DateComparator).%New()
  Set CurrentDate = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate()
  
- Quit:('##class(BL.Legacy.FLOWHALUX).IsLeverancieHaluxOfVanHoeckeMetRevego(LevNr, TOENr)) ""
+ Quit:LevNr'=$$$LevHalux ""
  Set VroegsteDueOut=""
  Set TLNr=100
  For  Set TLNr=$O(^KTO(LevNr,TOENr,TLNr)) Quit:TLNr=""  Do