Index: BL/Flow/Proxy/pxLevering.cls.xml
===================================================================
diff -u -r58718 -r59012
--- BL/Flow/Proxy/pxLevering.cls.xml	(.../pxLevering.cls.xml)	(revision 58718)
+++ BL/Flow/Proxy/pxLevering.cls.xml	(.../pxLevering.cls.xml)	(revision 59012)
@@ -348,12 +348,13 @@
 	; Het toevoegen van Dragertypes aan deze lijst verlangt ook dat er een vertaling is voor deze dragers. Zie methode AddDragerInfo
 	Do:(..KlantInstellingenService.MoetPalletDragerIDOpLeveringBon(KLNr)) MogelijkeDragersVoorKlant.Insert(##class(DOM.PM.enu.DragerType).Pallet())
 	Do:(..KlantInstellingenService.MoetProboxDragerIDOpLeveringBon(KLNr)) MogelijkeDragersVoorKlant.Insert(##class(DOM.PM.enu.DragerType).Probox())
-	
+	Do:(..KlantInstellingenService.MoetVhossNummerOpLeveringBon(KLNr)) MogelijkeDragersVoorKlant.Insert(##class(DOM.PM.enu.DragerType).Vhoss())
+
 	If (MogelijkeDragersVoorKlant.Count()>0) {
 		#dim ProductGroepVoorTeTonenDragers As %List = $lb(##class(APPS.PM.enu.ProductGroep).Tandembox(), ##class(APPS.PM.enu.ProductGroep).Legrabox(), ##class(APPS.PM.enu.ProductGroep).TAORBOX())
 		Do ..BldPalletLookup(BONNr,ProductGroepVoorTeTonenDragers,.DragerLookup) ; Uit ORDW pallet informatie halen
 	}
-		
+
 	Do flbAlgemeen   ; (KLNr,KLID,Taal,BONNr,FactSoort)
 	#dim pxOrd As BL.Flow.Proxy.pxLevOrd = ""
 	#dim LijnObj As BL.Flow.Proxy.pxProductLijn = ""
@@ -366,9 +367,9 @@
 	. Set RecL=Sort(SortKey)
 	. Set LijnSoort=$P(RecL,"\",17)
 	. If LijnSoort="KF5" Do  Quit
-	..  ;Set pxOrd=""   ; Unswizzle/close previous (if any)
-	..  Set pxOrd=$$flbAddNewOrder(RecL)
-	..  Set LijnObj=pxOrd
+	.. ;Set pxOrd=""   ; Unswizzle/close previous (if any)
+	.. Set pxOrd=$$flbAddNewOrder(RecL)
+	.. Set LijnObj=pxOrd
 	. Set:('$IsObject(pxOrd)) pxOrd=$$flbAddNewOrder("")   ; Create Dummy order, if not yet initialized
 	. If LijnSoort="KF6" Do                       ; ProductLijn
 	..  Set LijnObj=##class(BL.Flow.Proxy.pxProductLijn).BuildFromRec("L",RecL,KLNr,Taal,blnBruto) 
Index: APPS/common/impl/KlantInstellingenService.cls.xml
===================================================================
diff -u -r58905 -r59012
--- APPS/common/impl/KlantInstellingenService.cls.xml	(.../KlantInstellingenService.cls.xml)	(revision 58905)
+++ APPS/common/impl/KlantInstellingenService.cls.xml	(.../KlantInstellingenService.cls.xml)	(revision 59012)
@@ -143,7 +143,9 @@
 <Method name="MoetVhossNummerOpLeveringBon">
 <FormalSpec>KLNr:TECH.String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit $$$False
+<Implementation><![CDATA[
+	#dim PartijID As DOM.common.PartijID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(KLNr)
+	Quit ##class(TECH.StringUtils).Equals(PartijID, ##class(DOM.VKP.enu.Klant).VanhoutPro(), ##class(DOM.VKP.enu.Klant).GroupNivelles(), ##class(DOM.VKP.enu.Klant).TestklantVanHoecke())
 ]]></Implementation>
 </Method>