Index: APPS/Halux/Planning/impl/TAXProductieLijnBepaler.cls.xml
===================================================================
diff -u
--- APPS/Halux/Planning/impl/TAXProductieLijnBepaler.cls.xml	(revision 0)
+++ APPS/Halux/Planning/impl/TAXProductieLijnBepaler.cls.xml	(revision 30417)
@@ -0,0 +1,76 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Planning.impl.TAXProductieLijnBepaler">
+<Super>TECH.RegisteredObject,DOM.PM.enu.TAORVerpakkingType.Verwerker</Super>
+
+<Property name="ProductVerpakkingBepaler">
+<Type>DOM.PM.impl.VerpakkingBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductieLijn">
+<Type>APPS.Halux.common.enu.ProductieLijn</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>ProductVerpakkingBepaler:DOM.PM.impl.VerpakkingBepaler=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..ProductVerpakkingBepaler = $$$Implementation(ProductVerpakkingBepaler,##class(DOM.PM.impl.VerpakkingBepaler).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Bepaal">
+<FormalSpec>Toelevering:DOM.AKP.Toelevering</FormalSpec>
+<ReturnType>APPS.Halux.common.enu.ProductieLijn</ReturnType>
+<Implementation><![CDATA[
+	Set ..ProductieLijn = ""
+	#dim ProductLijnIterator As TECH.Iterator = Toelevering.GeefTypeToeleveringLijnIterator(##class(DOM.AKP.enu.ToeleveringLijnType).Product())
+	If (ProductLijnIterator.HasNext()) {
+		#dim ProductToeleveringLijn As DOM.AKP.ProductToeleveringLijn = ProductLijnIterator.Next()
+		#dim Verpakking As DOM.PM.enu.TAORVerpakkingType = ..ProductVerpakkingBepaler.GeefVerpakking(ProductToeleveringLijn.GeefProductID())
+		Do ..Verwerk(Verpakking)
+	}
+	Quit ..ProductieLijn
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkBulkPerOnderdeelGegroepeerd">
+<Private>1</Private>
+<Implementation><![CDATA[	Set ..ProductieLijn = ##class(APPS.Halux.common.enu.ProductieLijn).Drie()
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkFlatpackV1">
+<Private>1</Private>
+<Implementation><![CDATA[	Set ..ProductieLijn = ##class(APPS.Halux.common.enu.ProductieLijn).Twee()
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkLosseComponentenInBulk">
+<Private>1</Private>
+<Implementation><![CDATA[	Set ..ProductieLijn = ##class(APPS.Halux.common.enu.ProductieLijn).Drie()
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkProbox">
+<Private>1</Private>
+<Implementation><![CDATA[	Set ..ProductieLijn = ##class(APPS.Halux.common.enu.ProductieLijn).Een()
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkV1">
+<Private>1</Private>
+<Implementation><![CDATA[	Set ..ProductieLijn = ##class(APPS.Halux.common.enu.ProductieLijn).Een()
+]]></Implementation>
+</Method>
+</Class>
+
+
+<Package name="APPS.Halux.Planning.impl" sqlname="APPS_Halux_Planning_impl"/>
+</Export>
Index: vhTest/Fake/DOM/PM/impl/VerpakkingBepaler.cls.xml
===================================================================
diff -u -r30416 -r30417
--- vhTest/Fake/DOM/PM/impl/VerpakkingBepaler.cls.xml	(.../VerpakkingBepaler.cls.xml)	(revision 30416)
+++ vhTest/Fake/DOM/PM/impl/VerpakkingBepaler.cls.xml	(.../VerpakkingBepaler.cls.xml)	(revision 30417)
@@ -7,10 +7,22 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>DOM.PM.impl.VerpakkingBepaler</Super>
 
+<Method name="%OnNew">
+<FormalSpec>Verpakking:TECH.String</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..Verpakking = Verpakking
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="GeefVerpakking">
 <FormalSpec>ProductID:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit ""
+<Implementation><![CDATA[	Quit ..Verpakking
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/APPS/Halux/Planning/impl/TAXProductieLijnBepaler/Bepaal/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/Planning/impl/TAXProductieLijnBepaler/Bepaal/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/Planning/impl/TAXProductieLijnBepaler/Bepaal/Test.cls.xml	(revision 30417)
@@ -0,0 +1,75 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.Planning.impl.TAXProductieLijnBepaler.Bepaal.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="ProductID">
+<Type>%String</Type>
+<Default>123456</Default>
+</Parameter>
+
+<Property name="VerpakkingBepaler">
+<Type>DOM.PM.impl.VerpakkingBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Verpakking">
+<Type>DOM.PM.enu.TAORVerpakkingType.AutoComplete</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="Test V1 -&gt; ProductieLijn 1">
+<Implementation><![CDATA[	Do ..AssertProductieLijn(..GeefToelevering(..Verpakking.V1), ##class(APPS.Halux.common.enu.ProductieLijn).Een())
+]]></Implementation>
+</Method>
+
+<Method name="Test Probox -&gt; ProductieLijn 1">
+<Implementation><![CDATA[	Do ..AssertProductieLijn(..GeefToelevering(..Verpakking.Probox), ##class(APPS.Halux.common.enu.ProductieLijn).Een())
+]]></Implementation>
+</Method>
+
+<Method name="Test Flatpack V1 -&gt; ProductieLijn 2">
+<Implementation><![CDATA[	Do ..AssertProductieLijn(..GeefToelevering(..Verpakking.FlatpackV1), ##class(APPS.Halux.common.enu.ProductieLijn).Twee())
+]]></Implementation>
+</Method>
+
+<Method name="Test Bulk per onderdeel gegroepeerd -&gt; ProductieLijn 3">
+<Implementation><![CDATA[	Do ..AssertProductieLijn(..GeefToelevering(..Verpakking.BulkPerOnderdeelGegroepeerd), ##class(APPS.Halux.common.enu.ProductieLijn).Drie())
+]]></Implementation>
+</Method>
+
+<Method name="Test losse componenten in bulk -&gt; ProductieLijn 3">
+<Implementation><![CDATA[	Do ..AssertProductieLijn(..GeefToelevering(..Verpakking.LosseComponentenInBulk), ##class(APPS.Halux.common.enu.ProductieLijn).Drie())
+]]></Implementation>
+</Method>
+
+<Method name="GeefToelevering">
+<FormalSpec>Verpakking:DOM.PM.enu.TAORVerpakkingType</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.AKP.Toelevering</ReturnType>
+<Implementation><![CDATA[
+	Set Toelevering = ##class(vhTest.Mock.DOM.AKP.Toelevering).%New()
+		Set ProductToeleveringLijnen = ##class(%ListOfObjects).%New()
+			Set ProductToeleveringLijn = ##class(vhTest.Mock.DOM.AKP.ProductToeleveringLijn).%New()
+			Do ProductToeleveringLijn.IndienMethodCall("GeefProductID").DanReturn(..#ProductID)
+		Do ProductToeleveringLijnen.Insert(ProductToeleveringLijn)
+		#dim ProductToeleveringLijnIterator = ##class(TECH.ListIterator).%New(ProductToeleveringLijnen)
+	Do Toelevering.IndienMethodCall("GeefTypeToeleveringLijnIterator", ##class(DOM.AKP.enu.ToeleveringLijnType).Product()).DanReturn(ProductToeleveringLijnIterator)
+	
+	Set ..VerpakkingBepaler = ##class(vhTest.Fake.DOM.PM.impl.VerpakkingBepaler).%New(Verpakking)
+	Quit Toelevering
+]]></Implementation>
+</Method>
+
+<Method name="AssertProductieLijn">
+<FormalSpec>Toelevering:DOM.AKP.Toelevering,VerwachteLijn:APPS.Halux.common.enu.ProductieLijn</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set Bepaler = ##class(APPS.Halux.Planning.impl.TAXProductieLijnBepaler).%New(..VerpakkingBepaler)
+	Do $$$AssertEquals(Bepaler.Bepaal(Toelevering),VerwachteLijn)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>