Index: vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/TariefRepository/Test.cls.xml
===================================================================
diff -u -r34162 -r34165
--- vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/TariefRepository/Test.cls.xml	(.../Test.cls.xml)	(revision 34162)
+++ vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/TariefRepository/Test.cls.xml	(.../Test.cls.xml)	(revision 34165)
@@ -22,8 +22,8 @@
 <FormalSpec>QueryAPISpy:vhTest.Spy.TECH.Query.QueryAPI</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Do $$$AssertEquals(QueryAPISpy.Statement,"SELECT ID FROM APPS_TRANSP_Offerte_impl_DHL.Tarief WHERE LandCode = ? AND ? %STARTSWITH Sleutel")
-	Do $$$AssertEquals(QueryAPISpy.Params ,$LB("DE","54122"))
+	Do $$$AssertEquals(QueryAPISpy.Statement,"SELECT ID FROM APPS_TRANSP_Offerte_impl_DHL.Tarief WHERE Sleutel = ?")
+	Do $$$AssertEquals(QueryAPISpy.Params ,$LB("DE54"))
 ]]></Implementation>
 </Method>
 
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>