Index: WSimpl/Unishop/BeschikbareLandenBepaler.cls.xml
===================================================================
diff -u -r36224 -r36498
--- WSimpl/Unishop/BeschikbareLandenBepaler.cls.xml	(.../BeschikbareLandenBepaler.cls.xml)	(revision 36224)
+++ WSimpl/Unishop/BeschikbareLandenBepaler.cls.xml	(.../BeschikbareLandenBepaler.cls.xml)	(revision 36498)
@@ -31,10 +31,21 @@
 			Do EuropeseLanden.Insert(##class(WS.EC.ExterneVerkoop.dto.Land).%New(LandCode, LandNaam))
 		}
 	}
-
+	Do ..Sorteer(.EuropeseLanden)
 	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>
 
 
Index: WSimpl/Unishop/BeschikbareLandenComparator.cls.xml
===================================================================
diff -u
--- WSimpl/Unishop/BeschikbareLandenComparator.cls.xml	(revision 0)
+++ WSimpl/Unishop/BeschikbareLandenComparator.cls.xml	(revision 36498)
@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.Unishop.BeschikbareLandenComparator">
+<Super>TECH.RegisteredObject,TECH.Comparator.IComparator</Super>
+
+<Method name="IsKleinerDan">
+<FormalSpec>Waarde1:WS.EC.ExterneVerkoop.dto.Landen,Waarde2:WS.EC.ExterneVerkoop.dto.Landen</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit '(Waarde1.Naam ] Waarde2.Naam)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>