Index: APPS/Halux/Docs/impl/LadeKlantEtiketBuilder.cls.xml
===================================================================
diff -u -r30077 -r30800
--- APPS/Halux/Docs/impl/LadeKlantEtiketBuilder.cls.xml	(.../LadeKlantEtiketBuilder.cls.xml)	(revision 30077)
+++ APPS/Halux/Docs/impl/LadeKlantEtiketBuilder.cls.xml	(.../LadeKlantEtiketBuilder.cls.xml)	(revision 30800)
@@ -10,6 +10,22 @@
 <Default>4</Default>
 </Parameter>
 
+<Property name="AfleverAdresNaamBepaler">
+<Type>APPS.Halux.Docs.impl.AfleverAdresNaamBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..AfleverAdresNaamBepaler = ##class(APPS.Halux.Docs.impl.AfleverAdresNaamBepaler).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="FormateerProductieWeek">
 <FormalSpec>ProductieDatum:%Date</FormalSpec>
 <ReturnType>%String</ReturnType>
@@ -74,8 +90,10 @@
 	}Else{
 		Set InfoItems = ##class(%ListOfObjects).%New()
 			
-		#dim KlantInfoItem As APPS.Halux.Docs.impl.InfoItem = ..GeefKlantInfoItem(Partij)
-		Do InfoItems.Insert(KlantInfoItem)
+		Set InfoItem = ##class(APPS.Halux.Docs.impl.InfoItem).%New()
+		Set InfoItem.Naam = "Klant"
+		Set InfoItem.Waarde = ..AfleverAdresNaamBepaler.GeefKlant(Partij.GeefID())
+		Do InfoItems.Insert(InfoItem)
 		
 		Set InfoItem = ##class(APPS.Halux.Docs.impl.InfoItem).%New()
 		Set InfoItem.Naam = "Order Ref."
@@ -174,14 +192,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="ToonKlantNummerIpvKlantNaam">
-<FormalSpec>Partij:DOM.PARTIJ.Partij</FormalSpec>
-<Private>1</Private>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit (Partij.GeefID() = ##class(DOM.VKP.enu.Klant).GroupNivelles())
-]]></Implementation>
-</Method>
-
 <Method name="GeefPartijVoorOrder">
 <FormalSpec>Order:DOM.VKP.Order</FormalSpec>
 <Private>1</Private>
@@ -283,10 +293,9 @@
 	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(Partij.GeefID())
 	
 	If 'Klant.HeeftEigenLogo(){
-		#dim InfoItem As APPS.Halux.Docs.impl.InfoItem = ..GeefKlantInfoItem(Partij)
-		If InfoItem.Waarde = "" {
-			Set InfoItem.Waarde = ..GeefAfleverAdresNaam(Order)
-		}
+		Set InfoItem = ##class(APPS.Halux.Docs.impl.InfoItem).%New()
+		Set InfoItem.Naam = "Klant"
+		Set InfoItem.Waarde = ..AfleverAdresNaamBepaler.GeefAfleverAdresNaam(Order)
 		Do InfoItems.Insert(InfoItem)
 	}
 
@@ -321,19 +330,6 @@
 	Quit InfoItems
 ]]></Implementation>
 </Method>
-
-<Method name="GeefKlantInfoItem">
-<FormalSpec>Partij:DOM.PARTIJ.Partij</FormalSpec>
-<ReturnType>APPS.Halux.Docs.impl.InfoItem</ReturnType>
-<Implementation><![CDATA[
-	Set InfoItem = ##class(APPS.Halux.Docs.impl.InfoItem).%New()
-	Set InfoItem.Naam = "Klant"
-	If ..ToonKlantNummerIpvKlantNaam(Partij) {
-		Set InfoItem.Waarde = "@"_##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(Partij.GeefID())
-	}
-	Quit InfoItem
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: APPS/Halux/Docs/impl/AfleverAdresNaamBepaler.cls.xml
===================================================================
diff -u
--- APPS/Halux/Docs/impl/AfleverAdresNaamBepaler.cls.xml	(revision 0)
+++ APPS/Halux/Docs/impl/AfleverAdresNaamBepaler.cls.xml	(revision 30800)
@@ -0,0 +1,55 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Docs.impl.AfleverAdresNaamBepaler">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="GeefAfleverAdresNaam">
+<FormalSpec>Order:DOM.VKP.Order</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim AfleverAdresNaam As %String = ..GeefKlant(Order.GeefKlantID())
+	If AfleverAdresNaam = "" {
+		#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(Order.GeefKlantID())
+		
+		Set FreqTabel = ##class(TECH.FrequentieTabel).%New()
+		Set Iterator = ##class(TECH.ListIterator).%New(Klant.GeefLeverAdressen())
+		While (Iterator.HasNext())
+		{
+			Do FreqTabel.Verhoog(Iterator.Next().GeefNaam())
+		}
+		
+		Set AfleverAdresNaam = Order.GeefAfleveradres().GeefNaam()	
+		If (AfleverAdresNaam '= "")&&(FreqTabel.GeefFrequentieVanItem(AfleverAdresNaam) > 1)
+		{
+			Set AfleverAdresNaam = AfleverAdresNaam_" "_Order.GeefAfleveradresID()
+		}
+		If AfleverAdresNaam = "" {
+			#dim Partij As DOM.PARTIJ.Partij = ##class(DOM.DomeinContext).Instance().GeefPartijAPI().GeefPartij(Klant.GeefID())
+			Set AfleverAdresNaam = Partij.GeefNaam()
+		}
+	}
+	Quit $$TRIMNAAM^vhRtn1(AfleverAdresNaam)
+]]></Implementation>
+</Method>
+
+<Method name="GeefKlant">
+<FormalSpec>Partij:DOM.common.PartijID</FormalSpec>
+<Implementation><![CDATA[
+	If ..ToonKlantNummerIpvAdres(Partij) {
+		Quit "@"_##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(Partij)
+	}
+	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="ToonKlantNummerIpvAdres">
+<FormalSpec>Partij:DOM.common.PartijID</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (Partij = ##class(DOM.VKP.enu.Klant).GroupNivelles())
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>