Index: DOM/common/enu/Land/AutoComplete.cls.xml
===================================================================
diff -u
--- DOM/common/enu/Land/AutoComplete.cls.xml	(revision 0)
+++ DOM/common/enu/Land/AutoComplete.cls.xml	(revision 64473)
@@ -0,0 +1,91 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.common.enu.Land.AutoComplete">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de Enumeratie - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+De enumeratie Eigenschapn moeten als type de enumeratieklasse zelf terug geven. De enumeratieklasse moet afleiden van TECH.Enumeration</Description>
+<ClassType>serial</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%SerialObject</Super>
+
+<Property name="Belgie">
+<Type>%String</Type>
+<InitialExpression>"1019"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Bulgarije">
+<Type>%String</Type>
+<InitialExpression>"1031"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Denemarken">
+<Type>%String</Type>
+<InitialExpression>"1048"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Duitsland">
+<Type>%String</Type>
+<InitialExpression>"1052"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Finland">
+<Type>%String</Type>
+<InitialExpression>"1063"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Frankrijk">
+<Type>%String</Type>
+<InitialExpression>"1064"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Italie">
+<Type>%String</Type>
+<InitialExpression>"1096"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Kenia">
+<Type>%String</Type>
+<InitialExpression>"1107"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Luxemburg">
+<Type>%String</Type>
+<InitialExpression>"1120"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Nederland">
+<Type>%String</Type>
+<InitialExpression>"1147"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Zweden">
+<Type>%String</Type>
+<InitialExpression>"1235"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+</Class>
+
+
+</Export>
Index: DOM/common/enu/Land.cls.xml
===================================================================
diff -u -r55672 -r64473
--- DOM/common/enu/Land.cls.xml	(.../Land.cls.xml)	(revision 55672)
+++ DOM/common/enu/Land.cls.xml	(.../Land.cls.xml)	(revision 64473)
@@ -2,14 +2,14 @@
 <Export generator="Cache" version="24">
 <Class name="DOM.common.enu.Land">
 <ClassType>datatype</ClassType>
-<Super>%String</Super>
+<Super>TECH.Enumeration</Super>
 
 <Parameter name="VALUELIST">
-<Default>;1019;1147;1120;1107;1031;1052</Default>
+<Default>;1019;1147;1120;1107;1031;1052;1235;1063;1096;1048;1064</Default>
 </Parameter>
 
 <Parameter name="DISPLAYLIST">
-<Default>;Belgie;Nederland;Luxemburg;Kenia;Bulgarije;Duitsland</Default>
+<Default>;Belgie;Nederland;Luxemburg;Kenia;Bulgarije;Duitsland;Zweden;Finland;Italie;Denemarken;Frankrijk</Default>
 </Parameter>
 
 <Method name="Belgie">
@@ -53,6 +53,41 @@
 <Implementation><![CDATA[	Quit "1052"
 ]]></Implementation>
 </Method>
+
+<Method name="Zweden">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.common.enu.Land</ReturnType>
+<Implementation><![CDATA[	Quit "1235"
+]]></Implementation>
+</Method>
+
+<Method name="Finland">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.common.enu.Land</ReturnType>
+<Implementation><![CDATA[	Quit "1063"
+]]></Implementation>
+</Method>
+
+<Method name="Italie">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.common.enu.Land</ReturnType>
+<Implementation><![CDATA[	Quit "1096"
+]]></Implementation>
+</Method>
+
+<Method name="Denemarken">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.common.enu.Land</ReturnType>
+<Implementation><![CDATA[	Quit "1048"
+]]></Implementation>
+</Method>
+
+<Method name="Frankrijk">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.common.enu.Land</ReturnType>
+<Implementation><![CDATA[	Quit "1064"
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Utils/DOM/VKP/LeverAdres.cls.xml
===================================================================
diff -u -r64281 -r64473
--- vhTest/Utils/DOM/VKP/LeverAdres.cls.xml	(.../LeverAdres.cls.xml)	(revision 64281)
+++ vhTest/Utils/DOM/VKP/LeverAdres.cls.xml	(.../LeverAdres.cls.xml)	(revision 64473)
@@ -125,7 +125,7 @@
 <ReturnType>DOM.VKP.LeverAdres</ReturnType>
 <Implementation><![CDATA[
 	#dim LeverAdres As DOM.VKP.impl.LeverAdres = ##class(DOM.VKP.impl.LeverAdres).%New()
-	Do LeverAdres.ZetNaam("Duits adres")
+	Do LeverAdres.ZetNaam("Fins adres")
 	Do LeverAdres.ZetLandNr(1063)
 	Do LeverAdres.ZetPostcode("11101")
 	Do LeverAdres.ZetStraat("Kalevankatu")
Index: DOM/common/enu/Land/Verwerker.cls.xml
===================================================================
diff -u
--- DOM/common/enu/Land/Verwerker.cls.xml	(revision 0)
+++ DOM/common/enu/Land/Verwerker.cls.xml	(revision 64473)
@@ -0,0 +1,112 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.common.enu.Land.Verwerker">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de Enumeratie - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+De enumeratie methoden moeten als type de enumeratieklasse zelf terug geven. De enumeratieklasse moet afleiden van TECH.Enumeration</Description>
+<Abstract>1</Abstract>
+<ProcedureBlock>1</ProcedureBlock>
+
+<Method name="Verwerk">
+<Final>1</Final>
+<FormalSpec>Land:DOM.common.enu.Land</FormalSpec>
+<Implementation><![CDATA[
+	If Land = "1019" {
+		Do ..VerwerkBelgie()
+	} ElseIf Land = "1031" {
+		Do ..VerwerkBulgarije()
+	} ElseIf Land = "1048" {
+		Do ..VerwerkDenemarken()
+	} ElseIf Land = "1052" {
+		Do ..VerwerkDuitsland()
+	} ElseIf Land = "1063" {
+		Do ..VerwerkFinland()
+	} ElseIf Land = "1064" {
+		Do ..VerwerkFrankrijk()
+	} ElseIf Land = "1096" {
+		Do ..VerwerkItalie()
+	} ElseIf Land = "1107" {
+		Do ..VerwerkKenia()
+	} ElseIf Land = "1120" {
+		Do ..VerwerkLuxemburg()
+	} ElseIf Land = "1147" {
+		Do ..VerwerkNederland()
+	} ElseIf Land = "1235" {
+		Do ..VerwerkZweden()
+	} Else {
+		Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(Land,"DOM.common.enu.Land",$classname())
+		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkBelgie">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkBulgarije">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkDenemarken">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkDuitsland">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkFinland">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkFrankrijk">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkItalie">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkKenia">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkLuxemburg">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkNederland">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkZweden">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/BL/Flow/Proxy/impl/LeverbonAfwijkendeTaalBepaler/Test.cls.xml
===================================================================
diff -u -r64454 -r64473
--- vhUnitTest/BL/Flow/Proxy/impl/LeverbonAfwijkendeTaalBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 64454)
+++ vhUnitTest/BL/Flow/Proxy/impl/LeverbonAfwijkendeTaalBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 64473)
@@ -5,6 +5,10 @@
 
 <Method name="Test Haefele testcases">
 <Implementation><![CDATA[
+	Set Landen = ##class(DOM.common.enu.Land.AutoComplete).%New()
+	Set Klanten = ##class(DOM.VKP.enu.Klant.AutoComplete).%New()
+	#dim LegacyPartijAPI as DOM.PARTIJ.LegacyPartijAPI = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI()
+	
 	Set UitleveringRepoMock = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()
 	
 	Set DummyUitleveringHoofding = ##class(Flow.Uitlevering.Hoofding).%New()
@@ -13,15 +17,16 @@
 	
 	Do UitleveringRepoMock.VerwachtMethodCall("BestaatViaID","BONNr").DanReturn($$$True)
 	Do UitleveringRepoMock.VerwachtMethodCall("GeefViaID","BONNr").DanReturn(DummyUitleveringHoofding)
-
-	Set DummyUitleveringHoofding.KlantNr = "32672" ;Haefele DE
-	Set DummyUitleveringHoofding.Land = 1063 ;Finland
+	
+	Set DummyUitleveringHoofding.KlantNr = LegacyPartijAPI.GeefKlantNummerVoorPartijID(Klanten.HaefeleDuitsland)
+	Set DummyUitleveringHoofding.Land = Landen.Finland
 	Do $$$AssertEquals(AfwijkendeTaalBepaler.GeefAfwijkendeTaalIndienNodig("BONNr","N"),"E")
-	Set DummyUitleveringHoofding.Land = 1235 ;Zweden
+	
+	Set DummyUitleveringHoofding.Land = Landen.Zweden
 	Do $$$AssertEquals(AfwijkendeTaalBepaler.GeefAfwijkendeTaalIndienNodig("BONNr","N"),"E")
 
-	Set DummyUitleveringHoofding.KlantNr = "35412" ;Haefele IT
-	Set DummyUitleveringHoofding.Land = 1096 ;Italie
+	Set DummyUitleveringHoofding.KlantNr = LegacyPartijAPI.GeefKlantNummerVoorPartijID(Klanten.HaefeleItalie)
+	Set DummyUitleveringHoofding.Land = Landen.Italie
 	Do $$$AssertEquals(AfwijkendeTaalBepaler.GeefAfwijkendeTaalIndienNodig("BONNr","N"),"E")
 	
 	Set DummyUitleveringHoofding.KlantNr = "35415" ;Haefele AT
@@ -30,6 +35,29 @@
 	Do UitleveringRepoMock.Verifieer()
 ]]></Implementation>
 </Method>
+
+<Method name="Test voor een andere personality : taal verandert niet">
+<Implementation><![CDATA[
+	Set Landen = ##class(DOM.common.enu.Land.AutoComplete).%New()
+	Set Klanten = ##class(DOM.VKP.enu.Klant.AutoComplete).%New()
+	#dim LegacyPartijAPI as DOM.PARTIJ.LegacyPartijAPI = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI()
+	
+	Set UitleveringRepoMock = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()
+	
+	Set DummyUitleveringHoofding = ##class(Flow.Uitlevering.Hoofding).%New()
+	
+	Set AfwijkendeTaalBepaler = ##class(BL.Flow.Proxy.impl.LeverbonAfwijkendeTaalBepaler).%New(UitleveringRepoMock)
+	
+	Do UitleveringRepoMock.VerwachtMethodCall("BestaatViaID","BONNr").DanReturn($$$True)
+	Do UitleveringRepoMock.VerwachtMethodCall("GeefViaID","BONNr").DanReturn(DummyUitleveringHoofding)
+	
+	Set DummyUitleveringHoofding.KlantNr = LegacyPartijAPI.GeefKlantNummerVoorPartijID(Klanten.Kisch)
+	Set DummyUitleveringHoofding.Land = Landen.Finland
+	Do $$$AssertEquals(AfwijkendeTaalBepaler.GeefAfwijkendeTaalIndienNodig("BONNr","N"),"N")
+	
+	Do UitleveringRepoMock.Verifieer()
+]]></Implementation>
+</Method>
 </Class>