Index: DOM/PARTIJ/impl/DataM/DataMKlant.cls.xml
===================================================================
diff -u -r48193 -r50783
--- DOM/PARTIJ/impl/DataM/DataMKlant.cls.xml	(.../DataMKlant.cls.xml)	(revision 48193)
+++ DOM/PARTIJ/impl/DataM/DataMKlant.cls.xml	(.../DataMKlant.cls.xml)	(revision 50783)
@@ -129,7 +129,7 @@
 			#dim IndexUpdated As %Boolean = 0
 			If ( (..GeefNaam() '= $Piece(OudeAlgemeneGegevens,"\",2)) || 
 				(..GeefAdres().GeefStraat() '= $Piece(OudeAlgemeneGegevens,"\",5)) || 
-				(..GeefAdres().GeefPostcode() '= $Piece(OudeAlgemeneGegevens,"\",6)) || 
+				(..GeefPostcodeMetlandcodeVoorafIndienNodig() '= $Piece(OudeAlgemeneGegevens,"\",6)) || 
 				(..GeefAdres().GeefGemeente() '= $Piece(OudeAlgemeneGegevens,"\",7)) || 
 				(..GeefTelefoon1() '= $Piece(OudeAlgemeneGegevens,"\",13)) || 
 				(..GeefBTWNr() '= $Piece(OudeAlgemeneGegevens,"\",16)))
@@ -196,7 +196,7 @@
 	Set ^INDEX("K","KL",101,..GeefIndexSleutel(..KlantNummer)) = KlantIndex
 	Set ^INDEX("K","KL",102,KlantIndex) = KlantIndex
 	Set ^INDEX("K","KL",105,..GeefIndexSleutel(..GeefAdres().GeefStraat())) = KlantIndex
-	Set ^INDEX("K","KL",106,..GeefIndexSleutel(..GeefAdres().GeefPostcode())) = KlantIndex
+	Set ^INDEX("K","KL",106,..GeefIndexSleutel(..GeefPostcodeMetlandcodeVoorafIndienNodig())) = KlantIndex
 	Set ^INDEX("K","KL",107,..GeefIndexSleutel(..GeefAdres().GeefGemeente())) = KlantIndex
 	Set ^INDEX("K","KL",113,..GeefIndexSleutel(..GeefTelefoon1())) = KlantIndex
 	Set ^INDEX("K","KL",116,..GeefIndexSleutel(..GeefBTWNr())) = KlantIndex
@@ -235,6 +235,7 @@
 	Kill ^INDEX("K","KL",102,OudeKlantGegevens.GeefKlantIndexKKL())
 	Kill ^INDEX("K","KL",105,..GeefIndexSleutel(OudeKlantGegevens.GeefAdres().GeefStraat()))
 	Kill ^INDEX("K","KL",106,..GeefIndexSleutel(OudeKlantGegevens.GeefAdres().GeefPostcode()))
+	Kill ^INDEX("K","KL",106,..GeefIndexSleutel(..GeefPostcodeMetlandcodeVoorafIndienNodig()))
 	Kill ^INDEX("K","KL",107,..GeefIndexSleutel(OudeKlantGegevens.GeefAdres().GeefGemeente()))
 	Kill ^INDEX("K","KL",113,..GeefIndexSleutel(OudeKlantGegevens.GeefTelefoon1()))
 	Kill ^INDEX("K","KL",116,..GeefIndexSleutel(OudeKlantGegevens.GeefBTWNr()))
@@ -637,6 +638,22 @@
 	Do BLDINDEX^PERS(PersIndex,..KlantNummer)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefPostcodeMetlandcodeVoorafIndienNodig">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Postcode As %String = ..GeefAdres().GeefPostcode()
+	#dim Landcode As %String = ..GeefAdres().GeefLand().GeefCode()
+	#dim EersteGedeelte As %String = $Piece(Postcode,"-",1)
+	
+	If (($$$Not($Length(##class(TECH.StringUtils).Trim(EersteGedeelte)) <= 2)) && ($$$Not(Landcode = "BE"))) {
+		Set Postcode = Landcode_"-"_Postcode
+	}
+	
+	Quit Postcode
+]]></Implementation>
+</Method>
 </Class>