Index: vhUnitTest/APPS/Halux/Docs/impl/LadeKlantEtiketBuilder/Test.cls.xml
===================================================================
diff -u -r68815 -r72480
--- vhUnitTest/APPS/Halux/Docs/impl/LadeKlantEtiketBuilder/Test.cls.xml	(.../Test.cls.xml)	(revision 68815)
+++ vhUnitTest/APPS/Halux/Docs/impl/LadeKlantEtiketBuilder/Test.cls.xml	(.../Test.cls.xml)	(revision 72480)
@@ -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")
@@ -106,7 +106,7 @@
 	Do $$$AssertEquals(Etiket.Info2, "UT Order Ref")
 	Do $$$AssertEquals(Etiket.Info3, "UT CommRef")
 	Do $$$AssertEquals(Etiket.Info4, "UT PakketRef / UT ProjectRef")
-	Do $$$AssertEquals(Etiket.Info5, "", "ExtraRef, wordt momenteel niet gebruikt.")
+	Do $$$AssertEquals(Etiket.Info5, "", "ExtraRef, wordt momenteel enkel bij RVG gebruikt.")
 	
 	Do ..VerifieerMocks()
 ]]></Implementation>
@@ -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())
@@ -225,7 +184,6 @@
 	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 ..VerifieerMocks()
 ]]></Implementation>
@@ -238,11 +196,11 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: KlantBarcode voor Neves enkel invullen indien patroon van projectreferentie = 1N1E1_punt_N">
+<Method name="Test: KlantBarcode voor Neves altijd invullen">
 <Implementation><![CDATA[
 	#dim PartijMetKlantBarcode As DOM.PARTIJ.Partij = ##class(DOM.DomeinContext).Instance().GeefPartijAPI().GeefPartij(##class(DOM.VKP.enu.Klant).NevesBelgium())
 	#dim Order As vhTest.Mock.DOM.VKP.Order = ..GeefStandaardOrder(PartijMetKlantBarcode)
-	#dim ProductOrderLijn As vhTest.Mock.DOM.VKP.impl.DataM.DataMProductOrderlijn = ..GeefStandaardProductOrderLijn(Order, "2B058108160")	
+	#dim ProductOrderLijn As vhTest.Mock.DOM.VKP.impl.DataM.DataMProductOrderlijn = ..GeefStandaardProductOrderLijn(Order, "ProjectReferentieVoorOpBarcode")	
 	
 	#dim EtiketBuilder As APPS.Halux.Docs.impl.LadeKlantEtiketBuilder = ..GeefLadeKlantEtiketBuilder(PartijMetKlantBarcode, ..#ProductId, $$$True, $$$False, 1000)	
 	#dim Etiket As BL.Etiket.LadeKlantEtiket = EtiketBuilder.MaakBasisMaatwerkProductEtiket(..#ProductId, PartijMetKlantBarcode, 1)
@@ -251,37 +209,15 @@
 	Do $$$AssertEquals(Etiket.Info1, "UT Order Ref")
 	Do $$$AssertEquals(Etiket.Info2, "UT CommRef")
 	Do $$$AssertEquals(Etiket.Info3, "UT PakketRef")
-	Do $$$AssertEquals(Etiket.Info4, "2B058108160")
-	Do $$$AssertEquals(Etiket.KlantBarcode, "2B058108160")
-	Do $$$AssertEquals(Etiket.Layout, "MaatwerkProductBAR 8x11", "Etiket met ruimte voor KlantBarcode is gekozen.")
+	Do $$$AssertEquals(Etiket.Info4, "ProjectReferentieVoorOpBarcode")
+	Do $$$AssertEquals(Etiket.KlantBarcode, "ProjectReferentieVoorOpBarcode")
 	
 	Do ..VerifieerMocks()
 ]]></Implementation>
 </Method>
 
-<Method name="Test: KlantBarcode voor Neves niet invullen indien patroon van projectreferentie &lt;&gt; 1N1E1_punt_N">
+<Method name="Test: KlantBarcode voor Labonorm altijd invullen">
 <Implementation><![CDATA[
-	#dim PartijMetKlantBarcode As DOM.PARTIJ.Partij = ##class(DOM.DomeinContext).Instance().GeefPartijAPI().GeefPartij(##class(DOM.VKP.enu.Klant).NevesBelgium())
-	#dim Order As vhTest.Mock.DOM.VKP.Order = ..GeefStandaardOrder(PartijMetKlantBarcode)
-	#dim ProductOrderLijn As vhTest.Mock.DOM.VKP.impl.DataM.DataMProductOrderlijn = ..GeefStandaardProductOrderLijn(Order, "B058108160")	
-	
-	#dim EtiketBuilder As APPS.Halux.Docs.impl.LadeKlantEtiketBuilder = ..GeefLadeKlantEtiketBuilder(PartijMetKlantBarcode, ..#ProductId, $$$True, $$$False, 1000)
-	#dim Etiket As BL.Etiket.LadeKlantEtiket = EtiketBuilder.MaakBasisMaatwerkProductEtiket(..#ProductId, PartijMetKlantBarcode, 1)
-	Do EtiketBuilder.VulInOrderInfo(Etiket, Order, PartijMetKlantBarcode, ProductOrderLijn, "")
-	
-	Do $$$AssertEquals(Etiket.Info1, "UT Order Ref")
-	Do $$$AssertEquals(Etiket.Info2, "UT CommRef")
-	Do $$$AssertEquals(Etiket.Info3, "UT PakketRef")
-	Do $$$AssertEquals(Etiket.Info4, "B058108160")
-	Do $$$AssertEquals(Etiket.KlantBarcode, "")
-	Do $$$AssertEquals(Etiket.Layout, "")
-
-	Do ..VerifieerMocks()
-]]></Implementation>
-</Method>
-
-<Method name="Test: KlantBarcode voor Labonorm altijd invullen, ProductImg Leegmaken en etiket 5x10 kiezen">
-<Implementation><![CDATA[
 	#dim PartijMetKlantBarcode As DOM.PARTIJ.Partij = ##class(DOM.DomeinContext).Instance().GeefPartijAPI().GeefPartij(##class(DOM.VKP.enu.Klant).Labonorm())
 	#dim Order As vhTest.Mock.DOM.VKP.Order = ..GeefStandaardOrder(PartijMetKlantBarcode)
 	#dim ProductOrderLijn As vhTest.Mock.DOM.VKP.impl.DataM.DataMProductOrderlijn = ..GeefStandaardProductOrderLijn(Order, "ProjectReferentieVoorOpBarcode")
@@ -291,7 +227,6 @@
 	Do EtiketBuilder.VulInOrderInfo(Etiket, Order, PartijMetKlantBarcode, ProductOrderLijn, "")
 	
 	Do $$$AssertEquals(Etiket.KlantBarcode, "ProjectReferentieVoorOpBarcode")
-	Do $$$AssertEquals(Etiket.Layout, "MaatwerkProduct 5x10")
 
 	Do ..VerifieerMocks()
 ]]></Implementation>
@@ -308,7 +243,6 @@
 	Do EtiketBuilder.VulInOrderInfo(Etiket, Order, PartijMetKlantBarcode, ProductOrderLijn, "")
 	
 	Do $$$AssertEquals(Etiket.KlantBarcode, "2B058108160")
-	Do $$$AssertEquals(Etiket.Layout, "MaatwerkProductBAR 8x11")
 	Do $$$AssertEquals(Etiket.ProductImg, "UT ProductImageURL")
 	
 	Do ..VerifieerMocks()
@@ -326,7 +260,6 @@
 	Do EtiketBuilder.VulInOrderInfo(Etiket, Order, PartijMetKlantBarcode, ProductOrderLijn, "")
 	
 	Do $$$AssertEquals(Etiket.KlantBarcode, "0000105973917")
-	Do $$$AssertEquals(Etiket.Layout, "MaatwerkProductBAR 8x11")
 	Do $$$AssertEquals(Etiket.ProductImg, "UT ProductImageURL")
 	
 	Do ..VerifieerMocks()
@@ -512,29 +445,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>
@@ -549,6 +459,7 @@
 	Do StandaardOrder.IndienMethodCall("GeefAfleveradres").DanReturn(AfleverAdres)
 	Do StandaardOrder.IndienMethodCall("GeefDocumentReferenties").DanReturn("UT DocumentRef")
 	Do StandaardOrder.IndienMethodCall("GeefKlantID").DanReturn(Partij.GeefID())
+	Do StandaardOrder.IndienMethodCall("GeefOorsprongKetting").DanReturn("")
 	
 	Set DocumentReferenties.KlantOrderNummer = KlantOrderNummer
 	Set DocumentReferenties.OrderReferentie = "UT Order Ref"