Index: vhUnitTest/APPS/Halux/Docs/impl/LadeKlantEtiketBuilder/Test.cls.xml
===================================================================
diff -u -r65386 -r65387
--- vhUnitTest/APPS/Halux/Docs/impl/LadeKlantEtiketBuilder/Test.cls.xml	(.../Test.cls.xml)	(revision 65386)
+++ vhUnitTest/APPS/Halux/Docs/impl/LadeKlantEtiketBuilder/Test.cls.xml	(.../Test.cls.xml)	(revision 65387)
@@ -127,28 +127,31 @@
 ]]></Implementation>
 </Method>
 
-<Method name="TestVulInOrderInfoProjectPakketReferenties">
+<Method name="Test: Vul in OrderInfo met ProjectReferenties en PakketReferenties">
 <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 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)
 	
-	Do ProductOrderLijn.ZetPakketReferentie("UT PakketRef")	
-	Do ProductOrderLijn.ZetProjectReferentie("")	
-	#dim Etiket As BL.Etiket.LadeKlantEtiket = ..EtiketBuilder.MaakBasisMaatwerkProductEtiket(..Data.ProductID,Partij,1)
-	Do ..EtiketBuilder.VulInOrderInfo(Etiket,..Data.Order,Partij,ProductOrderLijn,"")
-	Do $$$AssertEquals(Etiket.Info4,"UT PakketRef")
+	#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)
 	
-	Do ProductOrderLijn.ZetPakketReferentie("")	
-	Do ProductOrderLijn.ZetProjectReferentie("UT ProjectRef")	
-	Set Etiket = ..EtiketBuilder.MaakBasisMaatwerkProductEtiket(..Data.ProductID,Partij,1)
-	Do ..EtiketBuilder.VulInOrderInfo(Etiket,..Data.Order,Partij,ProductOrderLijn,"")
-	Do $$$AssertEquals(Etiket.Info4,"UT ProjectRef")
+	Do EtiketBuilder.VulInOrderInfo(Etiket, Order, Partij, ProductOrderLijn, "")
+	Do $$$AssertEquals(Etiket.Info4, "UT PakketRef / UT ProjectRef")
 	
-	Do ProductOrderLijn.ZetPakketReferentie("UT PakketRef")
-	Do ProductOrderLijn.ZetProjectReferentie("UT ProjectRef")
-	Set Etiket = ..EtiketBuilder.MaakBasisMaatwerkProductEtiket(..Data.ProductID,Partij,1)
-	Do ..EtiketBuilder.VulInOrderInfo(Etiket,..Data.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 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 ..VerifieerMocks()
 ]]></Implementation>
 </Method>