Index: DOM/VKP/impl/VerkoopAPI.cls.xml
===================================================================
diff -u -r34878 -r67709
--- DOM/VKP/impl/VerkoopAPI.cls.xml	(.../VerkoopAPI.cls.xml)	(revision 34878)
+++ DOM/VKP/impl/VerkoopAPI.cls.xml	(.../VerkoopAPI.cls.xml)	(revision 67709)
@@ -66,14 +66,18 @@
 <FormalSpec>KlantID:DOM.VKP.VanHoeckeKlantID,IsNative:%Boolean=0</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	if '..BestaatKlant(KlantID) {
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Er is geen klant met KlantID "_KlantID))
+	#dim KlantPartijID As %String = KlantID
+	if '..BestaatKlant(KlantPartijID) {
+		Set KlantPartijID =  ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(KlantID)
+		If '..BestaatKlant(KlantPartijID) {
+			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Er is geen klant met KlantID "_KlantID))
+		}
 	}
-	
-	#dim KlantNummer As %String = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(KlantID)
+
+	#dim KlantNummer As %String = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(KlantPartijID)
 	#dim Klant As DOM.VKP.VanHoeckeKlant = ..GeefGeimplementeerdeKlant(KlantNummer,IsNative)
 	
-	If ('$IsObject(Klant)) || ($Piece(KlantID,"||",1) '= "K") {
+	If ('$IsObject(Klant)) || ($Piece(KlantPartijID,"||",1) '= "K") {
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Er is geen klant met KlantID "_KlantID))
 	}
 	set Klant = ..OpenKlant(Klant)