Index: APPS/Halux/Docs/impl/LadeKlantEtiketBuilder.cls.xml
===================================================================
diff -u -r68788 -r68798
--- APPS/Halux/Docs/impl/LadeKlantEtiketBuilder.cls.xml	(.../LadeKlantEtiketBuilder.cls.xml)	(revision 68788)
+++ APPS/Halux/Docs/impl/LadeKlantEtiketBuilder.cls.xml	(.../LadeKlantEtiketBuilder.cls.xml)	(revision 68798)
@@ -193,6 +193,8 @@
 		}
 	}
 	
+	Set Etiket.KlantQRCode = ..GeefKlantQRCode(Partij, ProductOrderLijn, ToeleveringLijn)
+	
 	If $$$HasLength(ProductOrderLijn.GeefToeleveringID()) {
 		Set Etiket.LblToelevering = ..GeefVertalingLabel("DOSSIER",Partij.GeefTaal(),"Dossier")
 		Set Etiket.ToeleveringID = ProductOrderLijn.GeefToeleveringID()
@@ -263,6 +265,27 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefKlantQRCode">
+<FormalSpec>Partij:DOM.PARTIJ.Partij,ProductOrderlijn:DOM.VKP.ProductOrderlijn,ToeleveringLijn:DOM.AKP.ProductToeleveringLijn</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim KlantQRCode As %String = ""
+	
+	If $$$Not(ToeleveringLijn = "") {
+		#dim ProductId As %String = ProductOrderlijn.GeefProductID()
+		#dim ToeleveringId As %String = ToeleveringLijn.GeefID()
+		#dim LijnReferentie As %String = ##class(DOM.AKP.impl.ToeleveringService).GeefLijnReferentie(ToeleveringId, ProductId)
+		
+		If (Partij.GeefID() = ##class(DOM.VKP.enu.Klant).DeDecker()) {
+			Set KlantQRCode = LijnReferentie
+		}
+	}
+	
+	Quit KlantQRCode
+]]></Implementation>
+</Method>
+
 <Method name="GeefPartijVoorOrder">
 <FormalSpec>Order:DOM.VKP.Order</FormalSpec>
 <Private>1</Private>
Index: vhUnitTest/APPS/Halux/Docs/impl/LadeKlantEtiketBuilder/Test.cls.xml
===================================================================
diff -u -r65405 -r68798
--- vhUnitTest/APPS/Halux/Docs/impl/LadeKlantEtiketBuilder/Test.cls.xml	(.../Test.cls.xml)	(revision 65405)
+++ vhUnitTest/APPS/Halux/Docs/impl/LadeKlantEtiketBuilder/Test.cls.xml	(.../Test.cls.xml)	(revision 68798)
@@ -97,6 +97,7 @@
 	Do EtiketBuilder.VulInOrderInfo(Etiket, Order , Partij, ProductOrderLijn, "")
 	
 	Do $$$AssertEquals(Etiket.KlantBarcode, "", "Standaard gebruiken klanten geen KlantBarcode.")
+	Do $$$AssertEquals(Etiket.KlantQRCode, "", "Standaard gebruiken klanten geen KlantQRCode.")
 	Do $$$AssertEquals(Etiket.VerzendWijze, "VerzendingWijze")
 	Do $$$AssertEquals(Etiket.OrderID, Order.GeefID())
 	Do $$$AssertEquals(Etiket.LogoImg, "Logo\Logo VHZwart.svg")
Index: BL/Etiket/LadeKlantEtiket.cls.xml
===================================================================
diff -u -r59212 -r68798
--- BL/Etiket/LadeKlantEtiket.cls.xml	(.../LadeKlantEtiket.cls.xml)	(revision 59212)
+++ BL/Etiket/LadeKlantEtiket.cls.xml	(.../LadeKlantEtiket.cls.xml)	(revision 68798)
@@ -71,6 +71,11 @@
 <Parameter name="TRUNCATE" value="1"/>
 </Property>
 
+<Property name="KlantQRCode">
+<Type>%String</Type>
+<Parameter name="TRUNCATE" value="1"/>
+</Property>
+
 <Property name="ProductieWeek">
 <Type>%String</Type>
 <Parameter name="TRUNCATE" value="1"/>
@@ -179,10 +184,11 @@
 	Write ..VervangNietPrintbareKaraktersDoorSpatie(..Info3),$$$TAB
 	Write ..VervangNietPrintbareKaraktersDoorSpatie(..Info4),$$$TAB
 	Write ..VervangNietPrintbareKaraktersDoorSpatie(..Info5),$$$TAB
-		
+	
 	Write ..VervangNietPrintbareKaraktersDoorSpatie(..BarcodeTekst),$$$TAB
 	Write ..VervangNietPrintbareKaraktersDoorSpatie(..Barcode),$$$TAB
-	Write ..VervangNietPrintbareKaraktersDoorSpatie(..KlantBarcode),$$$TAB	
+	Write ..VervangNietPrintbareKaraktersDoorSpatie(..KlantBarcode),$$$TAB
+	Write ..VervangNietPrintbareKaraktersDoorSpatie(..KlantQRCode),$$$TAB
 	
 	Write ..VervangNietPrintbareKaraktersDoorSpatie(..Diepte),$$$TAB
 	Write ..VervangNietPrintbareKaraktersDoorSpatie(..Breedte),$$$TAB
@@ -234,6 +240,7 @@
 	Write "BarcodeTekst",$$$TAB
 	Write "Barcode",$$$TAB
 	Write "KlantBarcode",$$$TAB
+	Write "KlantQRCode",$$$TAB
 	Write "Diepte",$$$TAB
 	Write "Breedte",$$$TAB
 	Write "WandDikte",$$$TAB