Index: DOM/AKP/impl/ToeleveringService.cls.xml
===================================================================
diff -u -r68796 -r68989
--- DOM/AKP/impl/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 68796)
+++ DOM/AKP/impl/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 68989)
@@ -185,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>