Index: DOM/PARTIJ/impl/DataM/DataMKlant.cls.xml
===================================================================
diff -u -r50783 -r50792
--- DOM/PARTIJ/impl/DataM/DataMKlant.cls.xml	(.../DataMKlant.cls.xml)	(revision 50783)
+++ DOM/PARTIJ/impl/DataM/DataMKlant.cls.xml	(.../DataMKlant.cls.xml)	(revision 50792)
@@ -235,7 +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",106,..GeefIndexSleutel(..GeefPostcodeMetlandcodeVoorafIndienNodig($$$False)))
 	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()))
@@ -640,10 +640,12 @@
 </Method>
 
 <Method name="GeefPostcodeMetlandcodeVoorafIndienNodig">
+<FormalSpec>GebruikNieuwePostcode:%Boolean=1</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim Postcode As %String = ..GeefAdres().GeefPostcode()
+	#dim OudeAlgemeneGegevens As %String = ^DKL("K","KL.A",..KlantNummer,0)
+	#dim Postcode As %String = $$$If(GebruikNieuwePostcode,..GeefAdres().GeefPostcode(),$Piece(OudeAlgemeneGegevens,"\",6))
 	#dim Landcode As %String = ..GeefAdres().GeefLand().GeefCode()
 	#dim EersteGedeelte As %String = $Piece(Postcode,"-",1)