Index: vhUnitTest/APPS/Halux/Docs/impl/LadeKlantEtiketBuilder/Test.cls.xml
===================================================================
diff -u -r65385 -r65386
--- vhUnitTest/APPS/Halux/Docs/impl/LadeKlantEtiketBuilder/Test.cls.xml	(.../Test.cls.xml)	(revision 65385)
+++ vhUnitTest/APPS/Halux/Docs/impl/LadeKlantEtiketBuilder/Test.cls.xml	(.../Test.cls.xml)	(revision 65386)
@@ -102,28 +102,28 @@
 ]]></Implementation>
 </Method>
 
-<Method name="TestVulInOrderInfo">
+<Method name="Test: Vul in OrderInfo">
 <Implementation><![CDATA[
-	Set EtiketBuilder = ##class(APPS.Halux.Docs.impl.LadeKlantEtiketBuilder).%New()
-	#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("UT ProjectRef")
+	#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, "")
 	
-	#dim Etiket As BL.Etiket.LadeKlantEtiket = EtiketBuilder.MaakBasisMaatwerkProductEtiket(..Data.ProductID,Partij,1)
-	Do EtiketBuilder.VulInOrderInfo(Etiket,..Data.Order,Partij,ProductOrderLijn,"")
-	
 	Do $$$AssertEquals(Etiket.KlantBarcode,"","Standaard gebruiken klanten geen KlantBarcode.")
-	Do $$$AssertEquals(Etiket.VerzendWijze,"OD2")
-	Do $$$AssertEquals(Etiket.OrderID,..Data.Order.GeefID())
+	Do $$$AssertEquals(Etiket.VerzendWijze,"VerzendingWijze")
+	Do $$$AssertEquals(Etiket.OrderID,Order.GeefID())
 	Do $$$AssertEquals(Etiket.LogoImg,"Logo\Logo VHZwart.svg")
 	Do $$$AssertEquals(Etiket.LblInfo1,"Klant")
-	Do $$$AssertEquals(Etiket.Info1,"UNITTEST KLANT")
+	Do $$$AssertEquals(Etiket.Info1,"UT AfleverAdresNaam")
 	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 ..VerifieerMocks()
 ]]></Implementation>
 </Method>
 
@@ -480,6 +480,45 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefStandaardOrder">
+<FormalSpec>Partij:DOM.PARTIJ.Partij,KlantOrderNummer:%String="UT KlantOrderNummer"</FormalSpec>
+<Private>1</Private>
+<ReturnType>vhTest.Utils.DOM.VKP.Order</ReturnType>
+<Implementation><![CDATA[
+	#dim StandaardOrder As vhTest.Mock.DOM.VKP.Order = ##class(vhTest.Utils.DOM.VKP.Order).StandaardOrder()
+	#dim AfleverAdres As vhTest.Mock.DOM.common.Adres = ##class(vhTest.Utils.DOM.common.Adres).StandaardAdres()
+	Set DocumentReferenties = ##class(DOM.VKP.DocumentReferenties).%New()
+	
+	Do AfleverAdres.IndienMethodCall("GeefNaam").DanReturn("UT AfleverAdresNaam")
+	
+	Do StandaardOrder.IndienMethodCall("GeefAfleveradres").DanReturn(AfleverAdres)
+	Do StandaardOrder.IndienMethodCall("GeefDocumentReferenties").DanReturn("UT DocumentRef")
+	Do StandaardOrder.IndienMethodCall("GeefKlantID").DanReturn(Partij.GeefID())
+	
+	Set DocumentReferenties.KlantOrderNummer = KlantOrderNummer
+	Set DocumentReferenties.OrderReferentie = "UT Order Ref"
+	Set DocumentReferenties.CommissieReferentie = "UT CommRef"
+	
+	Set StandaardOrder = ##class(vhTest.Utils.DOM.VKP.Order).VoegtoeDocumentReferenties(StandaardOrder, DocumentReferenties)
+	Quit StandaardOrder
+]]></Implementation>
+</Method>
+
+<Method name="GeefStandaardProductOrderLijn">
+<FormalSpec>Order:DOM.VKP.Order,ProjectReferentie:%String="UT ProjectRef",PakketReferentie:%String="UT PakketRef"</FormalSpec>
+<Private>1</Private>
+<ReturnType>vhTest.Mock.DOM.VKP.impl.DataM.DataMProductOrderlijn</ReturnType>
+<Implementation><![CDATA[
+	#dim StandaardProductOrderLijn As vhTest.Mock.DOM.VKP.impl.DataM.DataMProductOrderlijn = ##class(vhTest.Utils.DOM.VKP.ProductOrderlijn).StandaardProductLijn()
+	Do StandaardProductOrderLijn.IndienMethodCall("GeefToeleveringID").DanReturn(123456)
+	Do StandaardProductOrderLijn.IndienMethodCall("GeefProjectReferentie").DanReturn(ProjectReferentie)
+	Do StandaardProductOrderLijn.IndienMethodCall("GeefPakketReferentie").DanReturn(PakketReferentie)
+	Do StandaardProductOrderLijn.IndienMethodCall("GeefOrder").DanReturn(Order)
+	
+	Quit StandaardProductOrderLijn
+]]></Implementation>
+</Method>
+
 <Method name="GeefProductOrderLijn">
 <Private>1</Private>
 <ReturnType>DOM.VKP.ProductOrderlijn</ReturnType>