Index: APPS/TRANSP/Offerte/impl/DHL/TransportduurImporter.cls.xml
===================================================================
diff -u -r34452 -r36224
--- APPS/TRANSP/Offerte/impl/DHL/TransportduurImporter.cls.xml	(.../TransportduurImporter.cls.xml)	(revision 34452)
+++ APPS/TRANSP/Offerte/impl/DHL/TransportduurImporter.cls.xml	(.../TransportduurImporter.cls.xml)	(revision 36224)
@@ -92,7 +92,7 @@
 <Method name="ImportFiles">
 <FormalSpec>Path:%String</FormalSpec>
 <Implementation><![CDATA[
-	#dim LandCodes As TECH.Iterator = ..GeefBeschikbareLandCodes()
+	#dim LandCodes As TECH.Iterator = ##class(APPS.TRANSP.Common.NietBeneluxLanden).GeefBeschikbareLandCodes()
 	while LandCodes.HasNext()
 	{
 		#dim LandCode As %String = LandCodes.Next()
@@ -108,13 +108,6 @@
 	}
 ]]></Implementation>
 </Method>
-
-<Method name="GeefBeschikbareLandCodes">
-<Private>1</Private>
-<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>
-</Method>
 </Class>
 
 
Index: APPS/TRANSP/Common/NietBeneluxLanden.cls.xml
===================================================================
diff -u
--- APPS/TRANSP/Common/NietBeneluxLanden.cls.xml	(revision 0)
+++ APPS/TRANSP/Common/NietBeneluxLanden.cls.xml	(revision 36224)
@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.TRANSP.Common.NietBeneluxLanden">
+<Super>TECH.RegisteredObject</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>
+</Method>
+</Class>
+
+
+</Export>
Index: WS/EC/Unishop/InternationaleZending/DummyService.cls.xml
===================================================================
diff -u -r34058 -r36224
--- WS/EC/Unishop/InternationaleZending/DummyService.cls.xml	(.../DummyService.cls.xml)	(revision 34058)
+++ WS/EC/Unishop/InternationaleZending/DummyService.cls.xml	(.../DummyService.cls.xml)	(revision 36224)
@@ -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 = ..GeefBeschikbareLandCodes()
+	#dim BeschikbareLandCodes As TECH.Iterator = ##class(APPS.TRANSP.Common.NietBeneluxLanden).GeefBeschikbareLandCodes()
 	
 	While BeschikbareLandCodes.HasNext()
 	{	
@@ -54,13 +54,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefBeschikbareLandCodes">
-<Private>1</Private>
-<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>
-</Method>
-
 <Method name="ZetGekozenVerzendingMogelijkheid">
 <FormalSpec>OfferteId:%String,VerzendingMogelijkheidID:%Integer,OptieKeuze:%Integer</FormalSpec>
 <Implementation><![CDATA[
Index: WSimpl/Unishop/BeschikbareLandenBepaler.cls.xml
===================================================================
diff -u -r34002 -r36224
--- WSimpl/Unishop/BeschikbareLandenBepaler.cls.xml	(.../BeschikbareLandenBepaler.cls.xml)	(revision 34002)
+++ WSimpl/Unishop/BeschikbareLandenBepaler.cls.xml	(.../BeschikbareLandenBepaler.cls.xml)	(revision 36224)
@@ -21,7 +21,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 = ..GeefBeschikbareLandCodes()
+	#dim BeschikbareLandCodes As TECH.Iterator = ##class(APPS.TRANSP.Common.NietBeneluxLanden).GeefBeschikbareLandCodes()
 	
 	While BeschikbareLandCodes.HasNext()
 	{	
@@ -35,13 +35,6 @@
 	Quit EuropeseLanden
 ]]></Implementation>
 </Method>
-
-<Method name="GeefBeschikbareLandCodes">
-<Private>1</Private>
-<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>
-</Method>
 </Class>