Index: vhUnitTest/BL/PPS/TBX/DocsV1/HtmlInhoudProboxOverdoosEtiketBepaler/LijnReferentieBepaler/ZoekLijnReferentie/Test.cls.xml
===================================================================
diff -u -r57774 -r58034
--- vhUnitTest/BL/PPS/TBX/DocsV1/HtmlInhoudProboxOverdoosEtiketBepaler/LijnReferentieBepaler/ZoekLijnReferentie/Test.cls.xml	(.../Test.cls.xml)	(revision 57774)
+++ vhUnitTest/BL/PPS/TBX/DocsV1/HtmlInhoudProboxOverdoosEtiketBepaler/LijnReferentieBepaler/ZoekLijnReferentie/Test.cls.xml	(.../Test.cls.xml)	(revision 58034)
@@ -3,133 +3,125 @@
 <Class name="vhUnitTest.BL.PPS.TBX.DocsV1.HtmlInhoudProboxOverdoosEtiketBepaler.LijnReferentieBepaler.ZoekLijnReferentie.Test">
 <Super>vhUnitTest.TestCase</Super>
 
+<Parameter name="ToeleveringId">
+<Type>%String</Type>
+<Default>298104</Default>
+</Parameter>
+
+<Property name="OrderApiMock">
+<Type>DOM.VKP.OrderAPI</Type>
+</Property>
+
+<Property name="OrderStub">
+<Type>DOM.VKP.Order</Type>
+</Property>
+
+<Property name="StandaardProductlijn">
+<Type>DOM.VKP.impl.DataM.DataMProductOrderlijn</Type>
+</Property>
+
+<Property name="OrderLijnen">
+<Type>%ListOfObjects</Type>
+</Property>
+
+<Property name="ToeleveringApiMock">
+<Type>DOM.AKP.ToeleveringAPI</Type>
+</Property>
+
+<Property name="ToeleveringStub">
+<Type>DOM.AKP.Toelevering</Type>
+</Property>
+
+<Property name="ToeleveringLijnStub">
+<Type>DOM.AKP.ToeleveringLijn</Type>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	Set ..OrderApiMock = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
+	Set ..OrderStub = ##class(vhTest.Utils.DOM.VKP.Order).StandaardOrder()
+	Do ..OrderStub.IndienMethodCall("GeefOrderLijnIterator").DanReturn(##class(TECH.ListIterator).%New(..OrderLijnen))
+	Set ..StandaardProductlijn = ##class(vhTest.Utils.DOM.VKP.ProductOrderlijn).StandaardProductLijn(..OrderStub)
+	Do ..StandaardProductlijn.IndienMethodCall("GeefProjectReferentie",).DanReturn("EenSkoonReferentie")
+	Set ..OrderLijnen = ##class(%ListOfObjects).%New()
+	Do ..OrderLijnen.Insert(..StandaardProductlijn)
+	Set ..ToeleveringApiMock = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).MockInstance()	
+	Set ..ToeleveringStub = ##class(vhTest.Mock.DOM.AKP.Toelevering).%New()
+	Set ..ToeleveringLijnStub = ##class(vhTest.Utils.DOM.AKP.ToeleveringLijn).ToeleveringLijnMetKomLink()
+	Do ..ToeleveringStub.IndienMethodCall("GeefOrderID").DanReturn(100000)
+	Do ..ToeleveringStub.IndienMethodCall("GeefToeleveringLijnIterator").DanReturn(##class(TECH.ListUtils).CreateIteratorOfObjects(..ToeleveringLijnStub))
+]]></Implementation>
+</Method>
+
 <Method name="Test: standaardgedrag: order met 1 orderlijn met juiste product">
 <Implementation><![CDATA[
-	#dim ToeleveringId = 298104
+	Do ..OrderApiMock.VerwachtMethodCall("GeefOrder",..OrderStub.GeefID()).DanReturn(..OrderStub)
 	
-	Set OrderApiMock = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
-	#dim OrderMock As vhTest.Mock.DOM.VKP.Order = ##class(vhTest.Utils.DOM.VKP.Order).StandaardOrder()
-	Do OrderApiMock.VerwachtMethodCall("GeefOrder",OrderMock.GeefID()).DanReturn(OrderMock)
+	Do ..ToeleveringApiMock.VerwachtMethodCall("GeefToelevering",..#ToeleveringId).DanReturn(..ToeleveringStub)
+	Set LijnReferentieBepaler = ##class(BL.PPS.TBX.DocsV1.HtmlInhoudProboxOverdoosEtiketBepaler.LijnReferentieBepaler).%New(..ToeleveringApiMock,..OrderApiMock)
+	#dim Referentie As %String = LijnReferentieBepaler.ZoekLijnReferentie(..#ToeleveringId,1000)
 	
-	Set OrderLijnen = ##class(%ListOfObjects).%New()
-	#dim StandaardProductLijn As vhTest.Mock.DOM.VKP.impl.DataM.DataMProductOrderlijn = ##class(vhTest.Utils.DOM.VKP.ProductOrderlijn).StandaardProductLijn(OrderMock)
-	Do StandaardProductLijn.IndienMethodCall("GeefProjectReferentie",).DanReturn("EenSkoonReferentie")
-	Do OrderLijnen.Insert(StandaardProductLijn)
-	Do OrderMock.IndienMethodCall("GeefOrderLijnIterator").DanReturn(##class(TECH.ListIterator).%New(OrderLijnen))
-	
-	#dim ToeleveringApiMock As vhTest.Mock.DOM.AKP.ToeleveringAPI = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).MockInstance()
-	#dim ToeleveringStub As vhTest.Mock.DOM.AKP.Toelevering = ##class(vhTest.Mock.DOM.AKP.Toelevering).%New()
-	
-	#dim ToeleveringLijnStub = ##class(vhTest.Utils.DOM.AKP.ToeleveringLijn).ToeleveringLijnMetKomLink()
-	Do ToeleveringStub.IndienMethodCall("GeefOrderID").DanReturn(100000)
-	Do ToeleveringStub.IndienMethodCall("GeefToeleveringLijnIterator").DanReturn(##class(TECH.ListUtils).CreateIteratorOfObjects(ToeleveringLijnStub))
-	Do ToeleveringApiMock.VerwachtMethodCall("GeefToelevering",ToeleveringId).DanReturn(ToeleveringStub)
-	Set LijnReferentieBepaler = ##class(BL.PPS.TBX.DocsV1.HtmlInhoudProboxOverdoosEtiketBepaler.LijnReferentieBepaler).%New(ToeleveringApiMock,OrderApiMock)
-	#dim Referentie As %String = LijnReferentieBepaler.ZoekLijnReferentie(ToeleveringId,1000)
-	
 	Do $$$AssertEquals(Referentie,"EenSkoonReferentie")
 	
-	Do OrderApiMock.Verifieer()
-	Do ToeleveringApiMock.Verifieer()
+	Do ..OrderApiMock.Verifieer()
+	Do ..ToeleveringApiMock.Verifieer()
 ]]></Implementation>
 </Method>
 
 <Method name="Test: onbekend product -&gt; leeg result">
 <Implementation><![CDATA[
-	#dim ToeleveringId = 298104
+	Do ..OrderApiMock.VerwachtMethodCall("GeefOrder",..OrderStub.GeefID()).DanReturn(..OrderStub)
 	
-	Set OrderApiMock = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
-	#dim OrderMock As vhTest.Mock.DOM.VKP.Order = ##class(vhTest.Utils.DOM.VKP.Order).StandaardOrder()
-	Do OrderApiMock.VerwachtMethodCall("GeefOrder",OrderMock.GeefID()).DanReturn(OrderMock)
+	Do ..ToeleveringApiMock.VerwachtMethodCall("GeefToelevering",..#ToeleveringId).DanReturn(..ToeleveringStub)
+	Set LijnReferentieBepaler = ##class(BL.PPS.TBX.DocsV1.HtmlInhoudProboxOverdoosEtiketBepaler.LijnReferentieBepaler).%New(..ToeleveringApiMock,..OrderApiMock)
 	
-	Set OrderLijnen = ##class(%ListOfObjects).%New()
-	#dim StandaardProductLijn As vhTest.Mock.DOM.VKP.impl.DataM.DataMProductOrderlijn = ##class(vhTest.Utils.DOM.VKP.ProductOrderlijn).StandaardProductLijn(OrderMock)
-	Do StandaardProductLijn.IndienMethodCall("GeefProjectReferentie",).DanReturn("EenSkoonReferentie")
-	Do OrderLijnen.Insert(StandaardProductLijn)
-	Do OrderMock.IndienMethodCall("GeefOrderLijnIterator").DanReturn(##class(TECH.ListIterator).%New(OrderLijnen))
+	#dim Referentie As %String = LijnReferentieBepaler.ZoekLijnReferentie(..#ToeleveringId,999)
 	
-	#dim ToeleveringApiMock As vhTest.Mock.DOM.AKP.ToeleveringAPI = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).MockInstance()
-	#dim ToeleveringStub As vhTest.Mock.DOM.AKP.Toelevering = ##class(vhTest.Mock.DOM.AKP.Toelevering).%New()
-	
-	#dim ToeleveringLijnStub = ##class(vhTest.Utils.DOM.AKP.ToeleveringLijn).ToeleveringLijnMetKomLink()
-	Do ToeleveringStub.IndienMethodCall("GeefOrderID").DanReturn(100000)
-	Do ToeleveringStub.IndienMethodCall("GeefToeleveringLijnIterator").DanReturn(##class(TECH.ListUtils).CreateIteratorOfObjects(ToeleveringLijnStub))
-	Do ToeleveringApiMock.VerwachtMethodCall("GeefToelevering",ToeleveringId).DanReturn(ToeleveringStub)
-	Set LijnReferentieBepaler = ##class(BL.PPS.TBX.DocsV1.HtmlInhoudProboxOverdoosEtiketBepaler.LijnReferentieBepaler).%New(ToeleveringApiMock,OrderApiMock)
-	#dim Referentie As %String = LijnReferentieBepaler.ZoekLijnReferentie(ToeleveringId,999)
-	
 	Do $$$AssertEquals(Referentie,"")
 	
-	Do OrderApiMock.Verifieer()
-	Do ToeleveringApiMock.Verifieer()
+	Do ..OrderApiMock.Verifieer()
+	Do ..ToeleveringApiMock.Verifieer()
 ]]></Implementation>
 </Method>
 
 <Method name="Test: order bestaat niet -&gt; leeg result">
 <Implementation><![CDATA[
-	#dim ToeleveringId = 298104
-	
 	Set OrderApiStub = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
 	#dim OrderMock As vhTest.Mock.DOM.VKP.Order = ##class(vhTest.Utils.DOM.VKP.Order).StandaardOrder()
 	Do OrderApiStub.IndienMethodCall("GeefOrder",OrderMock.GeefID()).DanException($$$DummyException)
 	
-	Set OrderLijnen = ##class(%ListOfObjects).%New()
-	#dim StandaardProductLijn As vhTest.Mock.DOM.VKP.impl.DataM.DataMProductOrderlijn = ##class(vhTest.Utils.DOM.VKP.ProductOrderlijn).StandaardProductLijn(OrderMock)
-	Do StandaardProductLijn.IndienMethodCall("GeefProjectReferentie",).DanReturn("EenSkoonReferentie")
-	Do OrderLijnen.Insert(StandaardProductLijn)
-	Do OrderMock.IndienMethodCall("GeefOrderLijnIterator").DanReturn(##class(TECH.ListIterator).%New(OrderLijnen))
+	Do ..ToeleveringApiMock.IndienMethodCall("GeefToelevering",..#ToeleveringId).DanReturn(..ToeleveringStub)
+	Set LijnReferentieBepaler = ##class(BL.PPS.TBX.DocsV1.HtmlInhoudProboxOverdoosEtiketBepaler.LijnReferentieBepaler).%New(..ToeleveringApiMock,OrderApiStub)
 	
-	#dim ToeleveringApiMock As vhTest.Mock.DOM.AKP.ToeleveringAPI = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).MockInstance()
-	#dim ToeleveringStub As vhTest.Mock.DOM.AKP.Toelevering = ##class(vhTest.Mock.DOM.AKP.Toelevering).%New()
+	#dim Referentie As %String = LijnReferentieBepaler.ZoekLijnReferentie(..#ToeleveringId,999)
 	
-	#dim ToeleveringLijnStub = ##class(vhTest.Utils.DOM.AKP.ToeleveringLijn).ToeleveringLijnMetKomLink()
-	Do ToeleveringStub.IndienMethodCall("GeefOrderID").DanReturn(100000)
-	Do ToeleveringStub.IndienMethodCall("GeefToeleveringLijnIterator").DanReturn(##class(TECH.ListUtils).CreateIteratorOfObjects(ToeleveringLijnStub))
-	Do ToeleveringApiMock.IndienMethodCall("GeefToelevering",ToeleveringId).DanReturn(ToeleveringStub)
-	Set LijnReferentieBepaler = ##class(BL.PPS.TBX.DocsV1.HtmlInhoudProboxOverdoosEtiketBepaler.LijnReferentieBepaler).%New(ToeleveringApiMock,OrderApiStub)
-	#dim Referentie As %String = LijnReferentieBepaler.ZoekLijnReferentie(ToeleveringId,999)
-	
 	Do $$$AssertEquals(Referentie,"")
 ]]></Implementation>
 </Method>
 
 <Method name="Test: meerdere toeleveringlijnen -&gt; lijn met juist product gebruiken">
 <Implementation><![CDATA[
-	#dim ToeleveringId = 298104
-	#dim OrderMock As vhTest.Mock.DOM.VKP.Order = ##class(vhTest.Utils.DOM.VKP.Order).StandaardOrder()
-	
-	Set OrderLijnen = ##class(%ListOfObjects).%New()
-	
-	#dim StandaardProductLijn1 As vhTest.Mock.DOM.VKP.impl.DataM.DataMProductOrderlijn = ##class(vhTest.Utils.DOM.VKP.ProductOrderlijn).StandaardProductLijn(OrderMock)
-	Do StandaardProductLijn1.IndienMethodCall("GeefProjectReferentie",).DanReturn("EenSkoonReferentie")
-	Do StandaardProductLijn1.IndienMethodCall("GeefProductID").DanReturn(1000)
-	Do OrderLijnen.Insert(StandaardProductLijn1)
-	
-	#dim StandaardProductLijn2 As vhTest.Mock.DOM.VKP.impl.DataM.DataMProductOrderlijn = ##class(vhTest.Utils.DOM.VKP.ProductOrderlijn).StandaardProductLijn(OrderMock)
+	#dim StandaardProductLijn2 As vhTest.Mock.DOM.VKP.impl.DataM.DataMProductOrderlijn = ##class(vhTest.Utils.DOM.VKP.ProductOrderlijn).StandaardProductLijn(..OrderStub)
 	Do StandaardProductLijn2.IndienMethodCall("GeefProjectReferentie",).DanReturn("EenAndereSkoonReferentie")
 	Do StandaardProductLijn2.IndienMethodCall("GeefProductID").DanReturn(1001)
-	Do OrderLijnen.Insert(StandaardProductLijn2)
+	Do ..OrderLijnen.Insert(StandaardProductLijn2)
 	
-	Do OrderMock.IndienMethodCall("GeefOrderLijnIterator").DanReturn(##class(TECH.ListIterator).%New(OrderLijnen))
+	Do ..OrderStub.IndienMethodCall("GeefOrderLijnIterator").DanReturn(##class(TECH.ListIterator).%New(..OrderLijnen))
 	
-	Set OrderApiMock = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
-	Do OrderApiMock.VerwachtMethodCall("GeefOrder",OrderMock.GeefID()).DanReturn(OrderMock)
+	Do ..OrderApiMock.VerwachtMethodCall("GeefOrder",..OrderStub.GeefID()).DanReturn(..OrderStub)
 	
-	#dim ToeleveringApiMock As vhTest.Mock.DOM.AKP.ToeleveringAPI = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).MockInstance()
-	#dim ToeleveringStub As vhTest.Mock.DOM.AKP.Toelevering = ##class(vhTest.Mock.DOM.AKP.Toelevering).%New()
-	
-	#dim ToeleveringLijnStub1 = ##class(vhTest.Utils.DOM.AKP.ToeleveringLijn).ToeleveringLijnMetKomLink()
 	#dim ToeleveringLijnStub2 = ##class(vhTest.Utils.DOM.AKP.ToeleveringLijn).ToeleveringLijnMetKomLink()
-	Do ToeleveringStub.IndienMethodCall("GeefOrderID").DanReturn(100000)
-	Do ToeleveringStub.IndienMethodCall("GeefToeleveringLijnIterator").DanReturn(##class(TECH.ListUtils).CreateIteratorOfObjects(ToeleveringLijnStub1, ToeleveringLijnStub2))
-	Do ToeleveringApiMock.IndienMethodCall("GeefToelevering",ToeleveringId).DanReturn(ToeleveringStub)
-	Set LijnReferentieBepaler = ##class(BL.PPS.TBX.DocsV1.HtmlInhoudProboxOverdoosEtiketBepaler.LijnReferentieBepaler).%New(ToeleveringApiMock,OrderApiMock)
+	Do ..ToeleveringStub.IndienMethodCall("GeefToeleveringLijnIterator").DanReturn(##class(TECH.ListUtils).CreateIteratorOfObjects(..ToeleveringLijnStub, ToeleveringLijnStub2))
+	Do ..ToeleveringApiMock.IndienMethodCall("GeefToelevering",..#ToeleveringId).DanReturn(..ToeleveringStub)
+	Set LijnReferentieBepaler = ##class(BL.PPS.TBX.DocsV1.HtmlInhoudProboxOverdoosEtiketBepaler.LijnReferentieBepaler).%New(..ToeleveringApiMock,..OrderApiMock)
 	
-	Do $$$AssertEquals(LijnReferentieBepaler.ZoekLijnReferentie(ToeleveringId,1000),"EenSkoonReferentie")
-	Do $$$AssertEquals(LijnReferentieBepaler.ZoekLijnReferentie(ToeleveringId,1001),"EenAndereSkoonReferentie")
-	Do $$$AssertEquals(LijnReferentieBepaler.ZoekLijnReferentie(ToeleveringId,1002),"")
+	Do $$$AssertEquals(LijnReferentieBepaler.ZoekLijnReferentie(..#ToeleveringId,1000),"EenSkoonReferentie")
+	Do $$$AssertEquals(LijnReferentieBepaler.ZoekLijnReferentie(..#ToeleveringId,1001),"EenAndereSkoonReferentie")
+	Do $$$AssertEquals(LijnReferentieBepaler.ZoekLijnReferentie(..#ToeleveringId,1002),"")
 	
-	Do OrderApiMock.Verifieer()
+	Do ..OrderApiMock.Verifieer()
 ]]></Implementation>
 </Method>
 </Class>