Index: APPS/EC/Winkelkar/impl/TIPONUitfaseringControleurWinkelkarVisitor.cls.xml
===================================================================
diff -u
--- APPS/EC/Winkelkar/impl/TIPONUitfaseringControleurWinkelkarVisitor.cls.xml	(revision 0)
+++ APPS/EC/Winkelkar/impl/TIPONUitfaseringControleurWinkelkarVisitor.cls.xml	(revision 40447)
@@ -0,0 +1,49 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EC.Winkelkar.impl.TIPONUitfaseringControleurWinkelkarVisitor">
+<Super>DOM.EC.Winkelkar.WinkelkarVisitor</Super>
+
+<Property name="TIPONUitfaseringVisitor">
+<Type>APPS.PM.Maatwerk.impl.IngegevenKenmerkTIPONUitfaseringVisitor</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="HeeftTIPONUitfasering">
+<Type>%Boolean</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..HeeftTIPONUitfasering = $$$False
+	Set ..TIPONUitfaseringVisitor = ##class(APPS.PM.Maatwerk.impl.IngegevenKenmerkTIPONUitfaseringVisitor).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkMaatwerkLijn">
+<FormalSpec>MaatwerkLijn:DOM.EC.Winkelkar.MaatwerkLijn</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	#dim IK As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = MaatwerkLijn.GeefIngegevenKenmerken()
+	Do IK.Accept(..TIPONUitfaseringVisitor)
+	If (..TIPONUitfaseringVisitor.HeeftTIPONUitfasering()) {
+		Set ..HeeftTIPONUitfasering = $$$True
+	}
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="HeeftTIPONUitfasering">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..HeeftTIPONUitfasering
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/ControleerWinkelkar/LBX/TestTIPONUitfasering.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/ControleerWinkelkar/LBX/TestTIPONUitfasering.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/ControleerWinkelkar/LBX/TestTIPONUitfasering.cls.xml	(revision 40447)
@@ -0,0 +1,97 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EC.Winkelkar.WinkelkarControleur.ControleerWinkelkar.LBX.TestTIPONUitfasering">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="WinkelkarControleur">
+<Type>APPS.EC.Winkelkar.impl.WinkelkarControleur</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+
+	Set ..WinkelkarControleur = ##class(APPS.EC.Winkelkar.impl.WinkelkarControleur).%New(##class(APPS.OV.impl.KlantInstellingenServiceVanHoecke).%New())
+]]></Implementation>
+</Method>
+
+<Method name="Test: Legrabox met BLUMOTION - geen exceptie verwacht">
+<Implementation><![CDATA[
+	#dim StandaardLade As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).StandaardLade()
+	Do ..ControleerWinkelkar(##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte500(), ##class(DOM.PM.enu.LBXGeleiderTechnologie).BLUMOTION())
+]]></Implementation>
+</Method>
+
+<Method name="Test: Legrabox met TIPONBLUMOTION - geen exceptie verwacht">
+<Implementation><![CDATA[
+	#dim StandaardLade As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).StandaardLade()
+	Do ..ControleerWinkelkar(##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte500(), ##class(DOM.PM.enu.LBXGeleiderTechnologie).TIPONBLUMOTION())
+]]></Implementation>
+</Method>
+
+<Method name="Test: Legrabox met TIPON en Ladediepte 300 - geen exceptie verwacht">
+<Implementation><![CDATA[
+	#dim StandaardLade As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).StandaardLade()
+	Do ..ControleerWinkelkar(##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte300(), ##class(DOM.PM.enu.LBXGeleiderTechnologie).TIPON())
+]]></Implementation>
+</Method>
+
+<Method name="Test: Legrabox met TIPON en Ladediepte 350 - exceptie verwacht">
+<Implementation><![CDATA[
+	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Melding")
+	
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidUserInputException", Substrings))
+
+	#dim StandaardLade As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).StandaardLade()
+	Do ..ControleerWinkelkar(##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte350(), ##class(DOM.PM.enu.LBXGeleiderTechnologie).TIPON())
+]]></Implementation>
+</Method>
+
+<Method name="Test: Legrabox met TIPON en Ladediepte 500 - exceptie verwacht">
+<Implementation><![CDATA[
+	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Melding")
+	
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidUserInputException", Substrings))
+	
+	#dim StandaardLade As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).StandaardLade()
+	Do ..ControleerWinkelkar(##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte500(), ##class(DOM.PM.enu.LBXGeleiderTechnologie).TIPON())
+]]></Implementation>
+</Method>
+
+<Method name="Test: Legrabox met TIPON en Ladediepte 650 - exceptie verwacht">
+<Implementation><![CDATA[
+	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Melding")
+	
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidUserInputException", Substrings))
+	
+	#dim StandaardLade As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).StandaardLade()
+	Do ..ControleerWinkelkar(##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte650(), ##class(DOM.PM.enu.LBXGeleiderTechnologie).TIPON())
+]]></Implementation>
+</Method>
+
+<Method name="ControleerWinkelkar">
+<FormalSpec>LadeDiepte:DOM.PM.enu.LBXLadeDiepte,GeleiderTechnologie:DOM.PM.enu.LBXGeleiderTechnologie</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim StandaardLade As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).StandaardLade()
+	Set StandaardLade.LadeDiepte = LadeDiepte
+	Set StandaardLade.GeleiderTechnologie = GeleiderTechnologie
+	
+	#dim MaatwerkLijn As DOM.EC.Winkelkar.MaatwerkLijn = ##class(DOM.EC.Winkelkar.MaatwerkLijn).%New()
+	#dim Winkelkar As DOM.EC.Winkelkar.InterneWinkelkar = ##class(DOM.EC.Winkelkar.InterneWinkelkar).%New("UnitTest")
+	
+	Do MaatwerkLijn.ZetIngegevenKenmerken(StandaardLade)
+
+	Do Winkelkar.ZetPersonalityID(##class(DOM.common.enu.Personality).VanHoecke())
+	Do Winkelkar.ZetKlantID(##class(DOM.VKP.enu.Klant).VanHoecke())
+	Do Winkelkar.VoegToe(MaatwerkLijn)
+	
+	Do ..WinkelkarControleur.ControleerWinkelkar(Winkelkar)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/EC/Winkelkar/impl/WinkelkarControleur.cls.xml
===================================================================
diff -u -r40445 -r40447
--- APPS/EC/Winkelkar/impl/WinkelkarControleur.cls.xml	(.../WinkelkarControleur.cls.xml)	(revision 40445)
+++ APPS/EC/Winkelkar/impl/WinkelkarControleur.cls.xml	(.../WinkelkarControleur.cls.xml)	(revision 40447)
@@ -57,6 +57,10 @@
 	While VerpakkingIterator.HasNext() {
 		Do ..ControleerInputVoorVerpakking(VerpakkingIterator.Next(), WinkelkarNietBesteld)
 	}
+	
+	Set TIPONUitfaseringControleur = ##class(APPS.EC.Winkelkar.impl.TIPONUitfaseringControleurWinkelkarVisitor).%New()
+	Do ..Winkelkar.Accept(TIPONUitfaseringControleur)
+	Do ..ControleerInput($$$Not(TIPONUitfaseringControleur.HeeftTIPONUitfasering()), "Melding")
 ]]></Implementation>
 </Method>
 
Index: APPS/PM/Maatwerk/impl/IngegevenKenmerkTIPONUitfaseringVisitor.cls.xml
===================================================================
diff -u
--- APPS/PM/Maatwerk/impl/IngegevenKenmerkTIPONUitfaseringVisitor.cls.xml	(revision 0)
+++ APPS/PM/Maatwerk/impl/IngegevenKenmerkTIPONUitfaseringVisitor.cls.xml	(revision 40447)
@@ -0,0 +1,42 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.PM.Maatwerk.impl.IngegevenKenmerkTIPONUitfaseringVisitor">
+<Super>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerkenVisitor</Super>
+
+<Property name="HeeftTIPONUitfasering">
+<Type>%Boolean</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>initvalue:%CacheString</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..HeeftTIPONUitfasering = $$$False
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkLBXKenmerken">
+<FormalSpec>LBXKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	If ((LBXKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.LBXGeleiderTechnologie).TIPON()) && ##class(TECH.StringUtils).Equals(LBXKenmerken.LadeDiepte,350,500,650)) {
+		Set ..HeeftTIPONUitfasering = $$$True
+	}
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="HeeftTIPONUitfasering">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..HeeftTIPONUitfasering
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>