Index: APPS/EC/impl/HaefeleDEVerzendwijzeBepaler.cls.xml
===================================================================
diff -u
--- APPS/EC/impl/HaefeleDEVerzendwijzeBepaler.cls.xml	(revision 0)
+++ APPS/EC/impl/HaefeleDEVerzendwijzeBepaler.cls.xml	(revision 61240)
@@ -0,0 +1,31 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EC.impl.HaefeleDEVerzendwijzeBepaler">
+<Super>TECH.Mockable</Super>
+
+<Method name="GeefVerzendWijze">
+<FormalSpec>LandCode:%String,Postcode:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Verzendwijze as %String = ""
+	#dim NumPostcode as %Integer = +Postcode
+	if ((LandCode = "DE") & ($$$HasLength(Postcode)) & (##class(TECH.StringUtils).StripAllNumeric(Postcode)="")) {
+		if (((NumPostcode >= 0) & (NumPostcode < 20000))||((NumPostcode >=20000) & (NumPostcode < 28000))) {
+			Set Verzendwijze = "HD3"
+		} elseif (((NumPostcode >=28000) & (NumPostcode <67000)) || ((NumPostcode >=80000) & (NumPostcode < 100000))) {
+			Set Verzendwijze = "HD2"
+		} elseif (((NumPostcode >=67000) & (NumPostcode <80000))) {
+			Set Verzendwijze = "HD1"
+		} 
+	}
+
+	if $$$Not($$$HasLength(Verzendwijze)){
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Ongeldige landcode ("_LandCode_") / postcode ("_Postcode_")  combinatie voor Haefele DE"))
+	} 
+	Quit Verzendwijze
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/EC/impl/HaefeleDEVerzendwijzeBepaler/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EC/impl/HaefeleDEVerzendwijzeBepaler/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EC/impl/HaefeleDEVerzendwijzeBepaler/Test.cls.xml	(revision 61240)
@@ -0,0 +1,92 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EC.impl.HaefeleDEVerzendwijzeBepaler.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test geldige postocdes in Duitsland">
+<Implementation><![CDATA[
+	#dim LandCode as %String = "DE"
+	Set Bepaler = ##class(APPS.EC.impl.HaefeleDEVerzendwijzeBepaler).%New()
+	
+	
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,"0"),"HD3")
+ 	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,19999),"HD3")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,20000),"HD3")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,27999),"HD3")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,28000),"HD2")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,66999),"HD2")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,67000),"HD1")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,79999),"HD1")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,80000),"HD2")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,99999),"HD2")
+]]></Implementation>
+</Method>
+
+<Method name="Test land verschillend van DE">
+<Implementation><![CDATA[
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Ongeldige landcode (BE) / postcode (0)  combinatie voor Haefele DE")
+	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException",Substrings))
+
+	#dim LandCode as %String = "BE"
+	Set Bepaler = ##class(APPS.EC.impl.HaefeleDEVerzendwijzeBepaler).%New()
+	
+	
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,0),"HD3")
+]]></Implementation>
+</Method>
+
+<Method name="Test ongeldige postcode negatief">
+<Implementation><![CDATA[
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Ongeldige landcode (DE) / postcode (-1)  combinatie voor Haefele DE")
+	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException",Substrings))
+
+	#dim LandCode as %String = "DE"
+	Set Bepaler = ##class(APPS.EC.impl.HaefeleDEVerzendwijzeBepaler).%New()
+	
+	
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,-1),"HD3")
+]]></Implementation>
+</Method>
+
+<Method name="Test ongeldige postcode te groot">
+<Implementation><![CDATA[
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Ongeldige landcode (DE) / postcode (200000)  combinatie voor Haefele DE")
+	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException",Substrings))
+
+	#dim LandCode as %String = "DE"
+	Set Bepaler = ##class(APPS.EC.impl.HaefeleDEVerzendwijzeBepaler).%New()
+	
+	
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,200000),"HD3")
+]]></Implementation>
+</Method>
+
+<Method name="Test ongeldige postcode niet numeriek">
+<Implementation><![CDATA[
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Ongeldige landcode (DE) / postcode (geen postcode)  combinatie voor Haefele DE")
+	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException",Substrings))
+
+	#dim LandCode as %String = "DE"
+	Set Bepaler = ##class(APPS.EC.impl.HaefeleDEVerzendwijzeBepaler).%New()
+	
+	
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,"geen postcode"),"HD3")
+]]></Implementation>
+</Method>
+
+<Method name="Test ongeldige postcode leeg">
+<Implementation><![CDATA[
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Ongeldige landcode (DE) / postcode ()  combinatie voor Haefele DE")
+	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException",Substrings))
+
+	#dim LandCode as %String = "DE"
+	Set Bepaler = ##class(APPS.EC.impl.HaefeleDEVerzendwijzeBepaler).%New()
+	
+	
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,""),"HD3")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>