Index: APPS/Halux/common/impl/ProductieSequentie/Taor.cls.xml
===================================================================
diff -u -r29968 -r29998
--- APPS/Halux/common/impl/ProductieSequentie/Taor.cls.xml	(.../Taor.cls.xml)	(revision 29968)
+++ APPS/Halux/common/impl/ProductieSequentie/Taor.cls.xml	(.../Taor.cls.xml)	(revision 29998)
@@ -9,6 +9,12 @@
 <Transient>1</Transient>
 </Property>
 
+<Property name="SorteerSleutelBepaler">
+<Type>APPS.Halux.common.impl.ProductieSequentie.Taor.SorteerSleutelBepaler</Type>
+<Private>1</Private>
+<Transient>1</Transient>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>Batch:APPS.Halux.common.Batch</FormalSpec>
 <Private>1</Private>
@@ -18,24 +24,15 @@
 <Implementation><![CDATA[
 	Do ##super(Batch)
 	Set ..AssemblageKarGenerator = ##class(APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKarGenerator).%New()
+	Set ..SorteerSleutelBepaler = ##class(APPS.Halux.common.impl.ProductieSequentie.Taor.SorteerSleutelBepaler).%New()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="GeefSorteerSleutel">
 <FormalSpec>MaatwerkProduct:DOM.PM.MaatwerkProduct,Item:APPS.Halux.common.ProductieSequentieItem</FormalSpec>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	#define LeftPad4(%v)    (10000-%v)
-	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = MaatwerkProduct.GeefProductSpecificatie().GeefIngegevenKenmerken()
-	#dim SorteerSleutel As %String = $$$LeftPad4(IngegevenKenmerken.LadeDiepte)_"-"
-	Set SorteerSleutel = SorteerSleutel_$$$LeftPad4($Case(IngegevenKenmerken.LadeHoogte,"N":"10","M":"20","C":"40","F":"50",:"999"))_"-"
-	Set SorteerSleutel = SorteerSleutel_$$$LeftPad4(IngegevenKenmerken.InterneBreedte)_"-"
-	Set SorteerSleutel = SorteerSleutel_MaatwerkProduct.GeefID()
-	Set SorteerSleutel = SorteerSleutel_"-"_Item.ToeleveringID
-	Set SorteerSleutel = SorteerSleutel_"-"_Item.ToeleveringLijnID
-	Set SorteerSleutel = SorteerSleutel_"-"_##class(TECH.StringUtils).AlignRight(Item.DeelAantal, "0", 4)
-	Quit SorteerSleutel
+<Implementation><![CDATA[	Quit ..SorteerSleutelBepaler.Bepaal(MaatwerkProduct, Item)
 ]]></Implementation>
 </Method>
 
Index: APPS/Halux/common/impl/ProductieSequentie/Taor/AssemblageKarGenerator.cls.xml
===================================================================
diff -u -r29963 -r29998
--- APPS/Halux/common/impl/ProductieSequentie/Taor/AssemblageKarGenerator.cls.xml	(.../AssemblageKarGenerator.cls.xml)	(revision 29963)
+++ APPS/Halux/common/impl/ProductieSequentie/Taor/AssemblageKarGenerator.cls.xml	(.../AssemblageKarGenerator.cls.xml)	(revision 29998)
@@ -23,6 +23,11 @@
 <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>
 <Private>1</Private>
@@ -38,20 +43,22 @@
 <Method name="Genereer">
 <FormalSpec>SequentieItems:APPS.Halux.common.ProductieSequentieItemList</FormalSpec>
 <Implementation><![CDATA[
-	Do ..InitNieuweKar()
 	Set ItemIterator = ##class(TECH.ListIterator).%New(SequentieItems)
 	While ItemIterator.HasNext() {
-		Do ..GenereerNieuweAssemblageKarVak(ItemIterator.Next())
-		Do:(..IsKarVolledigGevuld()) ..InitNieuweKar()
+		#dim Item As APPS.Halux.common.ProductieSequentieItem = ItemIterator.Next()
+		Do:(..IsNieuweKarNodig(Item)) ..InitNieuweKar(Item)
+		Do ..GenereerNieuweAssemblageKarVak(Item)
 	}
 ]]></Implementation>
 </Method>
 
 <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>
 
@@ -69,12 +76,28 @@
 ]]></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><![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>
 
 
Index: vhUnitTest/APPS/Halux/common/impl/ProductieSequentie/Taor/SorteerSleutelBepaler/Bepaal/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/common/impl/ProductieSequentie/Taor/SorteerSleutelBepaler/Bepaal/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/common/impl/ProductieSequentie/Taor/SorteerSleutelBepaler/Bepaal/Test.cls.xml	(revision 29998)
@@ -0,0 +1,31 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.common.impl.ProductieSequentie.Taor.SorteerSleutelBepaler.Bepaal.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test">
+<Implementation><![CDATA[
+	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).CLade()
+	Set MaatwerkProduct = ##class(vhTest.Mock.DOM.PM.MaatwerkProduct).%New()
+		Set ProductSpecificatieStub = ##class(DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie).%New(##class(DOM.PM.enu.Familie).Lade(), ##class(DOM.PM.enu.Variant).Taorbox(), IngegevenKenmerken)
+	Do MaatwerkProduct.IndienMethodCall("GeefProductSpecificatie").DanReturn(ProductSpecificatieStub)
+	Do MaatwerkProduct.IndienMethodCall("GeefID").DanReturn("UTMaatwerkProductID")
+	
+	Set Item = ##class(vhTest.Dummy.APPS.Halux.common.ProductieSequentieItem).%New()
+	
+	Do ..AssertSorteerSleutel(MaatwerkProduct, Item, "9980-123456-9980-9500-9960-9400-UTMaatwerkProductID-1-DeelAantal")
+]]></Implementation>
+</Method>
+
+<Method name="AssertSorteerSleutel">
+<FormalSpec>MaatwerkProduct:DOM.PM.MaatwerkProduct,Item:APPS.Halux.common.ProductieSequentieItem,VerwachteSleutel:TECH.String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set Bepaler = ##class(APPS.Halux.common.impl.ProductieSequentie.Taor.SorteerSleutelBepaler).%New()
+	Do $$$AssertEquals(Bepaler.Bepaal(MaatwerkProduct, Item),VerwachteSleutel)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/Halux/common/impl/ProductieSequentie/Taor/AssemblageKarGenerator/GenereerKarren/Test.cls.xml
===================================================================
diff -u -r29960 -r29998
--- vhUnitTest/APPS/Halux/common/impl/ProductieSequentie/Taor/AssemblageKarGenerator/GenereerKarren/Test.cls.xml	(.../Test.cls.xml)	(revision 29960)
+++ vhUnitTest/APPS/Halux/common/impl/ProductieSequentie/Taor/AssemblageKarGenerator/GenereerKarren/Test.cls.xml	(.../Test.cls.xml)	(revision 29998)
@@ -18,7 +18,7 @@
 <Private>1</Private>
 </Property>
 
-<Method name="Test">
+<Method name="Test Items hebben zelfde verpakkingtype, kar wijzigd enkel als de huidige vol is">
 <Implementation><![CDATA[
 	Set SequentieItems = ##class(%ListOfObjects).%New()
 	#dim i As TECH.Integer
@@ -51,13 +51,51 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test Items hebben verschillend verpakkingtype, kar wijzigd bij elk item">
+<Implementation><![CDATA[
+	Set SequentieItems = ##class(%ListOfObjects).%New()
+	Do SequentieItems.Insert(..GeefProductieSequentieItem(##class(DOM.PM.enu.TAORVerpakkingType).Probox()))
+	Do SequentieItems.Insert(..GeefProductieSequentieItem(##class(DOM.PM.enu.TAORVerpakkingType).V1()))
+	Do SequentieItems.Insert(..GeefProductieSequentieItem(##class(DOM.PM.enu.TAORVerpakkingType).FlatpackV1()))
+	
+	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 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)
+	}
+]]></Implementation>
+</Method>
+
 <Method name="GeefProductieSequentieItem">
+<FormalSpec>VerpakkingType:DOM.PM.enu.TAORVerpakkingType=##class(DOM.PM.enu.TAORVerpakkingType).V1()</FormalSpec>
 <ReturnType>APPS.Halux.common.ProductieSequentieItem</ReturnType>
 <Implementation><![CDATA[
 	Set SequentieItem = ##class(APPS.Halux.common.ProductieSequentieItem).%New()
 	Set SequentieItem.BatchID = ..#BatchID
 	Set SequentieItem.SequentieNummer = ..SequentieNr
 	Set ..SequentieNr = ..SequentieNr + 1
+	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).CLade()
+	Set IngegevenKenmerken.VerpakkingType = VerpakkingType
+	Do SequentieItem.ZetIngegevenKenmerken(IngegevenKenmerken)
 	Quit SequentieItem
 ]]></Implementation>
 </Method>
Index: APPS/Halux/common/impl/ProductieSequentie/Taor/SorteerSleutelBepaler.cls.xml
===================================================================
diff -u
--- APPS/Halux/common/impl/ProductieSequentie/Taor/SorteerSleutelBepaler.cls.xml	(revision 0)
+++ APPS/Halux/common/impl/ProductieSequentie/Taor/SorteerSleutelBepaler.cls.xml	(revision 29998)
@@ -0,0 +1,59 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.common.impl.ProductieSequentie.Taor.SorteerSleutelBepaler">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="Bepaal">
+<FormalSpec>MaatwerkProduct:DOM.PM.MaatwerkProduct,Item:APPS.Halux.common.ProductieSequentieItem</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#define LeftPad4(%v)    (10000-%v)
+	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = MaatwerkProduct.GeefProductSpecificatie().GeefIngegevenKenmerken()
+	#dim SorteerSleutel As %String = $$$LeftPad4(..GeefVerpakkingSorteerSleutel(IngegevenKenmerken.VerpakkingType))
+	Set SorteerSleutel = SorteerSleutel_"-"_Item.ToeleveringID
+	Set SorteerSleutel = SorteerSleutel_"-"_$$$LeftPad4(..GeefKoppelingSorteerSleutel(IngegevenKenmerken.KoppelingType))
+	Set SorteerSleutel = SorteerSleutel_"-"_$$$LeftPad4(IngegevenKenmerken.LadeDiepte)
+	Set SorteerSleutel = SorteerSleutel_"-"_$$$LeftPad4($Case(IngegevenKenmerken.LadeHoogte,"N":"10","M":"20","C":"40","F":"50",:"999"))
+	Set SorteerSleutel = SorteerSleutel_"-"_$$$LeftPad4(IngegevenKenmerken.InterneBreedte)
+	Set SorteerSleutel = SorteerSleutel_"-"_MaatwerkProduct.GeefID()
+	Set SorteerSleutel = SorteerSleutel_"-"_Item.ToeleveringLijnID
+	Set SorteerSleutel = SorteerSleutel_"-"_##class(TECH.StringUtils).AlignRight(Item.DeelAantal, "0", 4)
+	Quit SorteerSleutel
+]]></Implementation>
+</Method>
+
+<Method name="GeefVerpakkingSorteerSleutel">
+<FormalSpec>VerpakkingType:DOM.PM.enu.TAORVerpakkingType</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim Sleutel As TECH.String = "999"
+	If VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).FlatpackV1() {
+		Set Sleutel = "10"
+	} ElseIf VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).V1() {
+		Set Sleutel = "20"
+	} ElseIf VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).Probox() {
+		Set Sleutel = "30"
+	}
+	Quit Sleutel
+]]></Implementation>
+</Method>
+
+<Method name="GeefKoppelingSorteerSleutel">
+<FormalSpec>KoppelingType:DOM.PM.enu.TAORKoppelingType</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim Sleutel As TECH.String = "999"
+	If KoppelingType = ##class(DOM.PM.enu.TAORKoppelingType).Drevel() {
+		Set Sleutel = "10"
+	} ElseIf KoppelingType = ##class(DOM.PM.enu.TAORKoppelingType).Schroef() {
+		Set Sleutel = "20"
+	}
+	Quit Sleutel
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>