Index: WSimpl/Unishop/BeschikbareLandenSort/Sort/Test.cls.xml
===================================================================
diff -u
--- WSimpl/Unishop/BeschikbareLandenSort/Sort/Test.cls.xml	(revision 0)
+++ WSimpl/Unishop/BeschikbareLandenSort/Sort/Test.cls.xml	(revision 36744)
@@ -0,0 +1,48 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.Unishop.BeschikbareLandenSort.Sort.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Sorteert landenlijst alfabetisch wisselt 2 landen van plaats">
+<Implementation><![CDATA[
+	Set Sorter = ##class(TECH.Algo.Sort.InsertionSort).%New()
+	Set Comparator = ##class(WSimpl.Unishop.BeschikbareLandenComparator).%New()
+	
+	#Dim EuropeseLandenList As %ListOfObjects = ##class(%ListOfObjects).%New()
+
+	Do EuropeseLandenList.Insert(##class(WS.EC.ExterneVerkoop.dto.Land).%New("AB","AB"))
+	Do EuropeseLandenList.Insert(##class(WS.EC.ExterneVerkoop.dto.Land).%New("AA","AA"))
+	
+	Do $$$AssertEquals(EuropeseLandenList.GetAt(1).Naam, "AB")
+	Do $$$AssertEquals(EuropeseLandenList.GetAt(2).Naam, "AA")
+
+	Do Sorter.Sort(.EuropeseLandenList, Comparator)
+	
+	Do $$$AssertEquals(EuropeseLandenList.GetAt(1).Naam, "AA")
+	Do $$$AssertEquals(EuropeseLandenList.GetAt(2).Naam, "AB")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Sorteert landenlijst alfabetisch hoeft geen landen van plaats te wisselen">
+<Implementation><![CDATA[
+	Set Sorter = ##class(TECH.Algo.Sort.InsertionSort).%New()
+	Set Comparator = ##class(WSimpl.Unishop.BeschikbareLandenComparator).%New()
+	
+	#Dim EuropeseLandenList As %ListOfObjects = ##class(%ListOfObjects).%New()
+
+	Do EuropeseLandenList.Insert(##class(WS.EC.ExterneVerkoop.dto.Land).%New("AA","AA"))
+	Do EuropeseLandenList.Insert(##class(WS.EC.ExterneVerkoop.dto.Land).%New("AB","AB"))
+	
+	Do $$$AssertEquals(EuropeseLandenList.GetAt(1).Naam, "AA")
+	Do $$$AssertEquals(EuropeseLandenList.GetAt(2).Naam, "AB")
+
+	Do Sorter.Sort(.EuropeseLandenList, Comparator)
+	
+	Do $$$AssertEquals(EuropeseLandenList.GetAt(1).Naam, "AA")
+	Do $$$AssertEquals(EuropeseLandenList.GetAt(2).Naam, "AB")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/WSimpl/Unishop/BeschikbareLandenSort.cls.xml
===================================================================
diff -u
--- vhTest/Mock/WSimpl/Unishop/BeschikbareLandenSort.cls.xml	(revision 0)
+++ vhTest/Mock/WSimpl/Unishop/BeschikbareLandenSort.cls.xml	(revision 36744)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.WSimpl.Unishop.BeschikbareLandenSort">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>WSimpl.Unishop.BeschikbareLandenSort,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="Sort">
+<FormalSpec>TeSorteren:%ListOfDataTypes,Comparator:TECH.Comparator.IComparator</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("Sort",TeSorteren,Comparator)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Fake/WSimpl/Unishop/BeschikbareLandenSort.cls.xml
===================================================================
diff -u
--- vhTest/Fake/WSimpl/Unishop/BeschikbareLandenSort.cls.xml	(revision 0)
+++ vhTest/Fake/WSimpl/Unishop/BeschikbareLandenSort.cls.xml	(revision 36744)
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.WSimpl.Unishop.BeschikbareLandenSort">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>WSimpl.Unishop.BeschikbareLandenSort</Super>
+
+<Method name="Sort">
+<FormalSpec>TeSorteren:%ListOfDataTypes,Comparator:TECH.Comparator.IComparator</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhConsistency/Checks/Unishop/LandVertalingControle.cls.xml
===================================================================
diff -u -r36630 -r36744
--- vhConsistency/Checks/Unishop/LandVertalingControle.cls.xml	(.../LandVertalingControle.cls.xml)	(revision 36630)
+++ vhConsistency/Checks/Unishop/LandVertalingControle.cls.xml	(.../LandVertalingControle.cls.xml)	(revision 36744)
@@ -6,7 +6,7 @@
 <Method name="VoerUit">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	#Dim LandIterator As TECH.ListbuildIterator = ##class(APPS.TRANSP.Common.NietBeneluxLanden).GeefBeschikbareLandCodes()
+	#Dim LandIterator As TECH.ListbuildIterator = ##class(APPS.TRANSP.Common.NietBeneluxLanden).%New().GeefBeschikbareLandCodes()
 	#Dim ExportTalenIterator As TECH.ListIterator = ##class(WSimpl.Unishop.enu.Taal).ValueListIterator()
 	While LandIterator.HasNext()
 	{
Index: APPS/TRANSP/Offerte/impl/DHL/TransportduurImporter.cls.xml
===================================================================
diff -u -r36224 -r36744
--- APPS/TRANSP/Offerte/impl/DHL/TransportduurImporter.cls.xml	(.../TransportduurImporter.cls.xml)	(revision 36224)
+++ APPS/TRANSP/Offerte/impl/DHL/TransportduurImporter.cls.xml	(.../TransportduurImporter.cls.xml)	(revision 36744)
@@ -92,7 +92,7 @@
 <Method name="ImportFiles">
 <FormalSpec>Path:%String</FormalSpec>
 <Implementation><![CDATA[
-	#dim LandCodes As TECH.Iterator = ##class(APPS.TRANSP.Common.NietBeneluxLanden).GeefBeschikbareLandCodes()
+	#dim LandCodes As TECH.Iterator = ##class(APPS.TRANSP.Common.NietBeneluxLanden).%New().GeefBeschikbareLandCodes()
 	while LandCodes.HasNext()
 	{
 		#dim LandCode As %String = LandCodes.Next()
Index: WSimpl/Unishop/BeschikbareLandenSort.cls.xml
===================================================================
diff -u
--- WSimpl/Unishop/BeschikbareLandenSort.cls.xml	(revision 0)
+++ WSimpl/Unishop/BeschikbareLandenSort.cls.xml	(revision 36744)
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.Unishop.BeschikbareLandenSort">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.Mockable</Super>
+
+<Method name="Sort">
+<Description>
+Sorteert de opgegeven lijst zelf. Maakt geen nieuwe lijst aan.</Description>
+<FormalSpec>TeSorteren:%ListOfDataTypes,Comparator:TECH.Comparator.IComparator</FormalSpec>
+<Implementation><![CDATA[	Do ##class(TECH.Algo.Sort.InsertionSort).Sort(.TeSorteren, Comparator)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WSimpl/Unishop/BeschikbareLandenComparator.cls.xml
===================================================================
diff -u -r36498 -r36744
--- WSimpl/Unishop/BeschikbareLandenComparator.cls.xml	(.../BeschikbareLandenComparator.cls.xml)	(revision 36498)
+++ WSimpl/Unishop/BeschikbareLandenComparator.cls.xml	(.../BeschikbareLandenComparator.cls.xml)	(revision 36744)
@@ -4,7 +4,7 @@
 <Super>TECH.RegisteredObject,TECH.Comparator.IComparator</Super>
 
 <Method name="IsKleinerDan">
-<FormalSpec>Waarde1:WS.EC.ExterneVerkoop.dto.Landen,Waarde2:WS.EC.ExterneVerkoop.dto.Landen</FormalSpec>
+<FormalSpec>Waarde1:WS.EC.ExterneVerkoop.dto.Land,Waarde2:WS.EC.ExterneVerkoop.dto.Land</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[	Quit '(Waarde1.Naam ] Waarde2.Naam)
 ]]></Implementation>
Index: vhUnitTest/WSimpl/Unishop/BeschikbareLandenBepaler/Bepaal/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/Unishop/BeschikbareLandenBepaler/Bepaal/Test.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/Unishop/BeschikbareLandenBepaler/Bepaal/Test.cls.xml	(revision 36744)
@@ -0,0 +1,85 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.Unishop.BeschikbareLandenBepaler.Bepaal.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Bepaal roept GeefBeschikbareLandCodes op ">
+<Implementation><![CDATA[
+	#Dim Taal As DOM.enu.Taal = ##class(DOM.enu.Taal).Nederlands()
+	#Dim VertalerStub As vhTest.Utils.Vertaler = ##class(vhTest.Utils.Vertaler).%New("", Taal)
+	
+	#Dim VertaalAPIStub As vhTest.Mock.DOM.common.Transl.VertaalAPI = ##class(vhTest.Mock.DOM.common.Transl.VertaalAPI).%New()
+	Do VertaalAPIStub.IndienMethodCall("GeefVertaler",$$$ElkeWaarde,$$$ElkeWaarde,$$$ElkeWaarde,$$$ElkeWaarde).DanReturn(VertalerStub)
+	
+	#Dim NietBeneluxLandenMock As vhTest.Mock.APPS.TRANSP.Common.NietBeneluxLanden = ##class(vhTest.Mock.APPS.TRANSP.Common.NietBeneluxLanden).%New()
+	Do NietBeneluxLandenMock.VerwachtMethodCall("GeefBeschikbareLandCodes").DanReturn(##class(TECH.ListbuildIterator).%New($ListBuild("BG","SE")))
+	
+	#Dim BeschikbareLandenBepaler As WSimpl.Unishop.BeschikbareLandenBepaler = ##class(WSimpl.Unishop.BeschikbareLandenBepaler).%New(NietBeneluxLandenMock, VertaalAPIStub)
+	#Dim EuropeseLanden As WS.EC.ExterneVerkoop.dto.Landen = BeschikbareLandenBepaler.Bepaal("DummyTaal")
+
+	Do NietBeneluxLandenMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Bepaal roept GeefVertaler op ">
+<Implementation><![CDATA[
+	#Dim Taal As DOM.enu.Taal = ##class(DOM.enu.Taal).Nederlands()
+	#Dim VertalerStub As vhTest.Utils.Vertaler = ##class(vhTest.Utils.Vertaler).%New("", Taal)
+	
+	#Dim VertaalAPIMock As vhTest.Mock.DOM.common.Transl.VertaalAPI = ##class(vhTest.Mock.DOM.common.Transl.VertaalAPI).%New()
+	Do VertaalAPIMock.VerwachtMethodCall("GeefVertaler","DummyTaal","Unishop","ALG","LAND").DanReturn(VertalerStub)
+	
+	#Dim NietBeneluxLandenStub As vhTest.Mock.APPS.TRANSP.Common.NietBeneluxLanden = ##class(vhTest.Mock.APPS.TRANSP.Common.NietBeneluxLanden).%New()
+	Do NietBeneluxLandenStub.IndienMethodCall("GeefBeschikbareLandCodes").DanReturn(##class(TECH.ListbuildIterator).%New($ListBuild("BG","SE")))
+	
+	#Dim BeschikbareLandenBepaler As WSimpl.Unishop.BeschikbareLandenBepaler = ##class(WSimpl.Unishop.BeschikbareLandenBepaler).%New(NietBeneluxLandenStub, VertaalAPIMock)
+	#Dim EuropeseLanden As WS.EC.ExterneVerkoop.dto.Landen = BeschikbareLandenBepaler.Bepaal("DummyTaal")
+
+	Do VertaalAPIMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Bepaal roept sorter op ">
+<Implementation><![CDATA[
+	#Dim Taal As DOM.enu.Taal = ##class(DOM.enu.Taal).Nederlands()
+	#Dim VertalerStub As vhTest.Utils.Vertaler = ##class(vhTest.Utils.Vertaler).%New("", Taal)
+	
+	#Dim VertaalAPIStub As vhTest.Mock.DOM.common.Transl.VertaalAPI = ##class(vhTest.Mock.DOM.common.Transl.VertaalAPI).%New()
+	Do VertaalAPIStub.IndienMethodCall("GeefVertaler",$$$ElkeWaarde,$$$ElkeWaarde,$$$ElkeWaarde,$$$ElkeWaarde).DanReturn(VertalerStub)
+	
+	#Dim NietBeneluxLandenStub As vhTest.Mock.APPS.TRANSP.Common.NietBeneluxLanden = ##class(vhTest.Mock.APPS.TRANSP.Common.NietBeneluxLanden).%New()
+	Do NietBeneluxLandenStub.IndienMethodCall("GeefBeschikbareLandCodes").DanReturn(##class(TECH.ListbuildIterator).%New($ListBuild("BG")))
+
+	#Dim ComparatorDummy = ##class(WSimpl.Unishop.BeschikbareLandenComparator).%New()
+	#Dim SorterMock As vhTest.Mock.WSimpl.Unishop.BeschikbareLandenSort = ##class(vhTest.Mock.WSimpl.Unishop.BeschikbareLandenSort).%New()
+	Do SorterMock.VerwachtMethodCall("Sort", $$$ElkeWaarde, ComparatorDummy)
+	
+	#Dim BeschikbareLandenBepaler As WSimpl.Unishop.BeschikbareLandenBepaler = ##class(WSimpl.Unishop.BeschikbareLandenBepaler).%New(NietBeneluxLandenStub, VertaalAPIStub, SorterMock, ComparatorDummy)
+	#Dim EuropeseLanden As WS.EC.ExterneVerkoop.dto.Landen = BeschikbareLandenBepaler.Bepaal("DummyTaal")
+
+	Do SorterMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Bepaal geeft lijst met landen weer">
+<Implementation><![CDATA[
+	#Dim Taal As DOM.enu.Taal = ##class(DOM.enu.Taal).Nederlands()
+	#Dim VertalerStub As vhTest.Utils.Vertaler = ##class(vhTest.Utils.Vertaler).%New("", Taal)
+	
+	#Dim VertaalAPIStub As vhTest.Mock.DOM.common.Transl.VertaalAPI = ##class(vhTest.Mock.DOM.common.Transl.VertaalAPI).%New()
+	Do VertaalAPIStub.IndienMethodCall("GeefVertaler",$$$ElkeWaarde,$$$ElkeWaarde,$$$ElkeWaarde,$$$ElkeWaarde).DanReturn(VertalerStub)
+	
+	#Dim NietBeneluxLandenStub As vhTest.Mock.APPS.TRANSP.Common.NietBeneluxLanden = ##class(vhTest.Mock.APPS.TRANSP.Common.NietBeneluxLanden).%New()
+	Do NietBeneluxLandenStub.IndienMethodCall("GeefBeschikbareLandCodes").DanReturn(##class(TECH.ListbuildIterator).%New($ListBuild("BG")))
+	
+	#Dim BeschikbareLandenBepaler As WSimpl.Unishop.BeschikbareLandenBepaler = ##class(WSimpl.Unishop.BeschikbareLandenBepaler).%New(NietBeneluxLandenStub, VertaalAPIStub)
+	#Dim EuropeseLanden As WS.EC.ExterneVerkoop.dto.Landen = BeschikbareLandenBepaler.Bepaal("DummyTaal")
+
+	Do $$$AssertEquals(EuropeseLanden.GetAt(1).Code,"BG")
+	Do $$$AssertEquals(EuropeseLanden.GetAt(1).Naam,"[BG]")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Fake/APPS/TRANSP/Common/NietBeneluxLanden.cls.xml
===================================================================
diff -u
--- vhTest/Fake/APPS/TRANSP/Common/NietBeneluxLanden.cls.xml	(revision 0)
+++ vhTest/Fake/APPS/TRANSP/Common/NietBeneluxLanden.cls.xml	(revision 36744)
@@ -0,0 +1,17 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.APPS.TRANSP.Common.NietBeneluxLanden">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<Super>APPS.TRANSP.Common.NietBeneluxLanden</Super>
+
+<Method name="GeefBeschikbareLandCodes">
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.ListbuildIterator).%New($ListBuild("BG","SE"))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/WS/EC/Unishop/InternationaleZending/DummyService.cls.xml
===================================================================
diff -u -r36432 -r36744
--- vhTest/WS/EC/Unishop/InternationaleZending/DummyService.cls.xml	(.../DummyService.cls.xml)	(revision 36432)
+++ vhTest/WS/EC/Unishop/InternationaleZending/DummyService.cls.xml	(.../DummyService.cls.xml)	(revision 36744)
@@ -39,7 +39,7 @@
 <Implementation><![CDATA[
 	Do ..ZetVertaler(Taal)
 	#dim EuropeseLanden As WS.EC.ExterneVerkoop.dto.Landen = ##class(WS.EC.ExterneVerkoop.dto.Landen).%New()
-	#dim BeschikbareLandCodes As TECH.Iterator = ##class(APPS.TRANSP.Common.NietBeneluxLanden).GeefBeschikbareLandCodes()
+	#dim BeschikbareLandCodes As TECH.Iterator = ##class(APPS.TRANSP.Common.NietBeneluxLanden).%New().GeefBeschikbareLandCodes()
 	
 	While BeschikbareLandCodes.HasNext()
 	{	
Index: APPS/TRANSP/Common/NietBeneluxLanden.cls.xml
===================================================================
diff -u -r36224 -r36744
--- APPS/TRANSP/Common/NietBeneluxLanden.cls.xml	(.../NietBeneluxLanden.cls.xml)	(revision 36224)
+++ APPS/TRANSP/Common/NietBeneluxLanden.cls.xml	(.../NietBeneluxLanden.cls.xml)	(revision 36744)
@@ -1,10 +1,9 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.TRANSP.Common.NietBeneluxLanden">
-<Super>TECH.RegisteredObject</Super>
+<Super>TECH.Mockable</Super>
 
 <Method name="GeefBeschikbareLandCodes">
-<ClassMethod>1</ClassMethod>
 <ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[	Quit ##class(TECH.ListbuildIterator).%New($ListBuild("BG","CY","DK","DE","EE","FI","FR","GR","HU","IE","IT","HR","LV","LT","MT","AT","PL","PT","RO","SI","SK","ES","CZ","GB","SE"))
 ]]></Implementation>
Index: vhTest/Mock/APPS/TRANSP/Common/NietBeneluxLanden.cls.xml
===================================================================
diff -u
--- vhTest/Mock/APPS/TRANSP/Common/NietBeneluxLanden.cls.xml	(revision 0)
+++ vhTest/Mock/APPS/TRANSP/Common/NietBeneluxLanden.cls.xml	(revision 36744)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.APPS.TRANSP.Common.NietBeneluxLanden">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.TRANSP.Common.NietBeneluxLanden,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="GeefBeschikbareLandCodes">
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefBeschikbareLandCodes")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WSimpl/Unishop/BeschikbareLandenBepaler.cls.xml
===================================================================
diff -u -r36498 -r36744
--- WSimpl/Unishop/BeschikbareLandenBepaler.cls.xml	(.../BeschikbareLandenBepaler.cls.xml)	(revision 36498)
+++ WSimpl/Unishop/BeschikbareLandenBepaler.cls.xml	(.../BeschikbareLandenBepaler.cls.xml)	(revision 36744)
@@ -1,17 +1,52 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="WSimpl.Unishop.BeschikbareLandenBepaler">
-<Super>%RegisteredObject</Super>
+<Super>TECH.RegisteredObject</Super>
 
 <Property name="Vertaler">
 <Type>DOM.common.Transl.Vertaler</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="VertaalAPI">
+<Type>DOM.common.Transl.VertaalAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="NietBeneluxLanden">
+<Type>APPS.TRANSP.Common.NietBeneluxLanden</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Sorter">
+<Type>WSimpl.Unishop.BeschikbareLandenSort</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Comparator">
+<Type>WSimpl.Unishop.BeschikbareLandenComparator</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>NietBeneluxLanden:APPS.TRANSP.Common.NietBeneluxLanden,VertaalAPI:DOM.common.Transl.VertaalAPI,Sorter:WSimpl.Unishop.BeschikbareLandenSort,Comparator:WSimpl.Unishop.BeschikbareLandenComparator</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..NietBeneluxLanden = $$$Inject(NietBeneluxLanden,##class(APPS.TRANSP.Common.NietBeneluxLanden).%New())
+	Set ..VertaalAPI = $$$Inject(VertaalAPI,##class(DOM.DomeinContext).Instance().GeefVertaalAPI())
+	Set ..Sorter = $$$Inject(Sorter,##class(TECH.Algo.Sort.InsertionSort).%New())
+	Set ..Comparator = $$$Inject(Comparator,##class(WSimpl.Unishop.BeschikbareLandenComparator).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="ZetVertaler">
 <FormalSpec>Taal:DOM.enu.Taal</FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[	Set ..Vertaler = ##class(DOM.DomeinContext).Instance().GeefVertaalAPI().GeefVertaler(Taal, ##class(DOM.common.Transl.enu.VertaalGroep).Unishop(), ##class(DOM.common.Transl.enu.VertaalGroep).Algemeen(), ##class(DOM.common.Transl.enu.VertaalGroep).Land())
+<Implementation><![CDATA[	Set ..Vertaler = ..VertaalAPI.GeefVertaler(Taal, ##class(DOM.common.Transl.enu.VertaalGroep).Unishop(), ##class(DOM.common.Transl.enu.VertaalGroep).Algemeen(), ##class(DOM.common.Transl.enu.VertaalGroep).Land())
 ]]></Implementation>
 </Method>
 
@@ -21,7 +56,7 @@
 <Implementation><![CDATA[
 	Do ..ZetVertaler(Taal)
 	#dim EuropeseLanden As WS.EC.ExterneVerkoop.dto.Landen = ##class(WS.EC.ExterneVerkoop.dto.Landen).%New()
-	#dim BeschikbareLandCodes As TECH.Iterator = ##class(APPS.TRANSP.Common.NietBeneluxLanden).GeefBeschikbareLandCodes()
+	#dim BeschikbareLandCodes As TECH.Iterator = ..NietBeneluxLanden.GeefBeschikbareLandCodes()
 	
 	While BeschikbareLandCodes.HasNext()
 	{	
@@ -31,21 +66,11 @@
 			Do EuropeseLanden.Insert(##class(WS.EC.ExterneVerkoop.dto.Land).%New(LandCode, LandNaam))
 		}
 	}
-	Do ..Sorteer(.EuropeseLanden)
+	Do ##class(Tools.Wlip).%New(26).String(..Sorter)
+	Do ..Sorter.Sort(.EuropeseLanden, ..Comparator)
 	Quit EuropeseLanden
 ]]></Implementation>
 </Method>
-
-<Method name="Sorteer">
-<FormalSpec><![CDATA[&EuropeseLanden:%ListOfObjects]]></FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	
-	Set Sorter = ##class(TECH.Algo.Sort.InsertionSort).%New()
-	Set Comparator = ##class(WSimpl.Unishop.BeschikbareLandenComparator).%New()
-	Do Sorter.Sort(EuropeseLanden, Comparator)
-]]></Implementation>
-</Method>
 </Class>