Index: vhUnitTest/APPS/Halux/Docs/impl/LadeKlantEtiketBuilder/Test.cls.xml
===================================================================
diff -u -r65400 -r65401
--- vhUnitTest/APPS/Halux/Docs/impl/LadeKlantEtiketBuilder/Test.cls.xml	(.../Test.cls.xml)	(revision 65400)
+++ vhUnitTest/APPS/Halux/Docs/impl/LadeKlantEtiketBuilder/Test.cls.xml	(.../Test.cls.xml)	(revision 65401)
@@ -321,7 +321,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Klant met eigen logo -&gt; klantnaam wordt niet meer getoond">
+<Method name="Test: Klant met eigen logo -&gt; klantnaam wordt niet getoond">
 <Implementation><![CDATA[
 	#dim PartijMetKlantOrderNummer As DOM.PARTIJ.Partij = ##class(DOM.DomeinContext).Instance().GeefPartijAPI().GeefPartij(##class(DOM.VKP.enu.Klant).SFS())
 	#dim Order As vhTest.Mock.DOM.VKP.Order = ..GeefStandaardOrder(PartijMetKlantOrderNummer, "")
@@ -339,51 +339,29 @@
 ]]></Implementation>
 </Method>
 
-<Method name="TestAfleverAdres">
+<Method name="Test: AfleverAdres moet ingevuld zijn in OrderInfo">
 <Implementation><![CDATA[
-	#Dim Partij As DOM.PARTIJ.Partij = ##class(DOM.DomeinContext).Instance().GeefPartijAPI().GeefPartij(..Data.Order.GeefKlantID())
-	#Dim ProductOrderLijn As DOM.VKP.ProductOrderlijn = ..GeefProductOrderLijn()
-	#Dim AfleverAdres As DOM.VKP.LeverAdres = ..GeefAdres("TestAdresNaam")
-
-	Do ..Data.Order.ZetAfleveradres(AfleverAdres)
-	Do ..Data.Order.Save()
+	#dim Partij As DOM.PARTIJ.Partij = ##class(vhTest.Utils.DOM.PARTIJ.Partij).StandaardPartij()
+	#dim Order As vhTest.Mock.DOM.VKP.Order = ..GeefStandaardOrder(Partij)
+	#dim ProductOrderLijn As vhTest.Mock.DOM.VKP.impl.DataM.DataMProductOrderlijn = ..GeefStandaardProductOrderLijn(Order, "", "")
 	
-	#Dim Etiket As BL.Etiket.LadeKlantEtiket = ..EtiketBuilder.MaakBasisMaatwerkProductEtiket(..Data.ProductID, Partij, 1)
-	Do ..EtiketBuilder.VulInOrderInfo(Etiket, ..Data.Order, Partij, ProductOrderLijn, "")
-	
+	#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)
+	Do EtiketBuilder.VulInOrderInfo(Etiket, Order ,Partij, ProductOrderLijn, "")
+			
 	Do $$$AssertEquals(Etiket.LblInfo1, "Klant")
-	Do $$$AssertEquals(Etiket.Info1, "TestAdresNaam")
+	Do $$$AssertEquals(Etiket.Info1, "UT AfleverAdresNaam")
 	Do $$$AssertEquals(Etiket.LblInfo2, "Order Ref.")
 	Do $$$AssertEquals(Etiket.Info2, "UT Order Ref")
 	Do $$$AssertEquals(Etiket.LblInfo3, "Commissie Ref.")
 	Do $$$AssertEquals(Etiket.Info3, "UT CommRef")
 	Do $$$AssertEquals(Etiket.LblInfo4, "")
 	Do $$$AssertEquals(Etiket.Info4, "")
 	
-	Do ..Data.Order.ZetAfleveradres(##class(DOM.VKP.impl.LeverAdresFactory).%New().MaakLeverAdres())
-	Do ..Data.Order.Save()
+	Do ..VerifieerMocks()
 ]]></Implementation>
 </Method>
 
-<Method name="GeefAdres">
-<FormalSpec>AdresNaam:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>DOM.VKP.LeverAdres</ReturnType>
-<Implementation><![CDATA[
-	#Dim LeverAdres As DOM.VKP.LeverAdres = ##class(DOM.VKP.impl.LeverAdresFactory).%New().MaakLeverAdres()
-	
-	Do LeverAdres.ZetNaam(AdresNaam)
-	Do LeverAdres.ZetToenaam("TestToenaam")
-	Do LeverAdres.ZetAanspreking("TestAanspreking")
-	Do LeverAdres.ZetStraat("TestStraat")
-	Do LeverAdres.ZetPostcode("9800")
-	Do LeverAdres.ZetGemeente("TestGemeente")
-	Do LeverAdres.ZetLandNr(##class(DOM.common.enu.Land).Bulgarije())
-	
-	Quit LeverAdres
-]]></Implementation>
-</Method>
-
 <Method name="Test VulAanProjectReferentieMetLadeNaamIndienSpaceTower doet niets indien geen Space Tower op de orderlijn">
 <Implementation><![CDATA[
 	#Dim ProductOrderLijn As vhTest.Mock.DOM.VKP.ProductOrderlijn = ##class(vhTest.Mock.DOM.VKP.ProductOrderlijn).%New()