Index: APPS/Halux/common/impl/ProductieSequentie/Taor/AssemblageKar/VakBepaler.cls.xml
===================================================================
diff -u
--- APPS/Halux/common/impl/ProductieSequentie/Taor/AssemblageKar/VakBepaler.cls.xml	(revision 0)
+++ APPS/Halux/common/impl/ProductieSequentie/Taor/AssemblageKar/VakBepaler.cls.xml	(revision 34741)
@@ -0,0 +1,85 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKar.VakBepaler">
+<Super>TECH.Mockable,DOM.PM.Maatwerk.TAX.impl.Base</Super>
+
+<Property name="HuidigVakNummer">
+<Type>TECH.Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..HuidigVakNummer = 1
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Reset">
+<Implementation><![CDATA[	Set ..HuidigVakNummer = 1
+]]></Implementation>
+</Method>
+
+<Method name="GeefHuidigVakNummer">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit ..HuidigVakNummer
+]]></Implementation>
+</Method>
+
+<Method name="GeefAantalVakkenNodig">
+<FormalSpec>TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim Aantal As %Integer = 1
+
+	If (..IsVerlaagdeRug(TAORKenmerken)) {
+		Set Aantal = 2
+	}
+	
+	Quit Aantal
+]]></Implementation>
+</Method>
+
+<Method name="HeeftVolgendVakNodig">
+<FormalSpec>Rol:DOM.PM.Maatwerk.Calc.HF.enu.TAORRol,TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ((..GeefAantalVakkenNodig(TAORKenmerken) > 1) && (..GeefVakNummer(Rol, TAORKenmerken) = ..HuidigVakNummer))
+]]></Implementation>
+</Method>
+
+<Method name="GeefVakNummer">
+<FormalSpec>Rol:DOM.PM.Maatwerk.Calc.HF.enu.TAORRol,TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim VakNummer As %Integer = ..HuidigVakNummer
+	
+	If (..IsVerlaagdeRug(TAORKenmerken) && ((Rol = ..Enum.Rol.Front) || (Rol = ..Enum.Rol.Rug))) {
+		Set VakNummer = VakNummer + 1
+	}
+	
+	Quit VakNummer
+]]></Implementation>
+</Method>
+
+<Method name="VerhoogVakNummer">
+<FormalSpec>TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
+<Implementation><![CDATA[	Set ..HuidigVakNummer = ..HuidigVakNummer + ..GeefAantalVakkenNodig(TAORKenmerken)
+]]></Implementation>
+</Method>
+
+<Method name="IsVerlaagdeRug">
+<FormalSpec>TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit $$$Not(TAORKenmerken.LadeHoogte = TAORKenmerken.RugHoogte)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/common/EtiketInfoBepaler/BepaalEtiketData/Test.cls.xml
===================================================================
diff -u -r34595 -r34741
--- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/common/EtiketInfoBepaler/BepaalEtiketData/Test.cls.xml	(.../Test.cls.xml)	(revision 34595)
+++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/common/EtiketInfoBepaler/BepaalEtiketData/Test.cls.xml	(.../Test.cls.xml)	(revision 34741)
@@ -103,28 +103,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Lijn 1 - LadeOnderdeelInfoBepaler wordt opgeroepen">
-<Implementation><![CDATA[
-	#dim ProductAPIMock As vhTest.Mock.DOM.PM.ProductAPI = ##class(vhTest.Mock.DOM.PM.ProductAPI).MockInstance()
-	#dim ToeleveringAPIMock As vhTest.Mock.DOM.AKP.ToeleveringAPI = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).MockInstance()
-	#dim ProductMock As vhTest.Mock.DOM.PM.MaatwerkProduct = ##class(vhTest.Mock.DOM.PM.MaatwerkProduct).%New()
-	#dim ToeleveringMock As vhTest.Mock.DOM.AKP.Toelevering = ##class(vhTest.Mock.DOM.AKP.Toelevering).%New()
-	
-	#dim LadeOnderdeelInfoBepalerMock As vhTest.Mock.APPS.Halux.PPS.Activiteit.impl.TAOR.common.LadeOnderdeelInfoBepaler = ##class(vhTest.Mock.APPS.Halux.PPS.Activiteit.impl.TAOR.common.LadeOnderdeelInfoBepaler).%New()
-	#dim EtiketInfoBepaler As APPS.Halux.PPS.Activiteit.impl.TAOR.common.EtiketInfoBepaler = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.common.EtiketInfoBepaler).%New(..AssemblageKarRepository, ..PartijAPI, LadeOnderdeelInfoBepalerMock)
-
-	Do ProductMock.IndienMethodCall("GeefHalffabItemsBoom", "").DanReturn(..HalffabItemsBoom)
-	Do ProductMock.IndienMethodCall("GeefProductSpecificatie").DanReturn(##class(DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie).%New(..IngegevenKenmerken.GeefFamilie(), ..IngegevenKenmerken.GeefVariant(), ..IngegevenKenmerken))
-	Do ToeleveringMock.IndienMethodCall("GeefAantalProducten").DanReturn($$$DummyInteger)
-	Do ProductAPIMock.IndienMethodCall("GeefProduct", ..UitvoeringInfo.ProductID).DanReturn(ProductMock)
-	Do ToeleveringAPIMock.IndienMethodCall("GeefToelevering", ..UitvoeringInfo.ToeleveringID).DanReturn(ToeleveringMock)
-
-	Do LadeOnderdeelInfoBepalerMock.VerwachtMethodCall("Bepaal", ..LadeOnderdeel, ProductMock)
-	Do EtiketInfoBepaler.BepaalEtiketData(..UitvoeringInfo, ..LadeOnderdeel)
-	Do LadeOnderdeelInfoBepalerMock.Verifieer()
-]]></Implementation>
-</Method>
-
 <Method name="Test: Lijn 1 - Kleurcodes">
 <Implementation><![CDATA[
 	Do ..AssertKleurCodeVoorLadeOnderdeel(##class(vhTest.Dummy.DOM.PM.Maatwerk.LadeInfo.impl.TAX.Bodem).%New(), "NE")
@@ -134,28 +112,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Lijn 1 - PlaatDimensieStringBepaler wordt opgeroepen">
-<Implementation><![CDATA[
-	#dim ProductAPIMock As vhTest.Mock.DOM.PM.ProductAPI = ##class(vhTest.Mock.DOM.PM.ProductAPI).MockInstance()
-	#dim ToeleveringAPIMock As vhTest.Mock.DOM.AKP.ToeleveringAPI = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).MockInstance()
-	#dim ProductMock As vhTest.Mock.DOM.PM.MaatwerkProduct = ##class(vhTest.Mock.DOM.PM.MaatwerkProduct).%New()
-	#dim ToeleveringMock As vhTest.Mock.DOM.AKP.Toelevering = ##class(vhTest.Mock.DOM.AKP.Toelevering).%New()
-
-	#dim PlaatDimensieStringBepalerMock As vhTest.Mock.APPS.Halux.PPS.Activiteit.impl.TAOR.common.EtiketInfoBepaler.PlaatDimensieStringBepaler = ##class(vhTest.Mock.APPS.Halux.PPS.Activiteit.impl.TAOR.common.EtiketInfoBepaler.PlaatDimensieStringBepaler).%New()
-	#dim EtiketInfoBepaler As APPS.Halux.PPS.Activiteit.impl.TAOR.common.EtiketInfoBepaler = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.common.EtiketInfoBepaler).%New(..AssemblageKarRepository, ..PartijAPI, "", PlaatDimensieStringBepalerMock)
-	
-	Do ProductMock.IndienMethodCall("GeefHalffabItemsBoom", "").DanReturn(..HalffabItemsBoom)
-	Do ProductMock.IndienMethodCall("GeefProductSpecificatie").DanReturn(##class(DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie).%New(..IngegevenKenmerken.GeefFamilie(), ..IngegevenKenmerken.GeefVariant(), ..IngegevenKenmerken))
-	Do ToeleveringMock.IndienMethodCall("GeefAantalProducten").DanReturn($$$DummyInteger)
-	Do ProductAPIMock.IndienMethodCall("GeefProduct", ..UitvoeringInfo.ProductID).DanReturn(ProductMock)
-	Do ToeleveringAPIMock.IndienMethodCall("GeefToelevering", ..UitvoeringInfo.ToeleveringID).DanReturn(ToeleveringMock)
-	
-	Do PlaatDimensieStringBepalerMock.VerwachtMethodCall("GeefDimensieString", ..LadeOnderdeel)
-	Do EtiketInfoBepaler.BepaalEtiketData(..UitvoeringInfo, ..LadeOnderdeel)
-	Do PlaatDimensieStringBepalerMock.Verifieer()
-]]></Implementation>
-</Method>
-
 <Method name="Test: Lijn 1 - Dossiercode">
 <Implementation><![CDATA[
 	Set ..LadeOnderdeel = ##class(vhTest.Dummy.DOM.PM.Maatwerk.LadeInfo.impl.TAX.Rug).%New()
@@ -344,28 +300,98 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Lijn 4 - DimensieStringBepaler wordt opgeroepen">
+<Method name="Test: LadeOnderdeelInfoBepaler wordt opgeroepen">
 <Implementation><![CDATA[
 	#dim ProductAPIMock As vhTest.Mock.DOM.PM.ProductAPI = ##class(vhTest.Mock.DOM.PM.ProductAPI).MockInstance()
 	#dim ToeleveringAPIMock As vhTest.Mock.DOM.AKP.ToeleveringAPI = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).MockInstance()
 	#dim ProductMock As vhTest.Mock.DOM.PM.MaatwerkProduct = ##class(vhTest.Mock.DOM.PM.MaatwerkProduct).%New()
 	#dim ToeleveringMock As vhTest.Mock.DOM.AKP.Toelevering = ##class(vhTest.Mock.DOM.AKP.Toelevering).%New()
+	
+	#dim LadeOnderdeelInfoBepalerMock As vhTest.Mock.APPS.Halux.PPS.Activiteit.impl.TAOR.common.LadeOnderdeelInfoBepaler = ##class(vhTest.Mock.APPS.Halux.PPS.Activiteit.impl.TAOR.common.LadeOnderdeelInfoBepaler).%New()
+	#dim EtiketInfoBepaler As APPS.Halux.PPS.Activiteit.impl.TAOR.common.EtiketInfoBepaler = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.common.EtiketInfoBepaler).%New(..AssemblageKarRepository, ..PartijAPI, LadeOnderdeelInfoBepalerMock)
 
-	#dim DimensieStringBepalerMock As vhTest.Mock.APPS.Halux.PPS.Activiteit.impl.TAOR.common.EtiketInfoBepaler.DimensieStringBepaler = ##class(vhTest.Mock.APPS.Halux.PPS.Activiteit.impl.TAOR.common.EtiketInfoBepaler.DimensieStringBepaler).%New()
-	#dim EtiketInfoBepaler As APPS.Halux.PPS.Activiteit.impl.TAOR.common.EtiketInfoBepaler = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.common.EtiketInfoBepaler).%New(..AssemblageKarRepository, ..PartijAPI, "", "", DimensieStringBepalerMock)
+	Do ProductMock.IndienMethodCall("GeefIngegevenKenmerken").DanReturn(..IngegevenKenmerken)
+	Do ProductMock.IndienMethodCall("GeefHalffabItemsBoom", "").DanReturn(..HalffabItemsBoom)
+	Do ProductMock.IndienMethodCall("GeefProductSpecificatie").DanReturn(##class(DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie).%New(..IngegevenKenmerken.GeefFamilie(), ..IngegevenKenmerken.GeefVariant(), ..IngegevenKenmerken))
+	Do ToeleveringMock.IndienMethodCall("GeefAantalProducten").DanReturn($$$DummyInteger)
+	Do ProductAPIMock.IndienMethodCall("GeefProduct", ..UitvoeringInfo.ProductID).DanReturn(ProductMock)
+	Do ToeleveringAPIMock.IndienMethodCall("GeefToelevering", ..UitvoeringInfo.ToeleveringID).DanReturn(ToeleveringMock)
+
+	Do LadeOnderdeelInfoBepalerMock.VerwachtMethodCall("Bepaal", ..LadeOnderdeel, ProductMock)
+	Do EtiketInfoBepaler.BepaalEtiketData(..UitvoeringInfo, ..LadeOnderdeel)
+	Do LadeOnderdeelInfoBepalerMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: PlaatDimensieStringBepaler wordt opgeroepen">
+<Implementation><![CDATA[
+	#dim ProductAPIMock As vhTest.Mock.DOM.PM.ProductAPI = ##class(vhTest.Mock.DOM.PM.ProductAPI).MockInstance()
+	#dim ToeleveringAPIMock As vhTest.Mock.DOM.AKP.ToeleveringAPI = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).MockInstance()
+	#dim ProductMock As vhTest.Mock.DOM.PM.MaatwerkProduct = ##class(vhTest.Mock.DOM.PM.MaatwerkProduct).%New()
+	#dim ToeleveringMock As vhTest.Mock.DOM.AKP.Toelevering = ##class(vhTest.Mock.DOM.AKP.Toelevering).%New()
+
+	Do ProductMock.IndienMethodCall("GeefIngegevenKenmerken").DanReturn(..IngegevenKenmerken)
+	Do ProductMock.IndienMethodCall("GeefHalffabItemsBoom", "").DanReturn(..HalffabItemsBoom)
+	Do ProductMock.IndienMethodCall("GeefProductSpecificatie").DanReturn(##class(DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie).%New(..IngegevenKenmerken.GeefFamilie(), ..IngegevenKenmerken.GeefVariant(), ..IngegevenKenmerken))
+	Do ToeleveringMock.IndienMethodCall("GeefAantalProducten").DanReturn($$$DummyInteger)
+	Do ProductAPIMock.IndienMethodCall("GeefProduct", ..UitvoeringInfo.ProductID).DanReturn(ProductMock)
+	Do ToeleveringAPIMock.IndienMethodCall("GeefToelevering", ..UitvoeringInfo.ToeleveringID).DanReturn(ToeleveringMock)
+
+	#dim PlaatDimensieStringBepalerMock As vhTest.Mock.APPS.Halux.PPS.Activiteit.impl.TAOR.common.EtiketInfoBepaler.PlaatDimensieStringBepaler = ##class(vhTest.Mock.APPS.Halux.PPS.Activiteit.impl.TAOR.common.EtiketInfoBepaler.PlaatDimensieStringBepaler).%New()
+	#dim EtiketInfoBepaler As APPS.Halux.PPS.Activiteit.impl.TAOR.common.EtiketInfoBepaler = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.common.EtiketInfoBepaler).%New(..AssemblageKarRepository, ..PartijAPI, "", PlaatDimensieStringBepalerMock)
 	
+	Do PlaatDimensieStringBepalerMock.VerwachtMethodCall("GeefDimensieString", ..LadeOnderdeel)
+	Do EtiketInfoBepaler.BepaalEtiketData(..UitvoeringInfo, ..LadeOnderdeel)
+	Do PlaatDimensieStringBepalerMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: DimensieStringBepaler wordt opgeroepen">
+<Implementation><![CDATA[
+	#dim ProductAPIMock As vhTest.Mock.DOM.PM.ProductAPI = ##class(vhTest.Mock.DOM.PM.ProductAPI).MockInstance()
+	#dim ToeleveringAPIMock As vhTest.Mock.DOM.AKP.ToeleveringAPI = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).MockInstance()
+	#dim ProductMock As vhTest.Mock.DOM.PM.MaatwerkProduct = ##class(vhTest.Mock.DOM.PM.MaatwerkProduct).%New()
+	#dim ToeleveringMock As vhTest.Mock.DOM.AKP.Toelevering = ##class(vhTest.Mock.DOM.AKP.Toelevering).%New()
+	
+	Do ProductMock.IndienMethodCall("GeefIngegevenKenmerken").DanReturn(..IngegevenKenmerken)
 	Do ProductMock.IndienMethodCall("GeefHalffabItemsBoom", "").DanReturn(..HalffabItemsBoom)
 	Do ProductMock.IndienMethodCall("GeefProductSpecificatie").DanReturn(##class(DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie).%New(..IngegevenKenmerken.GeefFamilie(), ..IngegevenKenmerken.GeefVariant(), ..IngegevenKenmerken))
 	Do ToeleveringMock.IndienMethodCall("GeefAantalProducten").DanReturn($$$DummyInteger)
 	Do ProductAPIMock.IndienMethodCall("GeefProduct", ..UitvoeringInfo.ProductID).DanReturn(ProductMock)
 	Do ToeleveringAPIMock.IndienMethodCall("GeefToelevering", ..UitvoeringInfo.ToeleveringID).DanReturn(ToeleveringMock)
 	
+	#dim DimensieStringBepalerMock As vhTest.Mock.APPS.Halux.PPS.Activiteit.impl.TAOR.common.EtiketInfoBepaler.DimensieStringBepaler = ##class(vhTest.Mock.APPS.Halux.PPS.Activiteit.impl.TAOR.common.EtiketInfoBepaler.DimensieStringBepaler).%New()
+	#dim EtiketInfoBepaler As APPS.Halux.PPS.Activiteit.impl.TAOR.common.EtiketInfoBepaler = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.common.EtiketInfoBepaler).%New(..AssemblageKarRepository, ..PartijAPI, "", "", DimensieStringBepalerMock)
+	
 	Do DimensieStringBepalerMock.VerwachtMethodCall("GeefDimensieString", ..LadeOnderdeel).DanReturn($$$DummyString)
 	Do EtiketInfoBepaler.BepaalEtiketData(..UitvoeringInfo, ..LadeOnderdeel)
 	Do DimensieStringBepalerMock.Verifieer()
 ]]></Implementation>
 </Method>
 
+<Method name="Test: VakBepaler wordt opgeroepen">
+<Implementation><![CDATA[
+	#dim ProductAPIMock As vhTest.Mock.DOM.PM.ProductAPI = ##class(vhTest.Mock.DOM.PM.ProductAPI).MockInstance()
+	#dim ToeleveringAPIMock As vhTest.Mock.DOM.AKP.ToeleveringAPI = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).MockInstance()
+	#dim ProductMock As vhTest.Mock.DOM.PM.MaatwerkProduct = ##class(vhTest.Mock.DOM.PM.MaatwerkProduct).%New()
+	#dim ToeleveringMock As vhTest.Mock.DOM.AKP.Toelevering = ##class(vhTest.Mock.DOM.AKP.Toelevering).%New()
+	
+	Do ProductMock.IndienMethodCall("GeefIngegevenKenmerken").DanReturn(..IngegevenKenmerken)
+	Do ProductMock.IndienMethodCall("GeefHalffabItemsBoom", "").DanReturn(..HalffabItemsBoom)
+	Do ProductMock.IndienMethodCall("GeefProductSpecificatie").DanReturn(##class(DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie).%New(..IngegevenKenmerken.GeefFamilie(), ..IngegevenKenmerken.GeefVariant(), ..IngegevenKenmerken))
+	Do ToeleveringMock.IndienMethodCall("GeefAantalProducten").DanReturn($$$DummyInteger)
+	Do ProductAPIMock.IndienMethodCall("GeefProduct", ..UitvoeringInfo.ProductID).DanReturn(ProductMock)
+	Do ToeleveringAPIMock.IndienMethodCall("GeefToelevering", ..UitvoeringInfo.ToeleveringID).DanReturn(ToeleveringMock)
+	
+	#dim VakBepalerMock As vhTest.Mock.APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKar.VakBepaler= ##class(vhTest.Mock.APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKar.VakBepaler).%New()
+	#dim EtiketInfoBepaler As APPS.Halux.PPS.Activiteit.impl.TAOR.common.EtiketInfoBepaler = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.common.EtiketInfoBepaler).%New(..AssemblageKarRepository, ..PartijAPI, "", "", "", "", VakBepalerMock)
+	
+	Do VakBepalerMock.VerwachtMethodCall("HeeftVolgendVakNodig", $$$ElkeWaarde, ..IngegevenKenmerken).DanReturn($$$True)
+	Do EtiketInfoBepaler.BepaalEtiketData(..UitvoeringInfo, ..LadeOnderdeel)
+	Do VakBepalerMock.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="AssertVerpakkingType">
 <FormalSpec>VerpakkingType:DOM.PM.enu.TAORVerpakkingType,VerwachteWaarde:TECH.String</FormalSpec>
 <Private>1</Private>
Index: vhTest/Mock/APPS/Halux/common/impl/ProductieSequentie/Taor/AssemblageKar/KarBepaler.cls.xml
===================================================================
diff -u
--- vhTest/Mock/APPS/Halux/common/impl/ProductieSequentie/Taor/AssemblageKar/KarBepaler.cls.xml	(revision 0)
+++ vhTest/Mock/APPS/Halux/common/impl/ProductieSequentie/Taor/AssemblageKar/KarBepaler.cls.xml	(revision 34741)
@@ -0,0 +1,39 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKar.KarBepaler">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKar.KarBepaler,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="BepaalVolgendeKar">
+<FormalSpec>VerpakkingType:DOM.PM.enu.TAORVerpakkingType</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("BepaalVolgendeKar",VerpakkingType)
+]]></Implementation>
+</Method>
+
+<Method name="IsNieuweKarNodig">
+<FormalSpec>TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("IsNieuweKarNodig",TAORKenmerken)
+]]></Implementation>
+</Method>
+
+<Method name="MaakAssemblageKarVakEntry">
+<FormalSpec>ProductieSequentieItem:APPS.Halux.common.ProductieSequentieItem,LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel,TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("MaakAssemblageKarVakEntry",ProductieSequentieItem,LadeOnderdeel,TAORKenmerken)
+]]></Implementation>
+</Method>
+
+<Method name="VerhoogVakNummer">
+<FormalSpec>TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerhoogVakNummer",TAORKenmerken)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Fake/APPS/Halux/common/impl/ProductieSequentie/Taor/AssemblageKar/VakBepaler.cls.xml
===================================================================
diff -u
--- vhTest/Fake/APPS/Halux/common/impl/ProductieSequentie/Taor/AssemblageKar/VakBepaler.cls.xml	(revision 0)
+++ vhTest/Fake/APPS/Halux/common/impl/ProductieSequentie/Taor/AssemblageKar/VakBepaler.cls.xml	(revision 34741)
@@ -0,0 +1,50 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKar.VakBepaler">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKar.VakBepaler</Super>
+
+<Method name="GeefAantalVakkenNodig">
+<FormalSpec>TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="GeefHuidigVakNummer">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="GeefVakNummer">
+<FormalSpec>Rol:DOM.PM.Maatwerk.Calc.HF.enu.TAORRol,TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="HeeftVolgendVakNodig">
+<FormalSpec>Rol:DOM.PM.Maatwerk.Calc.HF.enu.TAORRol,TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="Reset">
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="VerhoogVakNummer">
+<FormalSpec>TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/Activiteit/impl/TAOR/common/EtiketInfoBepaler.cls.xml
===================================================================
diff -u -r34595 -r34741
--- APPS/Halux/PPS/Activiteit/impl/TAOR/common/EtiketInfoBepaler.cls.xml	(.../EtiketInfoBepaler.cls.xml)	(revision 34595)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/common/EtiketInfoBepaler.cls.xml	(.../EtiketInfoBepaler.cls.xml)	(revision 34741)
@@ -63,13 +63,23 @@
 <Private>1</Private>
 </Property>
 
+<Property name="RolConverter">
+<Type>APPS.Halux.common.impl.ProductieSequentie.Taor.RolConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="VakBepaler">
+<Type>APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKar.VakBepaler</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="Toeleveringen">
 <Type>%ArrayOfDataTypes</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>AssemblageKarRepository:APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository="",PartijAPI:DOM.PARTIJ.PartijAPI="",LadeOnderdeelInfoBepaler:APPS.Halux.PPS.Activiteit.impl.TAOR.common.LadeOnderdeelInfoBepaler="",PlaatDimensieStringBepaler:APPS.Halux.PPS.Activiteit.impl.TAOR.common.EtiketInfoBepaler.PlaatDimensieStringBepaler="",DimensieStringBepaler:APPS.Halux.PPS.Activiteit.impl.TAOR.common.EtiketInfoBepaler.DimensieStringBepaler=""</FormalSpec>
+<FormalSpec>AssemblageKarRepository:APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository="",PartijAPI:DOM.PARTIJ.PartijAPI="",LadeOnderdeelInfoBepaler:APPS.Halux.PPS.Activiteit.impl.TAOR.common.LadeOnderdeelInfoBepaler="",PlaatDimensieStringBepaler:APPS.Halux.PPS.Activiteit.impl.TAOR.common.EtiketInfoBepaler.PlaatDimensieStringBepaler="",DimensieStringBepaler:APPS.Halux.PPS.Activiteit.impl.TAOR.common.EtiketInfoBepaler.DimensieStringBepaler="",RolConverter:APPS.Halux.common.impl.ProductieSequentie.Taor.RolConverter="",VakBepaler:APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKar.VakBepaler</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -90,6 +100,8 @@
 	Set ..Toeleveringen = ##class(%ArrayOfDataTypes).%New()
 	
 	Set ..LadeOnderdeelInfoBepaler = $$$Inject(LadeOnderdeelInfoBepaler, ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.common.LadeOnderdeelInfoBepaler).%New())
+	Set ..RolConverter = $$$Inject(RolConverter, ##class(APPS.Halux.common.impl.ProductieSequentie.Taor.RolConverter).%New())
+	Set ..VakBepaler = $$$Inject(VakBepaler, ##class(APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKar.VakBepaler).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -103,7 +115,7 @@
 	
 	Set Etiket.Barcode = UitvoeringInfo.VerwerkingID
 	Set Etiket.Lijn1 = ..GeefLijn1(UitvoeringInfo, LadeOnderdeel)
-	Set Etiket.Lijn2 = ..GeefLijn2(UitvoeringInfo)
+	Set Etiket.Lijn2 = ..GeefLijn2(UitvoeringInfo, LadeOnderdeel)
 	Set Etiket.Lijn3 = ..GeefLijn3(UitvoeringInfo, LadeOnderdeel)	
 	Set Etiket.Lijn4 = ..GeefLijn4(UitvoeringInfo, LadeOnderdeel)
 
@@ -133,7 +145,7 @@
 </Method>
 
 <Method name="GeefLijn2">
-<FormalSpec>UitvoeringInfo:APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfo</FormalSpec>
+<FormalSpec>UitvoeringInfo:APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfo,LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel</FormalSpec>
 <Private>1</Private>
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
@@ -142,7 +154,7 @@
 
 	Do LijnItems.Insert(..DateTimeAPI.Dag(UitvoeringInfo.DueOut) _ $Select((..DateTimeAPI.Uur(UitvoeringInfo.DueOutTijdstip) <= 12):"a", 1:"b"))
 	Do LijnItems.Insert(Batch _ "(" _ UitvoeringInfo.SequentieNummer _ ")")
-	Do LijnItems.Insert(..GeefAssemblageKarString(UitvoeringInfo))
+	Do LijnItems.Insert(..GeefAssemblageKarString(UitvoeringInfo, LadeOnderdeel))
 	
 	Quit ##class(TECH.ListUtils).ListToPieces(LijnItems, ..#Delimiter)
 ]]></Implementation>
@@ -215,19 +227,25 @@
 </Method>
 
 <Method name="GeefAssemblageKarString">
-<FormalSpec>UitvoeringInfo:APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfo</FormalSpec>
+<FormalSpec>UitvoeringInfo:APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfo,LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel</FormalSpec>
 <Private>1</Private>
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
 	#dim AssemblageKarString As TECH.String = ""
+	#dim Product As DOM.PM.TAORProduct.TAORLade = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(UitvoeringInfo.ProductID)
 	
 	If (..AssemblageKarRepository.GebruiktAssemblageKar(UitvoeringInfo.BatchID)) {
-		#dim AssemblageKar As APPS.Halux.PPS.TAORProductie.data.AssemblageKar = ..AssemblageKarRepository.GeefKar(UitvoeringInfo.BatchID, UitvoeringInfo.SequentieNummer)
-
+		#dim Rol As DOM.PM.Maatwerk.Calc.HF.enu.TAORRol = ..RolConverter.Converteer(LadeOnderdeel)
+		#dim AssemblageKar As APPS.Halux.PPS.TAORProductie.data.AssemblageKar = ..AssemblageKarRepository.GeefKar(UitvoeringInfo.BatchID, UitvoeringInfo.SequentieNummer, Rol)
+		#dim ExtraSymbool As %String = ""
+		
+		Set:(..AssemblageKarRepository.IsLaatsteItemInKar(AssemblageKar)) ExtraSymbool = "*"
+		Set:(..VakBepaler.HeeftVolgendVakNodig(Rol, Product.GeefIngegevenKenmerken())) ExtraSymbool = "+"
+		
 		Set AssemblageKarString = AssemblageKarString _ "KAR "
 		Set AssemblageKarString = AssemblageKarString _ ..AssemblageKarRepository.GeefKarVolgnummer(UitvoeringInfo.BatchID, AssemblageKar.Kar) 
 		Set AssemblageKarString = AssemblageKarString _ ":" _ ..AssemblageKarRepository.GeefAantalKarren(UitvoeringInfo.BatchID) _ ..#Delimiter
-		Set AssemblageKarString = AssemblageKarString _ AssemblageKar.Vak _ $Select(..AssemblageKarRepository.IsLaatsteItemInKar(AssemblageKar):"*", 1:"")
+		Set AssemblageKarString = AssemblageKarString _ AssemblageKar.Vak _ ExtraSymbool
 	}
 	
 	Quit AssemblageKarString
Index: vhUnitTest/APPS/Halux/common/impl/ProductieSequentie/Taor/RolConverter/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/common/impl/ProductieSequentie/Taor/RolConverter/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/common/impl/ProductieSequentie/Taor/RolConverter/Test.cls.xml	(revision 34741)
@@ -0,0 +1,65 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.common.impl.ProductieSequentie.Taor.RolConverter.Test">
+<Super>vhUnitTest.DOM.PM.Maatwerk.TAX.Base</Super>
+
+<Method name="Test: Geconverteerde rol voor LadeOnderdeel Bodem">
+<Implementation><![CDATA[
+	#dim LadeOnderdeelStub As vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel).%New()
+	Do LadeOnderdeelStub.IndienMethodCall("GeefRol").DanReturn(..Enum.LadeOnderdeel.Bodem)
+	
+	Do ..AssertGeconverteerdeRol(LadeOnderdeelStub, ..Enum.Rol.Bodem)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Geconverteerde rol voor LadeOnderdeel Front">
+<Implementation><![CDATA[
+	#dim LadeOnderdeelStub As vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel).%New()
+	Do LadeOnderdeelStub.IndienMethodCall("GeefRol").DanReturn(..Enum.LadeOnderdeel.Front)
+
+	Do ..AssertGeconverteerdeRol(LadeOnderdeelStub, ..Enum.Rol.Front)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Geconverteerde rol voor LadeOnderdeel Rug">
+<Implementation><![CDATA[
+	#dim LadeOnderdeelStub As vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel).%New()
+	Do LadeOnderdeelStub.IndienMethodCall("GeefRol").DanReturn(..Enum.LadeOnderdeel.Rug)
+
+	Do ..AssertGeconverteerdeRol(LadeOnderdeelStub, ..Enum.Rol.Rug)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Geconverteerde rol voor LadeOnderdeel Zijkant Links">
+<Implementation><![CDATA[
+	#dim ZijkantStub As vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Zijkant = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Zijkant).%New()
+	Do ZijkantStub.IndienMethodCall("GeefRol").DanReturn(..Enum.LadeOnderdeel.Zijkant)
+	Do ZijkantStub.IndienMethodCall("GeefZijkantRol").DanReturn(##class(DOM.PM.Maatwerk.Lade.enu.ZijkantRol).Links())
+	
+	Do ..AssertGeconverteerdeRol(ZijkantStub, ..Enum.Rol.ZijkantLinks)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Geconverteerde rol voor LadeOnderdeel Zijkant Rechts">
+<Implementation><![CDATA[
+	#dim ZijkantStub As vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Zijkant = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Zijkant).%New()
+	Do ZijkantStub.IndienMethodCall("GeefRol").DanReturn(..Enum.LadeOnderdeel.Zijkant)
+	Do ZijkantStub.IndienMethodCall("GeefZijkantRol").DanReturn(##class(DOM.PM.Maatwerk.Lade.enu.ZijkantRol).Rechts())
+	
+	Do ..AssertGeconverteerdeRol(ZijkantStub, ..Enum.Rol.ZijkantRechts)
+]]></Implementation>
+</Method>
+
+<Method name="AssertGeconverteerdeRol">
+<FormalSpec>LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel,VerwachteRol:DOM.PM.Maatwerk.Calc.HF.enu.TAORRol</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim RolConverter As APPS.Halux.common.impl.ProductieSequentie.Taor.RolConverter = ##class(APPS.Halux.common.impl.ProductieSequentie.Taor.RolConverter).%New()
+
+	Do $$$AssertEquals(RolConverter.Converteer(LadeOnderdeel), VerwachteRol)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Fake/APPS/Halux/common/impl/ProductieSequentie/Taor/AssemblageKar/KarBepaler.cls.xml
===================================================================
diff -u
--- vhTest/Fake/APPS/Halux/common/impl/ProductieSequentie/Taor/AssemblageKar/KarBepaler.cls.xml	(revision 0)
+++ vhTest/Fake/APPS/Halux/common/impl/ProductieSequentie/Taor/AssemblageKar/KarBepaler.cls.xml	(revision 34741)
@@ -0,0 +1,37 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKar.KarBepaler">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKar.KarBepaler</Super>
+
+<Method name="BepaalVolgendeKar">
+<FormalSpec>VerpakkingType:DOM.PM.enu.TAORVerpakkingType</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="IsNieuweKarNodig">
+<FormalSpec>TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="MaakAssemblageKarVakEntry">
+<FormalSpec>ProductieSequentieItem:APPS.Halux.common.ProductieSequentieItem,LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel,TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="VerhoogVakNummer">
+<FormalSpec>TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/Halux/common/impl/ProductieSequentie/Taor/AssemblageKar/KarBepaler/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/common/impl/ProductieSequentie/Taor/AssemblageKar/KarBepaler/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/common/impl/ProductieSequentie/Taor/AssemblageKar/KarBepaler/Test.cls.xml	(revision 34741)
@@ -0,0 +1,165 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKar.KarBepaler.Test">
+<Super>vhUnitTest.DOM.PM.Maatwerk.TAX.Base</Super>
+
+<Property name="TAORKenmerken">
+<Type>DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	
+	Set ..TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLadeVerpaktIn(..Enum.VerpakkingType.V1)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Initieel altijd nieuwe kar nodig">
+<Implementation><![CDATA[
+	#dim KarBepaler As APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKar.KarBepaler = ##class(APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKar.KarBepaler).%New()
+	
+	Do $$$AssertTrue(KarBepaler.IsNieuweKarNodig(..TAORKenmerken))
+]]></Implementation>
+</Method>
+
+<Method name="Test: Geen nieuwe kar nodig indien huidige kar bestaat en niet volledig gevuld is">
+<Implementation><![CDATA[
+	#dim VakBepalerStub As vhTest.Mock.APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKar.VakBepaler = ##class(vhTest.Mock.APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKar.VakBepaler).%New()
+	#dim KarBepaler As APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKar.KarBepaler = ##class(APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKar.KarBepaler).%New(VakBepalerStub)
+	#dim HuidigVakNummer As %Integer = ##class(APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKar.KarBepaler).#AantalVakkenInKar
+
+	Do VakBepalerStub.IndienMethodCall("GeefAantalVakkenNodig", ..TAORKenmerken).DanReturn(1)
+	Do VakBepalerStub.IndienMethodCall("Reset").DanDoeNiks()
+	Do VakBepalerStub.IndienMethodCall("GeefHuidigVakNummer").DanReturn(HuidigVakNummer)
+
+	Do KarBepaler.BepaalVolgendeKar(..Enum.VerpakkingType.V1)
+	
+	Do $$$AssertFalse(KarBepaler.IsNieuweKarNodig(..TAORKenmerken))
+]]></Implementation>
+</Method>
+
+<Method name="Test: Nieuwe kar nodig indien huidige kar bestaat en volledig gevuld is">
+<Implementation><![CDATA[
+	#dim VakBepalerStub As vhTest.Mock.APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKar.VakBepaler = ##class(vhTest.Mock.APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKar.VakBepaler).%New()
+	#dim KarBepaler As APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKar.KarBepaler = ##class(APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKar.KarBepaler).%New(VakBepalerStub)
+	#dim HuidigVakNummer As %Integer = ##class(APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKar.KarBepaler).#AantalVakkenInKar + 1
+
+	Do VakBepalerStub.IndienMethodCall("Reset").DanDoeNiks()
+	Do VakBepalerStub.IndienMethodCall("GeefHuidigVakNummer").DanReturn(HuidigVakNummer)
+
+	Do KarBepaler.BepaalVolgendeKar(..Enum.VerpakkingType.V1)
+
+	Do $$$AssertTrue(KarBepaler.IsNieuweKarNodig(..TAORKenmerken))
+]]></Implementation>
+</Method>
+
+<Method name="Test: Nieuwe kar nodig indien huidige kar bestaat en VerpakkingType is gewijzigd">
+<Implementation><![CDATA[
+	#dim KarBepaler As APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKar.KarBepaler = ##class(APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKar.KarBepaler).%New()
+	
+	Do KarBepaler.BepaalVolgendeKar(..Enum.VerpakkingType.V1)
+	
+	Set ..TAORKenmerken.VerpakkingType = ..Enum.VerpakkingType.Probox
+
+	Do $$$AssertTrue(KarBepaler.IsNieuweKarNodig(..TAORKenmerken))
+]]></Implementation>
+</Method>
+
+<Method name="Test: Geen nieuwe kar nodig indien huidige kar bestaat en VerpakkingType is niet gewijzigd">
+<Implementation><![CDATA[
+	#dim KarBepaler As APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKar.KarBepaler = ##class(APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKar.KarBepaler).%New()
+	
+	Do KarBepaler.BepaalVolgendeKar(..Enum.VerpakkingType.V1)
+
+	Do $$$AssertFalse(KarBepaler.IsNieuweKarNodig(..TAORKenmerken))
+]]></Implementation>
+</Method>
+
+<Method name="Test: Nieuwe kar nodig indien huidige kar bestaat en niet genoeg vakken over heeft">
+<Implementation><![CDATA[
+	#dim VakBepalerStub As vhTest.Mock.APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKar.VakBepaler = ##class(vhTest.Mock.APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKar.VakBepaler).%New()
+	#dim KarBepaler As APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKar.KarBepaler = ##class(APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKar.KarBepaler).%New(VakBepalerStub)
+	#dim HuidigVakNummer As %Integer = ##class(APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKar.KarBepaler).#AantalVakkenInKar
+
+	Do VakBepalerStub.IndienMethodCall("Reset").DanDoeNiks()
+	Do VakBepalerStub.IndienMethodCall("GeefHuidigVakNummer").DanReturn(HuidigVakNummer)
+	Do VakBepalerStub.IndienMethodCall("GeefAantalVakkenNodig", ..TAORKenmerken).DanReturn(2)
+	
+	Do KarBepaler.BepaalVolgendeKar(..Enum.VerpakkingType.V1)
+	
+	Do $$$AssertTrue(KarBepaler.IsNieuweKarNodig(..TAORKenmerken))
+]]></Implementation>
+</Method>
+
+<Method name="Test: Geen nieuwe kar nodig indien huidige kar bestaat en nog genoeg vakken over heeft">
+<Implementation><![CDATA[
+	#dim VakBepalerStub As vhTest.Mock.APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKar.VakBepaler = ##class(vhTest.Mock.APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKar.VakBepaler).%New()
+	#dim KarBepaler As APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKar.KarBepaler = ##class(APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKar.KarBepaler).%New(VakBepalerStub)
+
+	Do VakBepalerStub.IndienMethodCall("Reset").DanDoeNiks()
+	Do VakBepalerStub.IndienMethodCall("GeefHuidigVakNummer").DanReturn(1)
+	Do VakBepalerStub.IndienMethodCall("GeefAantalVakkenNodig", ..TAORKenmerken).DanReturn(5)
+	
+	Do KarBepaler.BepaalVolgendeKar(..Enum.VerpakkingType.V1)
+	
+	Do $$$AssertFalse(KarBepaler.IsNieuweKarNodig(..TAORKenmerken))
+]]></Implementation>
+</Method>
+
+<Method name="Test: Methods worden opgeroepen door BepaalVolgendeKar-method">
+<Implementation><![CDATA[
+	#dim VakBepalerMock As vhTest.Mock.APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKar.VakBepaler = ##class(vhTest.Mock.APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKar.VakBepaler).%New()
+	#dim AssemblageKarRepositoryMock As vhTest.Mock.APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository = ##class(vhTest.Mock.APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository).%New()
+	#dim KarBepaler As APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKar.KarBepaler = ##class(APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKar.KarBepaler).%New(VakBepalerMock, AssemblageKarRepositoryMock)
+	
+	Do VakBepalerMock.VerwachtMethodCall("Reset").DanDoeNiks()
+	Do AssemblageKarRepositoryMock.VerwachtMethodCall("GeefVolgendeKarID").DanReturn($$$DummyInteger)
+	
+	Do KarBepaler.BepaalVolgendeKar(..Enum.VerpakkingType.V1)
+	
+	Do VakBepalerMock.Verifieer()
+	Do AssemblageKarRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Methods worden opgeroepen door MaakAssemblageKarVakEntry-method">
+<Implementation><![CDATA[
+	#dim VakBepalerMock As vhTest.Mock.APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKar.VakBepaler = ##class(vhTest.Mock.APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKar.VakBepaler).%New()
+	#dim AssemblageKarRepositoryMock As vhTest.Mock.APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository = ##class(vhTest.Mock.APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository).%New()
+	#dim RolConverterMock As vhTest.Mock.APPS.Halux.common.impl.ProductieSequentie.Taor.RolConverter = ##class(vhTest.Mock.APPS.Halux.common.impl.ProductieSequentie.Taor.RolConverter).%New()
+	#dim KarBepaler As APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKar.KarBepaler = ##class(APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKar.KarBepaler).%New(VakBepalerMock, AssemblageKarRepositoryMock, RolConverterMock)
+	#dim ProductieSequentieItem As APPS.Halux.common.ProductieSequentieItem = ##class(APPS.Halux.common.ProductieSequentieItem).%New()
+	#dim AssemblageKar As APPS.Halux.PPS.TAORProductie.data.AssemblageKar = ##class(APPS.Halux.PPS.TAORProductie.data.AssemblageKar).%New()
+	
+	Do VakBepalerMock.VerwachtMethodCall("GeefVakNummer", $$$ElkeWaarde, ..TAORKenmerken).DanReturn($$$DummyInteger)
+	Do AssemblageKarRepositoryMock.VerwachtMethodCall("Create").DanReturn(AssemblageKar)
+	Do AssemblageKarRepositoryMock.VerwachtMethodCall("Save", AssemblageKar).DanDoeNiks()
+	Do RolConverterMock.VerwachtMethodCall("Converteer", $$$ElkeWaarde).DanReturn($$$DummyString)
+	
+	Do KarBepaler.MaakAssemblageKarVakEntry(ProductieSequentieItem, "", ..TAORKenmerken)
+	
+	Do VakBepalerMock.Verifieer()
+	Do AssemblageKarRepositoryMock.Verifieer()
+	Do RolConverterMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Methods worden opgeroepen door VerhoogVakNummer-method">
+<Implementation><![CDATA[
+	#dim VakBepalerMock As vhTest.Mock.APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKar.VakBepaler = ##class(vhTest.Mock.APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKar.VakBepaler).%New()
+	#dim KarBepaler As APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKar.KarBepaler = ##class(APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKar.KarBepaler).%New(VakBepalerMock)
+	
+	Do VakBepalerMock.VerwachtMethodCall("VerhoogVakNummer", ..TAORKenmerken).DanDoeNiks()
+	
+	Do KarBepaler.VerhoogVakNummer(..TAORKenmerken)
+	
+	Do VakBepalerMock.Verifieer()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Taorbox.Aansturing/TestVerlaagdeRug/StartBatch/Biesse/ImportAuto/15000/Productie_007_ImportFile_15000_20141114_091500.txt
===================================================================
diff -u -r34595 -r34741
--- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Taorbox.Aansturing/TestVerlaagdeRug/StartBatch/Biesse/ImportAuto/15000/Productie_007_ImportFile_15000_20141114_091500.txt	(.../Productie_007_ImportFile_15000_20141114_091500.txt)	(revision 34595)
+++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Taorbox.Aansturing/TestVerlaagdeRug/StartBatch/Biesse/ImportAuto/15000/Productie_007_ImportFile_15000_20141114_091500.txt	(.../Productie_007_ImportFile_15000_20141114_091500.txt)	(revision 34741)
@@ -1,7 +1,7 @@
 Rol	Aantal	PlaatMateriaal	Barcode	LadeSequentieNr	DossierCode	ExtraInfo	Lengte	Breedte	Dikte	Kleur	Decor	EtiketLijn1	EtiketLijn2	EtiketLijn3	EtiketInfo	EtiketLijn4	Rework	Kar	Banding
-ZijkantPlaat	1	FINEER.NN.065	ZCB50C00001	1	LI7K		500	179.5	6.5	NN	Fineer	CO-ZIJ-L/NN-NN-NN/500x179.5/LI7K///	14a/000(1)/KAR 1:1/1*	T1/V1/UNITTEST KLA/2222-1:1	nolabel	ZCB50C00001/D:495xH:174.5	NoRework	1	63505
-ZijkantPlaat	1	FINEER.NN.065	ZCB50C00001	1	LI7K		500	179.5	6.5	NN	Fineer	CO-ZIJ-L/NN-NN-NN/500x179.5/LI7K///	14a/000(1)/KAR 1:1/1*	T1/V1/UNITTEST KLA/2222-1:1	nolabel	ZCB50C00001/D:495xH:174.5	NoRework	1	63505
-ZijkantPlaat	1	FINEER.NN.065	ZCB50D00001	1	LI7K		500	179.5	6.5	NN	Fineer	CO-ZIJ-R/NN-NN-NN/500x179.5/LI7K///	14a/000(1)/KAR 1:1/1*	T1/V1/UNITTEST KLA/2222-1:1	nolabel	ZCB50D00001/D:495xH:174.5	NoRework	1	63505
-ZijkantPlaat	1	FINEER.NN.065	ZCB50D00001	1	LI7K		500	179.5	6.5	NN	Fineer	CO-ZIJ-R/NN-NN-NN/500x179.5/LI7K///	14a/000(1)/KAR 1:1/1*	T1/V1/UNITTEST KLA/2222-1:1	nolabel	ZCB50D00001/D:495xH:174.5	NoRework	1	63505
-Rug	1	FINEER.NN.130	RCB05690BS00001D1	1	LI7K		569.3	81.5	13	NN	Fineer	BA-RUG/NN-NN/569.3x81.5/LI7K///	14a/000(1)/KAR 1:1/1*	T1/V1/UNITTEST KLA/2222-1:1		RCB05690BS00001D1/B:569xH:76.5	NoRework	1	63505
-Bodem	1	FINEER.NN.065	B50B05690VS00001P1	1	LI7K		574	485	6.5	NN	Fineer	BOD(SCH:BO+MO)/NN/574x485/LI7K///	14a/000(1)/KAR 1:1/1*	T1/V1/UNITTEST KLA/2222-1:1		B50B05690VS00001P1/B:569xD:480	NoRework	1	63505
+ZijkantPlaat	1	FINEER.NN.065	ZCB50C00001	1	LI7K		500	179.5	6.5	NN	Fineer	CO-ZIJ-L/NN-NN-NN/500x179.5/LI7K///	14a/000(1)/KAR 1:1/1+	T1/V1/UNITTEST KLA/2222-1:1	nolabel	ZCB50C00001/D:495xH:174.5	NoRework	1	63505
+ZijkantPlaat	1	FINEER.NN.065	ZCB50C00001	1	LI7K		500	179.5	6.5	NN	Fineer	CO-ZIJ-L/NN-NN-NN/500x179.5/LI7K///	14a/000(1)/KAR 1:1/1+	T1/V1/UNITTEST KLA/2222-1:1	nolabel	ZCB50C00001/D:495xH:174.5	NoRework	1	63505
+ZijkantPlaat	1	FINEER.NN.065	ZCB50D00001	1	LI7K		500	179.5	6.5	NN	Fineer	CO-ZIJ-R/NN-NN-NN/500x179.5/LI7K///	14a/000(1)/KAR 1:1/1+	T1/V1/UNITTEST KLA/2222-1:1	nolabel	ZCB50D00001/D:495xH:174.5	NoRework	1	63505
+ZijkantPlaat	1	FINEER.NN.065	ZCB50D00001	1	LI7K		500	179.5	6.5	NN	Fineer	CO-ZIJ-R/NN-NN-NN/500x179.5/LI7K///	14a/000(1)/KAR 1:1/1+	T1/V1/UNITTEST KLA/2222-1:1	nolabel	ZCB50D00001/D:495xH:174.5	NoRework	1	63505
+Rug	1	FINEER.NN.130	RCB05690BS00001D1	1	LI7K		569.3	81.5	13	NN	Fineer	BA-RUG/NN-NN/569.3x81.5/LI7K///	14a/000(1)/KAR 1:1/2*	T1/V1/UNITTEST KLA/2222-1:1		RCB05690BS00001D1/B:569xH:76.5	NoRework	1	63505
+Bodem	1	FINEER.NN.065	B50B05690VS00001P1	1	LI7K		574	485	6.5	NN	Fineer	BOD(SCH:BO+MO)/NN/574x485/LI7K///	14a/000(1)/KAR 1:1/1+	T1/V1/UNITTEST KLA/2222-1:1		B50B05690VS00001P1/B:569xD:480	NoRework	1	63505
Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Taorbox.Aansturing/TestVerlaagdeRug/StartBatch/Biesse/ImportManueel/15000/Productie_010_ImportFile_15000_20141114_091500.txt
===================================================================
diff -u -r34595 -r34741
--- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Taorbox.Aansturing/TestVerlaagdeRug/StartBatch/Biesse/ImportManueel/15000/Productie_010_ImportFile_15000_20141114_091500.txt	(.../Productie_010_ImportFile_15000_20141114_091500.txt)	(revision 34595)
+++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Taorbox.Aansturing/TestVerlaagdeRug/StartBatch/Biesse/ImportManueel/15000/Productie_010_ImportFile_15000_20141114_091500.txt	(.../Productie_010_ImportFile_15000_20141114_091500.txt)	(revision 34741)
@@ -1,7 +1,7 @@
 Rol	Aantal	PlaatMateriaal	Barcode	LadeSequentieNr	DossierCode	ExtraInfo	Lengte	Breedte	Dikte	Kleur	Decor	EtiketLijn1	EtiketLijn2	EtiketLijn3	EtiketInfo	EtiketLijn4	Rework	Kar	Banding
-ZijkantPlaat	1	FINEER.NN.065	ZCB50C00001	1	LI7K		500	179.5	6.5	NN	Fineer	CO-ZIJ-L/NN-NN-NN/500x179.5/LI7K///	14a/000(1)/KAR 1:1/1*	T1/V1/UNITTEST KLA/2222-1:1	nolabel	ZCB50C00001/D:495xH:174.5	NoRework	1	63505
-ZijkantPlaat	1	FINEER.NN.065	ZCB50C00001	1	LI7K		500	179.5	6.5	NN	Fineer	CO-ZIJ-L/NN-NN-NN/500x179.5/LI7K///	14a/000(1)/KAR 1:1/1*	T1/V1/UNITTEST KLA/2222-1:1	nolabel	ZCB50C00001/D:495xH:174.5	NoRework	1	63505
-ZijkantPlaat	1	FINEER.NN.065	ZCB50D00001	1	LI7K		500	179.5	6.5	NN	Fineer	CO-ZIJ-R/NN-NN-NN/500x179.5/LI7K///	14a/000(1)/KAR 1:1/1*	T1/V1/UNITTEST KLA/2222-1:1	nolabel	ZCB50D00001/D:495xH:174.5	NoRework	1	63505
-ZijkantPlaat	1	FINEER.NN.065	ZCB50D00001	1	LI7K		500	179.5	6.5	NN	Fineer	CO-ZIJ-R/NN-NN-NN/500x179.5/LI7K///	14a/000(1)/KAR 1:1/1*	T1/V1/UNITTEST KLA/2222-1:1	nolabel	ZCB50D00001/D:495xH:174.5	NoRework	1	63505
-Rug	1	FINEER.NN.130	RCB05690BS00001D1	1	LI7K		569.3	81.5	13	NN	Fineer	BA-RUG/NN-NN/569.3x81.5/LI7K///	14a/000(1)/KAR 1:1/1*	T1/V1/UNITTEST KLA/2222-1:1		RCB05690BS00001D1/B:569xH:76.5	NoRework	1	63505
-Bodem	1	FINEER.NN.065	B50B05690VS00001P1	1	LI7K		574	485	6.5	NN	Fineer	BOD(SCH:BO+MO)/NN/574x485/LI7K///	14a/000(1)/KAR 1:1/1*	T1/V1/UNITTEST KLA/2222-1:1		B50B05690VS00001P1/B:569xD:480	NoRework	1	63505
+ZijkantPlaat	1	FINEER.NN.065	ZCB50C00001	1	LI7K		500	179.5	6.5	NN	Fineer	CO-ZIJ-L/NN-NN-NN/500x179.5/LI7K///	14a/000(1)/KAR 1:1/1+	T1/V1/UNITTEST KLA/2222-1:1	nolabel	ZCB50C00001/D:495xH:174.5	NoRework	1	63505
+ZijkantPlaat	1	FINEER.NN.065	ZCB50C00001	1	LI7K		500	179.5	6.5	NN	Fineer	CO-ZIJ-L/NN-NN-NN/500x179.5/LI7K///	14a/000(1)/KAR 1:1/1+	T1/V1/UNITTEST KLA/2222-1:1	nolabel	ZCB50C00001/D:495xH:174.5	NoRework	1	63505
+ZijkantPlaat	1	FINEER.NN.065	ZCB50D00001	1	LI7K		500	179.5	6.5	NN	Fineer	CO-ZIJ-R/NN-NN-NN/500x179.5/LI7K///	14a/000(1)/KAR 1:1/1+	T1/V1/UNITTEST KLA/2222-1:1	nolabel	ZCB50D00001/D:495xH:174.5	NoRework	1	63505
+ZijkantPlaat	1	FINEER.NN.065	ZCB50D00001	1	LI7K		500	179.5	6.5	NN	Fineer	CO-ZIJ-R/NN-NN-NN/500x179.5/LI7K///	14a/000(1)/KAR 1:1/1+	T1/V1/UNITTEST KLA/2222-1:1	nolabel	ZCB50D00001/D:495xH:174.5	NoRework	1	63505
+Rug	1	FINEER.NN.130	RCB05690BS00001D1	1	LI7K		569.3	81.5	13	NN	Fineer	BA-RUG/NN-NN/569.3x81.5/LI7K///	14a/000(1)/KAR 1:1/2*	T1/V1/UNITTEST KLA/2222-1:1		RCB05690BS00001D1/B:569xH:76.5	NoRework	1	63505
+Bodem	1	FINEER.NN.065	B50B05690VS00001P1	1	LI7K		574	485	6.5	NN	Fineer	BOD(SCH:BO+MO)/NN/574x485/LI7K///	14a/000(1)/KAR 1:1/1+	T1/V1/UNITTEST KLA/2222-1:1		B50B05690VS00001P1/B:569xD:480	NoRework	1	63505
Index: vhTest/Mock/APPS/Halux/common/impl/ProductieSequentie/Taor/RolConverter.cls.xml
===================================================================
diff -u
--- vhTest/Mock/APPS/Halux/common/impl/ProductieSequentie/Taor/RolConverter.cls.xml	(revision 0)
+++ vhTest/Mock/APPS/Halux/common/impl/ProductieSequentie/Taor/RolConverter.cls.xml	(revision 34741)
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.APPS.Halux.common.impl.ProductieSequentie.Taor.RolConverter">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.Halux.common.impl.ProductieSequentie.Taor.RolConverter,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="Converteer">
+<FormalSpec>LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel</FormalSpec>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.enu.TAORRol</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("Converteer",LadeOnderdeel)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Taorbox.Aansturing/TestVerlaagdeRug/StartBatch/Productie_005_TAGBASEDDOC.xml
===================================================================
diff -u -r33916 -r34741
--- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Taorbox.Aansturing/TestVerlaagdeRug/StartBatch/Productie_005_TAGBASEDDOC.xml	(.../Productie_005_TAGBASEDDOC.xml)	(revision 33916)
+++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Taorbox.Aansturing/TestVerlaagdeRug/StartBatch/Productie_005_TAGBASEDDOC.xml	(.../Productie_005_TAGBASEDDOC.xml)	(revision 34741)
@@ -3,7 +3,7 @@
   <OPGEMAAKTE_TEKSTDOC>
     <NAAM>OpgemaakteTekstDocument</NAAM>
     <PAGEHEADER>
-      <TEKSTLINKS>Overzicht TA'OR karren - T1-kar - Batch 15000 - kar 1/1 - V1 - Laatste Vak: 1</TEKSTLINKS>
+      <TEKSTLINKS>Overzicht TA'OR karren - T1-kar - Batch 15000 - kar 1/1 - V1 - Laatste Vak: 2</TEKSTLINKS>
     </PAGEHEADER>
     <PAGEFOOTER>
     </PAGEFOOTER>
Index: vhTest/Fake/APPS/Halux/common/impl/ProductieSequentie/Taor/RolConverter.cls.xml
===================================================================
diff -u
--- vhTest/Fake/APPS/Halux/common/impl/ProductieSequentie/Taor/RolConverter.cls.xml	(revision 0)
+++ vhTest/Fake/APPS/Halux/common/impl/ProductieSequentie/Taor/RolConverter.cls.xml	(revision 34741)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.APPS.Halux.common.impl.ProductieSequentie.Taor.RolConverter">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.Halux.common.impl.ProductieSequentie.Taor.RolConverter</Super>
+
+<Method name="Converteer">
+<FormalSpec>LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel</FormalSpec>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.enu.TAORRol</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/common/impl/ProductieSequentie/Taor/AssemblageKar/KarBepaler.cls.xml
===================================================================
diff -u
--- APPS/Halux/common/impl/ProductieSequentie/Taor/AssemblageKar/KarBepaler.cls.xml	(revision 0)
+++ APPS/Halux/common/impl/ProductieSequentie/Taor/AssemblageKar/KarBepaler.cls.xml	(revision 34741)
@@ -0,0 +1,129 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKar.KarBepaler">
+<Super>TECH.Mockable,DOM.PM.Maatwerk.TAX.impl.Base</Super>
+
+<Parameter name="AantalVakkenInKar">
+<Type>%Integer</Type>
+<Default>20</Default>
+</Parameter>
+
+<Property name="HuidigeKarID">
+<Type>TECH.String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="HuidigVerpakkingType">
+<Type>DOM.PM.enu.TAORVerpakkingType</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="AssemblageKarRepository">
+<Type>APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="RolConverter">
+<Type>APPS.Halux.common.impl.ProductieSequentie.Taor.RolConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="VakBepaler">
+<Type>APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKar.VakBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>VakBepaler:APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKar.VakBepaler="",AssemblageKarRepository:APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository="",RolConverter:APPS.Halux.common.impl.ProductieSequentie.Taor.RolConverter=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..VakBepaler = $$$Inject(VakBepaler, ##class(APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKar.VakBepaler).%New())
+	Set ..AssemblageKarRepository = $$$Inject(AssemblageKarRepository, ##class(APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository).%New())
+	Set ..RolConverter = $$$Inject(RolConverter, ##class(APPS.Halux.common.impl.ProductieSequentie.Taor.RolConverter).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="IsNieuweKarNodig">
+<FormalSpec>TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ($$$Not(..HeeftHuidigeKar()) || ..IsVerpakkingTypeGewijzigd(TAORKenmerken.VerpakkingType) || ..IsKarVolledigGevuld() || $$$Not(..HeeftGenoegVrijeVakken(TAORKenmerken)))
+]]></Implementation>
+</Method>
+
+<Method name="BepaalVolgendeKar">
+<FormalSpec>VerpakkingType:DOM.PM.enu.TAORVerpakkingType</FormalSpec>
+<Implementation><![CDATA[
+	Set ..HuidigeKarID = ..AssemblageKarRepository.GeefVolgendeKarID()
+	Set ..HuidigVerpakkingType = VerpakkingType
+	
+	Do ..VakBepaler.Reset()
+]]></Implementation>
+</Method>
+
+<Method name="MaakAssemblageKarVakEntry">
+<FormalSpec>ProductieSequentieItem:APPS.Halux.common.ProductieSequentieItem,LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel,TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
+<Implementation><![CDATA[
+	#dim Rol As DOM.PM.Maatwerk.Calc.HF.enu.TAORRol =  ..RolConverter.Converteer(LadeOnderdeel)
+	#dim AssemblageKarVak As APPS.Halux.PPS.TAORProductie.data.AssemblageKar = ..AssemblageKarRepository.Create()
+	
+	Set AssemblageKarVak.BatchID = ProductieSequentieItem.BatchID
+	Set AssemblageKarVak.SequentieNummer = ProductieSequentieItem.SequentieNummer
+	Set AssemblageKarVak.Kar = ..HuidigeKarID
+	Set AssemblageKarVak.Vak = ..VakBepaler.GeefVakNummer(Rol, TAORKenmerken)
+	Set AssemblageKarVak.Rol = Rol
+	
+	Do ..AssemblageKarRepository.Save(AssemblageKarVak)
+]]></Implementation>
+</Method>
+
+<Method name="VerhoogVakNummer">
+<FormalSpec>TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
+<Implementation><![CDATA[	Do ..VakBepaler.VerhoogVakNummer(TAORKenmerken)
+]]></Implementation>
+</Method>
+
+<Method name="HeeftHuidigeKar">
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit $$$Not(..HuidigeKarID = "")
+]]></Implementation>
+</Method>
+
+<Method name="IsKarVolledigGevuld">
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (..VakBepaler.GeefHuidigVakNummer() > ..#AantalVakkenInKar)
+]]></Implementation>
+</Method>
+
+<Method name="IsVerpakkingTypeGewijzigd">
+<FormalSpec>VerpakkingType:DOM.PM.enu.TAORVerpakkingType</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit $$$Not(..HuidigVerpakkingType = VerpakkingType)
+]]></Implementation>
+</Method>
+
+<Method name="HeeftGenoegVrijeVakken">
+<FormalSpec>TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (..GeefAantalVrijeVakken() >= ..VakBepaler.GeefAantalVakkenNodig(TAORKenmerken))
+]]></Implementation>
+</Method>
+
+<Method name="GeefAantalVrijeVakken">
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit ..#AantalVakkenInKar - ..VakBepaler.GeefHuidigVakNummer() + 1
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Taorbox.Aansturing/TestVerlaagdeRug/StartBatch/Productie_012_98_ZijkantPlaat92x25.TXT
===================================================================
diff -u -r34454 -r34741
--- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Taorbox.Aansturing/TestVerlaagdeRug/StartBatch/Productie_012_98_ZijkantPlaat92x25.TXT	(.../Productie_012_98_ZijkantPlaat92x25.TXT)	(revision 34454)
+++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Taorbox.Aansturing/TestVerlaagdeRug/StartBatch/Productie_012_98_ZijkantPlaat92x25.TXT	(.../Productie_012_98_ZijkantPlaat92x25.TXT)	(revision 34741)
@@ -1,6 +1,6 @@
 %BTW% /AF="C:\Bartender\Templates\ZijkantPlaat 92x25.btw" /PRN="98" /R=3 /P  /D=<Trigger File Name> /CLOSE
 %END%
 Barcode	Lijn1	Lijn2	Lijn3	Lijn4
-ZCB50C00001	ZCB50C00001	CO-ZIJ-L/NN-NN-NN/500x179.5/LI7K///	14a/000(1)/KAR 1:1/1*	T1/V1/UNITTEST KLA/2222-1:1
-ZCB50D00001	ZCB50D00001	CO-ZIJ-R/NN-NN-NN/500x179.5/LI7K///	14a/000(1)/KAR 1:1/1*	T1/V1/UNITTEST KLA/2222-1:1
+ZCB50C00001	ZCB50C00001	CO-ZIJ-L/NN-NN-NN/500x179.5/LI7K///	14a/000(1)/KAR 1:1/1+	T1/V1/UNITTEST KLA/2222-1:1
+ZCB50D00001	ZCB50D00001	CO-ZIJ-R/NN-NN-NN/500x179.5/LI7K///	14a/000(1)/KAR 1:1/1+	T1/V1/UNITTEST KLA/2222-1:1
 				
Index: vhTest/Mock/APPS/Halux/common/impl/ProductieSequentie/Taor/AssemblageKar/VakBepaler.cls.xml
===================================================================
diff -u
--- vhTest/Mock/APPS/Halux/common/impl/ProductieSequentie/Taor/AssemblageKar/VakBepaler.cls.xml	(revision 0)
+++ vhTest/Mock/APPS/Halux/common/impl/ProductieSequentie/Taor/AssemblageKar/VakBepaler.cls.xml	(revision 34741)
@@ -0,0 +1,52 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKar.VakBepaler">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKar.VakBepaler,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="GeefAantalVakkenNodig">
+<FormalSpec>TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefAantalVakkenNodig",TAORKenmerken)
+]]></Implementation>
+</Method>
+
+<Method name="GeefHuidigVakNummer">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefHuidigVakNummer")
+]]></Implementation>
+</Method>
+
+<Method name="GeefVakNummer">
+<FormalSpec>Rol:DOM.PM.Maatwerk.Calc.HF.enu.TAORRol,TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefVakNummer",Rol,TAORKenmerken)
+]]></Implementation>
+</Method>
+
+<Method name="HeeftVolgendVakNodig">
+<FormalSpec>Rol:DOM.PM.Maatwerk.Calc.HF.enu.TAORRol,TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("HeeftVolgendVakNodig",Rol,TAORKenmerken)
+]]></Implementation>
+</Method>
+
+<Method name="Reset">
+<Implementation><![CDATA[	do ..VerwerkMethodCall("Reset")
+]]></Implementation>
+</Method>
+
+<Method name="VerhoogVakNummer">
+<FormalSpec>TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerhoogVakNummer",TAORKenmerken)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/Halux/common/impl/ProductieSequentie/Taor/AssemblageKarGenerator/GenereerKarren/Test.cls.xml
===================================================================
diff -u -r30680 -r34741
--- vhUnitTest/APPS/Halux/common/impl/ProductieSequentie/Taor/AssemblageKarGenerator/GenereerKarren/Test.cls.xml	(.../Test.cls.xml)	(revision 30680)
+++ vhUnitTest/APPS/Halux/common/impl/ProductieSequentie/Taor/AssemblageKarGenerator/GenereerKarren/Test.cls.xml	(.../Test.cls.xml)	(revision 34741)
@@ -8,106 +8,121 @@
 <Default>15000</Default>
 </Parameter>
 
-<Parameter name="AantalVakkenInKar">
-<Type>%Integer</Type>
-<Default>20</Default>
-</Parameter>
-
-<Property name="SequentieNr">
-<Type>TECH.Integer</Type>
+<Property name="AssemblageKarGenerator">
+<Type>APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKarGenerator</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
 	Do ##super(aTestName)
-	Set ..SequentieNr = 1
+	Do ..VerwijderProductieSequentieItems()
+	
+	Set ..AssemblageKarGenerator = ##class(APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKarGenerator).%New()
 ]]></Implementation>
 </Method>
 
-<Method name="Test Items hebben zelfde verpakkingtype, kar wijzigd enkel als de huidige vol is">
+<Method name="OnAfterOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
-	Set SequentieItems = ##class(%ListOfObjects).%New()
-	#dim i As TECH.Integer
-	For i=1:1:30 {
-		Do SequentieItems.Insert(..GeefProductieSequentieItem(..Enum.VerpakkingType.V1))
-	}
+	Do ..VerwijderProductieSequentieItems()
+	Do ##super(aTestName)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Methods worden opgeroepen door Genereer-method">
+<Implementation><![CDATA[
+	#dim KarBepalerMock As vhTest.Mock.APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKar.KarBepaler = ##class(vhTest.Mock.APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKar.KarBepaler).%New()
+	#dim LadeInfoAPIMock As vhTest.Mock.DOM.PM.Maatwerk.LadeInfoAPI = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfoAPI).%New()
+	#dim LadeMock As vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Lade = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Lade).%New()
+	#dim ProductieSequentieServiceMock As vhTest.Mock.APPS.Halux.common.ProductieSequentieItemService = ##class(vhTest.Mock.APPS.Halux.common.ProductieSequentieItemService).%New()
 	
-	Set FakeAssemblageKarRepository = ##class(vhTest.Fake.APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository).%New()
-	Set Generator = ##class(APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKarGenerator).%New(FakeAssemblageKarRepository)
-	Do Generator.Genereer(SequentieItems)
+	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLadeVerpaktIn(..Enum.VerpakkingType.V1)
+	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom).%New()
+	#dim ProductieSequentieItem As vhTest.Mock.APPS.Halux.common.ProductieSequentieItem = ##class(vhTest.Mock.APPS.Halux.common.ProductieSequentieItem).%New()
+	#dim ProductieSequentieItems As %ListOfObjects = ##class(%ListOfObjects).%New()
 	
-	#dim Karren As List of APPS.Halux.PPS.TAORProductie.data.AssemblageKar = FakeAssemblageKarRepository.BewaardeAssemblageKarren
-	If $$$AssertEquals(Karren.Count(),30) {
-		#dim AssemblageKar As APPS.Halux.PPS.TAORProductie.data.AssemblageKar
-		For i=1:1:..#AantalVakkenInKar {
-			Set AssemblageKar = Karren.GetAt(i)
-			Do $$$AssertEquals(AssemblageKar.BatchID,..#BatchID)
-			Do $$$AssertEquals(AssemblageKar.Kar,"0001")
-			Do $$$AssertEquals(AssemblageKar.SequentieNummer,i)
-			Do $$$AssertEquals(AssemblageKar.Vak,i)
-		}
-		For i=..#AantalVakkenInKar+1:1:30 {
-			Set AssemblageKar = Karren.GetAt(i)
-			Do $$$AssertEquals(AssemblageKar.BatchID,..#BatchID)
-			Do $$$AssertEquals(AssemblageKar.Kar,"0002")
-			Do $$$AssertEquals(AssemblageKar.SequentieNummer,i)
-			Do $$$AssertEquals(AssemblageKar.Vak,i-..#AantalVakkenInKar)
-		}
-	}
+	Do ProductieSequentieItems.Insert(ProductieSequentieItem)
+	
+	Do ProductieSequentieServiceMock.VerwachtMethodCall("GeefIngegevenKenmerken", ProductieSequentieItem).DanReturn(TAORKenmerken)
+	Do ProductieSequentieServiceMock.VerwachtMethodCall("GeefHalffabItemsBoom", ProductieSequentieItem).DanReturn(HalffabItemsBoom)
+	
+	Do LadeInfoAPIMock.VerwachtMethodCall("GeefLade", HalffabItemsBoom, TAORKenmerken).DanReturn(LadeMock)
+	Do LadeMock.VerwachtMethodCall("GeefOnderdelenIterator").DanReturn(##class(TECH.ListIterator).%New(..GeefLadeOnderdelen(LadeMock, TAORKenmerken)))
+	
+	Do KarBepalerMock.VerwachtMethodCall("IsNieuweKarNodig", TAORKenmerken).DanReturn($$$True)
+	Do KarBepalerMock.VerwachtMethodCall("BepaalVolgendeKar", TAORKenmerken.VerpakkingType)
+	Do KarBepalerMock.VerwachtMethodCall("MaakAssemblageKarVakEntry", ProductieSequentieItem, $$$ElkeWaarde, TAORKenmerken)
+	Do KarBepalerMock.VerwachtMethodCall("VerhoogVakNummer", TAORKenmerken)
+	
+	#dim AssemblageKarGenerator As APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKarGenerator = ##class(APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKarGenerator).%New(KarBepalerMock, LadeInfoAPIMock, ProductieSequentieServiceMock)
+	
+	Do AssemblageKarGenerator.Genereer(ProductieSequentieItems)
+	
+	Do KarBepalerMock.Verifieer()
+	Do ProductieSequentieServiceMock.Verifieer()
+	Do LadeMock.Verifieer()
+	Do LadeInfoAPIMock.Verifieer()
 ]]></Implementation>
 </Method>
 
-<Method name="Test Items hebben verschillend verpakkingtype, kar wijzigd bij elk item">
+<Method name="Test: AssemblageKarVakEntry wordt gemaakt per LadeOnderdeel in een ProductieSequentieItem">
 <Implementation><![CDATA[
-	Set SequentieItems = ##class(%ListOfObjects).%New()
-	Do SequentieItems.Insert(..GeefProductieSequentieItem(..Enum.VerpakkingType.Probox))
-	Do SequentieItems.Insert(..GeefProductieSequentieItem(..Enum.VerpakkingType.V1))
-	Do SequentieItems.Insert(..GeefProductieSequentieItem(..Enum.VerpakkingType.FlatpackV1))
+	#define SequentieNummer 123456
 	
-	Set FakeAssemblageKarRepository = ##class(vhTest.Fake.APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository).%New()
-	Set Generator = ##class(APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKarGenerator).%New(FakeAssemblageKarRepository)
-	Do Generator.Genereer(SequentieItems)
+	#dim ProductieSequentieServiceStub As vhTest.Mock.APPS.Halux.common.ProductieSequentieItemService = ##class(vhTest.Mock.APPS.Halux.common.ProductieSequentieItemService).%New()
+	#dim LadeInfoAPIStub As vhTest.Mock.DOM.PM.Maatwerk.LadeInfoAPI = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfoAPI).%New()
+	#dim LadeStub As vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Lade = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Lade).%New()
+
+	#dim ProductieSequentieItem As APPS.Halux.common.ProductieSequentieItem = ##class(APPS.Halux.common.ProductieSequentieItem).%New()
+	#dim ProductieSequentieItems As %ListOfObjects = ##class(%ListOfObjects).%New()
+	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLadeVerpaktIn(..Enum.VerpakkingType.V1)
+	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom).%New()
 	
-	#dim Karren As List of APPS.Halux.PPS.TAORProductie.data.AssemblageKar = FakeAssemblageKarRepository.BewaardeAssemblageKarren
-	If $$$AssertEquals(Karren.Count(),3) {
-		#dim AssemblageKar As APPS.Halux.PPS.TAORProductie.data.AssemblageKar = Karren.GetAt(1)
-		Do $$$AssertEquals(AssemblageKar.BatchID,..#BatchID)
-		Do $$$AssertEquals(AssemblageKar.Kar,"0001")
-		Do $$$AssertEquals(AssemblageKar.SequentieNummer,1)
-		Do $$$AssertEquals(AssemblageKar.Vak,1)
-		
-		Set AssemblageKar = Karren.GetAt(2)
-		Do $$$AssertEquals(AssemblageKar.BatchID,..#BatchID)
-		Do $$$AssertEquals(AssemblageKar.Kar,"0002")
-		Do $$$AssertEquals(AssemblageKar.SequentieNummer,2)
-		Do $$$AssertEquals(AssemblageKar.Vak,1)
-		
-		Set AssemblageKar = Karren.GetAt(3)
-		Do $$$AssertEquals(AssemblageKar.BatchID,..#BatchID)
-		Do $$$AssertEquals(AssemblageKar.Kar,"0003")
-		Do $$$AssertEquals(AssemblageKar.SequentieNummer,3)
-		Do $$$AssertEquals(AssemblageKar.Vak,1)
-	}
+	Set ProductieSequentieItem.BatchID = ..#BatchID
+	Set ProductieSequentieItem.SequentieNummer = $$$SequentieNummer
+	
+	Do ProductieSequentieItems.Insert(ProductieSequentieItem)
+	
+	Do ProductieSequentieServiceStub.IndienMethodCall("GeefIngegevenKenmerken", ProductieSequentieItem).DanReturn(TAORKenmerken)
+	Do ProductieSequentieServiceStub.IndienMethodCall("GeefHalffabItemsBoom", ProductieSequentieItem).DanReturn(HalffabItemsBoom)
+	
+	Do LadeInfoAPIStub.IndienMethodCall("GeefLade", HalffabItemsBoom, TAORKenmerken).DanReturn(LadeStub)
+	Do LadeStub.IndienMethodCall("GeefOnderdelenIterator").DanReturn(##class(TECH.ListIterator).%New(..GeefLadeOnderdelen(LadeStub, TAORKenmerken)))
+	
+	#dim AssemblageKarRepository As APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository = ##class(APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository).%New()
+	#dim KarBepaler As APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKar.KarBepaler = ##class(APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKar.KarBepaler).%New("", AssemblageKarRepository)
+	#dim AssemblageKarGenerator As APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKarGenerator = ##class(APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKarGenerator).%New(KarBepaler, LadeInfoAPIStub, ProductieSequentieServiceStub)
+	
+	Do AssemblageKarGenerator.Genereer(ProductieSequentieItems)
+
+	Do $$$AssertEquals(AssemblageKarRepository.GeefAantalKarren(..#BatchID), 1)
+	Do $$$AssertEquals(AssemblageKarRepository.GeefKar(..#BatchID, $$$SequentieNummer, ..Enum.Rol.Bodem).Vak, 1)
+	Do $$$AssertEquals(AssemblageKarRepository.GeefKar(..#BatchID, $$$SequentieNummer, ..Enum.Rol.Front).Vak, 1)
 ]]></Implementation>
 </Method>
 
-<Method name="GeefProductieSequentieItem">
-<FormalSpec>VerpakkingType:DOM.PM.enu.TAORVerpakkingType</FormalSpec>
+<Method name="GeefLadeOnderdelen">
+<FormalSpec>Lade:DOM.PM.Maatwerk.LadeInfo.Lade,TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
 <Private>1</Private>
-<ReturnType>APPS.Halux.common.ProductieSequentieItem</ReturnType>
+<ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
-	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLadeVerpaktIn(VerpakkingType)
-	#dim SequentieItem As APPS.Halux.common.ProductieSequentieItem = ##class(APPS.Halux.common.ProductieSequentieItem).%New()
+	#dim LadeOnderdelen As %ListOfObjects = ##class(%ListOfObjects).%New()
 	
-	set SequentieItem.BatchID = ..#BatchID
-	set SequentieItem.SequentieNummer = ..SequentieNr
-	set ..SequentieNr = ..SequentieNr + 1
+	Do LadeOnderdelen.Insert(##class(DOM.PM.Maatwerk.LadeInfo.impl.TAX.Bodem).%New(Lade, "", TAORKenmerken))
+	Do LadeOnderdelen.Insert(##class(DOM.PM.Maatwerk.LadeInfo.impl.TAX.Front).%New(Lade, "", TAORKenmerken))
 	
-	do SequentieItem.ZetIngegevenKenmerken(TAORKenmerken)
+	Quit LadeOnderdelen
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderProductieSequentieItems">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim AssemblageKarRepository As APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository = ##class(APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository).%New()
 	
-	quit SequentieItem
+	Do AssemblageKarRepository.VerwijderViaBatchID(..#BatchID)
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/Halux/common/impl/ProductieSequentie/Taor/RolConverter.cls.xml
===================================================================
diff -u
--- APPS/Halux/common/impl/ProductieSequentie/Taor/RolConverter.cls.xml	(revision 0)
+++ APPS/Halux/common/impl/ProductieSequentie/Taor/RolConverter.cls.xml	(revision 34741)
@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.common.impl.ProductieSequentie.Taor.RolConverter">
+<Super>TECH.Mockable,DOM.PM.Maatwerk.TAX.impl.Base</Super>
+
+<Method name="Converteer">
+<FormalSpec>LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel</FormalSpec>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.enu.TAORRol</ReturnType>
+<Implementation><![CDATA[
+	#dim LadeOnderdeelRol As DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel = LadeOnderdeel.GeefRol()
+	#dim Rol As DOM.PM.Maatwerk.Calc.HF.enu.TAORRol = ##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).LogicalToDisplay(LadeOnderdeelRol)
+	
+	If (LadeOnderdeelRol = ..Enum.LadeOnderdeel.Zijkant) {
+		#dim Zijkant As DOM.PM.Maatwerk.LadeInfo.Zijkant = LadeOnderdeel
+		Set Rol = Rol _ Zijkant.GeefZijkantRol()
+	}
+	
+	Quit Rol
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/Halux/common/impl/ProductieSequentie/Taor/AssemblageKar/VakBepaler/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/common/impl/ProductieSequentie/Taor/AssemblageKar/VakBepaler/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/common/impl/ProductieSequentie/Taor/AssemblageKar/VakBepaler/Test.cls.xml	(revision 34741)
@@ -0,0 +1,78 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKar.VakBepaler.Test">
+<Super>vhUnitTest.DOM.PM.Maatwerk.TAX.Base</Super>
+
+<Property name="VakBepaler">
+<Type>APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKar.VakBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	
+	Set ..VakBepaler = ##class(APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKar.VakBepaler).%New()
+]]></Implementation>
+</Method>
+
+<Method name="Test: initieel staat het huidige vaknummer op 1">
+<Implementation><![CDATA[	Do $$$AssertEquals(..VakBepaler.GeefHuidigVakNummer(), 1)
+]]></Implementation>
+</Method>
+
+<Method name="Test: na reset staat het huidige vaknummer op 1">
+<Implementation><![CDATA[
+	Do ..VakBepaler.VerhoogVakNummer(##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade())
+	Do ..VakBepaler.Reset()	
+	
+	Do $$$AssertEquals(..VakBepaler.GeefHuidigVakNummer(), 1)
+]]></Implementation>
+</Method>
+
+<Method name="Test: 1 vak nodig indien geen verlaagde rug">
+<Implementation><![CDATA[	Do ..AssertAantalVakkenNodig(##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade(), 1)
+]]></Implementation>
+</Method>
+
+<Method name="Test: 2 vakken nodig indien verlaagde rug">
+<Implementation><![CDATA[	Do ..AssertAantalVakkenNodig(##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).VerlaagdeRugLade(), 2)
+]]></Implementation>
+</Method>
+
+<Method name="Test: HeeftVolgendVakNodig indien geen verlaagde rug">
+<Implementation><![CDATA[	Do ..AssertHeeftVolgendVakNodig("", ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade(), $$$False)
+]]></Implementation>
+</Method>
+
+<Method name="Test: HeeftVolgendVakNodig indien verlaagde rug">
+<Implementation><![CDATA[
+	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).VerlaagdeRugLade() 
+	
+	Do ..AssertHeeftVolgendVakNodig(..Enum.Rol.Bodem, TAORKenmerken, $$$True)
+	Do ..AssertHeeftVolgendVakNodig(..Enum.Rol.ZijkantLinks, TAORKenmerken, $$$True)
+	Do ..AssertHeeftVolgendVakNodig(..Enum.Rol.ZijkantRechts, TAORKenmerken, $$$True)
+	
+	Do ..AssertHeeftVolgendVakNodig(..Enum.Rol.Front, TAORKenmerken, $$$False)
+	Do ..AssertHeeftVolgendVakNodig(..Enum.Rol.Rug, TAORKenmerken, $$$False)
+]]></Implementation>
+</Method>
+
+<Method name="AssertAantalVakkenNodig">
+<FormalSpec>TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken,VerwachtAantalVakken:%Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Do $$$AssertEquals(..VakBepaler.GeefAantalVakkenNodig(TAORKenmerken), VerwachtAantalVakken)
+]]></Implementation>
+</Method>
+
+<Method name="AssertHeeftVolgendVakNodig">
+<FormalSpec>Rol:DOM.PM.Maatwerk.Calc.HF.enu.TAORRol,TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken,VerwachteWaarde:%Boolean</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Do $$$AssertEquals(..VakBepaler.HeeftVolgendVakNodig(Rol, TAORKenmerken), VerwachteWaarde)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Taorbox.Aansturing/TestVerlaagdeRug/StartBatch/External_SQL.DB_ZijkantKamerFreesData.xml
===================================================================
diff -u -r34570 -r34741
--- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Taorbox.Aansturing/TestVerlaagdeRug/StartBatch/External_SQL.DB_ZijkantKamerFreesData.xml	(.../External_SQL.DB_ZijkantKamerFreesData.xml)	(revision 34570)
+++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Taorbox.Aansturing/TestVerlaagdeRug/StartBatch/External_SQL.DB_ZijkantKamerFreesData.xml	(.../External_SQL.DB_ZijkantKamerFreesData.xml)	(revision 34741)
@@ -19,11 +19,11 @@
 PrintBarcodeLeft = ZCB50C00001
 PrintBarcodeRight = ZCB50D00001
 PrintTextLeft1 = CO-ZIJ-L/NN-NN-NN/500x179.5/LI7K///
-PrintTextLeft2 = 14a/000(1)/KAR 1:1/1*
+PrintTextLeft2 = 14a/000(1)/KAR 1:1/1+
 PrintTextLeft3 = T1/V1/UNITTEST KLA/2222-1:1
 PrintTextLeft4 = ZCB50C00001/D:495xH:174.5
 PrintTextRight1 = CO-ZIJ-R/NN-NN-NN/500x179.5/LI7K///
-PrintTextRight2 = 14a/000(1)/KAR 1:1/1*
+PrintTextRight2 = 14a/000(1)/KAR 1:1/1+
 PrintTextRight3 = T1/V1/UNITTEST KLA/2222-1:1
 PrintTextRight4 = ZCB50D00001/D:495xH:174.5
 ProductCode = ""
Index: APPS/Halux/common/impl/ProductieSequentie/Taor/AssemblageKarGenerator.cls.xml
===================================================================
diff -u -r29998 -r34741
--- APPS/Halux/common/impl/ProductieSequentie/Taor/AssemblageKarGenerator.cls.xml	(.../AssemblageKarGenerator.cls.xml)	(revision 29998)
+++ APPS/Halux/common/impl/ProductieSequentie/Taor/AssemblageKarGenerator.cls.xml	(.../AssemblageKarGenerator.cls.xml)	(revision 34741)
@@ -1,103 +1,65 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKarGenerator">
-<Super>TECH.RegisteredObject</Super>
+<Super>DOM.PM.Maatwerk.TAX.impl.Base</Super>
 
-<Parameter name="AantalVakkenInKar">
-<Type>%Integer</Type>
-<Default>20</Default>
-</Parameter>
-
-<Property name="AssemblageKarRepository">
-<Type>APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository</Type>
+<Property name="KarBepaler">
+<Type>APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKar.KarBepaler</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="KarID">
-<Type>TECH.String</Type>
+<Property name="LadeInfoAPI">
+<Type>DOM.PM.Maatwerk.LadeInfoAPI</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="VakNr">
-<Type>TECH.Integer</Type>
+<Property name="ProductieSequentieItemService">
+<Type>APPS.Halux.common.ProductieSequentieItemService</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="VerpakkingType">
-<Type>DOM.PM.enu.TAORVerpakkingType</Type>
-<Private>1</Private>
-</Property>
-
 <Method name="%OnNew">
-<FormalSpec>AssemblageKarRepository:APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository=""</FormalSpec>
+<FormalSpec>KarBepaler:APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKar.KarBepaler="",LadeInfoAPI:DOM.PM.Maatwerk.LadeInfoAPI="",ProductieSequentieItemService:APPS.Halux.common.impl.ProductieSequentieItemService=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..AssemblageKarRepository = $$$Implementation(AssemblageKarRepository, ##class(APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository).%New())
+	Set ..KarBepaler = $$$Inject(KarBepaler, ##class(APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKar.KarBepaler).%New())
+	Set ..LadeInfoAPI = $$$Inject(LadeInfoAPI, ##class(DOM.PM.Maatwerk.impl.LadeInfoAPI).%New())
+	
+	// ProductieSequentieItemService via lazyload ipv constructor injection omwille van volgende fout FOUT #5002: Caché fout : <LIST>%GetSerial+1^%Library.ListOfObjects.1 Kon object APPS.Halux.common.impl.ProductieSequentie.Taor: niet opslaan
+	//Set ..ProductieSequentieItemService = $$$Inject(ProductieSequentieItemService, ##class(APPS.Halux.common.impl.ProductieSequentieItemService).%New())
+	Set ..ProductieSequentieItemService = ProductieSequentieItemService
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="Genereer">
-<FormalSpec>SequentieItems:APPS.Halux.common.ProductieSequentieItemList</FormalSpec>
+<FormalSpec>ProductieSequentieItems:APPS.Halux.common.ProductieSequentieItemList</FormalSpec>
 <Implementation><![CDATA[
-	Set ItemIterator = ##class(TECH.ListIterator).%New(SequentieItems)
-	While ItemIterator.HasNext() {
-		#dim Item As APPS.Halux.common.ProductieSequentieItem = ItemIterator.Next()
-		Do:(..IsNieuweKarNodig(Item)) ..InitNieuweKar(Item)
-		Do ..GenereerNieuweAssemblageKarVak(Item)
-	}
-]]></Implementation>
-</Method>
+	#dim ProductieSequentieItemIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(ProductieSequentieItems)
+	
+	While (ProductieSequentieItemIterator.HasNext()) {
+		#dim ProductieSequentieItemService As APPS.Halux.common.ProductieSequentieItemService = $$$LazyLoad(..ProductieSequentieItemService, ##class(APPS.Halux.common.impl.ProductieSequentieItemService).%New())
+		#dim ProductieSequentieItem As APPS.Halux.common.ProductieSequentieItem = ProductieSequentieItemIterator.Next()
+		#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ProductieSequentieItemService.GeefIngegevenKenmerken(ProductieSequentieItem)
+		#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ProductieSequentieItemService.GeefHalffabItemsBoom(ProductieSequentieItem)
+		#dim Lade As DOM.PM.Maatwerk.LadeInfo.Lade = ..LadeInfoAPI.GeefLade(HalffabItemsBoom, TAORKenmerken)
+		#dim LadeOnderdelenIterator As TECH.Iterator = Lade.GeefOnderdelenIterator()
 
-<Method name="InitNieuweKar">
-<FormalSpec>Item:APPS.Halux.common.ProductieSequentieItem</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	Set ..KarID = ..AssemblageKarRepository.GeefVolgendeKarID()
-	Set ..VakNr = 1
-	Set ..VerpakkingType = Item.GeefIngegevenKenmerken().VerpakkingType
-]]></Implementation>
-</Method>
+		Do:(..KarBepaler.IsNieuweKarNodig(TAORKenmerken)) ..KarBepaler.BepaalVolgendeKar(TAORKenmerken.VerpakkingType)
 
-<Method name="GenereerNieuweAssemblageKarVak">
-<FormalSpec>Item:APPS.Halux.common.ProductieSequentieItem</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	#dim AssemblageKarVak As APPS.Halux.PPS.TAORProductie.data.AssemblageKar = ..AssemblageKarRepository.Create()
-	Set AssemblageKarVak.BatchID = Item.BatchID
-	Set AssemblageKarVak.SequentieNummer = Item.SequentieNummer
-	Set AssemblageKarVak.Kar = ..KarID
-	Set AssemblageKarVak.Vak = ..VakNr
-	Do ..AssemblageKarRepository.Save(AssemblageKarVak)
-	Set ..VakNr = ..VakNr+1
+		While (LadeOnderdelenIterator.HasNext()) {
+			#dim LadeOnderdeel As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = LadeOnderdelenIterator.Next()
+			Do ..KarBepaler.MaakAssemblageKarVakEntry(ProductieSequentieItem, LadeOnderdeel, TAORKenmerken)
+		}
+		
+		Do ..KarBepaler.VerhoogVakNummer(TAORKenmerken)
+	}
 ]]></Implementation>
 </Method>
-
-<Method name="IsNieuweKarNodig">
-<FormalSpec>Item:APPS.Halux.common.ProductieSequentieItem</FormalSpec>
-<Private>1</Private>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit ..IsVerpakkingTypeGewijzigd(Item)||..IsKarVolledigGevuld()
-]]></Implementation>
-</Method>
-
-<Method name="IsKarVolledigGevuld">
-<Private>1</Private>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit (..VakNr > ..#AantalVakkenInKar)
-]]></Implementation>
-</Method>
-
-<Method name="IsVerpakkingTypeGewijzigd">
-<FormalSpec>Item:APPS.Halux.common.ProductieSequentieItem</FormalSpec>
-<Private>1</Private>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit ..VerpakkingType '= Item.GeefIngegevenKenmerken().VerpakkingType
-]]></Implementation>
-</Method>
 </Class>