Index: vhUnitTest/APPS/Halux/Docs/TestEtiketBuilder.cls.xml
===================================================================
diff -u -r51353 -r51354
--- vhUnitTest/APPS/Halux/Docs/TestEtiketBuilder.cls.xml	(.../TestEtiketBuilder.cls.xml)	(revision 51353)
+++ vhUnitTest/APPS/Halux/Docs/TestEtiketBuilder.cls.xml	(.../TestEtiketBuilder.cls.xml)	(revision 51354)
@@ -30,14 +30,36 @@
 
 <Property name="OorsprongKetting">
 <Type>%String</Type>
+<Private>1</Private>
 </Property>
 
+<Property name="PartijApiStub">
+<Type>vhTest.Mock.DOM.PARTIJ.PartijAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="StandaardPartij1">
+<Type>DOM.PARTIJ.Partij</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="StandaardPartij2">
+<Type>DOM.PARTIJ.Partij</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestCase:%String</FormalSpec>
 <Implementation><![CDATA[
 	Do ##super(aTestCase)
 	Do ##class(vhUnitTest.DOM.PM.Maatwerk.TestData).MaakData()
 	Set ..Data = ##class(vhUnitTest.APPS.Halux.Docs.TestDataEtiketten).%New()
+	
+	Set ..PartijApiStub = ##class(vhTest.Mock.DOM.PARTIJ.PartijAPI).%New()
+	Set ..StandaardPartij1 = ##class(vhTest.Utils.DOM.PARTIJ.Partij).StandaardPartij()
+	Do ..PartijApiStub.IndienMethodCall("GeefPartij","K||1234").DanReturn(..StandaardPartij1)
+	Set ..StandaardPartij2 = ##class(vhTest.Utils.DOM.PARTIJ.Partij).StandaardPartij()
+	Do ..PartijApiStub.IndienMethodCall("GeefPartij","K||4682").DanReturn(..StandaardPartij2)
 ]]></Implementation>
 </Method>
 
@@ -72,24 +94,18 @@
 	#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.LadeKlantEtiket).%New(StandaardPartij1.GeefID())
+	#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("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")
 	
-	Set EtiketBuilder = ##class(APPS.Halux.Docs.EtiketBuilder).%New(, ToeleveringApiStub, LadeKlantEtiketBuilderMock, PartijApiStub)
+	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."){
@@ -109,24 +125,18 @@
 	#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.LadeKlantEtiket).%New(StandaardPartij2.GeefID())
+	#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("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")
 	
-	Set EtiketBuilder = ##class(APPS.Halux.Docs.EtiketBuilder).%New(, ToeleveringApiStub, LadeKlantEtiketBuilderMock, PartijApiStub)
+	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."){
@@ -146,24 +156,18 @@
 	#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(StandaardPartij1.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,StandaardPartij1,..#Aantal).DanReturn(EtiketStub)
-	Do LadeKlantEtiketBuilderMock.VerwachtMethodCall("VulInToeleveringInfo",EtiketStub,ToeleveringMetLijn,ToeleveringMetLijn.GeefToeleveringLijn(..#ToeleveringLijnID),StandaardPartij1).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(, 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"
@@ -195,25 +199,19 @@
 	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)
-	
-	#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 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("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(, 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"