Index: BL/Flow/Proxy/pxLevering.cls.xml
===================================================================
diff -u -r32538 -r40575
--- BL/Flow/Proxy/pxLevering.cls.xml	(.../pxLevering.cls.xml)	(revision 32538)
+++ BL/Flow/Proxy/pxLevering.cls.xml	(.../pxLevering.cls.xml)	(revision 40575)
@@ -257,14 +257,21 @@
 <Parameter name="XMLPROJECTION" value="NONE"/>
 </Property>
 
+<Property name="KlantInstellingenService">
+<Type>APPS.common.KlantInstellingenService</Type>
+<Private>1</Private>
+<Parameter name="XMLPROJECTION" value="NONE"/>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>VerkoopsvoorwaardenURLBepaler:BL.Flow.Proxy.impl.VerkoopsvoorwaardenURLBepaler</FormalSpec>
+<FormalSpec>VerkoopsvoorwaardenURLBepaler:BL.Flow.Proxy.impl.VerkoopsvoorwaardenURLBepaler,KlantInstellingenService:APPS.common.KlantInstellingenService</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	set ..VerkoopsvoorwaardenURLBepaler = $$$Implementation(VerkoopsvoorwaardenURLBepaler,##class(BL.Flow.Proxy.impl.VerkoopsvoorwaardenURLBepaler).%New())
+	Set ..KlantInstellingenService = $$$Inject(KlantInstellingenService, ##class(APPS.ApplicatieContext).Instance().GeefOrderVerwerkingAPI().GeefKlantInstellingenService())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -324,11 +331,11 @@
 	
 	#dim IsOrgalux As %Boolean = ..DocIsOrgalux(BONNr)
 	
-	#dim KlantInstellingenService As APPS.common.KlantInstellingenService = ##class(APPS.ApplicatieContext).Instance().GeefOrderVerwerkingAPI().GeefKlantInstellingenService()
+	
 	#dim MogelijkeDragersVoorKlant As List of DOM.PM.enu.DragerType = ##class(%ListOfDataTypes).%New()
 	; 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.MoetPalletDragerIDOpLeveringBon(KLNr)) MogelijkeDragersVoorKlant.Insert(##class(DOM.PM.enu.DragerType).Pallet())
+	Do:(..KlantInstellingenService.MoetProboxDragerIDOpLeveringBon(KLNr)) MogelijkeDragersVoorKlant.Insert(##class(DOM.PM.enu.DragerType).Probox())
 	
 	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())
@@ -438,7 +445,7 @@
 	
 	#dim KlantID As DOM.VKP.VanHoeckeKlantID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(KLNr)
 	Set ..KlantType=$S(##class(DOM.DomeinContext).Instance().GeefKlantTypeAPI().IsIndustriePoolKlant(KlantID):"I", 1:"K")   ; Industrie klant of KS 
-		
+
 	Set ..MUNT=Munt
 	Set ..TAAL=Taal
 	Set ..BRUTONETTO=$S(blnBruto:"B",1:"N")	
@@ -486,6 +493,14 @@
 	; Opmerkingen KL
 	Set KLRec5=$$$KLRec(5)
 	For I=3:1:5 Do:($L($P(KLRec5,"\",I))) ..Opmerkingen.Insert($P(KLRec5,"\",I))
+	
+	if KlantID = ##class(DOM.VKP.enu.Klant).HaefeleBelgie() {
+		#Dim DragerIDs as %String
+		Set DragerIDs = ##class(TECH.ArrayUtils).ArrayKeysToPieces(..GeefDragerIDsVanBon(MogelijkeDragersVoorKlant,.DragerLookup),", ")
+		#dim Sleutel As TECH.String = "LEV:"_ ##class(DOM.PM.enu.DragerType).Probox()
+		Do ..Opmerkingen.Insert( ##class(Res.Vertaling).GetVertaling("DOC", Sleutel,"L", Taal)_" : " _ DragerIDs)
+	}
+
 	; Verzendwijze
 	Set ..VERZENDWIJZE=$P($P(Rec,"\",7),"#",1)
 	Set ..VERZENDWIJZEOMS=$P($P(Rec,"\",7),"#",2)
@@ -557,6 +572,37 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefDragerIDsVanBon">
+<FormalSpec>MogelijkeDragers:%ListOfDataTypes,Lookup</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ArrayOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	Set IDArray = ##class(%ArrayOfDataTypes).%New()
+	
+	Set DragerTypeBepaler = ##class(DOM.PM.impl.DragerTypeBepaler).%New()
+	#Dim ORDNr as %String = ""
+	
+	for { Set ORDNr=$Order(Lookup(ORDNr)) quit:ORDNr="" 
+		#Dim PRNr as %String = ""
+		Set PRNr=$Order(Lookup(ORDNr,PRNr))	
+		for { Set PRNr=$Order(Lookup(ORDNr,PRNr)) quit:PRNr="" 
+			#Dim lbDragerIDs as %String
+			Set lbDragerIDs = Lookup(ORDNr,PRNr)
+			#dim DragerType As DOM.PM.enu.DragerType = DragerTypeBepaler.BepaalDragerType($ListGet(lbDragerIDs))
+			if ##class(TECH.ListUtils).Contains(MogelijkeDragers, DragerType) { 
+				Set DragerIDIterator = ##class(TECH.ListbuildIterator).%New(lbDragerIDs)
+				while DragerIDIterator.HasNext(){
+					#Dim ID as %String 
+					Set ID = DragerIDIterator.Next()
+					Do IDArray.SetAt(ID,ID)
+				}
+			}
+		}
+	}
+	Quit IDArray
+]]></Implementation>
+</Method>
+
 <Method name="BuildRemboursData">
 <Description>
 Embedded object LevRembours invullen</Description>