Index: vhUnitTest/APPS/Halux/Docs/TestEtiketBuilder.cls.xml
===================================================================
diff -u -r51351 -r51352
--- vhUnitTest/APPS/Halux/Docs/TestEtiketBuilder.cls.xml	(.../TestEtiketBuilder.cls.xml)	(revision 51351)
+++ vhUnitTest/APPS/Halux/Docs/TestEtiketBuilder.cls.xml	(.../TestEtiketBuilder.cls.xml)	(revision 51352)
@@ -9,6 +9,21 @@
 <Default>0</Default>
 </Parameter>
 
+<Parameter name="ProductID">
+<Type>%Integer</Type>
+<Default>1000</Default>
+</Parameter>
+
+<Parameter name="ToeleveringLijnID">
+<Type>%String</Type>
+<Default>101</Default>
+</Parameter>
+
+<Parameter name="Aantal">
+<Type>%Integer</Type>
+<Default>1</Default>
+</Parameter>
+
 <Property name="Data">
 <Type>vhUnitTest.APPS.Halux.Docs.TestDataEtiketten</Type>
 </Property>
@@ -51,10 +66,6 @@
 
 <Method name="Test: Maak MaatwerkProduct Via Toelevering">
 <Implementation><![CDATA[
-	#dim ProductID = 1000
-	#dim ToeleveringLijnID = 101
-	#dim Aantal = 1
-	
 	Do ..Data.MaakData(..OorsprongKetting)
 	Set EtiketBuilder = ##class(APPS.Halux.Docs.EtiketBuilder).%New()
 	#dim ToeleveringID = ..Data.Order.GeefOrderLijnViaVolgnummer(101).GeefToelevering().GeefID()
@@ -74,16 +85,16 @@
 	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)
+	Do ProductApi.IndienMethodCall("GeefProduct",..#ProductID).DanReturn(Product)
 	
 	#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)
-	#dim Etiket As BL.Etiket.LadeKlantEtiket = EtiketBuilder.MaakMaatwerkProductViaToelevering(ToeleveringMetLijn.GeefID(),ToeleveringLijnID,Aantal)
+	#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))
@@ -96,10 +107,6 @@
 
 <Method name="Test: Maak MaatwerkProduct Via Toelevering met OorsprongKetting">
 <Implementation><![CDATA[
-	#dim ProductID = 1000
-	#dim ToeleveringLijnID = 101
-	#dim Aantal = 1
-	
 	Do ..Data.MaakData(..OorsprongKetting)
 	Set EtiketBuilder = ##class(APPS.Halux.Docs.EtiketBuilder).%New()
 	#dim ToeleveringID = ..Data.Order.GeefOrderLijnViaVolgnummer(101).GeefToelevering().GeefID()
@@ -119,16 +126,16 @@
 	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)
+	Do ProductApi.IndienMethodCall("GeefProduct",..#ProductID).DanReturn(Product)
 	
 	#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)
-	#dim Etiket As BL.Etiket.LadeKlantEtiket = EtiketBuilder.MaakMaatwerkProductViaToelevering(ToeleveringMetLijn.GeefID(),ToeleveringLijnID,Aantal)
+	#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))
@@ -141,10 +148,6 @@
 
 <Method name="Test: Maak MaatwerkProduct In VHoss Via Toelevering">
 <Implementation><![CDATA[
-	#dim ProductID = 1000
-	#dim Aantal = 1
-	#dim ToeleveringLijnID = 100
-	
 	#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("")
@@ -160,12 +163,12 @@
 	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)
+	Do ProductApi.IndienMethodCall("GeefProduct",..#ProductID).DanReturn(Product)
 	
 	#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)
@@ -176,7 +179,7 @@
 	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))
@@ -195,10 +198,6 @@
 
 <Method name="Test: Maak MaatwerkProduct In VHoss Via Toelevering Met OorsprongKetting">
 <Implementation><![CDATA[
-	#dim ProductID = 1000
-	#dim Aantal = 1
-	#dim ToeleveringLijnID = 100
-		
 	#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))")
@@ -214,12 +213,12 @@
 	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)
+	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("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)
@@ -230,7 +229,7 @@
 	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))