Index: DOM/PARTIJ/impl/PartijAPI.cls.xml
===================================================================
diff -u -r29059 -r49773
--- DOM/PARTIJ/impl/PartijAPI.cls.xml	(.../PartijAPI.cls.xml)	(revision 29059)
+++ DOM/PARTIJ/impl/PartijAPI.cls.xml	(.../PartijAPI.cls.xml)	(revision 49773)
@@ -43,6 +43,7 @@
 			If ($data(^KK1(NieuwKlantNummer))) {
 				Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Partij "_PartijID_" bestaat reeds."))	
 			}
+			Do ..UpdateLaatsteKlantNummer(NieuwKlantNummer)
 		} Else {
 			Set NieuwKlantNummer = ..GeefNieuwKlantNummer()
 		}
@@ -63,6 +64,16 @@
 ]]></Implementation>
 </Method>
 
+<Method name="UpdateLaatsteKlantNummer">
+<FormalSpec>NieuwKlantNummer:%Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If ($G(^DIN("K","KL")) < NieuwKlantNummer) {
+		Set ^DIN("K","KL") = NieuwKlantNummer
+	}
+]]></Implementation>
+</Method>
+
 <Method name="GeefPartijViaProtimeNr">
 <Description>
 Zoekt tussen de klanten de medewerkers van VanHoecke en Halux