Index: APPS/TRANSP/Offerte/impl/DHL/TariefRepository.cls.xml
===================================================================
diff -u -r34450 -r34513
--- APPS/TRANSP/Offerte/impl/DHL/TariefRepository.cls.xml	(.../TariefRepository.cls.xml)	(revision 34450)
+++ APPS/TRANSP/Offerte/impl/DHL/TariefRepository.cls.xml	(.../TariefRepository.cls.xml)	(revision 34513)
@@ -25,7 +25,11 @@
 <Implementation><![CDATA[
 	#Dim PostCodeSleutel As %String = ""
 	if LandCode = "IE" {
-		Set PostCodeSleutel = PostCode
+		if ##class(TECH.StringUtils).ToUpper($Extract(PostCode,1,4)) = "IEBT" { 
+			Set PostCodeSleutel = "IEBT"
+		} else {
+			Set PostCodeSleutel = ##class(TECH.StringUtils).ToUpper(PostCode)
+		}
 	} Elseif LandCode = "GB" {
 		#dim KarakterPositie As %Integer = 1
 		While ('$isValidNum($Extract(PostCode,KarakterPositie,KarakterPositie))) && (KarakterPositie <= $Length(PostCode))