Index: vhUnitTest/WS/EC/Unishop/InternationaleZending/impl/TransportFirmaBepalerFactory/GeefTransportFirmaBepaler/Test.cls.xml
===================================================================
diff -u -r37390 -r37392
--- vhUnitTest/WS/EC/Unishop/InternationaleZending/impl/TransportFirmaBepalerFactory/GeefTransportFirmaBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 37390)
+++ vhUnitTest/WS/EC/Unishop/InternationaleZending/impl/TransportFirmaBepalerFactory/GeefTransportFirmaBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 37392)
@@ -69,6 +69,74 @@
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="Test: geeft TransportFirmaBepaler geeft de juiste TransportFirmaBepaler voor de overeenkomstige klant">
+<Implementation><![CDATA[
+	#dim VerwachteBepaler As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	Do VerwachteBepaler.InsertAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.VKP.enu.Klant).Keller())
+	Do VerwachteBepaler.InsertAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.VKP.enu.Klant).VanHoecke())
+	Do VerwachteBepaler.InsertAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.VKP.enu.Klant).TestklantVanHoecke())
+	Do VerwachteBepaler.InsertAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.VKP.enu.Klant).Bruynzeel())
+	Do VerwachteBepaler.InsertAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.VKP.enu.Klant).HaefeleBelgie())
+	Do VerwachteBepaler.InsertAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.VKP.enu.Klant).HaefeleNederland())
+	Do VerwachteBepaler.InsertAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.VKP.enu.Klant).OptimaPack())
+	Do VerwachteBepaler.InsertAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.VKP.enu.Klant).NordInox())
+	Do VerwachteBepaler.InsertAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.VKP.enu.Klant).Halux())
+	Do VerwachteBepaler.InsertAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.VKP.enu.Klant).NewSobelwood())
+	Do VerwachteBepaler.InsertAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.VKP.enu.Klant).SFS())
+	Do VerwachteBepaler.InsertAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.VKP.enu.Klant).Tulp())
+	Do VerwachteBepaler.InsertAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.VKP.enu.Klant).DeceuninckDeforce())
+	Do VerwachteBepaler.InsertAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.VKP.enu.Klant).GroupNivelles())
+	Do VerwachteBepaler.InsertAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.VKP.enu.Klant).NevesBelgium())
+	Do VerwachteBepaler.InsertAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.VKP.enu.Klant).DMLine())
+	Do VerwachteBepaler.InsertAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.VKP.enu.Klant).KastID())
+	Do VerwachteBepaler.InsertAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.VKP.enu.Klant).FranssenProducts())
+	Do VerwachteBepaler.InsertAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.VKP.enu.Klant).FranssenTrading())
+	Do VerwachteBepaler.InsertAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.VKP.enu.Klant).MeubelBeslagHolland())
+	Do VerwachteBepaler.InsertAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.VKP.enu.Klant).DeDecker())
+	Do VerwachteBepaler.InsertAt(..HeinTransportFirmaBepalerClassName,##class(DOM.VKP.enu.Klant).Hein())
+	Do VerwachteBepaler.InsertAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.VKP.enu.Klant).VanRaemdonck())
+	Do VerwachteBepaler.InsertAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.VKP.enu.Klant).Noteborn())
+	Do VerwachteBepaler.InsertAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.VKP.enu.Klant).LijstPrijsKlant())
+	Do VerwachteBepaler.InsertAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.VKP.enu.Klant).RabatPrijsKlant())
+	Do VerwachteBepaler.InsertAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.VKP.enu.Klant).SpilPrijsKlant())
+	Do VerwachteBepaler.InsertAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.VKP.enu.Klant).ConsumentVoorVhisieKlant())
+	Do VerwachteBepaler.InsertAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.VKP.enu.Klant).HoutenLaden())
+	Do VerwachteBepaler.InsertAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.VKP.enu.Klant).Planofurn())
+	Do VerwachteBepaler.InsertAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.VKP.enu.Klant).Intracto())
+	Do VerwachteBepaler.InsertAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.VKP.enu.Klant).HeylenJos())
+	Do VerwachteBepaler.InsertAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.VKP.enu.Klant).DKGDeKeukenfabriek())
+	Do VerwachteBepaler.InsertAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.VKP.enu.Klant).VanLaer())
+	Do VerwachteBepaler.InsertAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.VKP.enu.Klant).WilsInterieurbouw())
+	Do VerwachteBepaler.InsertAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.VKP.enu.Klant).Jongen())
+	Do VerwachteBepaler.InsertAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.VKP.enu.Klant).VOLUX())
+	Do VerwachteBepaler.InsertAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.VKP.enu.Klant).DiboDesign())
+	Do VerwachteBepaler.InsertAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.VKP.enu.Klant).SegersInterieur())
+	Do VerwachteBepaler.InsertAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.VKP.enu.Klant).Uytterhoeven())
+	Do VerwachteBepaler.InsertAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.VKP.enu.Klant).ThononKitchencenter())
+	Do VerwachteBepaler.InsertAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.VKP.enu.Klant).DaroFactors())
+	Do VerwachteBepaler.InsertAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.VKP.enu.Klant).SeboKinteque())
+	Do VerwachteBepaler.InsertAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.VKP.enu.Klant).TheyssensKeukens())
+	Do VerwachteBepaler.InsertAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.VKP.enu.Klant).KvikNL())
+	Do VerwachteBepaler.InsertAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.VKP.enu.Klant).KvikBE())
+	Do VerwachteBepaler.InsertAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.VKP.enu.Klant).BlumPortugal())
+	Do VerwachteBepaler.InsertAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.VKP.enu.Klant).MiwaInterieurs())
+	Do VerwachteBepaler.InsertAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.VKP.enu.Klant).FransenMarius())
+	Do VerwachteBepaler.InsertAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.VKP.enu.Klant).Strakk())
+	Do VerwachteBepaler.InsertAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.VKP.enu.Klant).LenssenProduktie())
+	Do VerwachteBepaler.InsertAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.VKP.enu.Klant).MiBois())
+
+	#dim TransportFirmaBepalerFactory As WS.EC.Unishop.InternationaleZending.impl.TransportFirmaBepalerFactory
+	Set TransportFirmaBepalerFactory = ##class(WS.EC.Unishop.InternationaleZending.impl.TransportFirmaBepalerFactory).%New()
+
+	#dim KlantIterator As TECH.ListIterator = ##class(DOM.VKP.enu.Klant).ValueListIterator()
+	While KlantIterator.HasNext()
+	{
+		#dim KlantID As DOM.common.enu.Personality = KlantIterator.Next()
+		Do $$$AssertEquals(TransportFirmaBepalerFactory.GeefTransportFirmaBepaler("",KlantID).%ClassName(1), VerwachteBepaler.GetAt(KlantID))
+	}
+]]></Implementation>
+</Method>
 </Class>