Index: DOM/AKP/impl/ToeleveringService.cls.xml
===================================================================
diff -u -r63889 -r68264
--- DOM/AKP/impl/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 63889)
+++ DOM/AKP/impl/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 68264)
@@ -110,6 +110,42 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefLijnReferentie">
+<FormalSpec>ToeleveringID:%String,ProductId:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Try {
+		#dim Toelevering As DOM.AKP.Toelevering = ..ToeleveringApi.GeefToelevering(ToeleveringID)
+		#dim ToeleveringLijnIterator As TECH.Iterator = Toelevering.GeefToeleveringLijnIterator()
+		#dim ToeleveringLijn As DOM.AKP.ToeleveringLijn
+		#dim Order As DOM.VKP.Order
+		#dim OrderLijn As DOM.VKP.ProductOrderlijn
+		#dim OrderLijnIterator As TECH.Iterator
+		#dim ProductInOrder As %Boolean = $$$False
+		
+		While ToeleveringLijnIterator.HasNext() {
+			Set ToeleveringLijn = ToeleveringLijnIterator.Next()
+			Set Order = ..OrderApi.GeefOrder(Toelevering.GeefOrderID())
+			Set OrderLijnIterator = Order.GeefOrderLijnIterator()
+			While ((OrderLijnIterator.HasNext()) && ($$$Not(ProductInOrder))) {
+				Set OrderLijn = OrderLijnIterator.Next()
+				If OrderLijn.GeefID()=ToeleveringLijn.GeefOrderLijnID() {
+					Set:(OrderLijn.GeefProductID()=ProductId) ProductInOrder=$$$True
+				}
+			}
+			
+			Quit:ProductInOrder
+		}
+		
+	} Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Do ##class(vhLib.Logger).%New().Warning("ToeleveringService","De referentie voor product '"_ProductId_"' op toelevering '"_ToeleveringID_"' kon niet bepaald worden")
+		Set ProductInOrder = $$$False
+	}
+	Quit $$$If(ProductInOrder,OrderLijn.GeefProjectReferentie(),"")
+]]></Implementation>
+</Method>
+
 <Method name="HeeftToeleveringMinstensEenSpaceStep">
 <FormalSpec>ToeleveringNr:%String=""</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
Index: vhUnitTest/DOM/AKP/impl/ToeleveringService/GeefLijnReferentie/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/AKP/impl/ToeleveringService/GeefLijnReferentie/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/AKP/impl/ToeleveringService/GeefLijnReferentie/Test.cls.xml	(revision 68264)
@@ -0,0 +1,130 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.AKP.impl.ToeleveringService.GeefLijnReferentie.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="ToeleveringId">
+<Type>%String</Type>
+<Default>298104</Default>
+</Parameter>
+
+<Property name="OrderApiMock">
+<Type>DOM.VKP.OrderAPI</Type>
+</Property>
+
+<Property name="OrderStub">
+<Type>DOM.VKP.Order</Type>
+</Property>
+
+<Property name="StandaardProductlijn">
+<Type>DOM.VKP.impl.DataM.DataMProductOrderlijn</Type>
+</Property>
+
+<Property name="OrderLijnen">
+<Type>%ListOfObjects</Type>
+</Property>
+
+<Property name="ToeleveringApiMock">
+<Type>DOM.AKP.ToeleveringAPI</Type>
+</Property>
+
+<Property name="ToeleveringStub">
+<Type>DOM.AKP.Toelevering</Type>
+</Property>
+
+<Property name="ToeleveringLijnStub">
+<Type>DOM.AKP.ToeleveringLijn</Type>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	Set ..OrderApiMock = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
+	Set ..OrderStub = ##class(vhTest.Utils.DOM.VKP.Order).StandaardOrder()
+	Do ..OrderStub.IndienMethodCall("GeefOrderLijnIterator").DanReturn(##class(TECH.ListIterator).%New(..OrderLijnen))
+	Set ..StandaardProductlijn = ##class(vhTest.Utils.DOM.VKP.ProductOrderlijn).StandaardProductLijn(..OrderStub)
+	Do ..StandaardProductlijn.IndienMethodCall("GeefProjectReferentie",).DanReturn("EenSkoonReferentie")
+	Set ..OrderLijnen = ##class(%ListOfObjects).%New()
+	Do ..OrderLijnen.Insert(..StandaardProductlijn)
+	Set ..ToeleveringApiMock = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).MockInstance()	
+	Set ..ToeleveringStub = ##class(vhTest.Mock.DOM.AKP.Toelevering).%New()
+	Set ..ToeleveringLijnStub = ##class(vhTest.Utils.DOM.AKP.ToeleveringLijn).ToeleveringLijnMetKomLink()
+	Do ..ToeleveringStub.IndienMethodCall("GeefOrderID").DanReturn(100000)
+	Do ..ToeleveringStub.IndienMethodCall("GeefToeleveringLijnIterator").DanReturn(##class(TECH.ListUtils).CreateIteratorOfObjects(..ToeleveringLijnStub))
+]]></Implementation>
+</Method>
+
+<Method name="Test: standaardgedrag: order met 1 orderlijn met juiste product">
+<Implementation><![CDATA[
+	Do ..OrderApiMock.VerwachtMethodCall("GeefOrder",..OrderStub.GeefID()).DanReturn(..OrderStub)
+	
+	Do ..ToeleveringApiMock.VerwachtMethodCall("GeefToelevering",..#ToeleveringId).DanReturn(..ToeleveringStub)
+	Set ToeleveringService = ##class(DOM.AKP.impl.ToeleveringService).%New(..ToeleveringApiMock, , ..OrderApiMock)
+	#dim Referentie As %String = ToeleveringService.GeefLijnReferentie(..#ToeleveringId,1000)
+	
+	Do $$$AssertEquals(Referentie,"EenSkoonReferentie")
+	
+	Do ..OrderApiMock.Verifieer()
+	Do ..ToeleveringApiMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: onbekend product -&gt; leeg result">
+<Implementation><![CDATA[
+	Do ..OrderApiMock.VerwachtMethodCall("GeefOrder",..OrderStub.GeefID()).DanReturn(..OrderStub)
+	
+	Do ..ToeleveringApiMock.VerwachtMethodCall("GeefToelevering",..#ToeleveringId).DanReturn(..ToeleveringStub)
+	Set ToeleveringService = ##class(DOM.AKP.impl.ToeleveringService).%New(..ToeleveringApiMock, , ..OrderApiMock)
+	
+	#dim Referentie As %String = ToeleveringService.GeefLijnReferentie(..#ToeleveringId,999)
+	
+	Do $$$AssertEquals(Referentie,"")
+	
+	Do ..OrderApiMock.Verifieer()
+	Do ..ToeleveringApiMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: order bestaat niet -&gt; leeg result">
+<Implementation><![CDATA[
+	Set OrderApiStub = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
+	#dim OrderMock As vhTest.Mock.DOM.VKP.Order = ##class(vhTest.Utils.DOM.VKP.Order).StandaardOrder()
+	Do OrderApiStub.IndienMethodCall("GeefOrder",OrderMock.GeefID()).DanException($$$DummyException)
+	
+	Do ..ToeleveringApiMock.IndienMethodCall("GeefToelevering",..#ToeleveringId).DanReturn(..ToeleveringStub)
+	Set ToeleveringService = ##class(DOM.AKP.impl.ToeleveringService).%New(..ToeleveringApiMock, , OrderApiStub)
+	
+	#dim Referentie As %String = ToeleveringService.GeefLijnReferentie(..#ToeleveringId,999)
+	
+	Do $$$AssertEquals(Referentie,"")
+]]></Implementation>
+</Method>
+
+<Method name="Test: meerdere toeleveringlijnen -&gt; lijn met juist product gebruiken">
+<Implementation><![CDATA[
+	#dim StandaardProductLijn2 As vhTest.Mock.DOM.VKP.impl.DataM.DataMProductOrderlijn = ##class(vhTest.Utils.DOM.VKP.ProductOrderlijn).StandaardProductLijn(..OrderStub)
+	Do StandaardProductLijn2.IndienMethodCall("GeefProjectReferentie",).DanReturn("EenAndereSkoonReferentie")
+	Do StandaardProductLijn2.IndienMethodCall("GeefProductID").DanReturn(1001)
+	Do ..OrderLijnen.Insert(StandaardProductLijn2)
+	
+	Do ..OrderStub.IndienMethodCall("GeefOrderLijnIterator").DanReturn(##class(TECH.ListIterator).%New(..OrderLijnen))
+	
+	Do ..OrderApiMock.VerwachtMethodCall("GeefOrder",..OrderStub.GeefID()).DanReturn(..OrderStub)
+	
+	#dim ToeleveringLijnStub2 = ##class(vhTest.Utils.DOM.AKP.ToeleveringLijn).ToeleveringLijnMetKomLink()
+	Do ..ToeleveringStub.IndienMethodCall("GeefToeleveringLijnIterator").DanReturn(##class(TECH.ListUtils).CreateIteratorOfObjects(..ToeleveringLijnStub, ToeleveringLijnStub2))
+	Do ..ToeleveringApiMock.IndienMethodCall("GeefToelevering",..#ToeleveringId).DanReturn(..ToeleveringStub)
+	Set ToeleveringService = ##class(DOM.AKP.impl.ToeleveringService).%New(..ToeleveringApiMock, , ..OrderApiMock)
+	
+	Do $$$AssertEquals(ToeleveringService.GeefLijnReferentie(..#ToeleveringId,1000),"EenSkoonReferentie")
+	Do $$$AssertEquals(ToeleveringService.GeefLijnReferentie(..#ToeleveringId,1001),"EenAndereSkoonReferentie")
+	Do $$$AssertEquals(ToeleveringService.GeefLijnReferentie(..#ToeleveringId,1002),"")
+	
+	Do ..OrderApiMock.Verifieer()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>