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>