Index: APPS/Halux/Docs/impl/LadeEigenschapProductVisitor.cls.xml
===================================================================
diff -u -r30042 -r30076
--- APPS/Halux/Docs/impl/LadeEigenschapProductVisitor.cls.xml	(.../LadeEigenschapProductVisitor.cls.xml)	(revision 30042)
+++ APPS/Halux/Docs/impl/LadeEigenschapProductVisitor.cls.xml	(.../LadeEigenschapProductVisitor.cls.xml)	(revision 30076)
@@ -5,17 +5,15 @@
 
 <Property name="Etiket">
 <Type>BL.Etiket.LadeKlantEtiket</Type>
+<Private>1</Private>
 </Property>
 
-<Method name="%OnNew">
-<FormalSpec>Etiket:BL.Etiket.LadeKlantEtiket</FormalSpec>
-<Private>1</Private>
-<ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%Status</ReturnType>
-<ServerOnly>1</ServerOnly>
+<Method name="VulAan">
+<FormalSpec>Etiket:BL.Etiket.LadeKlantEtiket,ProductID:DOM.common.ProductID</FormalSpec>
 <Implementation><![CDATA[
 	Set ..Etiket = Etiket
-	Quit $$$OK
+	Set BezoekbaarProduct = ##class(DOM.PM.BezoekbaarProduct).%New(ProductID)
+	Do BezoekbaarProduct.Accept($this)
 ]]></Implementation>
 </Method>
 
Index: zTryout/FM/DEDECKER/PickingDoc.cls.xml
===================================================================
diff -u -r30046 -r30076
--- zTryout/FM/DEDECKER/PickingDoc.cls.xml	(.../PickingDoc.cls.xml)	(revision 30046)
+++ zTryout/FM/DEDECKER/PickingDoc.cls.xml	(.../PickingDoc.cls.xml)	(revision 30076)
@@ -32,10 +32,9 @@
 		While (LijnIterator.HasNext()) {
 			#dim Lijn As Flow.OrderWMS.Lijn = LijnIterator.Next()
 			Set Etiket = ##class(BL.Etiket.LadeKlantEtiket).%New("DummyPartyID")
-			Set LadeCodeVisitor = ##class(APPS.Halux.Docs.impl.LadeEigenschapProductVisitor).%New(Etiket)
-			Set BezoekbaarProduct = ##class(DOM.PM.BezoekbaarProduct).%New(Lijn.Product.ProductNr)
-			Do BezoekbaarProduct.Accept(LadeCodeVisitor)
-			#dim ProductInfo As %String = LadeCodeVisitor.Etiket.LadeCode _ " " _ LadeCodeVisitor.Etiket.Diepte _ "x" _ LadeCodeVisitor.Etiket.Breedte
+			Set LadeEigenschappenEtiketAanvuller = ##class(APPS.Halux.Docs.impl.LadeEigenschapProductVisitor).%New()   ; APPS.Halux.Docs.impl.LadeKlantEtiketBuilder.LadeEigenschappenEtiketAanvuller
+			Do LadeEigenschappenEtiketAanvuller.VulAan(Etiket,Lijn.Product.ProductNr)
+			#dim ProductInfo As %String = Etiket.LadeCode _ " " _ Etiket.Diepte _ "x" _ Etiket.Breedte
 			#dim BonLijnRec As %String = ..GeefBonLijnRecVoorORDWLijn(Lijn)
 			Set ProductInfo = ProductInfo _ ";" _ Lijn.AantalGeraapt _ ";" _ $P(BonLijnRec,"\",5) _ ";" _ $P(BonLijnRec,"\",37)
 			Set SubLijnIterator = ##class(TECH.ListIterator).%New(Lijn.Subs)
Index: BL/Legacy/EWBON/OverzichtLadenPerPallet/PickingDocInhoudBuilder.cls.xml
===================================================================
diff -u -r30042 -r30076
--- BL/Legacy/EWBON/OverzichtLadenPerPallet/PickingDocInhoudBuilder.cls.xml	(.../PickingDocInhoudBuilder.cls.xml)	(revision 30042)
+++ BL/Legacy/EWBON/OverzichtLadenPerPallet/PickingDocInhoudBuilder.cls.xml	(.../PickingDocInhoudBuilder.cls.xml)	(revision 30076)
@@ -112,10 +112,10 @@
 		#dim Lijn As Flow.OrderWMS.Lijn = OrderWMSLijnIterator.Next()
 		
 		Set Etiket = ##class(BL.Etiket.LadeKlantEtiket).%New("DummyPartyID")
-		Set LadeCodeVisitor = ##class(APPS.Halux.Docs.impl.LadeEigenschapProductVisitor).%New(Etiket)
-		Set BezoekbaarProduct = ##class(DOM.PM.BezoekbaarProduct).%New(Lijn.Product.ProductNr)
-		Do BezoekbaarProduct.Accept(LadeCodeVisitor)
-		#dim LadeInfo As %String = LadeCodeVisitor.Etiket.LadeCode _ " " _ LadeCodeVisitor.Etiket.Diepte _ "x" _ LadeCodeVisitor.Etiket.Breedte
+		Set LadeEigenschappenEtiketAanvuller = ##class(APPS.Halux.Docs.impl.LadeEigenschapProductVisitor).%New()   ; APPS.Halux.Docs.impl.LadeKlantEtiketBuilder.LadeEigenschappenEtiketAanvuller
+		Do LadeEigenschappenEtiketAanvuller.VulAan(Etiket,Lijn.Product.ProductNr)
+
+		#dim LadeInfo As %String = Etiket.LadeCode _ " " _ Etiket.Diepte _ "x" _ Etiket.Breedte
 		
 		#dim BonLijnRec As %String = ..GeefBonLijnRecVoorORDWLijn(Lijn)
 		#dim ProductOmschrijving As %String = $P(BonLijnRec,"\",5)