Index: DOM/PM/impl/ProductAPI.cls.xml
===================================================================
diff -u -r45507 -r45894
--- DOM/PM/impl/ProductAPI.cls.xml	(.../ProductAPI.cls.xml)	(revision 45507)
+++ DOM/PM/impl/ProductAPI.cls.xml	(.../ProductAPI.cls.xml)	(revision 45894)
@@ -108,13 +108,37 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefProductVolgensIdentNr">
+<FormalSpec>IdentNr:%String</FormalSpec>
+<ReturnType>DOM.PM.Product</ReturnType>
+<Implementation><![CDATA[
+	#dim Product As DOM.PM.Product = ""
+	
+	If (..BestaatIdentNr(IdentNr)) {
+		Set Product = ..GeefProduct(##class(Prod.Product).IdentNrToPRNr(IdentNr))
+	} Else {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Product met IdentNr '" _ IdentNr _ "' bestaat niet."))
+	}
+	
+	Quit Product
+]]></Implementation>
+</Method>
+
 <Method name="GeefProductVolgensKorttekst">
 <FormalSpec>Korttekst:%String</FormalSpec>
 <ReturnType>DOM.PM.Product</ReturnType>
 <Implementation><![CDATA[
-	do:'..BestaatKorttekst(Korttekst) ##class(TECH.Exceptions.InvalidInputException).%New("Product met korttekst '"_Korttekst_"' bestaat niet")
-	#dim ProductID As %String = $order(^Prod.KorttekstZoekIndexI("KorttekstIndex"," "_$$UPTRIMAN^vhRtn1(Korttekst),""))
-	quit ..GeefProduct(ProductID)
+	#dim Product As DOM.PM.Product = ""
+	
+	If (..BestaatKorttekst(Korttekst)) {
+		#dim ProductID As %String = $order(^Prod.KorttekstZoekIndexI("KorttekstIndex"," "_$$UPTRIMAN^vhRtn1(Korttekst),""))
+		
+		Set Product = ..GeefProduct(ProductID)	
+	} Else {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Product met Korttekst '" _ Korttekst _ "' bestaat niet."))
+	}
+
+	Quit Product
 ]]></Implementation>
 </Method>
 
Index: DOM/PM/ProductAPI.cls.xml
===================================================================
diff -u -r30491 -r45894
--- DOM/PM/ProductAPI.cls.xml	(.../ProductAPI.cls.xml)	(revision 30491)
+++ DOM/PM/ProductAPI.cls.xml	(.../ProductAPI.cls.xml)	(revision 45894)
@@ -13,6 +13,12 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="GeefProductVolgensIdentNr">
+<Abstract>1</Abstract>
+<FormalSpec>IdentNr:%String</FormalSpec>
+<ReturnType>DOM.PM.Product</ReturnType>
+</Method>
+
 <Method name="GeefProductVolgensKorttekst">
 <Abstract>1</Abstract>
 <FormalSpec>Korttekst:%String</FormalSpec>
Index: vhUnitTest/DOM/PM/impl/ProductAPI/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/impl/ProductAPI/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/impl/ProductAPI/Test.cls.xml	(revision 45894)
@@ -0,0 +1,47 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.PM.impl.ProductAPI.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="ProductApi">
+<Type>DOM.PM.ProductAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+	
+	Set ..ProductApi = ##class(DOM.PM.impl.ProductAPI).%New()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Error wordt geraised indien een product opgevraagd wordt voor een onbestaande IdentNr">
+<Implementation><![CDATA[
+	#dim OnbestaandeIdentNr As %String = "OnbestaandeIdentNr"
+	
+	Do $$$AssertFalse(..ProductApi.BestaatIdentNr(OnbestaandeIdentNr))
+	
+	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Product met IdentNr '" _ OnbestaandeIdentNr _ "' bestaat niet.")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.InvalidInputException).%ClassName(1), Substrings))
+	
+	Do ..ProductApi.GeefProductVolgensIdentNr(OnbestaandeIdentNr)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Error wordt geraised indien een product opgevraagd wordt voor een onbestaande Korttekst">
+<Implementation><![CDATA[
+	#dim OnbestaandeKorttekst As %String = "OnbestaandeKorttekst"
+	
+	Do $$$AssertFalse(..ProductApi.BestaatKorttekst(OnbestaandeKorttekst))
+	
+	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Product met Korttekst '" _ OnbestaandeKorttekst _ "' bestaat niet.")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.InvalidInputException).%ClassName(1), Substrings))
+	
+	Do ..ProductApi.GeefProductVolgensKorttekst(OnbestaandeKorttekst)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>