Index: vhUnitTest/APPS/Halux/Docs/TestEtiketBuilder.cls.xml
===================================================================
diff -u -r51333 -r51336
--- vhUnitTest/APPS/Halux/Docs/TestEtiketBuilder.cls.xml	(.../TestEtiketBuilder.cls.xml)	(revision 51333)
+++ vhUnitTest/APPS/Halux/Docs/TestEtiketBuilder.cls.xml	(.../TestEtiketBuilder.cls.xml)	(revision 51336)
@@ -80,19 +80,21 @@
 	#dim ToeleveringApiStub = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).%New()
 	Do ToeleveringApiStub.IndienMethodCall("GeefToelevering",$$$ElkeWaarde).DanReturn(ToeleveringMetLijn)
 	
-	#dim StandaardPartij As DOM.PARTIJ.Partij = ##class(vhTest.Utils.DOM.PARTIJ.Partij).StandaardPartij()
 	#dim PartijApiStub = ##class(vhTest.Mock.DOM.PARTIJ.PartijAPI).%New()
-	Do PartijApiStub.IndienMethodCall("GeefPartij",$$$ElkeWaarde).DanReturn(StandaardPartij)
+	#dim StandaardPartij1 As DOM.PARTIJ.Partij = ##class(vhTest.Utils.DOM.PARTIJ.Partij).StandaardPartij()
+	Do PartijApiStub.IndienMethodCall("GeefPartij","K||1234").DanReturn(StandaardPartij1)
+	#dim StandaardPartij2 As DOM.PARTIJ.Partij = ##class(vhTest.Utils.DOM.PARTIJ.Partij).StandaardPartij()
+	Do PartijApiStub.IndienMethodCall("GeefPartij","K||4682").DanReturn(StandaardPartij2)
 	
 	Set Product = ##class(vhTest.Mock.DOM.PM.Product).%New()
 	Do Product.IndienMethodCall("GeefKleurVanKorttekst").DanReturn("Z")
 	#dim ProductApi As DOM.PM.ProductAPI = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
 	Do ProductApi.IndienMethodCall("GeefProduct",ProductID).DanReturn(Product)
 	
-	#dim EtiketStub = ##class(BL.Etiket.LadeKlantEtiketVHoss).%New(StandaardPartij.GeefID())
+	#dim EtiketStub = ##class(BL.Etiket.LadeKlantEtiketVHoss).%New(StandaardPartij1.GeefID())
 	#dim LadeKlantEtiketBuilderMock As APPS.Halux.Docs.impl.LadeKlantEtiketBuilder = ##class(vhTest.Mock.APPS.Halux.Docs.impl.LadeKlantEtiketBuilder).%New(,ProductApi)
-	Do LadeKlantEtiketBuilderMock.VerwachtMethodCall("MaakMaatwerkProductInVHossEtiket",ProductID,StandaardPartij,Aantal).DanReturn(EtiketStub)
-	Do LadeKlantEtiketBuilderMock.VerwachtMethodCall("VulInToeleveringInfo",EtiketStub,ToeleveringMetLijn,ToeleveringMetLijn.GeefToeleveringLijn(ToeleveringLijnID),StandaardPartij).DanReturn(EtiketStub)
+	Do LadeKlantEtiketBuilderMock.VerwachtMethodCall("MaakMaatwerkProductInVHossEtiket",ProductID,StandaardPartij1,Aantal).DanReturn(EtiketStub)
+	Do LadeKlantEtiketBuilderMock.VerwachtMethodCall("VulInToeleveringInfo",EtiketStub,ToeleveringMetLijn,ToeleveringMetLijn.GeefToeleveringLijn(ToeleveringLijnID),StandaardPartij1).DanReturn(EtiketStub)
 	Do LadeKlantEtiketBuilderMock.VerwachtMethodCall("FormateerProductieWeek",ToeleveringMetLijn.GeefDueOutTime()).DanDoeNiks()
 	
 	Set EtiketBuilder = ##class(APPS.Halux.Docs.EtiketBuilder).%New(OrderApiStub, ToeleveringApiStub, LadeKlantEtiketBuilderMock, PartijApiStub)
@@ -122,30 +124,59 @@
 
 <Method name="Test: Maak MaatwerkProduct In VHoss Via Toelevering Met OorsprongKetting">
 <Implementation><![CDATA[
-	Set ..OorsprongKetting = "((12, ""K||7833"", 255025))"
-	Do ..Data.MaakData(..OorsprongKetting)
-	Set EtiketBuilder = ##class(APPS.Halux.Docs.EtiketBuilder).%New()
+	#dim ProductID = 1000
+	#dim Aantal = 1
+	#dim ToeleveringLijnID = 100
+	
+	#dim StandaardOrder As DOM.VKP.Order = ##class(vhTest.Utils.DOM.VKP.Order).StandaardOrder()
+	Do StandaardOrder.IndienMethodCall("GeefOorsprongKetting").DanReturn("((1, ""K||7833"", 255025))")
+	Set OrderApiStub = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
+	Do OrderApiStub.IndienMethodCall("GeefOrder",$$$ElkeWaarde).DanReturn(StandaardOrder)
+	
+	#dim ToeleveringMetLijn As DOM.AKP.Toelevering = ##class(vhTest.Utils.DOM.AKP.Toelevering).ToeleveringMetLijn()
+	Do ToeleveringMetLijn.IndienMethodCall("GeefDueOutTime").DanReturn(##class(vhTest.Fake.TECH.DateTime.DateTimeAPI).%New().CurrentTimeStamp())
+	#dim ToeleveringApiStub = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).%New()
+	Do ToeleveringApiStub.IndienMethodCall("GeefToelevering",$$$ElkeWaarde).DanReturn(ToeleveringMetLijn)
+	
+	#dim PartijApiStub = ##class(vhTest.Mock.DOM.PARTIJ.PartijAPI).%New()
+	#dim StandaardPartij1 As DOM.PARTIJ.Partij = ##class(vhTest.Utils.DOM.PARTIJ.Partij).StandaardPartij()
+	Do PartijApiStub.IndienMethodCall("GeefPartij","K||1234").DanReturn(StandaardPartij1)
+	#dim StandaardPartij2 As DOM.PARTIJ.Partij = ##class(vhTest.Utils.DOM.PARTIJ.Partij).StandaardPartij()
+	Do PartijApiStub.IndienMethodCall("GeefPartij","K||4682").DanReturn(StandaardPartij2)
+	
+	Set Product = ##class(vhTest.Mock.DOM.PM.Product).%New()
+	Do Product.IndienMethodCall("GeefKleurVanKorttekst").DanReturn("Z")
+	#dim ProductApi As DOM.PM.ProductAPI = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
+	Do ProductApi.IndienMethodCall("GeefProduct",ProductID).DanReturn(Product)
+	
+	#dim EtiketStub = ##class(BL.Etiket.LadeKlantEtiketVHoss).%New(StandaardPartij2.GeefID())
+	#dim LadeKlantEtiketBuilderMock As APPS.Halux.Docs.impl.LadeKlantEtiketBuilder = ##class(vhTest.Mock.APPS.Halux.Docs.impl.LadeKlantEtiketBuilder).%New(,ProductApi)
+	Do LadeKlantEtiketBuilderMock.VerwachtMethodCall("MaakMaatwerkProductInVHossEtiket",ProductID,StandaardPartij2,Aantal).DanReturn(EtiketStub)
+	Do LadeKlantEtiketBuilderMock.VerwachtMethodCall("VulInToeleveringInfo",EtiketStub,ToeleveringMetLijn,ToeleveringMetLijn.GeefToeleveringLijn(ToeleveringLijnID),StandaardPartij2).DanReturn(EtiketStub)
+	Do LadeKlantEtiketBuilderMock.VerwachtMethodCall("FormateerProductieWeek",ToeleveringMetLijn.GeefDueOutTime()).DanDoeNiks()
+	
+	Set EtiketBuilder = ##class(APPS.Halux.Docs.EtiketBuilder).%New(OrderApiStub, ToeleveringApiStub, LadeKlantEtiketBuilderMock, PartijApiStub)
 	#dim BatchID As %String = 999999
 	Set WPVerpak = ##class(DS.PPS.TBX.sub.emWPVerpak).%New()
 	Set WPVerpak.FrameID = "O1000001"
 	Set WPVerpak.SlotNr = 1
 	Set WPVerpak.SubNr = 2
 	Set WPVerpak.UnitNr = 3
-	#dim ToeleveringID = ..Data.Order.GeefOrderLijnViaVolgnummer(101).GeefToelevering().GeefID()
-	#dim Etiket As APPS.common.Print.AbstractLabel = EtiketBuilder.MaakMaatwerkProductInVHossViaToelevering(ToeleveringID,100,1,BatchID,WPVerpak)
 	
+	#dim Etiket As APPS.common.Print.AbstractLabel = EtiketBuilder.MaakMaatwerkProductInVHossViaToelevering(ToeleveringMetLijn.GeefID(),ToeleveringLijnID,Aantal,BatchID,WPVerpak)
+	
 	If $$$AssertTrue($IsObject(Etiket),"Etiket is aangemaakt."){
 		Do $$$AssertEquals(Etiket.%ClassName(1),##class(BL.Etiket.LadeKlantEtiketVHoss).%ClassName(1))
-		Do ..ControleEtiket(Etiket)
 		#dim MaatwerkProductEtiket As BL.Etiket.LadeKlantEtiketVHoss = Etiket
-		Do $$$AssertEquals(MaatwerkProductEtiket.LadeID,"99999903200000700")
+		Do $$$AssertEquals(MaatwerkProductEtiket.LadeID,"99999903200000000")
 		Do $$$AssertEquals(MaatwerkProductEtiket.VHossInfo,"3.B.1")
 		Do $$$AssertEquals(MaatwerkProductEtiket.VHossSeqNr,"3")
 		Do $$$AssertEquals(MaatwerkProductEtiket.VHossZijkant,"2")
 		Do $$$AssertEquals(MaatwerkProductEtiket.VolgendSlotNr,"")
 		Do $$$AssertEquals(MaatwerkProductEtiket.VorigSlotNr,"+")
-		Do $$$AssertEquals(Etiket.ToeleveringID,ToeleveringID)
 	}
+	
+	Do LadeKlantEtiketBuilderMock.Verifieer()
 ]]></Implementation>
 </Method>