Index: DOM/common/impl/AdresUtils.cls.xml
===================================================================
diff -u -r71039 -r71126
--- DOM/common/impl/AdresUtils.cls.xml	(.../AdresUtils.cls.xml)	(revision 71039)
+++ DOM/common/impl/AdresUtils.cls.xml	(.../AdresUtils.cls.xml)	(revision 71126)
@@ -1,6 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="DOM.common.impl.AdresUtils">
+<IncludeCode>vhLib.Macro</IncludeCode>
 <Super>TECH.RegisteredObject</Super>
 
 <Method name="VulInAdresViaDataMString">
@@ -31,7 +32,9 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	If (LandNr = ##class(DOM.common.enu.Land).Polen()) { 
-		;niet corrigeren		
+		If ($$$UCase($Piece(Postcode,"-",1)) = "PL"){
+			Set Postcode = $Piece(Postcode,"-",2,99)
+		}
 	} Elseif (LandNr '= ##class(DOM.common.enu.Land).Belgie()) && $Length($Piece(Postcode,"-",2)) {
 		#dim EersteGedeelte As %String = $Piece(Postcode,"-",1)
 		If $Length(##class(TECH.StringUtils).Trim(EersteGedeelte)) <= 2 {