Index: vhUnitTest/APPS/Halux/Docs/impl/LadeKlantEtiketBuilder/Test.cls.xml
===================================================================
diff -u -r65405 -r68815
--- 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 68815)
@@ -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")
@@ -139,6 +140,80 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Vul in OrderInfo met ProjectReferentie voor klant DeDecker met IsActiefDeDeckerBarcodeEtiket True">
+<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($$$True)
+	
+	#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, "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())
@@ -437,6 +512,29 @@
 ]]></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>