Index: vhUnitTest/APPS/Halux/Docs/impl/LadeKlantEtiketBuilder/Test.cls.xml
===================================================================
diff -u -r56800 -r57408
--- vhUnitTest/APPS/Halux/Docs/impl/LadeKlantEtiketBuilder/Test.cls.xml	(.../Test.cls.xml)	(revision 56800)
+++ vhUnitTest/APPS/Halux/Docs/impl/LadeKlantEtiketBuilder/Test.cls.xml	(.../Test.cls.xml)	(revision 57408)
@@ -100,6 +100,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test DKG pakketreferentie in barcodevorm">
+<Implementation><![CDATA[
+	#dim PartijMetKlantBarcode As DOM.PARTIJ.Partij = ##class(DOM.DomeinContext).Instance().GeefPartijAPI().GeefPartij(##class(DOM.VKP.enu.Klant).DKGDeKeukenfabriek())
+	#dim Order As DOM.VKP.Order = ..Data.MaaktDataOrder(##class(DOM.VKP.enu.Klant).DKGDeKeukenfabriek())	
+
+	#dim ProductOrderLijn As DOM.VKP.ProductOrderlijn = Order.GeefOrderLijnViaVolgnummer(101)
+	Do ProductOrderLijn.ZetPakketReferentie("UT PakketRef")
+	
+	#dim Etiket As BL.Etiket.LadeKlantEtiket = ..EtiketBuilder.MaakBasisMaatwerkProductEtiket(..Data.ProductID,PartijMetKlantBarcode,1)
+	Do ..EtiketBuilder.VulInOrderInfo(Etiket,Order,PartijMetKlantBarcode,ProductOrderLijn,"")
+	
+	Do $$$AssertEquals(Etiket.KlantBarcode,"UT PakketRef")
+	Do $$$AssertEquals(Etiket.Layout,"MaatwerkProductBAR 8x11","Etiket met ruimte voor KlantBarcode is gekozen.")
+	
+	Do ..Data.VerwijderDataOrder(Order.GeefID())
+]]></Implementation>
+</Method>
+
 <Method name="TestFormateerProductieWeek">
 <Implementation><![CDATA[	Do $$$AssertEquals(..EtiketBuilder.FormateerProductieWeek(62831),"1302","Jaar 2013, week 2")
 ]]></Implementation>