Index: vhTest/Fake/DOM/AKP/impl/ToeleveringService.cls.xml
===================================================================
diff -u -r68265 -r68989
--- vhTest/Fake/DOM/AKP/impl/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 68265)
+++ vhTest/Fake/DOM/AKP/impl/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 68989)
@@ -14,6 +14,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BevatToeleveringRevegoProducten">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
 <Method name="GeefLijnReferentie">
 <FormalSpec>ToeleveringID:%String,ProductId:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
Index: vhUnitTest/DOM/AKP/impl/ToeleveringService/BevatToeleveringRevegoProducten/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/AKP/impl/ToeleveringService/BevatToeleveringRevegoProducten/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/AKP/impl/ToeleveringService/BevatToeleveringRevegoProducten/Test.cls.xml	(revision 68989)
@@ -0,0 +1,114 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.AKP.impl.ToeleveringService.BevatToeleveringRevegoProducten.Test">
+<Super>vhUnitTest.DOM.AKP.impl.ToeleveringService.TestBase</Super>
+
+<Property name="ToeleveringMock">
+<Type>vhTest.Mock.DOM.AKP.Toelevering</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ToeleveringApiMock">
+<Type>DOM.AKP.ToeleveringAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductTypeApiMock">
+<Type>DOM.PM.ProductTypeAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	
+	Set ..ToeleveringMock = ##class(vhTest.Utils.DOM.AKP.Toelevering).StandaardToeleveringHoofding()
+	Set ..ToeleveringApiMock = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).%New()
+	Set ..ProductTypeApiMock = ##class(vhTest.Mock.DOM.PM.ProductTypeAPI).%New()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Toeleveringnummer is leeg">
+<Implementation><![CDATA[
+	#dim Substring = ##class(TECH.ListUtils).CreateListOfDataTypes("Geen toeleveringNr meegegeven.")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException",Substring))
+	
+	Set ToeleveringService = ##class(DOM.AKP.impl.ToeleveringService).%New()
+	#dim BevatRVG As %Boolean = ToeleveringService.BevatToeleveringRevegoProducten()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Toelevering bevat één RVG">
+<Implementation><![CDATA[
+	#dim RvgIngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.RVGKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.RVGKenmerken).UnoLinks()
+	Set RvgIngegevenKenmerken.StukLijst = ""
+	#dim RvgProduct As DOM.PM.MaatwerkProduct = ..MaakProduct(RvgIngegevenKenmerken)
+	#dim RvgProductToeleveringLijn As vhTest.Utils.DOM.AKP.ProductToeleveringLijn = ##class(vhTest.Utils.DOM.AKP.ProductToeleveringLijn).GeefProductToeleveringLijn()
+	Do RvgProductToeleveringLijn.IndienMethodCall("GeefProductID").DanReturn(RvgProduct.GeefID())
+	
+	Do ..ToeleveringMock.IndienMethodCall("GeefProductLijnIterator").DanReturn(##class(TECH.ListUtils).CreateIteratorOfObjects(RvgProductToeleveringLijn))
+	Do ..ToeleveringApiMock.VerwachtMethodCall("GeefToelevering", ..ToeleveringMock.GeefID()).DanReturn(..ToeleveringMock)
+	Do ..ProductTypeApiMock.VerwachtMethodCall("IsRevegoProduct", RvgProduct.GeefID()).DanReturn($$$True)
+	
+	Set ToeleveringService = ##class(DOM.AKP.impl.ToeleveringService).%New(..ToeleveringApiMock, ..ProductTypeApiMock)
+	#dim BevatRVG As %Boolean = ToeleveringService.BevatToeleveringRevegoProducten(..ToeleveringMock.GeefID())
+	
+	Do $$$AssertTrue(BevatRVG)
+	
+	Do ..ToeleveringApiMock.Verifieer()
+	Do ..ProductTypeApiMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Toelevering bevat geen RVG">
+<Implementation><![CDATA[
+	#dim IngegevenKenmerkenStandaardLade = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).StandaardLade()
+	#dim Product As DOM.PM.MaatwerkProduct = ..MaakProduct(IngegevenKenmerkenStandaardLade)
+	#dim ProductToeleveringLijnStandaardLade As vhTest.Utils.DOM.AKP.ProductToeleveringLijn = ##class(vhTest.Utils.DOM.AKP.ProductToeleveringLijn).GeefProductToeleveringLijn()
+	Do ProductToeleveringLijnStandaardLade.IndienMethodCall("GeefProductID").DanReturn(Product.GeefID())
+	
+	Do ..ToeleveringMock.IndienMethodCall("GeefProductLijnIterator").DanReturn(##class(TECH.ListUtils).CreateIteratorOfObjects(ProductToeleveringLijnStandaardLade))
+	Do ..ToeleveringApiMock.VerwachtMethodCall("GeefToelevering", ..ToeleveringMock.GeefID()).DanReturn(..ToeleveringMock)
+	Do ..ProductTypeApiMock.VerwachtMethodCall("IsRevegoProduct", Product.GeefID()).DanReturn($$$False)
+	
+	Set ToeleveringService = ##class(DOM.AKP.impl.ToeleveringService).%New(..ToeleveringApiMock, ..ProductTypeApiMock)
+	#dim BevatRVG As %Boolean = ToeleveringService.BevatToeleveringRevegoProducten(..ToeleveringMock.GeefID())
+	
+	Do $$$AssertFalse(BevatRVG)
+	
+	Do ..ToeleveringApiMock.Verifieer()
+	Do ..ProductTypeApiMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Toelevering bevat meerdere niet-RVG producten">
+<Implementation><![CDATA[
+	#dim IngegevenKenmerkenTaorLade = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade()
+	#dim TaorLade As DOM.PM.MaatwerkProduct = ..MaakProduct(IngegevenKenmerkenTaorLade)
+	#dim ProductToeleveringLijnTaor As vhTest.Utils.DOM.AKP.ProductToeleveringLijn = ##class(vhTest.Utils.DOM.AKP.ProductToeleveringLijn).GeefProductToeleveringLijn()
+	Do ProductToeleveringLijnTaor.IndienMethodCall("GeefProductID").DanReturn(TaorLade.GeefID())
+	
+	#dim IngegevenKenmerkenLBXLade = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).StandaardLade()
+	#dim LBXLade As DOM.PM.MaatwerkProduct = ..MaakProduct(IngegevenKenmerkenLBXLade)
+	#dim ProductToeleveringLijnLBX As vhTest.Utils.DOM.AKP.ProductToeleveringLijn = ##class(vhTest.Utils.DOM.AKP.ProductToeleveringLijn).GeefProductToeleveringLijn()
+	Do ProductToeleveringLijnLBX.IndienMethodCall("GeefProductID").DanReturn(LBXLade.GeefID())
+	
+	Do ..ToeleveringMock.IndienMethodCall("GeefProductLijnIterator").DanReturn(##class(TECH.ListUtils).CreateIteratorOfObjects(ProductToeleveringLijnTaor, ProductToeleveringLijnLBX))
+	Do ..ToeleveringApiMock.VerwachtMethodCall("GeefToelevering", ..ToeleveringMock.GeefID()).DanReturn(..ToeleveringMock)
+	Do ..ProductTypeApiMock.VerwachtMethodCall("IsRevegoProduct", TaorLade.GeefID()).DanReturn($$$False)
+	Do ..ProductTypeApiMock.VerwachtMethodCall("IsRevegoProduct", LBXLade.GeefID()).DanReturn($$$False)
+
+	Set ToeleveringService = ##class(DOM.AKP.impl.ToeleveringService).%New(..ToeleveringApiMock, ..ProductTypeApiMock)
+	#dim BevatRVG As %Boolean = ToeleveringService.BevatToeleveringRevegoProducten(..ToeleveringMock.GeefID())
+	
+	Do $$$AssertFalse(BevatRVG)
+	
+	Do ..ToeleveringApiMock.Verifieer()
+	Do ..ProductTypeApiMock.Verifieer()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
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>
Index: DOM/AKP/ToeleveringService.cls.xml
===================================================================
diff -u -r63652 -r68989
--- DOM/AKP/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 63652)
+++ DOM/AKP/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 68989)
@@ -34,6 +34,12 @@
 <FormalSpec>ToeleveringNr:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 </Method>
+
+<Method name="BevatToeleveringRevegoProducten">
+<Abstract>1</Abstract>
+<FormalSpec>ToeleveringID:%String=""</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+</Method>
 </Class>
 
 
Index: vhTest/Mock/DOM/AKP/ToeleveringService.cls.xml
===================================================================
diff -u -r63652 -r68989
--- vhTest/Mock/DOM/AKP/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 63652)
+++ vhTest/Mock/DOM/AKP/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 68989)
@@ -7,6 +7,13 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>DOM.AKP.ToeleveringService,Tools.Mock.MockClassBase</Super>
 
+<Method name="BevatToeleveringRevegoProducten">
+<FormalSpec>ToeleveringID:%String=""</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("BevatToeleveringRevegoProducten",ToeleveringID)
+]]></Implementation>
+</Method>
+
 <Method name="GeefKlant">
 <FormalSpec>ToeleveringID:%String</FormalSpec>
 <ReturnType>DOM.VKP.VanHoeckeKlant</ReturnType>
Index: vhTest/Mock/DOM/AKP/impl/ToeleveringService.cls.xml
===================================================================
diff -u -r68797 -r68989
--- vhTest/Mock/DOM/AKP/impl/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 68797)
+++ vhTest/Mock/DOM/AKP/impl/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 68989)
@@ -15,6 +15,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BevatToeleveringRevegoProducten">
+<FormalSpec>ToeleveringID:%String=""</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("BevatToeleveringRevegoProducten",ToeleveringID)
+]]></Implementation>
+</Method>
+
 <Method name="GeefKlant">
 <FormalSpec>ToeleveringID:%String</FormalSpec>
 <ReturnType>DOM.VKP.VanHoeckeKlant</ReturnType>