Index: DOM/VKP/Order/impl/OrderLijnProductService.cls.xml
===================================================================
diff -u -r33313 -r33314
--- DOM/VKP/Order/impl/OrderLijnProductService.cls.xml	(.../OrderLijnProductService.cls.xml)	(revision 33313)
+++ DOM/VKP/Order/impl/OrderLijnProductService.cls.xml	(.../OrderLijnProductService.cls.xml)	(revision 33314)
@@ -25,6 +25,9 @@
 <Implementation><![CDATA[
 	#dim Order As DOM.VKP.Order = ..OrderAPI.GeefOrder(OrderID)
 	#dim OrderLijn As DOM.VKP.impl.DataM.DataMProductOrderlijn = Order.GeefOrderLijnViaVolgnummer(OrderLijnVolgnummer)
+	If $$$Not($IsObject(OrderLijn)) {
+		Do ##class(TECH.Exceptions.InvalidInputException).Throw("Orderlijn '"_OrderLijnVolgnummer_"' bestaat niet voor OrderID '"_OrderID_"'.")
+	}
 	Quit OrderLijn.GeefProductID()
 ]]></Implementation>
 </Method>
Index: vhUnitTest/DOM/VKP/Order/impl/OrderLijnProductService/GeefProductID/Test.cls.xml
===================================================================
diff -u -r33313 -r33314
--- vhUnitTest/DOM/VKP/Order/impl/OrderLijnProductService/GeefProductID/Test.cls.xml	(.../Test.cls.xml)	(revision 33313)
+++ vhUnitTest/DOM/VKP/Order/impl/OrderLijnProductService/GeefProductID/Test.cls.xml	(.../Test.cls.xml)	(revision 33314)
@@ -42,6 +42,31 @@
 ]]></Implementation>
 </Method>
 
+<Method name="TestOrderLijnIseEenTekstlijn">
+<Implementation><![CDATA[	; TO DO   (gedrag nog te bepalen) : exception of return "" ?
+]]></Implementation>
+</Method>
+
+<Method name="Test: OrderLijn Bestaat Niet Verwacht Exceptie">
+<Implementation><![CDATA[
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Orderlijn '"_"UT_OnbestaandeLijnVolgnummer"_"' bestaat niet voor OrderID '"_..#OrderID_"'")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.InvalidInputException).%ClassName(1),Substrings))
+
+	Set OrderLijnProductService = ##class(DOM.VKP.Order.impl.OrderLijnProductService).%New()
+	Do $$$AssertEquals(OrderLijnProductService.GeefProductID(..#OrderID,"UT_OnbestaandeLijnVolgnummer"),"")
+]]></Implementation>
+</Method>
+
+<Method name="Test Order Bestaat Niet Verwacht Exceptie">
+<Implementation><![CDATA[
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Order "_"UT_OnbestaandeOrderID"_" bestaat niet!")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.InvalidInputException).%ClassName(1),Substrings))
+
+	Set OrderLijnProductService = ##class(DOM.VKP.Order.impl.OrderLijnProductService).%New()
+	Do OrderLijnProductService.GeefProductID("UT_OnbestaandeOrderID","")
+]]></Implementation>
+</Method>
+
 <Method name="MaakTestData">
 <Private>1</Private>
 <Implementation><![CDATA[