Index: vhUnitTest/APPS/Halux/Docs/impl/LadeKlantEtiketBuilder/Test.cls.xml
===================================================================
diff -u -r68968 -r70313
--- vhUnitTest/APPS/Halux/Docs/impl/LadeKlantEtiketBuilder/Test.cls.xml	(.../Test.cls.xml)	(revision 68968)
+++ vhUnitTest/APPS/Halux/Docs/impl/LadeKlantEtiketBuilder/Test.cls.xml	(.../Test.cls.xml)	(revision 70313)
@@ -97,7 +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.KlantQRCode, "UT ProjectRef")
 	Do $$$AssertEquals(Etiket.VerzendWijze, "VerzendingWijze")
 	Do $$$AssertEquals(Etiket.OrderID, Order.GeefID())
 	Do $$$AssertEquals(Etiket.LogoImg, "Logo\Logo VHZwart.svg")
@@ -140,7 +140,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Vul in OrderInfo met ProjectReferentie voor klant DeDecker met IsActiefDeDeckerBarcodeEtiket True">
+<Method name="Test: Vul in OrderInfo met ProjectReferentie voor klant DeDecker heeft KlantQRCode">
 <Implementation><![CDATA[
 	#dim Partij As DOM.PARTIJ.Partij = ##class(vhTest.Mock.DOM.PARTIJ.Partij).%New()
 	Do Partij.IndienMethodCall("GeefID").DanReturn("K||6780")
@@ -149,10 +149,7 @@
 	#dim Order As vhTest.Mock.DOM.VKP.Order = ..GeefStandaardOrder(Partij)
 	#dim ProductOrderLijn As vhTest.Mock.DOM.VKP.impl.DataM.DataMProductOrderlijn = ..GeefStandaardProductOrderLijn(Order)
 	
-	Set ProjectSettingsAPIMock = ##class(vhTest.Mock.DOM.common.ProjectSettingsAPI).%New()
-	Do ProjectSettingsAPIMock.VerwachtMethodCall("IsActiefDeDeckerBarcodeEtiket").DanReturn($$$True)
-	
-	#dim EtiketBuilder As APPS.Halux.Docs.impl.LadeKlantEtiketBuilder = ..GeefLadeKlantEtiketBuilderMetProjectSettings(Partij, ..#ProductId, $$$True, $$$False, 1000, ProjectSettingsAPIMock)
+	#dim EtiketBuilder As APPS.Halux.Docs.impl.LadeKlantEtiketBuilder = ..GeefLadeKlantEtiketBuilder(Partij, ..#ProductId, $$$True, $$$False, 1000)
 	#dim Etiket As BL.Etiket.LadeKlantEtiket = EtiketBuilder.MaakBasisMaatwerkProductEtiket(..#ProductId, Partij, 1)
 	Set Etiket = EtiketBuilder.MaakBasisMaatwerkProductEtiket(..#ProductId, Partij, 1)
 	
@@ -173,47 +170,9 @@
 	Do $$$AssertEquals(Etiket.KlantQRCode, "UT ProjectRef")
 	
 	Do ..VerifieerMocks()
-	Do ProjectSettingsAPIMock.Verifieer()
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Vul in OrderInfo met ProjectReferentie voor klant DeDecker met IsActiefDeDeckerBarcodeEtiket False">
-<Implementation><![CDATA[
-	#dim Partij As DOM.PARTIJ.Partij = ##class(vhTest.Mock.DOM.PARTIJ.Partij).%New()
-	Do Partij.IndienMethodCall("GeefID").DanReturn("K||6780")
-	Do Partij.IndienMethodCall("GeefTaal").DanReturn(##class(DOM.enu.Taal).Nederlands())
-	
-	#dim Order As vhTest.Mock.DOM.VKP.Order = ..GeefStandaardOrder(Partij)
-	#dim ProductOrderLijn As vhTest.Mock.DOM.VKP.impl.DataM.DataMProductOrderlijn = ..GeefStandaardProductOrderLijn(Order)
-	
-	Set ProjectSettingsAPIMock = ##class(vhTest.Mock.DOM.common.ProjectSettingsAPI).%New()
-	Do ProjectSettingsAPIMock.VerwachtMethodCall("IsActiefDeDeckerBarcodeEtiket").DanReturn($$$False)
-	
-	#dim EtiketBuilder As APPS.Halux.Docs.impl.LadeKlantEtiketBuilder = ..GeefLadeKlantEtiketBuilderMetProjectSettings(Partij, ..#ProductId, $$$True, $$$False, 1000, ProjectSettingsAPIMock)
-	#dim Etiket As BL.Etiket.LadeKlantEtiket = EtiketBuilder.MaakBasisMaatwerkProductEtiket(..#ProductId, Partij, 1)
-	Set Etiket = EtiketBuilder.MaakBasisMaatwerkProductEtiket(..#ProductId, Partij, 1)
-	
-	Do EtiketBuilder.VulInOrderInfo(Etiket, Order, Partij, ProductOrderLijn, "")
-	Do $$$AssertEquals(Etiket.Info4, "UT PakketRef / UT ProjectRef")
-	
-	Do ProductOrderLijn.IndienMethodCall("GeefPakketReferentie").DanReturn("UT PakketRef")
-	Do ProductOrderLijn.IndienMethodCall("GeefProjectReferentie").DanReturn("")
-	Do EtiketBuilder.VulInOrderInfo(Etiket, Order, Partij, ProductOrderLijn, "")
-	Do $$$AssertEquals(Etiket.Info4, "UT PakketRef")
-	Do $$$AssertEquals(Etiket.KlantQRCode, "")
-	
-	Do ProductOrderLijn.IndienMethodCall("GeefPakketReferentie").DanReturn("")
-	Do ProductOrderLijn.IndienMethodCall("GeefProjectReferentie").DanReturn("UT ProjectRef")	
-	Set Etiket = EtiketBuilder.MaakBasisMaatwerkProductEtiket(..#ProductId, Partij, 1)
-	Do EtiketBuilder.VulInOrderInfo(Etiket, Order, Partij, ProductOrderLijn, "")
-	Do $$$AssertEquals(Etiket.Info4, "UT ProjectRef")
-	Do $$$AssertEquals(Etiket.KlantQRCode, "")
-	
-	Do ..VerifieerMocks()
-	Do ProjectSettingsAPIMock.Verifieer()
-]]></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())
@@ -512,29 +471,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefLadeKlantEtiketBuilderMetProjectSettings">
-<FormalSpec>Partij:DOM.PARTIJ.Partij,ProductId:%String,IsTandemboxProduct:%Boolean,IsSpaceTowerProduct:%Boolean,ProductOrderlijnId:%String="",ProjectSettingsAPIMock:vhTest.Mock.DOM.common.ProjectSettingsAPI</FormalSpec>
-<Private>1</Private>
-<ReturnType>APPS.Halux.Docs.impl.LadeKlantEtiketBuilder</ReturnType>
-<Implementation><![CDATA[
-	Do ..ProductTypeApiMock.VerwachtMethodCall("IsTandemboxProduct", ProductId).DanReturn(IsTandemboxProduct)
-	Do ..ProductTypeApiMock.IndienMethodCall("IsSpaceTowerProduct", ProductOrderlijnId).DanReturn(IsSpaceTowerProduct)
-	
-	Do ..ProductMock.VerwachtMethodCall("GeefKleurVanKorttekst").DanReturn("UT KleurKorttekst")
-	Do ..ProductApiMock.VerwachtMethodCall("GeefProduct", ProductId).DanReturn(..ProductMock)
-	
-	Do ..BarcodeServiceMock.VerwachtMethodCall("GeefDossierBarcodeVanProduct", ProductId).DanReturn("UT DossierBarode")
-	Do ..BarcodeServiceMock.VerwachtMethodCall("GeefLeesbaarDossierBarcodeVanProduct", ProductId).DanReturn("UT Leesbare DossierBarcode")
-	
-	#dim EtiketTest As BL.Etiket.LadeKlantEtiket = ##class(BL.Etiket.LadeKlantEtiket).%New(Partij.GeefID())
-	Do ..LadeEigenschappenEtiketAanvullerMock.VerwachtMethodCall("VulAan", EtiketTest, ..#ProductId, 0).DanDoeNiks()
-	Do ..LadeKlantEtiketFactoryMock.IndienMethodCall("MaakLadeKlantEtiket", Partij.GeefID()).DanReturn(EtiketTest)
-	Do ..ImageLinkMock.VerwachtMethodCall("GetProductImageURL", ProductId, ##class(APPS.common.enu.Toepassing).Label(), "PB", "").DanReturn("UT ProductImageURL")
-	
-	Quit ##class(APPS.Halux.Docs.impl.LadeKlantEtiketBuilder).%New(..ProductTypeApiMock, ..ProductApiMock, ..BarcodeServiceMock, ..LadeEigenschappenEtiketAanvullerMock, ..LadeKlantEtiketFactoryMock, ..ImageLinkMock, ProjectSettingsAPIMock)
-]]></Implementation>
-</Method>
-
 <Method name="GeefStandaardOrder">
 <FormalSpec>Partij:DOM.PARTIJ.Partij,KlantOrderNummer:%String="UT KlantOrderNummer"</FormalSpec>
 <Private>1</Private>
Index: DOM/common/ProjectSettingsAPI.cls.xml
===================================================================
diff -u -r70308 -r70313
--- DOM/common/ProjectSettingsAPI.cls.xml	(.../ProjectSettingsAPI.cls.xml)	(revision 70308)
+++ DOM/common/ProjectSettingsAPI.cls.xml	(.../ProjectSettingsAPI.cls.xml)	(revision 70313)
@@ -281,11 +281,6 @@
 <ReturnType>%Boolean</ReturnType>
 </Method>
 
-<Method name="IsActiefDeDeckerBarcodeEtiket">
-<Abstract>1</Abstract>
-<ReturnType>%Boolean</ReturnType>
-</Method>
-
 <Method name="IsActiefVerzendwijzeVoorZwartePallet">
 <Abstract>1</Abstract>
 <ReturnType>%Boolean</ReturnType>
Index: DOM/common/impl/ProjectSettingsAPI.cls.xml
===================================================================
diff -u -r70308 -r70313
--- DOM/common/impl/ProjectSettingsAPI.cls.xml	(.../ProjectSettingsAPI.cls.xml)	(revision 70308)
+++ DOM/common/impl/ProjectSettingsAPI.cls.xml	(.../ProjectSettingsAPI.cls.xml)	(revision 70313)
@@ -335,12 +335,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="IsActiefDeDeckerBarcodeEtiket">
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("DOM.common.ProjectSettingsAPI_IsActiefDeDeckerBarcodeEtiket",$$$False)
-]]></Implementation>
-</Method>
-
 <Method name="IsActiefVerzendwijzeVoorZwartePallet">
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[	Quit ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("DOM.common.ProjectSettingsAPI_IsActiefVerzendwijzeVoorZwartePallet",$$$False)
Index: vhTest/Mock/DOM/common/ProjectSettingsAPI.cls.xml
===================================================================
diff -u -r70308 -r70313
--- vhTest/Mock/DOM/common/ProjectSettingsAPI.cls.xml	(.../ProjectSettingsAPI.cls.xml)	(revision 70308)
+++ vhTest/Mock/DOM/common/ProjectSettingsAPI.cls.xml	(.../ProjectSettingsAPI.cls.xml)	(revision 70313)
@@ -66,12 +66,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="IsActiefDeDeckerBarcodeEtiket">
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("IsActiefDeDeckerBarcodeEtiket")
-]]></Implementation>
-</Method>
-
 <Method name="IsActiefDnaCodeOpEtiket">
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("IsActiefDnaCodeOpEtiket")
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