Index: APPS/TRANSP/Offerte/impl/DHL/TariefRepository.cls.xml
===================================================================
diff -u -r34165 -r34245
--- APPS/TRANSP/Offerte/impl/DHL/TariefRepository.cls.xml	(.../TariefRepository.cls.xml)	(revision 34165)
+++ APPS/TRANSP/Offerte/impl/DHL/TariefRepository.cls.xml	(.../TariefRepository.cls.xml)	(revision 34245)
@@ -1,6 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.TRANSP.Offerte.impl.DHL.TariefRepository">
+<IncludeCode>vhLib.Macro</IncludeCode>
 <Super>TECH.Persistentie.Repository</Super>
 
 <Parameter name="DataClassName">
@@ -12,10 +13,20 @@
 <FormalSpec>LandCode:%String,PostCode:%String</FormalSpec>
 <ReturnType>TECH.Persistent</ReturnType>
 <Implementation><![CDATA[
-	#dim Sleutel As %String = LandCode _$EXTRACT(PostCode,1,2)
+	#dim Sleutel As %String = LandCode _..PostCodeNaarSleutel(PostCode)
 	Quit ..GeefViaFilter("Sleutel = ?", $LB(Sleutel))
 ]]></Implementation>
 </Method>
+
+<Method name="PostCodeNaarSleutel">
+<FormalSpec>PostCode:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set PostCode = $$$Right("00000" _PostCode,5)
+	Quit $EXTRACT(PostCode,1,2)
+]]></Implementation>
+</Method>
 </Class>