Index: DOM/AKP/enu/Leverancier/AutoComplete.cls.xml
===================================================================
diff -u -r68993 -r69156
--- DOM/AKP/enu/Leverancier/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 68993)
+++ DOM/AKP/enu/Leverancier/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 69156)
@@ -22,13 +22,6 @@
 <Transient>1</Transient>
 <ReadOnly>1</ReadOnly>
 </Property>
-
-<Property name="VanHoecke">
-<Type>%String</Type>
-<InitialExpression>"L||6051"</InitialExpression>
-<Transient>1</Transient>
-<ReadOnly>1</ReadOnly>
-</Property>
 </Class>
 
 
Index: DOM/AKP/enu/Leverancier/Verwerker.cls.xml
===================================================================
diff -u -r68993 -r69156
--- DOM/AKP/enu/Leverancier/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 68993)
+++ DOM/AKP/enu/Leverancier/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 69156)
@@ -16,8 +16,6 @@
 		Do ..VerwerkBlum()
 	} ElseIf Leverancier = "L||6332" {
 		Do ..VerwerkHalux()
-	} ElseIf Leverancier = "L||6051" {
-		Do ..VerwerkVanHoecke()
 	} Else {
 		Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(Leverancier,"DOM.AKP.enu.Leverancier",$classname())
 		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
@@ -36,12 +34,6 @@
 <Private>1</Private>
 <Implementation><![CDATA[]]></Implementation>
 </Method>
-
-<Method name="VerwerkVanHoecke">
-<Abstract>1</Abstract>
-<Private>1</Private>
-<Implementation><![CDATA[]]></Implementation>
-</Method>
 </Class>
 
 
FishEye: Tag 69156 refers to a dead (removed) revision in file `DOM/AKP/impl/DataM/DataMLeverancierToeleveringSpecialWorkshopIt.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: APPS/Halux/Planning/impl/EventCatcher.cls.xml
===================================================================
diff -u -r68995 -r69156
--- APPS/Halux/Planning/impl/EventCatcher.cls.xml	(.../EventCatcher.cls.xml)	(revision 68995)
+++ APPS/Halux/Planning/impl/EventCatcher.cls.xml	(.../EventCatcher.cls.xml)	(revision 69156)
@@ -10,7 +10,7 @@
 <FormalSpec>Event:DOM.AKP.event.ProductToelevLijnGemaakt</FormalSpec>
 <Implementation><![CDATA[
 	#dim EventData As DOM.AKP.event.ProductToelevLijnEventData = Event.Data
-	If (..IsGeldigeLeverancier(EventData))
+	If (EventData.GeefLeverancierID() = ##class(DOM.AKP.enu.Leverancier).Halux())
 	{
 		#dim ProductLijn As DOM.AKP.ProductToeleveringLijn = EventData.GeefProductToeleveringLijn()
 		Set Calculator = ##class(APPS.Halux.Planning.impl.ResourceGebruikCalculator).%New(ProductLijn.GeefToelevering())
@@ -24,7 +24,7 @@
 <FormalSpec>Event:DOM.AKP.event.ProductToelevLijnGewijzigd</FormalSpec>
 <Implementation><![CDATA[
 	#dim EventData As DOM.AKP.event.ProductToelevLijnWijzigEventData = Event.Data
-	If (..IsGeldigeLeverancier(EventData))
+	If (EventData.GeefLeverancierID() = ##class(DOM.AKP.enu.Leverancier).Halux())
 	{
 		#dim ProductLijn As DOM.AKP.ProductToeleveringLijn = EventData.GeefProductToeleveringLijn()
 		#dim Toelevering As DOM.AKP.Toelevering = ProductLijn.GeefToelevering()
@@ -55,7 +55,7 @@
 <FormalSpec>EventData:DOM.AKP.event.ProductToelevLijnEventData</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	If (..IsGeldigeLeverancier(EventData))
+	If (EventData.GeefLeverancierID() = ##class(DOM.AKP.enu.Leverancier).Halux())
 	{
 		Do ##class(APPS.Halux.Planning.impl.ResourceGebruikCalculator).VerwijderProductToeleveringLijn(EventData.GeefToeleveringID(),EventData.GeefToeleveringLijnCode())
 	}
@@ -67,7 +67,7 @@
 <FormalSpec>InvoerUitvoerLinkAangemaaktEvent:DOM.ProdRes.event.InvoerUitvoerLinkAangemaaktEvent</FormalSpec>
 <Implementation><![CDATA[
 	#dim EventData As DOM.ProdRes.event.InvoerUitvoerLinkEventData = InvoerUitvoerLinkAangemaaktEvent.Data	
-	If (..IsGeldigeLeverancier(EventData))
+	If (EventData.GeefLeverancierID() = ##class(DOM.AKP.enu.Leverancier).Halux())
 	{
 		Do ..UpdateOrderGegevens(EventData.GeefToeleveringID())
 	}
@@ -79,7 +79,7 @@
 <FormalSpec>InvoerUitvoerLinkVerbrokenEvent:DOM.ProdRes.event.InvoerUitvoerLinkVerbrokenEvent</FormalSpec>
 <Implementation><![CDATA[
 	#dim EventData As DOM.ProdRes.event.InvoerUitvoerLinkEventData = InvoerUitvoerLinkVerbrokenEvent.Data
-	If (..IsGeldigeLeverancier(EventData))
+	If (EventData.GeefLeverancierID() = ##class(DOM.AKP.enu.Leverancier).Halux())
 	{
 		Do ..UpdateOrderGegevens(EventData.GeefToeleveringID())
 	}
@@ -98,17 +98,6 @@
 	Do ToeleveringInfo.Save()
 ]]></Implementation>
 </Method>
-
-<Method name="IsGeldigeLeverancier">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>EventData:DOM.ProdRes.event.InvoerUitvoerLinkEventData</FormalSpec>
-<Private>1</Private>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
-	Set ToeleveringsService = ##class(DOM.AKP.impl.ToeleveringService).%New()
-	Quit ((EventData.GeefLeverancierID() = ##class(DOM.AKP.enu.Leverancier).Halux()) || (EventData.GeefLeverancierID() = ##class(DOM.AKP.enu.Leverancier).VanHoecke() && ToeleveringsService.BevatToeleveringRevegoProducten(EventData.GeefToeleveringID())))
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: vhTest/Mock/DOM/AKP/ToeleveringService.cls.xml
===================================================================
diff -u -r69019 -r69156
--- vhTest/Mock/DOM/AKP/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 69019)
+++ vhTest/Mock/DOM/AKP/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 69156)
@@ -48,13 +48,6 @@
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("HeeftToeleveringMinstensEenSpaceStep",ToeleveringNr)
 ]]></Implementation>
 </Method>
-
-<Method name="IsToeleveringEnkelVoorSpecialWorkshop">
-<FormalSpec>ToeleveringID:%String=""</FormalSpec>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("IsToeleveringEnkelVoorSpecialWorkshop",ToeleveringID)
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: DOM/AKP/ToeleveringService.cls.xml
===================================================================
diff -u -r69019 -r69156
--- DOM/AKP/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 69019)
+++ DOM/AKP/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 69156)
@@ -40,12 +40,6 @@
 <FormalSpec>ToeleveringID:%String=""</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 </Method>
-
-<Method name="IsToeleveringEnkelVoorSpecialWorkshop">
-<Abstract>1</Abstract>
-<FormalSpec>ToeleveringID:%String=""</FormalSpec>
-<ReturnType>%Boolean</ReturnType>
-</Method>
 </Class>
 
 
Index: BL/Legacy/FLOWHALUX.cls.xml
===================================================================
diff -u -r69022 -r69156
--- BL/Legacy/FLOWHALUX.cls.xml	(.../FLOWHALUX.cls.xml)	(revision 69022)
+++ BL/Legacy/FLOWHALUX.cls.xml	(.../FLOWHALUX.cls.xml)	(revision 69156)
@@ -3,24 +3,6 @@
 <Class name="BL.Legacy.FLOWHALUX">
 <Super>TECH.RegisteredObject</Super>
 
-<Method name="IsLeverancieHaluxOfVanHoeckeMetRevego">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>LeverancierNummer:%String,ToeleveringNr:%String</FormalSpec>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
-	Set LegacyPartyAPI = ##class(DOM.PARTIJ.impl.LegacyPartijAPI).%New()
-	Set ToeleveringsService = ##class(DOM.AKP.impl.ToeleveringService).%New()
-	
-	#dim LeverancierIdHalux As %String = LegacyPartyAPI.GeefLeverancierNummerVoorPartijID(##class(DOM.AKP.enu.Leverancier).Halux())
-	#dim LeverancierIdVanHoecke As %String = LegacyPartyAPI.GeefLeverancierNummerVoorPartijID(##class(DOM.AKP.enu.Leverancier).VanHoecke())
-		
-	#dim IsLeverancierHalux As %Boolean = (LeverancierNummer = LeverancierIdHalux)
-	#dim IsLeverancierVanHoeckeMetRevego As %Boolean = ((LeverancierNummer=LeverancierIdVanHoecke) && ToeleveringsService.BevatToeleveringRevegoProducten(ToeleveringNr))
-	
-	Quit (IsLeverancierHalux || IsLeverancierVanHoeckeMetRevego)
-]]></Implementation>
-</Method>
-
 <Method name="VerstuurSpaceStepInToeleveringMail">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>ToeleveringNr:%String</FormalSpec>
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
Index: APPS/Halux/Planning/impl/BatchService.cls.xml
===================================================================
diff -u -r69025 -r69156
--- APPS/Halux/Planning/impl/BatchService.cls.xml	(.../BatchService.cls.xml)	(revision 69025)
+++ APPS/Halux/Planning/impl/BatchService.cls.xml	(.../BatchService.cls.xml)	(revision 69156)
@@ -120,23 +120,11 @@
 <ReturnTypeParams>ELEMENTTYPE="APPS.Halux.Planning.dto.Toelevering"</ReturnTypeParams>
 <Implementation><![CDATA[
 	#dim ToeleveringenNietInBatch As %ListOfObjects = ##class(%ListOfObjects).%New()
+	#dim Builder As APPS.Halux.Planning.impl.BatchService.MaatwerkBatchBuilder = ..GeefMaatwerkBatchBuilder(Categorie)
 	#dim VolgNr As %Integer = 1
-	#dim ToeleveringenVoorHaluxIterator As TECH.Iterator = ##class(DOM.DomeinContext).Instance().GeefAankoopAPI().GeefLeverancier(##class(DOM.AKP.enu.Leverancier).Halux()).GeefToeleveringIterator()
-	#dim ToeleveringenVoorSpecialWorkshopIterator As TECH.Iterator = ##class(DOM.DomeinContext).Instance().GeefAankoopAPI().GeefLeverancier(##class(DOM.AKP.enu.Leverancier).VanHoecke()).GeefToeleveringIteratorVoorSpecialWorkshop()
+	#dim LeverancierHalux As DOM.AKP.Leverancier = ##class(DOM.DomeinContext).Instance().GeefAankoopAPI().GeefLeverancier(##class(DOM.AKP.enu.Leverancier).Halux())
+	#dim ToeleveringIterator As TECH.Iterator = LeverancierHalux.GeefToeleveringIterator()
 	
-	Do ..VoegToeToeleveringenNietInBatch(.ToeleveringenNietInBatch, .VolgNr, Datum, Categorie, ToeleveringenVoorHaluxIterator)
-	Do ..VoegToeToeleveringenNietInBatch(.ToeleveringenNietInBatch, .VolgNr, Datum, Categorie, ToeleveringenVoorSpecialWorkshopIterator)
-	
-	Quit ToeleveringenNietInBatch
-]]></Implementation>
-</Method>
-
-<Method name="VoegToeToeleveringenNietInBatch">
-<FormalSpec><![CDATA[&ToeleveringenNietInBatch:%ListOfObjects,&VolgNr:%Integer,Datum:%Date,Categorie:APPS.Halux.common.enu.Categorie,ToeleveringIterator:TECH.Iterator]]></FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	#dim Builder As APPS.Halux.Planning.impl.BatchService.MaatwerkBatchBuilder = ..GeefMaatwerkBatchBuilder(Categorie)
-	
 	While (ToeleveringIterator.HasNext()) {
 		#dim Toelevering As DOM.AKP.Toelevering = ToeleveringIterator.Next()
 		#dim GeplandOpDatum As %Date = ..GeefGeplandOpDatum(Toelevering.GeefID())
@@ -152,6 +140,8 @@
 			}
 		}
 	}
+	
+	Quit ToeleveringenNietInBatch
 ]]></Implementation>
 </Method>
 
@@ -441,29 +431,9 @@
 <ReturnType>%ListOfObjects</ReturnType>
 <ReturnTypeParams>ELEMENTTYPE="APPS.Halux.Planning.dto.TandemboxBatch"</ReturnTypeParams>
 <Implementation><![CDATA[
-	Do ##class(Tools.Wlip).%New(26).String("Test100")
 	#dim MaatwerkBatches As array of APPS.Halux.Planning.dto.TandemboxBatch = ##class(%ArrayOfObjects).%New()
-	#dim ToeleveringenVoorHaluxIterator As TECH.Iterator = ##class(DOM.DomeinContext).Instance().GeefAankoopAPI().GeefLeverancier(##class(DOM.AKP.enu.Leverancier).Halux()).GeefToeleveringIterator()
-	#dim ToeleveringenVoorSpecialWorkshopIterator As TECH.Iterator = ##class(DOM.DomeinContext).Instance().GeefAankoopAPI().GeefLeverancier(##class(DOM.AKP.enu.Leverancier).VanHoecke()).GeefToeleveringIteratorVoorSpecialWorkshop()
-	Do ##class(Tools.Wlip).%New(26).String("Test200")
-	Do ..VoegToeleveringToeAanMaatwerkBatches(.MaatwerkBatches, Datum, ToeleveringenVoorHaluxIterator)
-	Do ..VoegToeleveringToeAanMaatwerkBatches(.MaatwerkBatches, Datum, ToeleveringenVoorSpecialWorkshopIterator)
-	Do ##class(Tools.Wlip).%New(26).String("Test300")
-	#dim MaatwerkBatchLijst As %ListOfObjects = ##class(%ListOfObjects).%New()
-	#dim Iterator As TECH.Iterator = ##class(TECH.ListIterator).%New(MaatwerkBatches)
+	#dim ToeleveringIterator As TECH.Iterator = ##class(DOM.DomeinContext).Instance().GeefAankoopAPI().GeefLeverancier(##class(DOM.AKP.enu.Leverancier).Halux()).GeefToeleveringIterator()
 	
-	while (Iterator.HasNext()) {
-		do MaatwerkBatchLijst.Insert(Iterator.Next())
-	}
-	
-	quit MaatwerkBatchLijst
-]]></Implementation>
-</Method>
-
-<Method name="VoegToeleveringToeAanMaatwerkBatches">
-<FormalSpec><![CDATA[&MaatwerkBatches:%ArrayOfObjects,Datum:%Date,ToeleveringIterator:TECH.Iterator]]></FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
 	While (ToeleveringIterator.HasNext()) {
 		#dim Toelevering As DOM.AKP.Toelevering = ToeleveringIterator.Next()
 		
@@ -494,6 +464,15 @@
 			Do ##class(vhLib.Logger).%New().LogEnMailExceptie(##class(TECH.ExceptionHandler).Catch())
 		}
 	}
+	
+	#dim MaatwerkBatchLijst As %ListOfObjects = ##class(%ListOfObjects).%New()
+	#dim Iterator As TECH.Iterator = ##class(TECH.ListIterator).%New(MaatwerkBatches)
+	
+	while (Iterator.HasNext()) {
+		do MaatwerkBatchLijst.Insert(Iterator.Next())
+	}
+	
+	quit MaatwerkBatchLijst
 ]]></Implementation>
 </Method>
 
Index: DOM/AKP/Leverancier.cls.xml
===================================================================
diff -u -r69011 -r69156
--- DOM/AKP/Leverancier.cls.xml	(.../Leverancier.cls.xml)	(revision 69011)
+++ DOM/AKP/Leverancier.cls.xml	(.../Leverancier.cls.xml)	(revision 69156)
@@ -158,11 +158,6 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
-<Method name="GeefToeleveringIteratorVoorSpecialWorkshop">
-<Abstract>1</Abstract>
-<ReturnType>TECH.Iterator</ReturnType>
-</Method>
-
 <Method name="GeefOpenstaandeFacturenIterator">
 <Abstract>1</Abstract>
 <ReturnType>TECH.Iterator</ReturnType>
Index: vhTest/Mock/DOM/AKP/impl/ToeleveringService.cls.xml
===================================================================
diff -u -r69019 -r69156
--- vhTest/Mock/DOM/AKP/impl/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 69019)
+++ vhTest/Mock/DOM/AKP/impl/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 69156)
@@ -63,13 +63,6 @@
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("HeeftToeleveringMinstensEenSpaceStep",ToeleveringNr)
 ]]></Implementation>
 </Method>
-
-<Method name="IsToeleveringEnkelVoorSpecialWorkshop">
-<FormalSpec>ToeleveringID:%String=""</FormalSpec>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("IsToeleveringEnkelVoorSpecialWorkshop",ToeleveringID)
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: vhTest/Mock/DOM/AKP/Leverancier.cls.xml
===================================================================
diff -u -r69011 -r69156
--- vhTest/Mock/DOM/AKP/Leverancier.cls.xml	(.../Leverancier.cls.xml)	(revision 69011)
+++ vhTest/Mock/DOM/AKP/Leverancier.cls.xml	(.../Leverancier.cls.xml)	(revision 69156)
@@ -168,12 +168,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefToeleveringIteratorVoorSpecialWorkshop">
-<ReturnType>TECH.Iterator</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefToeleveringIteratorVoorSpecialWorkshop")
-]]></Implementation>
-</Method>
-
 <Method name="GeefToenaam">
 <ReturnType>%Library.String</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefToenaam")
Index: DOM/AKP/enu/Leverancier.cls.xml
===================================================================
diff -u -r68993 -r69156
--- DOM/AKP/enu/Leverancier.cls.xml	(.../Leverancier.cls.xml)	(revision 68993)
+++ DOM/AKP/enu/Leverancier.cls.xml	(.../Leverancier.cls.xml)	(revision 69156)
@@ -7,11 +7,11 @@
 <Super>TECH.Enumeration</Super>
 
 <Parameter name="VALUELIST">
-<Default>;6332;5005;6051</Default>
+<Default>;6332;5005</Default>
 </Parameter>
 
 <Parameter name="DISPLAYLIST">
-<Default>;Hallux;Blum;VanHoecke</Default>
+<Default>;Hallux;Blum</Default>
 </Parameter>
 
 <Method name="Halux">
@@ -28,13 +28,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="VanHoecke">
-<ClassMethod>1</ClassMethod>
-<ReturnType>DOM.AKP.enu.Leverancier</ReturnType>
-<Implementation><![CDATA[	Quit ..MaakPartijID(6051)
-]]></Implementation>
-</Method>
-
 <Method name="MaakPartijID">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>LeverancierNummer:%String</FormalSpec>
Index: APPS/PM/Maatwerk/impl/BerekeningServiceProduct.cls.xml
===================================================================
diff -u -r67970 -r69156
--- APPS/PM/Maatwerk/impl/BerekeningServiceProduct.cls.xml	(.../BerekeningServiceProduct.cls.xml)	(revision 67970)
+++ APPS/PM/Maatwerk/impl/BerekeningServiceProduct.cls.xml	(.../BerekeningServiceProduct.cls.xml)	(revision 69156)
@@ -170,7 +170,6 @@
 	}
 	
 	Do ##class(TECH.Timing.TimerUtils).Stop()
-	
 	Do ##class(TECH.Timing.TimerUtils).Start("MaakProductVanNietTbxKenmerken--MaakMaatwerkProductVanNietTbxKenmerken")
 	#Dim Product as DOM.PM.MaatwerkProduct = ..MaakMaatwerkProductVanNietTbxKenmerken(ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem, ProductData)
 	Do ##class(TECH.Timing.TimerUtils).Stop()
Index: DOM/AKP/impl/DataM/DataMLeverancier.cls.xml
===================================================================
diff -u -r69011 -r69156
--- DOM/AKP/impl/DataM/DataMLeverancier.cls.xml	(.../DataMLeverancier.cls.xml)	(revision 69011)
+++ DOM/AKP/impl/DataM/DataMLeverancier.cls.xml	(.../DataMLeverancier.cls.xml)	(revision 69156)
@@ -237,12 +237,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefToeleveringIteratorVoorSpecialWorkshop">
-<ReturnType>TECH.Iterator</ReturnType>
-<Implementation><![CDATA[	Quit ##class(DOM.AKP.impl.DataM.DataMLeverancierToeleveringSpecialWorkshopIt).%New(..LeverancierNummer)
-]]></Implementation>
-</Method>
-
 <Method name="GeefOpenstaandeFacturenIterator">
 <ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[	quit ##class(DOM.AKP.impl.DataM.DataMLeverancierOpenstaandeFacturenIterator).%New(..GeefID())
FishEye: Tag 69156 refers to a dead (removed) revision in file `BL/Legacy/FLOWORD7.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: FLOWORD7.mac.rou
===================================================================
diff -u -r69023 -r69156
--- FLOWORD7.mac.rou	(.../FLOWORD7.mac.rou)	(revision 69023)
+++ FLOWORD7.mac.rou	(.../FLOWORD7.mac.rou)	(revision 69156)
@@ -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:('(##class(BL.Legacy.FLOWORD7).IsLeverancierHaluxOfVanHoeckeMetRevego(LEVNr, ORDNr)) || IsStock)
+ ..Quit:((LEVNr'=$$$LevHalux)||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,7 @@
 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="")||'(##class(BL.Legacy.FLOWORD7).IsLeverancierHaluxOfVanHoeckeMetRevego(LEVNr, ORDNr))  Do
+ For  Set LEVNr=$O(Control("T",LEVNr)) Quit:(LEVNr="")||(LEVNr'=$$$LevHalux)  Do
  . Kill PRNr
  . Merge PRNr=Control("T",LEVNr)
  . Do BUILDOBJ^FLOWTOE(.PRNr,KLNr_" - "_ORDNr,1,,"FBLocal")
Index: DOM/AKP/impl/ToeleveringService.cls.xml
===================================================================
diff -u -r69019 -r69156
--- DOM/AKP/impl/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 69019)
+++ DOM/AKP/impl/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 69156)
@@ -214,28 +214,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="IsToeleveringEnkelVoorSpecialWorkshop">
-<FormalSpec>ToeleveringID:%String=""</FormalSpec>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
-	#dim IsToeleveringEnkelVoorSpecialWorkshop As %Boolean = $$$False
-	
-	If (##class(TECH.StringUtils).IsEmpty(ToeleveringID)) {
-		Set Exception = ##class(TECH.Exceptions.InvalidInputException).%New("Geen toeleveringNr meegegeven.")
-		Do ##class(TECH.ExceptionHandler).Throw(Exception)
-	}
-	
-	#dim Toelevering As DOM.AKP.Toelevering = ..ToeleveringApi.GeefToelevering(ToeleveringID)
-	#dim ProductGroepen As %ListOfDataTypes = Toelevering.GeefProductieGroepen()
-	
-	If ((ProductGroepen.Count() = 1) && (ProductGroepen.GetAt(1) = ##class(APPS.Halux.common.enu.ProductieGroep).SpecialWorkshop())) {
-		Set IsToeleveringEnkelVoorSpecialWorkshop = $$$True
-	}
-	
-	Quit IsToeleveringEnkelVoorSpecialWorkshop
-]]></Implementation>
-</Method>
-
 <Method name="HeeftGekoppeldKenmerkSpaceStep">
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
 <Private>1</Private>
FishEye: Tag 69156 refers to a dead (removed) revision in file `vhUnitTest/DOM/AKP/impl/ToeleveringService/IsToeleveringEnkelVoorSpecialWorkshop/Test.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?