Index: DOM/VKP/impl/DataM/DataMKlantNative.cls.xml
===================================================================
diff -u -r53949 -r53953
--- DOM/VKP/impl/DataM/DataMKlantNative.cls.xml	(.../DataMKlantNative.cls.xml)	(revision 53949)
+++ DOM/VKP/impl/DataM/DataMKlantNative.cls.xml	(.../DataMKlantNative.cls.xml)	(revision 53953)
@@ -754,9 +754,15 @@
 </Method>
 
 <Method name="VoegToeLeverAdres">
-<FormalSpec>LeverAdres:DOM.VKP.LeverAdres</FormalSpec>
+<Description>
+WEET WAT JE DOET MET PARAMETER ADRESNR !!! DEZE KAN LEIDEN TOT HET OVERSCHRIJVEN VAN EEN BESTAAND ADRES
+GEEF LIEFST GEEN 2e PARAMETER MEE OM NIEUW NUMMER TE LATEN GEBRUIKEN of GEBRUIK MINIMAAL...
+##class(DOM.VKP.impl.LeverAdresRepository).BestaatViaKlantIdEnKlantAdresNr(KlantId, KlantAdresNr)
+... OM TE WETEN OF HET NUMMER AL IN GEBRUIK IS
+DEZE EXTRA PARAMETER WAS NODIG VOOR DE VHIP900 KLANTSYNC AX2ADMIN VOOR BEHANDELING VAN PrimaryDlvAddr INDIEN HET NIEUW BINNENKOMT</Description>
+<FormalSpec>LeverAdres:DOM.VKP.LeverAdres,AdresNr:%Integer=""</FormalSpec>
 <Implementation><![CDATA[
-	#dim VolgendNummer As %Integer = ..GeefVolgendVrijKlantAdresNr()
+	#dim VolgendNummer As %Integer = $$$If(($$$HasLength(AdresNr)), AdresNr, ..GeefVolgendVrijKlantAdresNr())
 	#dim AdresNode As %String = ""
 	Set $Piece(AdresNode,"\",1) = VolgendNummer
 	Set $Piece(AdresNode,"\",2) = LeverAdres.GeefNaam()