Index: APPS/TRANSP/Offerte/impl/DHL/TariefRepository.cls.xml
===================================================================
diff -u -r34162 -r34165
--- APPS/TRANSP/Offerte/impl/DHL/TariefRepository.cls.xml	(.../TariefRepository.cls.xml)	(revision 34162)
+++ APPS/TRANSP/Offerte/impl/DHL/TariefRepository.cls.xml	(.../TariefRepository.cls.xml)	(revision 34165)
@@ -11,7 +11,9 @@
 <Method name="GeefViaLandEnPostCode">
 <FormalSpec>LandCode:%String,PostCode:%String</FormalSpec>
 <ReturnType>TECH.Persistent</ReturnType>
-<Implementation><![CDATA[	Quit ..GeefViaFilter("LandCode = ? AND ? %STARTSWITH Sleutel", $LB(LandCode,PostCode))
+<Implementation><![CDATA[
+	#dim Sleutel As %String = LandCode _$EXTRACT(PostCode,1,2)
+	Quit ..GeefViaFilter("Sleutel = ?", $LB(Sleutel))
 ]]></Implementation>
 </Method>
 </Class>