Index: APPS/EC/impl/HaefeleDEVerzendwijzeBepaler.cls.xml
===================================================================
diff -u -r64627 -r64703
--- APPS/EC/impl/HaefeleDEVerzendwijzeBepaler.cls.xml	(.../HaefeleDEVerzendwijzeBepaler.cls.xml)	(revision 64627)
+++ APPS/EC/impl/HaefeleDEVerzendwijzeBepaler.cls.xml	(.../HaefeleDEVerzendwijzeBepaler.cls.xml)	(revision 64703)
@@ -67,6 +67,32 @@
 		}		
 	}
 
+	if ((LandCode = "FR") && ($$$HasLength(Postcode)) & (##class(TECH.StringUtils).RemoveAllWhitespaces(##class(TECH.StringUtils).StripAllNumeric(Postcode))="")) {
+		#dim PostcodeText as %String = ##class(TECH.StringUtils).AddLeadingChar(Postcode,"0",5)
+		Set Regio = +$Extract(PostcodeText,1,2)
+		If (Regio < 2) {
+			Set Verzendwijze = "HD2"
+		} Elseif((Regio > 1) && (Regio < 40)) {
+			Set Verzendwijze = "HD4"
+		} Elseif((Regio > 39) && (Regio < 67)) {
+			Set Verzendwijze = "HD3"
+		} Elseif((Regio > 66) && (Regio < 78)) {
+			Set Verzendwijze = "HD2"
+		} Elseif((Regio > 77) && (Regio < 88)) {
+			Set Verzendwijze = "HD4"
+		} Elseif((Regio > 87) && (Regio < 96)) {
+			Set Verzendwijze = "HD2"
+		} Else {
+			Set Verzendwijze = ""
+		}		
+	}
+	
+	if ((LandCode = "DK") && ($$$HasLength(Postcode)) & (##class(TECH.StringUtils).RemoveAllWhitespaces(##class(TECH.StringUtils).StripAllNumeric(Postcode))="")) {
+		Set Verzendwijze="DA2"
+	}
+
+
+
 	if $$$Not($$$HasLength(Verzendwijze)){
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Ongeldige landcode ("_LandCode_") / postcode ("_Postcode_")  combinatie voor Haefele DE"))
 	} 
@@ -135,6 +161,28 @@
 			Set Verzendwijze = "HD4"
 		}		
 	}
+	if ((LandCode = "FR") && ($$$HasLength(Postcode)) & (##class(TECH.StringUtils).RemoveAllWhitespaces(##class(TECH.StringUtils).StripAllNumeric(Postcode))="")) {
+		Set Regio = +$Extract(Postcode,1,2)
+		If (Regio < 2) {
+			Set Verzendwijze = "HD2"
+		} Elseif((Regio > 1) && (Regio < 40)) {
+			Set Verzendwijze = "HD4"
+		} Elseif((Regio > 39) && (Regio < 67)) {
+			Set Verzendwijze = "HD3"
+		} Elseif((Regio > 66) && (Regio < 78)) {
+			Set Verzendwijze = "HD2"
+		} Elseif((Regio > 77) && (Regio < 88)) {
+			Set Verzendwijze = "HD4"
+		} Elseif((Regio > 87) && (Regio < 96)) {
+			Set Verzendwijze = "HD2"
+		} Else {
+			Set Verzendwijze = ""
+		}		
+	}
+	
+	if ((LandCode = "DK") && ($$$HasLength(Postcode)) & (##class(TECH.StringUtils).RemoveAllWhitespaces(##class(TECH.StringUtils).StripAllNumeric(Postcode))="")) {
+		Set Verzendwijze="DA2"
+	}
 
 	if $$$Not($$$HasLength(Verzendwijze)){
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Ongeldige landcode ("_LandCode_") / postcode ("_Postcode_")  combinatie voor Haefele DE"))