Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/AssemblageKarOverzicht/DocumentInhoudBuilder/RijDataBepalerMetKar/Test.cls.xml
===================================================================
diff -u -r69463 -r69935
--- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/AssemblageKarOverzicht/DocumentInhoudBuilder/RijDataBepalerMetKar/Test.cls.xml	(.../Test.cls.xml)	(revision 69463)
+++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/AssemblageKarOverzicht/DocumentInhoudBuilder/RijDataBepalerMetKar/Test.cls.xml	(.../Test.cls.xml)	(revision 69935)
@@ -25,6 +25,7 @@
 <Method name="Test: voegt tekst Dwarsverdeling toe indien aanwezig">
 <Implementation><![CDATA[
 	#dim KoppelingType As DOM.PM.enu.TAORKoppelingType = ##class(DOM.PM.enu.TAORKoppelingType).Movento()
+	#dim DwarsverdelingType As DOM.PM.enu.TAORDwarsverdelingType = ##class(DOM.PM.enu.TAORDwarsverdelingType).Dubbel()
 	
 	Set HalffabItemsBoom = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom).%New()
 	Set ..DummyContext.HalffabItemsBoom = HalffabItemsBoom
@@ -38,29 +39,30 @@
 	Set HFDwarsverdelingHouderItem = ##class(DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem).%New(..DummyContext, ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).DwarsverdelingHouder())
 	Do HalffabItemsBoom.AddHalffabItem(HFDwarsverdelingHouderItem)
 	
-	Set RijDataBepaler = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.AssemblageKarOverzicht.DocumentInhoudBuilder.RijDataBepalerMetKar).%New(,,,..GeefProductieAansturingServiceStub(HalffabItemsBoom, KoppelingType))
+	Set RijDataBepaler = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.AssemblageKarOverzicht.DocumentInhoudBuilder.RijDataBepalerMetKar).%New(,,,..GeefProductieAansturingServiceStub(HalffabItemsBoom, KoppelingType, DwarsverdelingType))
 	Do RijDataBepaler.BepaalRijData(..GeefUitvoeringInfoLijst())
 	
 	if $$$AssertEquals(RijDataBepaler.GeefRijDataLijstDwarsverdeling().Count(), 1) {
 		Do $$$AssertEquals(RijDataBepaler.GeefRijDataLijstDwarsverdeling().GetAt(1).Kleur, ##class(DOM.PM.enu.TAORDwarsverdelingKleur).Oriongrijs())
-		Do $$$AssertEquals(RijDataBepaler.GeefRijDataLijstDwarsverdeling().GetAt(1).Lengte, 510)
+		Do $$$AssertEquals(RijDataBepaler.GeefRijDataLijstDwarsverdeling().GetAt(1).Lengte, "510/440")
 		Do $$$AssertEquals(RijDataBepaler.GeefRijDataLijstDwarsverdeling().GetAt(1).AantalDwv, 2)
-		Do $$$AssertEquals(RijDataBepaler.GeefRijDataLijstDwarsverdeling().GetAt(1).HoudersAantalEnKleur, 4 _ "/" _ ##class(DOM.PM.enu.TAORDwarsverdelingKleur).Oriongrijs())
+		Do $$$AssertEquals(RijDataBepaler.GeefRijDataLijstDwarsverdeling().GetAt(1).DwvType, "Dubbel")
 	}
 ]]></Implementation>
 </Method>
 
 <Method name="Test: voegt tekst aantal matten en ToeDos toe indien gekoppelde mat aanwezig">
 <Implementation><![CDATA[
 	#dim KoppelingType As DOM.PM.enu.TAORKoppelingType = ##class(DOM.PM.enu.TAORKoppelingType).Movento()
+	#dim DwarsverdelingType As DOM.PM.enu.TAORDwarsverdelingType = ##class(DOM.PM.enu.TAORDwarsverdelingType).Enkel()
 	
 	Set HalffabItemsBoom = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom).%New()
 	Set ..DummyContext.HalffabItemsBoom = HalffabItemsBoom
 	
 	#dim IngegevenKenmerkenAPIStub = ##class(vhTest.Mock.DOM.PM.IngegevenKenmerkenAPI).%New()
 	Do IngegevenKenmerkenAPIStub.IndienMethodCall("HeeftGekoppeldeMat", $$$ElkeWaarde).DanReturn($$$True)
 	
-	Set RijDataBepaler = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.AssemblageKarOverzicht.DocumentInhoudBuilder.RijDataBepalerMetKar).%New(,,,..GeefProductieAansturingServiceStub(HalffabItemsBoom, KoppelingType),IngegevenKenmerkenAPIStub)
+	Set RijDataBepaler = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.AssemblageKarOverzicht.DocumentInhoudBuilder.RijDataBepalerMetKar).%New(,,,..GeefProductieAansturingServiceStub(HalffabItemsBoom, KoppelingType, DwarsverdelingType),IngegevenKenmerkenAPIStub)
 	Do RijDataBepaler.BepaalRijData(..GeefUitvoeringInfoLijst())
 	
 	if $$$AssertEquals(RijDataBepaler.GeefRijDataLijstMatten().Count(), 1) {
@@ -73,19 +75,19 @@
 </Method>
 
 <Method name="GeefProductieAansturingServiceStub">
-<FormalSpec>HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,KoppelingType:DOM.PM.enu.TAORKoppelingType</FormalSpec>
+<FormalSpec>HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,KoppelingType:DOM.PM.enu.TAORKoppelingType,DwarsverdelingType:DOM.PM.enu.TAORDwarsverdelingType</FormalSpec>
 <ReturnType>vhTest.Mock.APPS.Halux.common.impl.ProductieAansturingService</ReturnType>
 <Implementation><![CDATA[
 	Set ProductieAansturingServiceStub = ##class(vhTest.Mock.APPS.Halux.common.impl.ProductieAansturingService).%New()
 	Do ProductieAansturingServiceStub.IndienMethodCall("GeefHalffabItemsBoom","BatchID","ProductID").DanReturn(HalffabItemsBoom)
-	Do ProductieAansturingServiceStub.IndienMethodCall("GeefIngegevenKenmerken","BatchID","ProductID").DanReturn(..GeefIngegevenKenmerken(KoppelingType))
+	Do ProductieAansturingServiceStub.IndienMethodCall("GeefIngegevenKenmerken","BatchID","ProductID").DanReturn(..GeefIngegevenKenmerken(KoppelingType, DwarsverdelingType))
 	
 	Quit ProductieAansturingServiceStub
 ]]></Implementation>
 </Method>
 
 <Method name="GeefIngegevenKenmerken">
-<FormalSpec>KoppelingType:DOM.PM.enu.TAORKoppelingType</FormalSpec>
+<FormalSpec>KoppelingType:DOM.PM.enu.TAORKoppelingType,DwarsverdelingType:DOM.PM.enu.TAORDwarsverdelingType</FormalSpec>
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</ReturnType>
 <Implementation><![CDATA[
 	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ""
@@ -96,6 +98,7 @@
 	Set IngegevenKenmerken.HeeftOpvullijstRechts  = $$$False
 	Set IngegevenKenmerken.AantalDwarsverdelingen = 2
 	Set IngegevenKenmerken.DwarsverdelingKleur = ##class(DOM.PM.enu.TAORDwarsverdelingKleur).Oriongrijs()
+	Set IngegevenKenmerken.DwarsverdelingType = DwarsverdelingType
 	
 	Quit IngegevenKenmerken
 ]]></Implementation>