Index: APPS/TRANSP/Offerte/impl/DHL/TransportduurRepository.cls.xml
===================================================================
diff -u -r34608 -r36236
--- APPS/TRANSP/Offerte/impl/DHL/TransportduurRepository.cls.xml	(.../TransportduurRepository.cls.xml)	(revision 34608)
+++ APPS/TRANSP/Offerte/impl/DHL/TransportduurRepository.cls.xml	(.../TransportduurRepository.cls.xml)	(revision 36236)
@@ -41,6 +41,7 @@
 <FormalSpec>LandCode:%String,PostCode:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
+	Set PostCode = $Extract(PostCode,0,..GeefPostCodeLengte(LandCode))
 	Set PostCode = ##class(TECH.StringUtils).AlignRight(PostCode,0,..GeefPostCodeLengte(LandCode)) 
 	Quit ##class(TECH.StringUtils).ToUpper(PostCode)
 ]]></Implementation>