Index: vhUnitTest/APPS/common/impl/KlantInstellingenService/Test.cls.xml
===================================================================
diff -u -r61699 -r69470
--- vhUnitTest/APPS/common/impl/KlantInstellingenService/Test.cls.xml	(.../Test.cls.xml)	(revision 61699)
+++ vhUnitTest/APPS/common/impl/KlantInstellingenService/Test.cls.xml	(.../Test.cls.xml)	(revision 69470)
@@ -87,6 +87,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: GebruiktKlantOrderNummer geeft juiste waarde terug voor klanten">
+<Implementation><![CDATA[
+	#dim KlantIterator As TECH.ListIterator = ##class(DOM.VKP.enu.Klant).ValueListIterator()
+	Set Klant = ##class(DOM.VKP.enu.Klant.AutoComplete).%New()
+	
+	while KlantIterator.HasNext() {
+		#dim KlantID as %String = KlantIterator.Next()
+		#dim Resultaat = ..KlantInstellingService.GebruiktKlantOrderNummer(KlantID)
+		
+		If ##class(TECH.StringUtils).Equals(KlantID, Klant.SFS, Klant.HaefeleBelgie, Klant.HaefeleNederland, Klant.HaefeleDuitsland, Klant.HaefeleItalie, Klant.HaefeleOostenrijk, Klant.HaefeleDenemarken, Klant.HaefeleFrankrijk) {
+			Do $$$AssertTrue(Resultaat)
+		} Else {
+			Do $$$AssertFalse(Resultaat)
+		}
+	}
+]]></Implementation>
+</Method>
+
 <Method name="OnAfterAllTests">
 <Implementation><![CDATA[	do ##class(Tools.Test.TestCase.OnAfterAllTests).%New().Exec($this,..Debug)
 ]]></Implementation>