Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Zijkant/KamerFreesIsoProgrammaBepaler/Test.cls.xml
===================================================================
diff -u -r34380 -r63983
--- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Zijkant/KamerFreesIsoProgrammaBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 34380)
+++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Zijkant/KamerFreesIsoProgrammaBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 63983)
@@ -9,10 +9,15 @@
 </Property>
 
 <Property name="LadeStub">
-<Type>vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Lade</Type>
+<Type>DOM.PM.Maatwerk.LadeInfo.Lade</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="ProductieSequentieItemDummy">
+<Type>APPS.Halux.common.ProductieSequentieItem</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="ZijkantRol">
 <Type>DOM.PM.Maatwerk.Lade.enu.ZijkantRol.AutoComplete</Type>
 <Private>1</Private>
@@ -24,35 +29,42 @@
 	Do ##super(aTestName)
 	
 	Set ..LadeStub = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Lade).%New()
+	Set ..ProductieSequentieItemDummy = ##class(vhTest.Dummy.APPS.Halux.common.ProductieSequentieItem).%New()
 ]]></Implementation>
 </Method>
 
 <Method name="Test: ZijkantLijmProgrammaBepaler wordt opgeroepen">
 <Implementation><![CDATA[
-	#dim ZijkantLijmProgrammaBepalerMock As vhTest.Mock.APPS.Halux.PPS.TAORProductie.impl.ZijkantLijmProgrammaBepaler = ##class(vhTest.Mock.APPS.Halux.PPS.TAORProductie.impl.ZijkantLijmProgrammaBepaler).%New()
 	#dim Zijkanten As DOM.PM.Maatwerk.LadeInfo.Zijkanten = ..GeefZijkanten(..ZijkantRol.Links)
+	
+	#dim ZijkantLijmProgrammaBepalerMock As APPS.Halux.PPS.TAORProductie.impl.ZijkantLijmProgrammaBepaler = ##class(vhTest.Mock.APPS.Halux.PPS.TAORProductie.impl.ZijkantLijmProgrammaBepaler).%New()
+	Do ZijkantLijmProgrammaBepalerMock.VerwachtMethodCall("BepaalProgramma", Zijkanten.GetAt(1), ..ProductieSequentieItemDummy)
 
 	Do ..LadeStub.IndienMethodCall("GeefZijkanten").DanReturn(Zijkanten)
 	Do ..LadeStub.IndienMethodCall("GeefHoogte")
 	
 	Set ..IsoProgrammaBepaler = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Zijkant.KamerFreesIsoProgrammaBepaler).%New(ZijkantLijmProgrammaBepalerMock)
-
-	Do ZijkantLijmProgrammaBepalerMock.VerwachtMethodCall("BepaalProgramma", Zijkanten.GetAt(1))
-	Do ..IsoProgrammaBepaler.GeefLinksBinnen(..LadeStub)
+	Do ..IsoProgrammaBepaler.GeefLinksBinnen(..LadeStub, ..ProductieSequentieItemDummy)
+	
 	Do ZijkantLijmProgrammaBepalerMock.Verifieer()
 ]]></Implementation>
 </Method>
 
 <Method name="Test: ZijkantHoogteCodeBepaler wordt opgeroepen">
 <Implementation><![CDATA[
-	#dim ZijkantHoogteCodeBepalerMock As vhTest.Mock.APPS.Halux.PPS.TAORProductie.impl.ZijkantHoogteCodeBepaler = ##class(vhTest.Mock.APPS.Halux.PPS.TAORProductie.impl.ZijkantHoogteCodeBepaler).%New()
+	#dim Zijkanten As DOM.PM.Maatwerk.LadeInfo.Zijkanten = ..GeefZijkanten(..ZijkantRol.Links)
 	
-	Do ..LadeStub.IndienMethodCall("GeefZijkanten").DanReturn(..GeefZijkanten(..ZijkantRol.Links))
+	#dim ZijkantLijmProgrammaBepalerStub As APPS.Halux.PPS.TAORProductie.impl.ZijkantLijmProgrammaBepaler = ##class(vhTest.Mock.APPS.Halux.PPS.TAORProductie.impl.ZijkantLijmProgrammaBepaler).%New()
+	Do ZijkantLijmProgrammaBepalerStub.IndienMethodCall("BepaalProgramma", Zijkanten.GetAt(1), ..ProductieSequentieItemDummy).DanReturn(##class(APPS.Halux.Machine.Kantenband.enu.LijmProgramma).A())
 	
-	Set ..IsoProgrammaBepaler = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Zijkant.KamerFreesIsoProgrammaBepaler).%New("", ZijkantHoogteCodeBepalerMock)
-
+	#dim ZijkantHoogteCodeBepalerMock As APPS.Halux.PPS.TAORProductie.impl.ZijkantHoogteCodeBepaler = ##class(vhTest.Mock.APPS.Halux.PPS.TAORProductie.impl.ZijkantHoogteCodeBepaler).%New()
 	Do ZijkantHoogteCodeBepalerMock.VerwachtMethodCall("Bepaal", ..LadeStub, 1)
-	Do ..IsoProgrammaBepaler.GeefLinksBinnen(..LadeStub)
+	
+	Do ..LadeStub.IndienMethodCall("GeefZijkanten").DanReturn(Zijkanten)
+	
+	Set ..IsoProgrammaBepaler = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Zijkant.KamerFreesIsoProgrammaBepaler).%New(ZijkantLijmProgrammaBepalerStub, ZijkantHoogteCodeBepalerMock)
+	Do ..IsoProgrammaBepaler.GeefLinksBinnen(..LadeStub, ..ProductieSequentieItemDummy)
+	
 	Do ZijkantHoogteCodeBepalerMock.Verifieer()
 ]]></Implementation>
 </Method>
@@ -62,20 +74,20 @@
 	#define Hoogte "EenHoogte"
 	#define LijmProgramma "EenLijmProgramma"
 	
-	#dim ZijkantLijmProgrammaBepalerStub As vhTest.Mock.APPS.Halux.PPS.TAORProductie.impl.ZijkantLijmProgrammaBepaler = ##class(vhTest.Mock.APPS.Halux.PPS.TAORProductie.impl.ZijkantLijmProgrammaBepaler).%New()
+	#dim ZijkantLijmProgrammaBepalerStub As APPS.Halux.PPS.TAORProductie.impl.ZijkantLijmProgrammaBepaler = ##class(vhTest.Mock.APPS.Halux.PPS.TAORProductie.impl.ZijkantLijmProgrammaBepaler).%New()
 	#dim ZijkantHoogteCodeBepalerStub As vhTest.Mock.APPS.Halux.PPS.TAORProductie.impl.ZijkantHoogteCodeBepaler = ##class(vhTest.Mock.APPS.Halux.PPS.TAORProductie.impl.ZijkantHoogteCodeBepaler).%New()
 	
-	Do ZijkantLijmProgrammaBepalerStub.IndienMethodCall("BepaalProgramma", $$$ElkeWaarde).DanReturn($$$LijmProgramma)
+	Do ZijkantLijmProgrammaBepalerStub.IndienMethodCall("BepaalProgramma", $$$ElkeWaarde, ..ProductieSequentieItemDummy).DanReturn($$$LijmProgramma)
 	Do ZijkantHoogteCodeBepalerStub.IndienMethodCall("Bepaal", $$$ElkeWaarde, $$$ElkeWaarde).DanReturn($$$Hoogte)
 	
 	Do ..LadeStub.IndienMethodCall("GeefZijkanten").DanReturn(..GeefZijkanten(..ZijkantRol.Links, ..ZijkantRol.Rechts))
 	
 	Set ..IsoProgrammaBepaler = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Zijkant.KamerFreesIsoProgrammaBepaler).%New(ZijkantLijmProgrammaBepalerStub, ZijkantHoogteCodeBepalerStub)
 
-	Do ..AssertIsoProgramma(..IsoProgrammaBepaler.GeefLinksBuiten(..LadeStub), $$$Hoogte _ "_IN_" _ $$$LijmProgramma)
-	Do ..AssertIsoProgramma(..IsoProgrammaBepaler.GeefLinksBinnen(..LadeStub), $$$Hoogte _ "_OUT_" _ $$$LijmProgramma)
-	Do ..AssertIsoProgramma(..IsoProgrammaBepaler.GeefRechtsBuiten(..LadeStub), $$$Hoogte _ "_OUT_" _ $$$LijmProgramma)
-	Do ..AssertIsoProgramma(..IsoProgrammaBepaler.GeefRechtsBinnen(..LadeStub), $$$Hoogte _ "_IN_" _ $$$LijmProgramma)
+	Do ..AssertIsoProgramma(..IsoProgrammaBepaler.GeefLinksBuiten(..LadeStub, ..ProductieSequentieItemDummy), $$$Hoogte _ "_IN_" _ $$$LijmProgramma)
+	Do ..AssertIsoProgramma(..IsoProgrammaBepaler.GeefLinksBinnen(..LadeStub, ..ProductieSequentieItemDummy), $$$Hoogte _ "_OUT_" _ $$$LijmProgramma)
+	Do ..AssertIsoProgramma(..IsoProgrammaBepaler.GeefRechtsBuiten(..LadeStub, ..ProductieSequentieItemDummy), $$$Hoogte _ "_OUT_" _ $$$LijmProgramma)
+	Do ..AssertIsoProgramma(..IsoProgrammaBepaler.GeefRechtsBinnen(..LadeStub, ..ProductieSequentieItemDummy), $$$Hoogte _ "_IN_" _ $$$LijmProgramma)
 ]]></Implementation>
 </Method>
 
@@ -84,20 +96,20 @@
 	#define Hoogte "EenHoogte"
 	#define LijmProgramma "EenLijmProgramma"
 	
-	#dim ZijkantLijmProgrammaBepalerStub As vhTest.Mock.APPS.Halux.PPS.TAORProductie.impl.ZijkantLijmProgrammaBepaler = ##class(vhTest.Mock.APPS.Halux.PPS.TAORProductie.impl.ZijkantLijmProgrammaBepaler).%New()
+	#dim ZijkantLijmProgrammaBepalerStub As APPS.Halux.PPS.TAORProductie.impl.ZijkantLijmProgrammaBepaler = ##class(vhTest.Mock.APPS.Halux.PPS.TAORProductie.impl.ZijkantLijmProgrammaBepaler).%New()
 	#dim ZijkantHoogteCodeBepalerStub As vhTest.Mock.APPS.Halux.PPS.TAORProductie.impl.ZijkantHoogteCodeBepaler = ##class(vhTest.Mock.APPS.Halux.PPS.TAORProductie.impl.ZijkantHoogteCodeBepaler).%New()
 	
-	Do ZijkantLijmProgrammaBepalerStub.IndienMethodCall("BepaalProgramma", $$$ElkeWaarde).DanReturn($$$LijmProgramma)
+	Do ZijkantLijmProgrammaBepalerStub.IndienMethodCall("BepaalProgramma", $$$ElkeWaarde, ..ProductieSequentieItemDummy).DanReturn($$$LijmProgramma)
 	Do ZijkantHoogteCodeBepalerStub.IndienMethodCall("Bepaal", $$$ElkeWaarde, $$$ElkeWaarde).DanReturn($$$Hoogte)
 	
 	Do ..LadeStub.IndienMethodCall("GeefZijkanten").DanReturn(..GeefZijkanten(..ZijkantRol.Links))
 	
 	Set ..IsoProgrammaBepaler = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Zijkant.KamerFreesIsoProgrammaBepaler).%New(ZijkantLijmProgrammaBepalerStub, ZijkantHoogteCodeBepalerStub)
 
-	Do ..AssertIsoProgramma(..IsoProgrammaBepaler.GeefLinksBuiten(..LadeStub), $$$Hoogte _ "_IN_" _ $$$LijmProgramma)
-	Do ..AssertIsoProgramma(..IsoProgrammaBepaler.GeefLinksBinnen(..LadeStub), $$$Hoogte _ "_OUT_" _ $$$LijmProgramma)
-	Do ..AssertGeenIsoProgramma(..IsoProgrammaBepaler.GeefRechtsBuiten(..LadeStub), "")
-	Do ..AssertGeenIsoProgramma(..IsoProgrammaBepaler.GeefRechtsBinnen(..LadeStub), "")
+	Do ..AssertIsoProgramma(..IsoProgrammaBepaler.GeefLinksBuiten(..LadeStub, ..ProductieSequentieItemDummy), $$$Hoogte _ "_IN_" _ $$$LijmProgramma)
+	Do ..AssertIsoProgramma(..IsoProgrammaBepaler.GeefLinksBinnen(..LadeStub, ..ProductieSequentieItemDummy), $$$Hoogte _ "_OUT_" _ $$$LijmProgramma)
+	Do ..AssertGeenIsoProgramma(..IsoProgrammaBepaler.GeefRechtsBuiten(..LadeStub, ..ProductieSequentieItemDummy), "")
+	Do ..AssertGeenIsoProgramma(..IsoProgrammaBepaler.GeefRechtsBinnen(..LadeStub, ..ProductieSequentieItemDummy), "")
 ]]></Implementation>
 </Method>
 
@@ -106,20 +118,20 @@
 	#define Hoogte "EenHoogte"
 	#define LijmProgramma "EenLijmProgramma"
 	
-	#dim ZijkantLijmProgrammaBepalerStub As vhTest.Mock.APPS.Halux.PPS.TAORProductie.impl.ZijkantLijmProgrammaBepaler = ##class(vhTest.Mock.APPS.Halux.PPS.TAORProductie.impl.ZijkantLijmProgrammaBepaler).%New()
+	#dim ZijkantLijmProgrammaBepalerStub As APPS.Halux.PPS.TAORProductie.impl.ZijkantLijmProgrammaBepaler = ##class(vhTest.Mock.APPS.Halux.PPS.TAORProductie.impl.ZijkantLijmProgrammaBepaler).%New()
 	#dim ZijkantHoogteCodeBepalerStub As vhTest.Mock.APPS.Halux.PPS.TAORProductie.impl.ZijkantHoogteCodeBepaler = ##class(vhTest.Mock.APPS.Halux.PPS.TAORProductie.impl.ZijkantHoogteCodeBepaler).%New()
 	
-	Do ZijkantLijmProgrammaBepalerStub.IndienMethodCall("BepaalProgramma", $$$ElkeWaarde).DanReturn($$$LijmProgramma)
+	Do ZijkantLijmProgrammaBepalerStub.IndienMethodCall("BepaalProgramma", $$$ElkeWaarde, ..ProductieSequentieItemDummy).DanReturn($$$LijmProgramma)
 	Do ZijkantHoogteCodeBepalerStub.IndienMethodCall("Bepaal", $$$ElkeWaarde, $$$ElkeWaarde).DanReturn($$$Hoogte)
 	
 	Do ..LadeStub.IndienMethodCall("GeefZijkanten").DanReturn(..GeefZijkanten(..ZijkantRol.Rechts))
 	
 	Set ..IsoProgrammaBepaler = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Zijkant.KamerFreesIsoProgrammaBepaler).%New(ZijkantLijmProgrammaBepalerStub, ZijkantHoogteCodeBepalerStub)
 
-	Do ..AssertIsoProgramma(..IsoProgrammaBepaler.GeefLinksBuiten(..LadeStub), $$$Hoogte _ "_IN_" _ $$$LijmProgramma)
-	Do ..AssertIsoProgramma(..IsoProgrammaBepaler.GeefLinksBinnen(..LadeStub), $$$Hoogte _ "_OUT_" _ $$$LijmProgramma)
-	Do ..AssertGeenIsoProgramma(..IsoProgrammaBepaler.GeefRechtsBuiten(..LadeStub), "")
-	Do ..AssertGeenIsoProgramma(..IsoProgrammaBepaler.GeefRechtsBinnen(..LadeStub), "")
+	Do ..AssertIsoProgramma(..IsoProgrammaBepaler.GeefLinksBuiten(..LadeStub, ..ProductieSequentieItemDummy), $$$Hoogte _ "_IN_" _ $$$LijmProgramma)
+	Do ..AssertIsoProgramma(..IsoProgrammaBepaler.GeefLinksBinnen(..LadeStub, ..ProductieSequentieItemDummy), $$$Hoogte _ "_OUT_" _ $$$LijmProgramma)
+	Do ..AssertGeenIsoProgramma(..IsoProgrammaBepaler.GeefRechtsBuiten(..LadeStub, ..ProductieSequentieItemDummy), "")
+	Do ..AssertGeenIsoProgramma(..IsoProgrammaBepaler.GeefRechtsBinnen(..LadeStub, ..ProductieSequentieItemDummy), "")
 ]]></Implementation>
 </Method>
 
FishEye: Tag 63983 refers to a dead (removed) revision in file `vhUnitTest/APPS/Halux/PPS/impl/ZijkantLijmProgrammaBepaler/BepaalProgramma/Test.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?