Index: DOM/PM/Maatwerk/Lade/impl/ExtremaBreedteBepaler/Maximum.cls.xml
===================================================================
diff -u -r32258 -r38434
--- DOM/PM/Maatwerk/Lade/impl/ExtremaBreedteBepaler/Maximum.cls.xml	(.../Maximum.cls.xml)	(revision 32258)
+++ DOM/PM/Maatwerk/Lade/impl/ExtremaBreedteBepaler/Maximum.cls.xml	(.../Maximum.cls.xml)	(revision 38434)
@@ -35,6 +35,7 @@
 	
 	Do ..IndienOk($$$KeyValuePair(Enum.KenmerkNaam.HeeftZijstabilisering, $$$True)).BeperkBreedteTot(1433)
 	Do ..IndienOk($$$KeyValuePair(Enum.KenmerkNaam.VerpakkingType, Enum.VerpakkingType.FlatpackV1)).BeperkBreedteTot($$$MaximumBreedteFlatpack)
+	Do ..IndienOk($$$KeyValuePair(Enum.KenmerkNaam.VerpakkingType, Enum.VerpakkingType.FlatpackProcom)).BeperkBreedteTot($$$MaximumBreedteFlatpack)
 	Do ..IndienOk($$$KeyValuePair(Enum.KenmerkNaam.GeleiderTechnologie, Enum.GeleiderTechnologie.TIPONBLUMOTION)).BeperkBreedteTot(1368)
 ]]></Implementation>
 </Method>
Index: vhUnitTest/DOM/PM/Maatwerk/Lade/impl/ExtremaBreedteBepaler/Maximum/TAX/TestVerwerkTaorKenmerken.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/Maatwerk/Lade/impl/ExtremaBreedteBepaler/Maximum/TAX/TestVerwerkTaorKenmerken.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/Maatwerk/Lade/impl/ExtremaBreedteBepaler/Maximum/TAX/TestVerwerkTaorKenmerken.cls.xml	(revision 38434)
@@ -0,0 +1,100 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.PM.Maatwerk.Lade.impl.ExtremaBreedteBepaler.Maximum.TAX.TestVerwerkTaorKenmerken">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: maximumbreedte voor FlatpackProcom is 1168 mm">
+<Implementation><![CDATA[
+	
+	#dim TaorKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade()
+	Set TaorKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).FlatpackProcom()
+	
+	#dim ExtremaBreedteBepaler As DOM.PM.Maatwerk.Lade.impl.ExtremaBreedteBepaler.Maximum = ##class(DOM.PM.Maatwerk.Lade.impl.ExtremaBreedteBepaler.Maximum).%New()
+	Do $$$AssertEquals(ExtremaBreedteBepaler.GeefBreedte(TaorKenmerken), 1168)
+]]></Implementation>
+</Method>
+
+<Method name="Test: maximumbreedte voor FlatpackProcom met zijstabilisering is 1168 mm">
+<Implementation><![CDATA[
+	
+	#dim TaorKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade()
+	Set TaorKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).FlatpackProcom()
+	Set TaorKenmerken.HeeftZijstabilisering = $$$True
+	
+	#dim ExtremaBreedteBepaler As DOM.PM.Maatwerk.Lade.impl.ExtremaBreedteBepaler.Maximum = ##class(DOM.PM.Maatwerk.Lade.impl.ExtremaBreedteBepaler.Maximum).%New()
+	Do $$$AssertEquals(ExtremaBreedteBepaler.GeefBreedte(TaorKenmerken), 1168)
+]]></Implementation>
+</Method>
+
+<Method name="Test: maximumbreedte voor FlatpackProcom met TIPONBLUMOTION is 1168 mm">
+<Implementation><![CDATA[
+	
+	#dim TaorKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade()
+	Set TaorKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).FlatpackProcom()
+	Set TaorKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.TAORGeleiderTechnologie).TIPONBLUMOTION()
+	
+	#dim ExtremaBreedteBepaler As DOM.PM.Maatwerk.Lade.impl.ExtremaBreedteBepaler.Maximum = ##class(DOM.PM.Maatwerk.Lade.impl.ExtremaBreedteBepaler.Maximum).%New()
+	Do $$$AssertEquals(ExtremaBreedteBepaler.GeefBreedte(TaorKenmerken), 1168)
+]]></Implementation>
+</Method>
+
+<Method name="Test: maximumbreedte voor FlatpackV1 is 1168 mm">
+<Implementation><![CDATA[
+	
+	#dim TaorKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade()
+	Set TaorKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).FlatpackV1()
+	
+	#dim ExtremaBreedteBepaler As DOM.PM.Maatwerk.Lade.impl.ExtremaBreedteBepaler.Maximum = ##class(DOM.PM.Maatwerk.Lade.impl.ExtremaBreedteBepaler.Maximum).%New()
+	Do $$$AssertEquals(ExtremaBreedteBepaler.GeefBreedte(TaorKenmerken), 1168)
+]]></Implementation>
+</Method>
+
+<Method name="Test: maximumbreedte voor Probox is 1468 mm">
+<Implementation><![CDATA[
+	
+	#dim TaorKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade()
+	Set TaorKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).Probox()
+	
+	#dim ExtremaBreedteBepaler As DOM.PM.Maatwerk.Lade.impl.ExtremaBreedteBepaler.Maximum = ##class(DOM.PM.Maatwerk.Lade.impl.ExtremaBreedteBepaler.Maximum).%New()
+	Do $$$AssertEquals(ExtremaBreedteBepaler.GeefBreedte(TaorKenmerken), 1468)
+]]></Implementation>
+</Method>
+
+<Method name="Test: maximumbreedte voor V1 is 1468 mm">
+<Implementation><![CDATA[
+	
+	#dim TaorKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade()
+	Set TaorKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).V1()
+	
+	#dim ExtremaBreedteBepaler As DOM.PM.Maatwerk.Lade.impl.ExtremaBreedteBepaler.Maximum = ##class(DOM.PM.Maatwerk.Lade.impl.ExtremaBreedteBepaler.Maximum).%New()
+	Do $$$AssertEquals(ExtremaBreedteBepaler.GeefBreedte(TaorKenmerken), 1468)
+]]></Implementation>
+</Method>
+
+<Method name="Test: maximumbreedte voor lade met zijstabilisering is 1468 mm">
+<Implementation><![CDATA[
+	
+	#dim TaorKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade()
+	Set TaorKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).V1()
+	Set TaorKenmerken.HeeftZijstabilisering = $$$True
+	
+	#dim ExtremaBreedteBepaler As DOM.PM.Maatwerk.Lade.impl.ExtremaBreedteBepaler.Maximum = ##class(DOM.PM.Maatwerk.Lade.impl.ExtremaBreedteBepaler.Maximum).%New()
+	Do $$$AssertEquals(ExtremaBreedteBepaler.GeefBreedte(TaorKenmerken), 1433)
+]]></Implementation>
+</Method>
+
+<Method name="Test: maximumbreedte voor lade met TIPONBLUMOTION is 1368 mm">
+<Implementation><![CDATA[
+	
+	#dim TaorKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade()
+	Set TaorKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).V1()
+	Set TaorKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.TAORGeleiderTechnologie).TIPONBLUMOTION()
+	
+	#dim ExtremaBreedteBepaler As DOM.PM.Maatwerk.Lade.impl.ExtremaBreedteBepaler.Maximum = ##class(DOM.PM.Maatwerk.Lade.impl.ExtremaBreedteBepaler.Maximum).%New()
+	Do $$$AssertEquals(ExtremaBreedteBepaler.GeefBreedte(TaorKenmerken), 1368)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>