Index: vhUnitTest/APPS/Halux/Docs/TestEtiketBuilder.cls.xml
===================================================================
diff -u -r51355 -r51356
--- vhUnitTest/APPS/Halux/Docs/TestEtiketBuilder.cls.xml	(.../TestEtiketBuilder.cls.xml)	(revision 51355)
+++ vhUnitTest/APPS/Halux/Docs/TestEtiketBuilder.cls.xml	(.../TestEtiketBuilder.cls.xml)	(revision 51356)
@@ -54,10 +54,20 @@
 </Property>
 
 <Property name="ProductApi">
-<Type>DOM.PM.ProductAPI</Type>
+<Type>vhTest.Mock.DOM.PM.ProductAPI</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="ToeleveringMetLijn">
+<Type>vhTest.Mock.DOM.AKP.Toelevering</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ToeleveringApiStub">
+<Type>vhTest.Mock.DOM.AKP.ToeleveringAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestCase:%String</FormalSpec>
 <Implementation><![CDATA[
@@ -75,6 +85,11 @@
 	Do ..Product.IndienMethodCall("GeefKleurVanKorttekst").DanReturn("Z")
 	Set ..ProductApi = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
 	Do ..ProductApi.IndienMethodCall("GeefProduct",..#ProductID).DanReturn(..Product)
+	
+	Set ..ToeleveringMetLijn = ##class(vhTest.Utils.DOM.AKP.Toelevering).ToeleveringMetLijn()
+	Do ..ToeleveringMetLijn.IndienMethodCall("GeefDueOutTime").DanReturn(##class(vhTest.Fake.TECH.DateTime.DateTimeAPI).%New().CurrentTimeStamp())
+	Set ..ToeleveringApiStub = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).%New()
+	Do ..ToeleveringApiStub.IndienMethodCall("GeefToelevering",$$$ElkeWaarde).DanReturn(..ToeleveringMetLijn)
 ]]></Implementation>
 </Method>
 
@@ -103,20 +118,16 @@
 
 <Method name="Test: Maak MaatwerkProduct Via Toelevering">
 <Implementation><![CDATA[
-	#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())
-	Do ToeleveringMetLijn.IndienMethodCall("GeefOorsprongKetting").DanReturn("")
-	#dim ToeleveringApiStub = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).%New()
-	Do ToeleveringApiStub.IndienMethodCall("GeefToelevering",$$$ElkeWaarde).DanReturn(ToeleveringMetLijn)
+	Do ..ToeleveringMetLijn.IndienMethodCall("GeefOorsprongKetting").DanReturn("")
 
 	#dim EtiketStub = ##class(BL.Etiket.LadeKlantEtiket).%New(..StandaardPartij1.GeefID())
 	#dim LadeKlantEtiketBuilderMock As APPS.Halux.Docs.impl.LadeKlantEtiketBuilder = ##class(vhTest.Mock.APPS.Halux.Docs.impl.LadeKlantEtiketBuilder).%New(,..ProductApi)
 	Do LadeKlantEtiketBuilderMock.VerwachtMethodCall("MaakBasisMaatwerkProductEtiket",..#ProductID,..StandaardPartij1,..#Aantal).DanReturn(EtiketStub)
-	Do LadeKlantEtiketBuilderMock.VerwachtMethodCall("VulInToeleveringInfo",EtiketStub,ToeleveringMetLijn,ToeleveringMetLijn.GeefToeleveringLijn(..#ToeleveringLijnID),..StandaardPartij1).DanReturn(EtiketStub)
-	Do LadeKlantEtiketBuilderMock.VerwachtMethodCall("FormateerProductieWeek",ToeleveringMetLijn.GeefDueOutTime()).DanReturn("ProductieWeek")
+	Do LadeKlantEtiketBuilderMock.VerwachtMethodCall("VulInToeleveringInfo",EtiketStub,..ToeleveringMetLijn,..ToeleveringMetLijn.GeefToeleveringLijn(..#ToeleveringLijnID),..StandaardPartij1).DanReturn(EtiketStub)
+	Do LadeKlantEtiketBuilderMock.VerwachtMethodCall("FormateerProductieWeek",..ToeleveringMetLijn.GeefDueOutTime()).DanReturn("ProductieWeek")
 	
-	Set EtiketBuilder = ##class(APPS.Halux.Docs.EtiketBuilder).%New(, ToeleveringApiStub, LadeKlantEtiketBuilderMock, ..PartijApiStub)
-	#dim Etiket As BL.Etiket.LadeKlantEtiket = EtiketBuilder.MaakMaatwerkProductViaToelevering(ToeleveringMetLijn.GeefID(),..#ToeleveringLijnID,..#Aantal)
+	Set EtiketBuilder = ##class(APPS.Halux.Docs.EtiketBuilder).%New(, ..ToeleveringApiStub, LadeKlantEtiketBuilderMock, ..PartijApiStub)
+	#dim Etiket As BL.Etiket.LadeKlantEtiket = EtiketBuilder.MaakMaatwerkProductViaToelevering(..ToeleveringMetLijn.GeefID(),..#ToeleveringLijnID,..#Aantal)
 	
 	If $$$AssertTrue($IsObject(Etiket),"Etiket is aangemaakt."){
 		Do $$$AssertEquals(Etiket.%ClassName(1),##class(BL.Etiket.LadeKlantEtiket).%ClassName(1))
@@ -129,20 +140,16 @@
 
 <Method name="Test: Maak MaatwerkProduct Via Toelevering met OorsprongKetting">
 <Implementation><![CDATA[
-	#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())
-	Do ToeleveringMetLijn.IndienMethodCall("GeefOorsprongKetting").DanReturn("((1, ""K||7833"", 255025))")
-	#dim ToeleveringApiStub = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).%New()
-	Do ToeleveringApiStub.IndienMethodCall("GeefToelevering",$$$ElkeWaarde).DanReturn(ToeleveringMetLijn)
+	Do ..ToeleveringMetLijn.IndienMethodCall("GeefOorsprongKetting").DanReturn("((1, ""K||7833"", 255025))")
 
 	#dim EtiketStub = ##class(BL.Etiket.LadeKlantEtiket).%New(..StandaardPartij2.GeefID())
 	#dim LadeKlantEtiketBuilderMock As APPS.Halux.Docs.impl.LadeKlantEtiketBuilder = ##class(vhTest.Mock.APPS.Halux.Docs.impl.LadeKlantEtiketBuilder).%New(,..ProductApi)
 	Do LadeKlantEtiketBuilderMock.VerwachtMethodCall("MaakBasisMaatwerkProductEtiket",..#ProductID,..StandaardPartij2,..#Aantal).DanReturn(EtiketStub)
-	Do LadeKlantEtiketBuilderMock.VerwachtMethodCall("VulInToeleveringInfo",EtiketStub,ToeleveringMetLijn,ToeleveringMetLijn.GeefToeleveringLijn(..#ToeleveringLijnID),..StandaardPartij2).DanReturn(EtiketStub)
-	Do LadeKlantEtiketBuilderMock.VerwachtMethodCall("FormateerProductieWeek",ToeleveringMetLijn.GeefDueOutTime()).DanReturn("ProductieWeek")
+	Do LadeKlantEtiketBuilderMock.VerwachtMethodCall("VulInToeleveringInfo",EtiketStub,..ToeleveringMetLijn,..ToeleveringMetLijn.GeefToeleveringLijn(..#ToeleveringLijnID),..StandaardPartij2).DanReturn(EtiketStub)
+	Do LadeKlantEtiketBuilderMock.VerwachtMethodCall("FormateerProductieWeek",..ToeleveringMetLijn.GeefDueOutTime()).DanReturn("ProductieWeek")
 	
-	Set EtiketBuilder = ##class(APPS.Halux.Docs.EtiketBuilder).%New(, ToeleveringApiStub, LadeKlantEtiketBuilderMock, ..PartijApiStub)
-	#dim Etiket As BL.Etiket.LadeKlantEtiket = EtiketBuilder.MaakMaatwerkProductViaToelevering(ToeleveringMetLijn.GeefID(),..#ToeleveringLijnID,..#Aantal)
+	Set EtiketBuilder = ##class(APPS.Halux.Docs.EtiketBuilder).%New(, ..ToeleveringApiStub, LadeKlantEtiketBuilderMock, ..PartijApiStub)
+	#dim Etiket As BL.Etiket.LadeKlantEtiket = EtiketBuilder.MaakMaatwerkProductViaToelevering(..ToeleveringMetLijn.GeefID(),..#ToeleveringLijnID,..#Aantal)
 	
 	If $$$AssertTrue($IsObject(Etiket),"Etiket is aangemaakt."){
 		Do $$$AssertEquals(Etiket.%ClassName(1),##class(BL.Etiket.LadeKlantEtiket).%ClassName(1))
@@ -155,27 +162,23 @@
 
 <Method name="Test: Maak MaatwerkProduct In VHoss Via Toelevering">
 <Implementation><![CDATA[
-	#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())
-	Do ToeleveringMetLijn.IndienMethodCall("GeefOorsprongKetting").DanReturn("")
-	#dim ToeleveringApiStub = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).%New()
-	Do ToeleveringApiStub.IndienMethodCall("GeefToelevering",$$$ElkeWaarde).DanReturn(ToeleveringMetLijn)
+	Do ..ToeleveringMetLijn.IndienMethodCall("GeefOorsprongKetting").DanReturn("")
 	
 	#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,..StandaardPartij1,..#Aantal).DanReturn(EtiketStub)
-	Do LadeKlantEtiketBuilderMock.VerwachtMethodCall("VulInToeleveringInfo",EtiketStub,ToeleveringMetLijn,ToeleveringMetLijn.GeefToeleveringLijn(..#ToeleveringLijnID),..StandaardPartij1).DanReturn(EtiketStub)
-	Do LadeKlantEtiketBuilderMock.VerwachtMethodCall("FormateerProductieWeek",ToeleveringMetLijn.GeefDueOutTime()).DanDoeNiks()
+	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(, ToeleveringApiStub, LadeKlantEtiketBuilderMock, ..PartijApiStub)
+	Set EtiketBuilder = ##class(APPS.Halux.Docs.EtiketBuilder).%New(, ..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 Etiket As APPS.common.Print.AbstractLabel = EtiketBuilder.MaakMaatwerkProductInVHossViaToelevering(ToeleveringMetLijn.GeefID(),..#ToeleveringLijnID,..#Aantal,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))
@@ -194,27 +197,23 @@
 
 <Method name="Test: Maak MaatwerkProduct In VHoss Via Toelevering Met OorsprongKetting">
 <Implementation><![CDATA[
-	#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())
-	Do ToeleveringMetLijn.IndienMethodCall("GeefOorsprongKetting").DanReturn("((1, ""K||7833"", 255025))")
-	#dim ToeleveringApiStub = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).%New()
-	Do ToeleveringApiStub.IndienMethodCall("GeefToelevering",$$$ElkeWaarde).DanReturn(ToeleveringMetLijn)
+	Do ..ToeleveringMetLijn.IndienMethodCall("GeefOorsprongKetting").DanReturn("((1, ""K||7833"", 255025))")
 		
 	#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()
+	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(, ToeleveringApiStub, LadeKlantEtiketBuilderMock, ..PartijApiStub)
+	Set EtiketBuilder = ##class(APPS.Halux.Docs.EtiketBuilder).%New(, ..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 Etiket As APPS.common.Print.AbstractLabel = EtiketBuilder.MaakMaatwerkProductInVHossViaToelevering(ToeleveringMetLijn.GeefID(),..#ToeleveringLijnID,..#Aantal,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))