Index: DOM/AKP/impl/ToeleveringService.cls.xml
===================================================================
diff -u -r63889 -r69156
--- DOM/AKP/impl/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 63889)
+++ DOM/AKP/impl/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 69156)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="DOM.AKP.impl.ToeleveringService">
-<Super>TECH.RegisteredObject,DOM.AKP.ToeleveringService</Super>
+<Super>TECH.Mockable,TECH.RegisteredObject,DOM.AKP.ToeleveringService</Super>
 
 <Property name="ToeleveringApi">
 <Type>DOM.AKP.ToeleveringAPI</Type>
@@ -33,8 +33,13 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Logger">
+<Type>vhLib.Logger</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>ToeleveringApi:DOM.AKP.ToeleveringAPI,ProductTypeApi:DOM.PM.ProductTypeAPI,OrderApi:DOM.VKP.OrderAPI,TransportWaarborgTypeBepaler:DOM.VKP.impl.TransportWaarborgTypeBepaler,VerkoopApi:DOM.VKP.VerkoopAPI</FormalSpec>
+<FormalSpec>ToeleveringApi:DOM.AKP.ToeleveringAPI,ProductTypeApi:DOM.PM.ProductTypeAPI,OrderApi:DOM.VKP.OrderAPI,TransportWaarborgTypeBepaler:DOM.VKP.impl.TransportWaarborgTypeBepaler,VerkoopApi:DOM.VKP.VerkoopAPI,Logger:vhLib.Logger=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -45,6 +50,8 @@
 	Set ..OrderApi = $$$Inject(OrderApi,##class(DOM.DomeinContext).Instance().GeefOrderAPI())
 	Set ..TransportWaarborgTypeBepaler = $$$Inject(TransportWaarborgTypeBepaler, ##class(DOM.VKP.impl.TransportWaarborgTypeBepaler).%New())
 	Set ..VerkoopApi = $$$Inject(VerkoopApi,##class(DOM.DomeinContext).Instance().GeefVerkoopAPI())
+	Set ..Logger = $$$Inject(Logger, ##class(vhLib.Logger).%New())
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -110,6 +117,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 ..Logger.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>
@@ -142,6 +185,35 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BevatToeleveringRevegoProducten">
+<FormalSpec>ToeleveringID:%String=""</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim BevatToeleveringRevegoProducten As %Boolean = $$$False
+	
+	If (##class(TECH.StringUtils).IsEmpty(ToeleveringID)) {
+		Set Exception = ##class(TECH.Exceptions.InvalidInputException).%New("Geen toeleveringNr meegegeven.")
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
+	
+	#dim Toelevering As DOM.AKP.Toelevering = ..ToeleveringApi.GeefToelevering(ToeleveringID)
+	#dim ProductLijnIterator = Toelevering.GeefProductLijnIterator()
+	
+	#dim Product As DOM.PM.MaatwerkProduct
+	#dim ProductLijn As DOM.AKP.ProductToeleveringLijn	
+	
+	While (ProductLijnIterator.HasNext() && $$$Not(BevatToeleveringRevegoProducten)) {
+		Set ProductLijn = ProductLijnIterator.Next()
+		
+		If (..ProductTypeApi.IsRevegoProduct(ProductLijn.GeefProductID())) {
+			Set BevatToeleveringRevegoProducten = $$$True
+		}
+	}
+
+	Quit BevatToeleveringRevegoProducten
+]]></Implementation>
+</Method>
+
 <Method name="HeeftGekoppeldKenmerkSpaceStep">
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
 <Private>1</Private>