Index: vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/Nederlands/TestTaorboxEnLegraboxZelfdeVerpakking.cls.xml
===================================================================
diff -u -r41770 -r55535
--- vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/Nederlands/TestTaorboxEnLegraboxZelfdeVerpakking.cls.xml	(.../TestTaorboxEnLegraboxZelfdeVerpakking.cls.xml)	(revision 41770)
+++ vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/Nederlands/TestTaorboxEnLegraboxZelfdeVerpakking.cls.xml	(.../TestTaorboxEnLegraboxZelfdeVerpakking.cls.xml)	(revision 55535)
@@ -103,6 +103,80 @@
 	Quit 1
 ]]></Implementation>
 </Method>
+
+<Method name="Test: Controleer Winkelkar Sfs-klant met LBX en TBX">
+<Implementation><![CDATA[
+	#dim KlantInstellingenService = ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefKlantInstellingenService(##class(DOM.common.SFSPersonality).Instance())
+	Set ..WinkelkarControleur = ##class(APPS.EC.Winkelkar.impl.WinkelkarControleur).%New(KlantInstellingenService)
+	
+	#dim Winkelkar As DOM.EC.Winkelkar.InterneWinkelkar = ..GeefWinkelkarVoorSfsKlant()
+	Do ..VoegToeLegraboxLadenInWinkelkar(Winkelkar,##class(DOM.PM.enu.LBXVerpakkingType).Probox(),4)
+ ;	Do ..VoegToeTandemboxLadenInWinkelkar(Winkelkar,##class(DOM.PM.enu.TBXVerpakking).ProboxMetOnderdelen(),4)
+	Do ..VoegToeTandemboxLadenInWinkelkar(Winkelkar,##class(DOM.PM.enu.TBXVerpakking).StukMetOnderdelen(),1)
+	Do ..WinkelkarControleur.ControleerWinkelkar(Winkelkar)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Controleer Winkelkar van Sfs met LBX en TBX">
+<Implementation><![CDATA[
+	#dim KlantInstellingenService = ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefKlantInstellingenService(##class(DOM.common.VanHoeckePersonality).Instance())
+	Set ..WinkelkarControleur = ##class(APPS.EC.Winkelkar.impl.WinkelkarControleur).%New(KlantInstellingenService)
+	
+	#dim Winkelkar As DOM.EC.Winkelkar.InterneWinkelkar = ..GeefWinkelkarVoorSfs()
+	Do ..VoegToeLegraboxLadenInWinkelkar(Winkelkar,##class(DOM.PM.enu.LBXVerpakkingType).Probox(),4)
+ ;	Do ..VoegToeTandemboxLadenInWinkelkar(Winkelkar,##class(DOM.PM.enu.TBXVerpakking).ProboxMetOnderdelen(),4)
+	Do ..VoegToeTandemboxLadenInWinkelkar(Winkelkar,##class(DOM.PM.enu.TBXVerpakking).StukMetOnderdelen(),1)
+	Do ..WinkelkarControleur.ControleerWinkelkar(Winkelkar)
+]]></Implementation>
+</Method>
+
+<Method name="GeefWinkelkarVoorSfsKlant">
+<Private>1</Private>
+<ReturnType>DOM.EC.Winkelkar.InterneWinkelkar</ReturnType>
+<Implementation><![CDATA[
+	Set Winkelkar = ##class(DOM.EC.Winkelkar.ExterneWinkelkar).%New("UnitTest")	
+	Do Winkelkar.ZetKlantID("sfs_97066")
+	Do Winkelkar.ZetPersonalityID(##class(DOM.common.enu.Personality).SFS())
+	Quit Winkelkar
+]]></Implementation>
+</Method>
+
+<Method name="GeefWinkelkarVoorSfs">
+<Private>1</Private>
+<ReturnType>DOM.EC.Winkelkar.InterneWinkelkar</ReturnType>
+<Implementation><![CDATA[
+	Set Winkelkar = ##class(DOM.EC.Winkelkar.ExterneWinkelkar).%New("UnitTest")	
+	Do Winkelkar.ZetKlantID("K||12486")
+	Do Winkelkar.ZetPersonalityID(##class(DOM.common.enu.Personality).VanHoecke())
+	Quit Winkelkar
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeTandemboxLadenInWinkelkar">
+<FormalSpec>Winkelkar:DOM.EC.Winkelkar.InterneWinkelkar,VerpakkingType:DOM.PM.enu.TBXVerpakkingType,Aantal:%Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim MaatwerkLijn As DOM.EC.Winkelkar.MaatwerkLijn = ##class(DOM.EC.Winkelkar.MaatwerkLijn).%New()
+	
+	Do MaatwerkLijn.ZetIngegevenKenmerken(..GeefTBXKenmerken(VerpakkingType))
+	Do MaatwerkLijn.ZetAantal(Aantal)
+	
+	Do Winkelkar.VoegToe(MaatwerkLijn)
+]]></Implementation>
+</Method>
+
+<Method name="GeefTBXKenmerken">
+<FormalSpec>VerpakkingType:DOM.PM.enu.TBXVerpakkingType</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim TBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).LegeKenmerken()
+	
+	Set TBXKenmerken.VerpakkingType = VerpakkingType
+	
+	Quit TBXKenmerken
+]]></Implementation>
+</Method>
 </Class>