Index: APPS/TRANSP/Offerte/impl/DHL/TariefRepository.cls.xml
===================================================================
diff -u -r36450 -r56718
--- APPS/TRANSP/Offerte/impl/DHL/TariefRepository.cls.xml	(.../TariefRepository.cls.xml)	(revision 36450)
+++ APPS/TRANSP/Offerte/impl/DHL/TariefRepository.cls.xml	(.../TariefRepository.cls.xml)	(revision 56718)
@@ -23,6 +23,8 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
+	Do ##class(vhLib.Logger).%New().Debug("Verpakkingberekening","Tariefbepaling via sleutel voor LandCode '" _LandCode_ "' en PostCode '" _PostCode _"'")
+
 	#Dim PostCodeSleutel As %String = ""
 	if LandCode = "IE" {
 		if ##class(TECH.StringUtils).ToUpper($Extract(PostCode,1,2)) = "BT" { 
@@ -37,10 +39,17 @@
 			Set PostCodeSleutel = PostCodeSleutel _$Extract(PostCode,KarakterPositie,KarakterPositie)
 			Set KarakterPositie = KarakterPositie +1
 		}
-	} Else {
+	} Elseif LandCode = "DE" {
+		Set PostCode = $Replace(PostCode,"DE-","")
 		Set PostCodeSleutel = ##class(TECH.StringUtils).AlignRight(PostCode,0,..GeefPostCodeLengte(LandCode)) 
 		Set PostCodeSleutel = $EXTRACT(PostCodeSleutel,1,2)
+	}Else {
+		Set PostCodeSleutel = ##class(TECH.StringUtils).AlignRight(PostCode,0,..GeefPostCodeLengte(LandCode)) 
+		Set PostCodeSleutel = $EXTRACT(PostCodeSleutel,1,2)
 	}
+
+	Do ##class(vhLib.Logger).%New().Debug("Verpakkingberekening","Tariefbepaling via sleutel voor LandCode '" _LandCode_ "' en PostCode '" _PostCode _"' geeft sleutel '" _##class(TECH.StringUtils).ToUpper(PostCodeSleutel)_"'")
+
 	Quit ##class(TECH.StringUtils).ToUpper(PostCodeSleutel)
 ]]></Implementation>
 </Method>