Index: BL/Flow/Proxy/impl/LeverbonAfwijkendeTaalBepaler.cls.xml
===================================================================
diff -u
--- BL/Flow/Proxy/impl/LeverbonAfwijkendeTaalBepaler.cls.xml	(revision 0)
+++ BL/Flow/Proxy/impl/LeverbonAfwijkendeTaalBepaler.cls.xml	(revision 64454)
@@ -0,0 +1,47 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="BL.Flow.Proxy.impl.LeverbonAfwijkendeTaalBepaler">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="UitleveringRepository">
+<Type>Flow.Uitlevering.HoofdingRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>UitleveringRepository:Flow.Uitlevering.HoofdingRepository=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..UitleveringRepository = $$$Inject(UitleveringRepository,##class(Flow.Uitlevering.HoofdingRepository).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefAfwijkendeTaalIndienNodig">
+<FormalSpec>BONNr:%String,Taal:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set KlantEnu = ##class(DOM.VKP.enu.Klant.AutoComplete).%New()
+	#dim ResultTaal as %String = Taal
+	If ..UitleveringRepository.BestaatViaID(BONNr) {
+		#dim Hoofding as Flow.Uitlevering.Hoofding = ..UitleveringRepository.GeefViaID(BONNr)
+		#dim KlantID as %String = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(Hoofding.KlantNr)
+
+		if ##class(TECH.StringUtils).Equals(KlantID,KlantEnu.HaefeleDuitsland,KlantEnu.HaefeleItalie){
+			#dim LeveradresLand as %String =  $$LAND^vhRtn1(Hoofding.Land)
+
+			if ##class(TECH.StringUtils).Equals(LeveradresLand,"FI","SE","IT"){
+				Set ResultTaal = "E"
+			}
+		}
+	}
+	Quit ResultTaal
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/BL/Flow/Proxy/impl/LeverbonAfwijkendeTaalBepaler/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/BL/Flow/Proxy/impl/LeverbonAfwijkendeTaalBepaler/Test.cls.xml	(revision 0)
+++ vhUnitTest/BL/Flow/Proxy/impl/LeverbonAfwijkendeTaalBepaler/Test.cls.xml	(revision 64454)
@@ -0,0 +1,36 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.BL.Flow.Proxy.impl.LeverbonAfwijkendeTaalBepaler.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test Haefele testcases">
+<Implementation><![CDATA[
+	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 = "32672" ;Haefele DE
+	Set DummyUitleveringHoofding.Land = 1063 ;Finland
+	Do $$$AssertEquals(AfwijkendeTaalBepaler.GeefAfwijkendeTaalIndienNodig("BONNr","N"),"E")
+	Set DummyUitleveringHoofding.Land = 1235 ;Zweden
+	Do $$$AssertEquals(AfwijkendeTaalBepaler.GeefAfwijkendeTaalIndienNodig("BONNr","N"),"E")
+
+	Set DummyUitleveringHoofding.KlantNr = "35412" ;Haefele IT
+	Set DummyUitleveringHoofding.Land = 1096 ;Italie
+	Do $$$AssertEquals(AfwijkendeTaalBepaler.GeefAfwijkendeTaalIndienNodig("BONNr","N"),"E")
+	
+	Set DummyUitleveringHoofding.KlantNr = "35415" ;Haefele AT
+	Set DummyUitleveringHoofding.Land = 1096 ;Doet er niet toe
+	Do $$$AssertEquals(AfwijkendeTaalBepaler.GeefAfwijkendeTaalIndienNodig("BONNr","N"),"N")
+	Do UitleveringRepoMock.Verifieer()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: BL/Flow/Proxy/pxLevering.cls.xml
===================================================================
diff -u -r64453 -r64454
--- BL/Flow/Proxy/pxLevering.cls.xml	(.../pxLevering.cls.xml)	(revision 64453)
+++ BL/Flow/Proxy/pxLevering.cls.xml	(.../pxLevering.cls.xml)	(revision 64454)
@@ -452,6 +452,9 @@
 	#dim Rec As %String = $G(^KUL(KLNr,FactSoort,BONNr,1))
 	#dim Rec3 As %String = $G(^KUL(KLNr,FactSoort,BONNr,3))
 	#dim Taal As %String = $S(+Rec3:$P(Rec3,"\",9), 1:$P($$$KLRec(0),"\",9))   ; Ophalen Taal uit Leveringsadres, indien aanwezig, anders uit klantdata
+	
+	Set Taal = ##class(BL.Flow.Proxy.impl.LeverbonAfwijkendeTaalBepaler).%New().GeefAfwijkendeTaalIndienNodig(BONNr,Taal)
+		
 	Set:(Taal="") Taal="N"
 	#dim Munt As %String = $P(Rec,"\",18)
 	#dim blnBruto As %Boolean = $P(Rec,"\",27)