Index: WSimpl/Vhisie4/SettingsManager.cls.xml
===================================================================
diff -u
--- WSimpl/Vhisie4/SettingsManager.cls.xml	(revision 0)
+++ WSimpl/Vhisie4/SettingsManager.cls.xml	(revision 41802)
@@ -0,0 +1,22 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.Vhisie4.SettingsManager">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="GeefVhisie4Prefix">
+<FormalSpec>HandelPersonality:DOM.common.HandelPersonality</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	If HandelPersonality.GeefID() = ##class(DOM.common.enu.Personality).HaefeleBE() {
+		Quit HandelPersonality.GeefPrefix()_"BE"
+	}
+	If HandelPersonality.GeefID() = ##class(DOM.common.enu.Personality).HaefeleNL() {
+		Quit HandelPersonality.GeefPrefix()_"NL"
+	}
+	Quit HandelPersonality.GeefPrefix()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/WSimpl/Vhisie4/SettingsManager/GeefVhisie4Prefix/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/Vhisie4/SettingsManager/GeefVhisie4Prefix/Test.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/Vhisie4/SettingsManager/GeefVhisie4Prefix/Test.cls.xml	(revision 41802)
@@ -0,0 +1,38 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.Vhisie4.SettingsManager.GeefVhisie4Prefix.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Standaardgedrag">
+<Implementation><![CDATA[
+	#dim Personality As DOM.common.HandelPersonality = ##class(DOM.common.impl.HandelPersonalityRepository).%New().GeefViaID("3")
+	Set SettingsManager = ##class(WSimpl.Vhisie4.SettingsManager).%New()
+	#dim Resultaat = SettingsManager.GeefVhisie4Prefix(Personality)
+	
+	Do $$$AssertEquals(Resultaat,"SFS_")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Haefele BE">
+<Implementation><![CDATA[
+	#dim Personality As DOM.common.HandelPersonality = ##class(DOM.common.impl.HandelPersonalityRepository).%New().GeefViaID("7")
+	Set SettingsManager = ##class(WSimpl.Vhisie4.SettingsManager).%New()
+	#dim Resultaat = SettingsManager.GeefVhisie4Prefix(Personality)
+	
+	Do $$$AssertEquals(Resultaat,"hfleBE_BE")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Haefele NL">
+<Implementation><![CDATA[
+	#dim Personality As DOM.common.HandelPersonality = ##class(DOM.common.impl.HandelPersonalityRepository).%New().GeefViaID("12")
+	Set SettingsManager = ##class(WSimpl.Vhisie4.SettingsManager).%New()
+	#dim Resultaat = SettingsManager.GeefVhisie4Prefix(Personality)
+	
+	Do $$$AssertEquals(Resultaat,"hfleNL_NL")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>