Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/AlgemeneInfoOptiesGenerator.cls.xml
===================================================================
diff -u -r71919 -r72957
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/AlgemeneInfoOptiesGenerator.cls.xml	(.../AlgemeneInfoOptiesGenerator.cls.xml)	(revision 71919)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/AlgemeneInfoOptiesGenerator.cls.xml	(.../AlgemeneInfoOptiesGenerator.cls.xml)	(revision 72957)
@@ -37,18 +37,20 @@
 	While (ToeleveringIterator.HasNext()) {		
 		#dim Toelevering As DOM.AKP.Toelevering = ToeleveringIterator.Next()	
 		Do ..BepaalAlgemeneInfoVoorToelevering(.AlgemeneInfoOptieObjective, Toelevering)
+		Do ..BepaalVariant(.AlgemeneInfoOptieObjective, Batch.GeefCategorie())
 	}
 	
 	Quit ..GeefAlgemeneOpties(AlgemeneInfoOptieObjective)
 ]]></Implementation>
 </Method>
 
 <Method name="GenereerAlgemeneOptiesVoorToelevering">
-<FormalSpec>Toelevering:DOM.AKP.Toelevering</FormalSpec>
+<FormalSpec>Toelevering:DOM.AKP.Toelevering,BatchCategorie:APPS.Halux.common.enu.Categorie</FormalSpec>
 <ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
 	Set AlgemeneInfoOptieObjective = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.AlgemeneInfoOptieObjective).%New()
 	Do ..BepaalAlgemeneInfoVoorToelevering(.AlgemeneInfoOptieObjective, Toelevering)
+	Do ..BepaalVariant(.AlgemeneInfoOptieObjective, BatchCategorie)
 	
 	Quit ..GeefAlgemeneOpties(AlgemeneInfoOptieObjective)
 ]]></Implementation>
@@ -66,6 +68,7 @@
 	Do Opties.Insert(..GeefOptieVoorToelevering("Aantalspoelbaklades", AlgemeneInfoOptieObjective.AantalSpoelbakLades))
 	Do Opties.Insert(..GeefOptieVoorToelevering("Aantalsmallelades", AlgemeneInfoOptieObjective.AantalSmalleLades))
 	Do Opties.Insert(..GeefOptieVoorToelevering("AantalladenvoorBWC", TotaalAantalLadesBewerkingCentrum))
+	Do Opties.Insert(..GeefOptieVoorToelevering("Variant", AlgemeneInfoOptieObjective.Variant))
 	
 	Quit Opties
 ]]></Implementation>
@@ -120,6 +123,26 @@
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="BepaalVariant">
+<FormalSpec><![CDATA[&ToeleveringProductInfoObjective:APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.AlgemeneInfoOptieObjective,BatchCategorie:APPS.Halux.common.enu.Categorie]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Variant As DOM.PM.Product = ""
+	Do ##class(Tools.Wlip).%New(110).String(BatchCategorie)
+	If (BatchCategorie = ##class(APPS.Halux.common.enu.Categorie).Legrabox()) {
+		Set Variant = "LBX"
+	} ElseIf (BatchCategorie = ##class(APPS.Halux.common.enu.Categorie).Merivobox()) {
+		Set Variant = "MVX"
+	} ElseIf (BatchCategorie = ##class(APPS.Halux.common.enu.Categorie).Tandembox()) {
+		Set Variant = "TBX"
+	} Else {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New("Batchcategorie '" _ BatchCategorie _"' is nog niet geïmplementeerd."))
+	}
+		
+	Set ToeleveringProductInfoObjective.Variant = Variant
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/AlgemeneInfoOptieObjective.cls.xml
===================================================================
diff -u -r71780 -r72957
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/AlgemeneInfoOptieObjective.cls.xml	(.../AlgemeneInfoOptieObjective.cls.xml)	(revision 71780)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/AlgemeneInfoOptieObjective.cls.xml	(.../AlgemeneInfoOptieObjective.cls.xml)	(revision 72957)
@@ -17,6 +17,10 @@
 <Type>%Integer</Type>
 <InitialExpression>0</InitialExpression>
 </Property>
+
+<Property name="Variant">
+<Type>%String</Type>
+</Property>
 </Class>
 
 
Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/BatchNaarObjectiveDataGenerator.cls.xml
===================================================================
diff -u -r71897 -r72957
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/BatchNaarObjectiveDataGenerator.cls.xml	(.../BatchNaarObjectiveDataGenerator.cls.xml)	(revision 71897)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/BatchNaarObjectiveDataGenerator.cls.xml	(.../BatchNaarObjectiveDataGenerator.cls.xml)	(revision 72957)
@@ -82,12 +82,12 @@
 </Method>
 
 <Method name="GenereerAlgemeneInfoOptiesVoorToelevering">
-<FormalSpec>Toelevering:DOM.AKP.Toelevering</FormalSpec>
+<FormalSpec>Toelevering:DOM.AKP.Toelevering,BatchCategorie:APPS.Halux.common.enu.Categorie</FormalSpec>
 <ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
 	Set Opties = ##class(%ListOfObjects).%New()
 	
-	Do ##class(TECH.ListUtils).AppendList(Opties, ..AlgemeneInfoOptiesGenerator.GenereerAlgemeneOptiesVoorToelevering(Toelevering))
+	Do ##class(TECH.ListUtils).AppendList(Opties, ..AlgemeneInfoOptiesGenerator.GenereerAlgemeneOptiesVoorToelevering(Toelevering, BatchCategorie))
 	Do ##class(TECH.ListUtils).AppendList(Opties, ..AantalRollenOptiesGenerator.GenerereerOptiesToelevering(Toelevering))
 	
 	Quit Opties
Index: vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/AlgemeneInfoOptiesGenerator/GenereerAlgemeneOptiesVoorToelevering/Test.cls.xml
===================================================================
diff -u -r71923 -r72957
--- vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/AlgemeneInfoOptiesGenerator/GenereerAlgemeneOptiesVoorToelevering/Test.cls.xml	(.../Test.cls.xml)	(revision 71923)
+++ vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/AlgemeneInfoOptiesGenerator/GenereerAlgemeneOptiesVoorToelevering/Test.cls.xml	(.../Test.cls.xml)	(revision 72957)
@@ -22,13 +22,14 @@
 	Do ProductApiMock.VerwachtMethodCall("GeefProduct", ..#ProductId2).DanReturn(ProductMock)
 	
 	Set Generator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.AlgemeneInfoOptiesGenerator).%New(ProductApiMock, IngegevenKenmerkenTypeAPIMock)
-	#dim Resultaat As %ListOfObjects = Generator.GenereerAlgemeneOptiesVoorToelevering(ToeleveringMock)
+	#dim Resultaat As %ListOfObjects = Generator.GenereerAlgemeneOptiesVoorToelevering(ToeleveringMock, ##class(APPS.Halux.common.enu.Categorie).Legrabox())
 	
-	Do $$$AssertEquals(Resultaat.Size, 4)
+	Do $$$AssertEquals(Resultaat.Size, 5)
 	Do ..AssertOptie(Resultaat.GetAt(1), "_TOELEVERING", "Aantalsifonlades", 0)
 	Do ..AssertOptie(Resultaat.GetAt(2), "_TOELEVERING", "Aantalspoelbaklades", 0)
 	Do ..AssertOptie(Resultaat.GetAt(3), "_TOELEVERING", "Aantalsmallelades", 0)
 	Do ..AssertOptie(Resultaat.GetAt(4), "_TOELEVERING", "AantalladenvoorBWC", 0)
+	Do ..AssertOptie(Resultaat.GetAt(5), "_TOELEVERING", "Variant", "LBX")
 	
 	Do ToeleveringMock.Verifieer()
 	Do ProductMock.Verifieer()
@@ -60,13 +61,14 @@
 	Do ProductApiMock.VerwachtMethodCall("GeefProduct", ..#ProductId3).DanReturn(ProductMock3)
 	
 	Set Generator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.AlgemeneInfoOptiesGenerator).%New(ProductApiMock, IngegevenKenmerkenTypeAPIMock)
-	#dim Resultaat As %ListOfObjects = Generator.GenereerAlgemeneOptiesVoorToelevering(ToeleveringMock)
+	#dim Resultaat As %ListOfObjects = Generator.GenereerAlgemeneOptiesVoorToelevering(ToeleveringMock, ##class(APPS.Halux.common.enu.Categorie).Merivobox())
 	
-	Do $$$AssertEquals(Resultaat.Size, 4)
+	Do $$$AssertEquals(Resultaat.Size, 5)
 	Do ..AssertOptie(Resultaat.GetAt(1), "_TOELEVERING", "Aantalsifonlades", 6)
 	Do ..AssertOptie(Resultaat.GetAt(2), "_TOELEVERING", "Aantalspoelbaklades", 0)
 	Do ..AssertOptie(Resultaat.GetAt(3), "_TOELEVERING", "Aantalsmallelades", 0)
 	Do ..AssertOptie(Resultaat.GetAt(4), "_TOELEVERING", "AantalladenvoorBWC", 6)
+	Do ..AssertOptie(Resultaat.GetAt(5), "_TOELEVERING", "Variant", "MVX")
 	
 	Do ToeleveringMock.Verifieer()
 	Do ProductMock1.Verifieer()
@@ -98,13 +100,14 @@
 	Do ProductApiMock.VerwachtMethodCall("GeefProduct", ..#ProductId3).DanReturn(ProductMockSmal)
 	
 	Set Generator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.AlgemeneInfoOptiesGenerator).%New(ProductApiMock)
-	#dim Resultaat As %ListOfObjects = Generator.GenereerAlgemeneOptiesVoorToelevering(ToeleveringMock)
+	#dim Resultaat As %ListOfObjects = Generator.GenereerAlgemeneOptiesVoorToelevering(ToeleveringMock, ##class(APPS.Halux.common.enu.Categorie).Tandembox())
 	
-	Do $$$AssertEquals(Resultaat.Size, 4)
+	Do $$$AssertEquals(Resultaat.Size, 5)
 	Do ..AssertOptie(Resultaat.GetAt(1), "_TOELEVERING", "Aantalsifonlades", 1)
 	Do ..AssertOptie(Resultaat.GetAt(2), "_TOELEVERING", "Aantalspoelbaklades", 2)
 	Do ..AssertOptie(Resultaat.GetAt(3), "_TOELEVERING", "Aantalsmallelades", 3)
 	Do ..AssertOptie(Resultaat.GetAt(4), "_TOELEVERING", "AantalladenvoorBWC", 6)
+	Do ..AssertOptie(Resultaat.GetAt(5), "_TOELEVERING", "Variant", "TBX")
 	
 	Do ToeleveringMock.Verifieer()
 	Do ProductMockSifon.Verifieer()
@@ -113,6 +116,32 @@
 	Do ProductApiMock.Verifieer()
 ]]></Implementation>
 </Method>
+
+<Method name="Test: Verwacht exceptie bij ongekende batchcategorie">
+<Implementation><![CDATA[
+	#dim ProductToeleveringLijn1 As vhTest.Mock.DOM.AKP.ProductToeleveringLijn = ..GeefProductLijnStub(..#ProductId1, 1)
+	#dim ProductToeleveringLijn2 As vhTest.Mock.DOM.AKP.ProductToeleveringLijn = ..GeefProductLijnStub(..#ProductId2, 2)
+	#dim ToeleveringMock As vhTest.Mock.DOM.AKP.Toelevering = ..GeefToeleveringMock(ProductToeleveringLijn1, ProductToeleveringLijn2)
+	
+	#dim LbxLegeKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
+	#dim ProductMock As vhTest.Mock.DOM.PM.LBXProduct.LBXLade = ..GeefProductMock(LbxLegeKenmerken)
+	
+	Set IngegevenKenmerkenTypeAPIMock = ##class(vhTest.Mock.DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI).%New()
+	Do IngegevenKenmerkenTypeAPIMock.VerwachtMethodCall("IsSpoelbaklade", LbxLegeKenmerken).DanReturn($$$False)
+	Do IngegevenKenmerkenTypeAPIMock.VerwachtMethodCall("IsSifonlade", LbxLegeKenmerken).DanReturn($$$False)
+	Do IngegevenKenmerkenTypeAPIMock.VerwachtMethodCall("IsSmalleLade", LbxLegeKenmerken).DanReturn($$$False)
+	
+	Set ProductApiMock = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
+	Do ProductApiMock.VerwachtMethodCall("GeefProduct", ..#ProductId1).DanReturn(ProductMock)
+	Do ProductApiMock.VerwachtMethodCall("GeefProduct", ..#ProductId2).DanReturn(ProductMock)
+	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Batchcategorie '' is nog niet geïmplementeerd.")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.UnimplementedException).%ClassName(1), Substrings))
+	
+	Set Generator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.AlgemeneInfoOptiesGenerator).%New(ProductApiMock)
+	#dim Resultaat As %ListOfObjects = Generator.GenereerAlgemeneOptiesVoorToelevering(ToeleveringMock, "")
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/AlgemeneInfoOptiesGenerator/GenereerAlgemeneOptiesVoorBatch/Test.cls.xml
===================================================================
diff -u -r71919 -r72957
--- vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/AlgemeneInfoOptiesGenerator/GenereerAlgemeneOptiesVoorBatch/Test.cls.xml	(.../Test.cls.xml)	(revision 71919)
+++ vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/AlgemeneInfoOptiesGenerator/GenereerAlgemeneOptiesVoorBatch/Test.cls.xml	(.../Test.cls.xml)	(revision 72957)
@@ -14,6 +14,7 @@
 	
 	#dim BatchMock As vhTest.Mock.APPS.Halux.common.Batch = ##class(vhTest.Mock.APPS.Halux.common.Batch).%New()
 	Do BatchMock.VerwachtMethodCall("GeefToeleveringIterator").DanReturn(ToeleveringIterator)
+	Do BatchMock.VerwachtMethodCall("GeefCategorie").DanReturn(##class(APPS.Halux.common.enu.Categorie).Tandembox())
 	
 	#dim LbxLegeKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
 	#dim ProductMock As vhTest.Mock.DOM.PM.LBXProduct.LBXLade = ..GeefProductMock(LbxLegeKenmerken)
@@ -30,11 +31,12 @@
 	Set Generator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.AlgemeneInfoOptiesGenerator).%New(ProductApiMock, IngegevenKenmerkenTypeAPIMock)
 	#dim Resultaat As %ListOfObjects = Generator.GenereerAlgemeneOptiesVoorBatch(BatchMock)
 	
-	Do $$$AssertEquals(Resultaat.Size, 4)
+	Do $$$AssertEquals(Resultaat.Size, 5)
 	Do ..AssertOptie(Resultaat.GetAt(1), "_TOELEVERING", "Aantalsifonlades", 0)
 	Do ..AssertOptie(Resultaat.GetAt(2), "_TOELEVERING", "Aantalspoelbaklades", 0)
 	Do ..AssertOptie(Resultaat.GetAt(3), "_TOELEVERING", "Aantalsmallelades", 0)
 	Do ..AssertOptie(Resultaat.GetAt(4), "_TOELEVERING", "AantalladenvoorBWC", 0)
+	Do ..AssertOptie(Resultaat.GetAt(5), "_TOELEVERING", "Variant", "TBX")
 	
 	Do ToeleveringMock1.Verifieer()
 	Do ToeleveringMock2.Verifieer()
@@ -57,6 +59,7 @@
 	
 	#dim BatchMock As vhTest.Mock.APPS.Halux.common.Batch = ##class(vhTest.Mock.APPS.Halux.common.Batch).%New()
 	Do BatchMock.VerwachtMethodCall("GeefToeleveringIterator").DanReturn(ToeleveringIterator)
+	Do BatchMock.VerwachtMethodCall("GeefCategorie").DanReturn(##class(APPS.Halux.common.enu.Categorie).Tandembox())
 		
 	#dim LbxLegeKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
 	#dim ProductMock1 As vhTest.Mock.DOM.PM.LBXProduct.LBXLade = ..GeefProductMock(LbxLegeKenmerken)
@@ -76,11 +79,12 @@
 	Set Generator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.AlgemeneInfoOptiesGenerator).%New(ProductApiMock, IngegevenKenmerkenTypeAPIMock)
 	#dim Resultaat As %ListOfObjects = Generator.GenereerAlgemeneOptiesVoorBatch(BatchMock)
 	
-	Do $$$AssertEquals(Resultaat.Size, 4)
+	Do $$$AssertEquals(Resultaat.Size, 5)
 	Do ..AssertOptie(Resultaat.GetAt(1), "_TOELEVERING", "Aantalsifonlades", 6 * 2)
 	Do ..AssertOptie(Resultaat.GetAt(2), "_TOELEVERING", "Aantalspoelbaklades", 0)
 	Do ..AssertOptie(Resultaat.GetAt(3), "_TOELEVERING", "Aantalsmallelades", 0)
 	Do ..AssertOptie(Resultaat.GetAt(4), "_TOELEVERING", "AantalladenvoorBWC", 6 * 2)
+	Do ..AssertOptie(Resultaat.GetAt(5), "_TOELEVERING", "Variant", "TBX")
 	
 	Do ToeleveringMock1.Verifieer()
 	Do ToeleveringMock2.Verifieer()
@@ -95,7 +99,6 @@
 
 <Method name="Test: Meerdere sifonlades, spoelbaklades en smalle lades aanwezig -&gt; Opties geven aan hoeveel er zijn">
 <Implementation><![CDATA[
-	
 	#dim ProductToeleveringLijn1 As vhTest.Mock.DOM.AKP.ProductToeleveringLijn = ..GeefProductLijnStub(..#ProductId1, 1)
 	#dim ProductToeleveringLijn2 As vhTest.Mock.DOM.AKP.ProductToeleveringLijn = ..GeefProductLijnStub(..#ProductId2, 2)
 	#dim ProductToeleveringLijn3 As vhTest.Mock.DOM.AKP.ProductToeleveringLijn = ..GeefProductLijnStub(..#ProductId3, 3)
@@ -105,6 +108,7 @@
 	
 	#dim BatchMock As vhTest.Mock.APPS.Halux.common.Batch = ##class(vhTest.Mock.APPS.Halux.common.Batch).%New()
 	Do BatchMock.VerwachtMethodCall("GeefToeleveringIterator").DanReturn(ToeleveringIterator)
+	Do BatchMock.VerwachtMethodCall("GeefCategorie").DanReturn(##class(APPS.Halux.common.enu.Categorie).Tandembox())
 	
 	#dim LbxSifonLadeKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).StandaardSifonLade()
 	#dim LbxSpoelbakLadeKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).StandaardSpoelbakLade()
@@ -122,11 +126,12 @@
 	Set Generator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.AlgemeneInfoOptiesGenerator).%New(ProductApiMock)
 	#dim Resultaat As %ListOfObjects = Generator.GenereerAlgemeneOptiesVoorBatch(BatchMock)
 	
-	Do $$$AssertEquals(Resultaat.Size, 4)
+	Do $$$AssertEquals(Resultaat.Size, 5)
 	Do ..AssertOptie(Resultaat.GetAt(1), "_TOELEVERING", "Aantalsifonlades", 1 * 2)
 	Do ..AssertOptie(Resultaat.GetAt(2), "_TOELEVERING", "Aantalspoelbaklades", 2 * 2)
 	Do ..AssertOptie(Resultaat.GetAt(3), "_TOELEVERING", "Aantalsmallelades", 3 * 2)
 	Do ..AssertOptie(Resultaat.GetAt(4), "_TOELEVERING", "AantalladenvoorBWC", ((1 * 2) + (2 * 2) + (3 * 2)))
+	Do ..AssertOptie(Resultaat.GetAt(5), "_TOELEVERING", "Variant", "TBX")
 	
 	Do ToeleveringMock1.Verifieer()
 	Do ToeleveringMock2.Verifieer()
@@ -137,6 +142,39 @@
 	Do ProductApiMock.Verifieer()
 ]]></Implementation>
 </Method>
+
+<Method name="Test: Verwacht exceptie bij ongekende batchcategorie">
+<Implementation><![CDATA[
+	#dim ProductToeleveringLijn1 As vhTest.Mock.DOM.AKP.ProductToeleveringLijn = ..GeefProductLijnStub(..#ProductId1, 1)
+	#dim ProductToeleveringLijn2 As vhTest.Mock.DOM.AKP.ProductToeleveringLijn = ..GeefProductLijnStub(..#ProductId2, 2)
+	
+	#dim ToeleveringMock1 As vhTest.Mock.DOM.AKP.Toelevering = ..GeefToeleveringMock(ProductToeleveringLijn1, ProductToeleveringLijn2)
+	#dim ToeleveringMock2 As vhTest.Mock.DOM.AKP.Toelevering = ..GeefToeleveringMock(ProductToeleveringLijn1, ProductToeleveringLijn2)
+	#dim ToeleveringIterator As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(ToeleveringMock1, ToeleveringMock2)
+	
+	#dim BatchMock As vhTest.Mock.APPS.Halux.common.Batch = ##class(vhTest.Mock.APPS.Halux.common.Batch).%New()
+	Do BatchMock.VerwachtMethodCall("GeefToeleveringIterator").DanReturn(ToeleveringIterator)
+	Do BatchMock.VerwachtMethodCall("GeefCategorie").DanReturn("")
+	
+	#dim LbxLegeKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
+	#dim ProductMock As vhTest.Mock.DOM.PM.LBXProduct.LBXLade = ..GeefProductMock(LbxLegeKenmerken)
+	
+	Set IngegevenKenmerkenTypeAPIMock = ##class(vhTest.Mock.DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI).%New()
+	Do IngegevenKenmerkenTypeAPIMock.VerwachtMethodCall("IsSpoelbaklade", LbxLegeKenmerken).DanReturn($$$False)
+	Do IngegevenKenmerkenTypeAPIMock.VerwachtMethodCall("IsSifonlade", LbxLegeKenmerken).DanReturn($$$False)
+	Do IngegevenKenmerkenTypeAPIMock.VerwachtMethodCall("IsSmalleLade", LbxLegeKenmerken).DanReturn($$$False)
+	
+	Set ProductApiMock = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
+	Do ProductApiMock.VerwachtMethodCall("GeefProduct", ..#ProductId1).DanReturn(ProductMock)
+	Do ProductApiMock.VerwachtMethodCall("GeefProduct", ..#ProductId2).DanReturn(ProductMock)
+	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Batchcategorie '' is nog niet geïmplementeerd.")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.UnimplementedException).%ClassName(1), Substrings))
+	
+	Set Generator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.AlgemeneInfoOptiesGenerator).%New(ProductApiMock)
+	#dim Resultaat As %ListOfObjects = Generator.GenereerAlgemeneOptiesVoorBatch(BatchMock)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective.cls.xml
===================================================================
diff -u -r72113 -r72957
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective.cls.xml	(.../BatchNaarObjective.cls.xml)	(revision 72113)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective.cls.xml	(.../BatchNaarObjective.cls.xml)	(revision 72957)
@@ -139,7 +139,7 @@
 		
 		If (..IsAantalLadesToegestaan(Toelevering.GeefAantalProducten(), Batch.GeefID(), ##class(TECH.ListUtils).IteratorToList(UitvoeringInfoLijstIterator), ToeleveringId)) {
 			#dim BatchData As APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveData = ..BatchNaarObjectiveDataGenerator.GenereerDataVoorToelevering(Batch, Toelevering, IndexToelevering)
-			Do ##class(TECH.ListUtils).AppendList(BatchData.Opties, ..BatchNaarObjectiveDataGenerator.GenereerAlgemeneInfoOptiesVoorToelevering(Toelevering))
+			Do ##class(TECH.ListUtils).AppendList(BatchData.Opties, ..BatchNaarObjectiveDataGenerator.GenereerAlgemeneInfoOptiesVoorToelevering(Toelevering, Batch.GeefCategorie()))
 			Do ##class(TECH.ListUtils).AppendList(BatchData.Opties, ..GeefOptiesVoorToelevering(Toelevering, UitvoeringInfoLijstIterator))
 			
 			Do BatchDataLijst.Insert(BatchData)