Index: APPS/Halux/Docs/impl/LadeKlantEtiketBuilder.cls.xml
===================================================================
diff -u -r68918 -r70313
--- APPS/Halux/Docs/impl/LadeKlantEtiketBuilder.cls.xml	(.../LadeKlantEtiketBuilder.cls.xml)	(revision 68918)
+++ APPS/Halux/Docs/impl/LadeKlantEtiketBuilder.cls.xml	(.../LadeKlantEtiketBuilder.cls.xml)	(revision 70313)
@@ -198,15 +198,11 @@
 			Set Etiket.Layout = $$$If((Partij.GeefID()=##class(DOM.VKP.enu.Klant).Labonorm()),"MaatwerkProduct 5x10","MaatwerkProductBAR 8x11")
 		}
 	}
-
-	Set Etiket.KlantQRCode = ..GeefKlantQRCode(Partij, ProductOrderLijn)
-	If $$$HasLength(Etiket.KlantQRCode) {
-		Set Etiket.Layout = "MaatwerkProductInVHoss2D 5x10"
-		
-		If $$$HasLength(Etiket.KlantBarcode) {
-			Do ##class(vhLib.Logger).%New().Warning("VoerUitAansturingActieVoorBatch", "Etiket voor OrderID '" _ Order.GeefID() _ "' bevat zowel Barcode als QR-code, de barcode wordt niet op het etiket getoond.")
-			Set Etiket.KlantBarcode = ""
-		}
+	
+	If $$$Not($$$HasLength(Etiket.KlantBarcode)) {
+		Set Etiket.KlantQRCode = ..GeefKlantQRCode(Partij, ProductOrderLijn)
+	} Else {
+		Set Etiket.KlantQRCode = ""
 	}
 	
 	If $$$HasLength(ProductOrderLijn.GeefToeleveringID()) {
@@ -287,8 +283,8 @@
 	#dim KlantQRCode As %String = ""
 	#dim ProjectReferentie As %String = ProductOrderlijn.GeefProjectReferentie()
 	
-	If ((Partij.GeefID() = ##class(DOM.VKP.enu.Klant).DeDecker()) && (..ProjectSettingsAPI.IsActiefDeDeckerBarcodeEtiket())) {
-		Set KlantQRCode = ProjectReferentie
+	If $$$HasLength(ProjectReferentie) {
+		Set KlantQRCode = $Extract(ProjectReferentie, 1, 30)
 	}
 	
 	Quit KlantQRCode