Index: vhTest/Dummy/DOM/PM/Maatwerk/Calc/Common/impl/RVGKenmerken.cls.xml
===================================================================
diff -u
--- vhTest/Dummy/DOM/PM/Maatwerk/Calc/Common/impl/RVGKenmerken.cls.xml	(revision 0)
+++ vhTest/Dummy/DOM/PM/Maatwerk/Calc/Common/impl/RVGKenmerken.cls.xml	(revision 68770)
@@ -0,0 +1,59 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Dummy.DOM.PM.Maatwerk.Calc.Common.impl.RVGKenmerken">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="GeefLegeRVGKenmerken">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.PM.Maatwerk.Calc.Common.impl.RVGKenmerken).%New()
+]]></Implementation>
+</Method>
+
+<Method name="DummyLade">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</ReturnType>
+<Implementation><![CDATA[	Quit ..UnoLinks()
+]]></Implementation>
+</Method>
+
+<Method name="UnoLinks">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim RVGKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.RVGKenmerken = ..GeefLegeRVGKenmerken()
+	
+	Set RVGKenmerken.Toepassing = ##class(DOM.PM.enu.RVGToepassing).UnoLinks()
+	Set RVGKenmerken.PlanmatigeAanpak = ##class(DOM.PM.enu.RVGPlanmatigeAanpak).Vrijstaand()
+	Set RVGKenmerken.BinnencorpusbreedteInDeToepassing = 440
+	Set RVGKenmerken.BinnencorpushoogteInDeToepassing = 1800
+	Set RVGKenmerken.BinnencorpusdiepteInDeToepassing = 520
+	Set RVGKenmerken.CorpusConstructie = ##class(DOM.PM.enu.RVGCorpusConstructie).MetSokkel()
+	Set RVGKenmerken.PocketZijkantDikte = 19
+	Set RVGKenmerken.VoegBoven = 4
+	Set RVGKenmerken.VoegOnder = 4
+	Set RVGKenmerken.VoegZijkant = 3
+	Set RVGKenmerken.FrontHoogte = 1809
+	Set RVGKenmerken.FrontBreedte = 534
+	Set RVGKenmerken.FrontDikte = 20
+	Set RVGKenmerken.PocketHoogte = 1817
+	Set RVGKenmerken.InbouwHoogte = 1837
+	Set RVGKenmerken.InstelZijde = $$$False
+	Set RVGKenmerken.InbouwBreedte = 540
+	Set RVGKenmerken.NominaleLengte = 450
+	Set RVGKenmerken.FrontOverstand = 99
+	Set RVGKenmerken.PocketAchterwandDikte = 4.5
+	Set RVGKenmerken.PocketDiepte = 555
+	Set RVGKenmerken.InbouwDiepte = 577
+	Set RVGKenmerken.ContactSchakelaarHouderInbegrepen = $$$True
+	Set RVGKenmerken.DeurSteunNaarBinnen = $$$False
+	Set RVGKenmerken.TOBKleur = ##class(DOM.PM.enu.RVGTOBKleur).Terrazwart()
+	Set RVGKenmerken.StukLijst = "1;0.129.581.2;1;0.217.679.9;1;0.275.985.8;1;0.407.171.9;1;0.648.765.0;1;0.818.647.1;1;0.895.292.2;1;0.960.032.6;"
+	
+	Quit RVGKenmerken
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Integratie/Productie/Planning/ActieveBatches/Revego/Aansturing/TestUnoLinks.cls.xml
===================================================================
diff -u
--- vhTest/Integratie/Productie/Planning/ActieveBatches/Revego/Aansturing/TestUnoLinks.cls.xml	(revision 0)
+++ vhTest/Integratie/Productie/Planning/ActieveBatches/Revego/Aansturing/TestUnoLinks.cls.xml	(revision 68770)
@@ -0,0 +1,32 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Integratie.Productie.Planning.ActieveBatches.Revego.Aansturing.TestUnoLinks">
+<Super>vhTest.Integratie.Productie.Planning.ActieveBatches.Revego.Aansturing.TestBase</Super>
+
+<Method name="GeefProductenPerToeleveringArray">
+<ReturnType>vhTest.Integratie.Productie.Setup.ProductenPerToeleveringArray</ReturnType>
+<Implementation><![CDATA[
+	#define ToeleveringID 222222
+	
+	Set RevegoPerToeleveringArray = ##class(vhTest.Integratie.Productie.Setup.ProductenPerToeleveringArray).%New()	
+	Set Revegos = ##class(vhTest.Integratie.Productie.Setup.ProductInfoLijst).%New()	
+	Do Revegos.Insert(##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(..MaakProduct(..GeefUnoLinks()), 1))
+	
+	Do RevegoPerToeleveringArray.SetAt(Revegos, $$$ToeleveringID)
+	Quit RevegoPerToeleveringArray
+]]></Implementation>
+</Method>
+
+<Method name="GeefUnoLinks">
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.RVGKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim RVGKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.RVGKenmerken = ##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.Common.impl.RVGKenmerken).UnoLinks()
+		
+	Quit RVGKenmerken
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Integratie/Productie/Planning/ActieveBatches/Revego/Aansturing/TestBase.cls.xml
===================================================================
diff -u
--- vhTest/Integratie/Productie/Planning/ActieveBatches/Revego/Aansturing/TestBase.cls.xml	(revision 0)
+++ vhTest/Integratie/Productie/Planning/ActieveBatches/Revego/Aansturing/TestBase.cls.xml	(revision 68770)
@@ -0,0 +1,22 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Integratie.Productie.Planning.ActieveBatches.Revego.Aansturing.TestBase">
+<Abstract>1</Abstract>
+<Super>vhTest.Integratie.Productie.Planning.ActieveBatches.Common.Aansturing.TestBase</Super>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestCase:%String</FormalSpec>
+<Implementation><![CDATA[ 	Do ##super(aTestCase)
+]]></Implementation>
+</Method>
+
+<Method name="GeefCategorie">
+<Private>1</Private>
+<ReturnType>APPS.Halux.common.enu.Categorie</ReturnType>
+<Implementation><![CDATA[	Quit ##class(APPS.Halux.common.enu.Categorie).Revego()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>