Index: APPS/Halux/Docs/impl/LadeKlantEtiketBuilder.cls.xml
===================================================================
diff -u -r30800 -r30801
--- APPS/Halux/Docs/impl/LadeKlantEtiketBuilder.cls.xml	(.../LadeKlantEtiketBuilder.cls.xml)	(revision 30800)
+++ APPS/Halux/Docs/impl/LadeKlantEtiketBuilder.cls.xml	(.../LadeKlantEtiketBuilder.cls.xml)	(revision 30801)
@@ -15,13 +15,19 @@
 <Private>1</Private>
 </Property>
 
+<Property name="OrderReferentieBepaler">
+<Type>APPS.Halux.Docs.impl.OrderReferentieBepaler</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()
+	Set ..OrderReferentieBepaler = ##class(APPS.Halux.Docs.impl.OrderReferentieBepaler).%New()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -176,22 +182,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefOrderReferentie">
-<FormalSpec>Partij:DOM.PARTIJ.Partij,DocRef:DOM.VKP.DocumentReferenties</FormalSpec>
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	#dim OrdRef As %String = DocRef.GeefOrderReferentieZonderDatum()
-	/// EDI weghalen
-	If $E(OrdRef,1,3)=##class(BL.Flow.Offerte.enu.Oorsprong).EDIBestand() {
-		Set $E(OrdRef,1,3)=""
-		Set OrdRef=$TR(OrdRef," ","")
-	}
-	
-	Quit ##class(TECH.StringUtils).Trim(OrdRef)
-]]></Implementation>
-</Method>
-
 <Method name="GeefPartijVoorOrder">
 <FormalSpec>Order:DOM.VKP.Order</FormalSpec>
 <Private>1</Private>
@@ -309,7 +299,7 @@
 	
 	Set InfoItem = ##class(APPS.Halux.Docs.impl.InfoItem).%New()
 	Set InfoItem.Naam = "Order Ref."
-	Set InfoItem.Waarde = ..GeefOrderReferentie(Partij,DocRef)
+	Set InfoItem.Waarde = ..OrderReferentieBepaler.GeefOrderReferentie(Partij,DocRef)
 	Do:(InfoItem.Waarde'="") InfoItems.Insert(InfoItem)
 	
 	Set InfoItem = ##class(APPS.Halux.Docs.impl.InfoItem).%New()