Index: DOM/common/enu/Bedrijf/Verwerker.cls.xml
===================================================================
diff -u
--- DOM/common/enu/Bedrijf/Verwerker.cls.xml	(revision 0)
+++ DOM/common/enu/Bedrijf/Verwerker.cls.xml	(revision 33256)
@@ -0,0 +1,40 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.common.enu.Bedrijf.Verwerker">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de Enumeratie - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+De enumeratie methoden moeten als type de enumeratieklasse zelf terug geven. De enumeratieklasse moet afleiden van TECH.Enumeration</Description>
+<Abstract>1</Abstract>
+<ProcedureBlock>1</ProcedureBlock>
+
+<Method name="Verwerk">
+<Final>1</Final>
+<FormalSpec>Bedrijf:DOM.common.enu.Bedrijf</FormalSpec>
+<Implementation><![CDATA[
+	If Bedrijf = "Halux" {
+		Do ..VerwerkHalux()
+	} ElseIf Bedrijf = "VanHoecke" {
+		Do ..VerwerkVanHoecke()
+	} Else {
+		Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(Bedrijf,"DOM.common.enu.Bedrijf",$classname())
+		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkHalux">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkVanHoecke">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/ProdRes/impl/VerwachteUitvoerAPIimpl.cls.xml
===================================================================
diff -u -r33225 -r33256
--- DOM/ProdRes/impl/VerwachteUitvoerAPIimpl.cls.xml	(.../VerwachteUitvoerAPIimpl.cls.xml)	(revision 33225)
+++ DOM/ProdRes/impl/VerwachteUitvoerAPIimpl.cls.xml	(.../VerwachteUitvoerAPIimpl.cls.xml)	(revision 33256)
@@ -133,17 +133,17 @@
 
 	Set Statement = Statement _ "SELECT Sum(Reservatie.Aantal) As Aantal FROM DOM_ProdRes_impl.UitvoerReservatieImpl Reservatie "
 	Set Statement = Statement _ "WHERE Reservatie.ProductID = ? "
-	Set Statement = Statement _ "AND Reservatie.ReservatieFase IN ('?') "
+	Set Statement = Statement _ "AND Reservatie.ReservatieFase IN ('" _ MogelijkeReservatieFases _ "') "
 	Set Statement = Statement _ "AND (Reservatie.DueOut is null OR Reservatie.DueOut <= ?) "
 	Set Statement = Statement _ "AND Reservatie.Bedrijf = ? "
 	Set Statement = Statement _ "AND (? = 1 OR IsTransferReservatie = 0) "
 	Set Statement = Statement _ "AND Reservatie.Aantal > 0 "
 	
-	#dim Query As TECH.DynamicQuery = ##class(TECH.DynamicQuery).%New(Statement, $ListBuild(ProductID, MogelijkeReservatieFases, MaxDueOut, Bedrijf, InclusiefTransferReservatie))
+	#dim Query As TECH.DynamicQuery = ##class(TECH.DynamicQuery).%New(Statement, $ListBuild(ProductID,  MaxDueOut, Bedrijf, InclusiefTransferReservatie))
 	#dim ResultSet As TECH.ResultSet = ..QueryAPI.GetResultSet(Query)
-
+	
 	If (ResultSet.Next()) {
-		Set Aantal = ResultSet.Data("Aantal")
+		Set Aantal = ResultSet.GetDataByName("Aantal")
 	}
 	
 	Quit Aantal
Index: DOM/common/enu/Bedrijf/AutoComplete.cls.xml
===================================================================
diff -u
--- DOM/common/enu/Bedrijf/AutoComplete.cls.xml	(revision 0)
+++ DOM/common/enu/Bedrijf/AutoComplete.cls.xml	(revision 33256)
@@ -0,0 +1,28 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.common.enu.Bedrijf.AutoComplete">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de Enumeratie - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+De enumeratie Eigenschapn moeten als type de enumeratieklasse zelf terug geven. De enumeratieklasse moet afleiden van TECH.Enumeration</Description>
+<ClassType>serial</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%SerialObject</Super>
+
+<Property name="Halux">
+<Type>DOM.common.enu.Bedrijf</Type>
+<InitialExpression>"Halux"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="VanHoecke">
+<Type>DOM.common.enu.Bedrijf</Type>
+<InitialExpression>"VanHoecke"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+</Class>
+
+
+</Export>
Index: vhUnitTest/DOM/ProdRes/VerwachteUitvoerAPI/TestVerwachteUitvoerAPI.cls.xml
===================================================================
diff -u -r29059 -r33256
--- vhUnitTest/DOM/ProdRes/VerwachteUitvoerAPI/TestVerwachteUitvoerAPI.cls.xml	(.../TestVerwachteUitvoerAPI.cls.xml)	(revision 29059)
+++ vhUnitTest/DOM/ProdRes/VerwachteUitvoerAPI/TestVerwachteUitvoerAPI.cls.xml	(.../VerwachteUitvoerAPI/Test.cls.xml)	(revision 33256)
@@ -1,79 +1,48 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="vhUnitTest.DOM.ProdRes.TestVerwachteUitvoerAPI">
-<Description>
-Do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.ProdRes.TestVerwachteUitvoerAPI")</Description>
+<Class name="vhUnitTest.DOM.ProdRes.VerwachteUitvoerAPI.Test">
 <ClassType/>
-<Import>TECH</Import>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>vhUnitTest.TestCase</Super>
+<Super>vhUnitTest.DOM.ProdRes.VerwachteUitvoerAPI.Base</Super>
 
+<Property name="VerwachteUitvoerAPI">
+<Type>DOM.ProdRes.VerwachteUitvoerAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	
+	Set ..VerwachteUitvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteUitvoerAPI()
+]]></Implementation>
+</Method>
+
 <Method name="TestDomeinContext">
-<Implementation><![CDATA[	Do $$$AssertTrue($IsObject(##class(DOM.DomeinContext).Instance().GeefVerwachteUitvoerAPI()),"De API werd teruggegeven")
+<Implementation><![CDATA[	Do $$$AssertTrue($IsObject(..VerwachteUitvoerAPI), "De API werd teruggegeven")
 ]]></Implementation>
 </Method>
 
 <Method name="TestRegistreerReservaties">
 <Implementation><![CDATA[
-	#dim VerwachteUitvoerAPI As DOM.ProdRes.VerwachteUitvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteUitvoerAPI()
+	#dim VerwachteUitvoerInfo As DOM.ProdRes.dto.VerwachteUitvoerInfo = ..MaakVerwachteUitvoerInfo("Unittest referentie", "Unittest lijnreferentie")
+	Set VerwachteUitvoerInfo.Reservatie = ..MaakUitvoerReservatie("Unittest product 1", 10)
 	
-	Set ReservatieVoorVerwachteUitvoer = ##class(DOM.ProdRes.dto.VerwachteUitvoerInfo).%New()
-	Set ReservatieVoorVerwachteUitvoer.TransactieReferentie = "Unittest referentie"
-	Set ReservatieVoorVerwachteUitvoer.TransactieLijnReferentie = "Unittest lijnreferentie"
-	Set ReservatieVoorVerwachteUitvoer.Bedrijf = ##class(DOM.common.enu.Bedrijf).VanHoecke()
-	
-	// Reservatiestructuur:
-	// - product 1
-	// 		- product 2
-	// 				- product 3
-	// 		- product 4
-	
-	Set Reservatie = ##class(DOM.ProdRes.dto.UitvoerReservatie).%New()
-	Set Reservatie.ProductID = "Unittest product 1"
-	Set Reservatie.DueOut = ##class(TECH.DateTime).CurrentTimeStamp()
-	Set Reservatie.Aantal = 10
-	Set Reservatie.PrioriteitGroep = ##class(DOM.ProdRes.enu.PrioriteitGroep).Halux()
-	Set Reservatie.IsTransferReservatie = 0
-	
-	Set ReservatieVoorVerwachteUitvoer.Reservatie = Reservatie
-	
-	Set Reservatie = ##class(DOM.ProdRes.dto.UitvoerReservatie).%New()
-	Set Reservatie.ProductID = "Unittest product 2"
-	Set Reservatie.DueOut = ##class(TECH.DateTime).CurrentTimeStamp()
-	Set Reservatie.Aantal = 9
-	Set Reservatie.PrioriteitGroep = ##class(DOM.ProdRes.enu.PrioriteitGroep).Halux()
-	Set Reservatie.IsTransferReservatie = 0
-	
-	Do ReservatieVoorVerwachteUitvoer.Reservatie.KindReservaties.Insert(Reservatie)
-	
-	Set Reservatie = ##class(DOM.ProdRes.dto.UitvoerReservatie).%New()
-	Set Reservatie.ProductID = "Unittest product 3"
-	Set Reservatie.DueOut = ##class(TECH.DateTime).CurrentTimeStamp()
-	Set Reservatie.Aantal = 8
-	Set Reservatie.PrioriteitGroep = ##class(DOM.ProdRes.enu.PrioriteitGroep).Halux()
-	Set Reservatie.IsTransferReservatie = 0
-	
-	Do ReservatieVoorVerwachteUitvoer.Reservatie.KindReservaties.GetAt(1).KindReservaties.Insert(Reservatie)
-	
-	Set Reservatie = ##class(DOM.ProdRes.dto.UitvoerReservatie).%New()
-	Set Reservatie.ProductID = "Unittest product 4"
-	Set Reservatie.DueOut = ##class(TECH.DateTime).CurrentTimeStamp()
-	Set Reservatie.Aantal = 7
-	Set Reservatie.PrioriteitGroep = ##class(DOM.ProdRes.enu.PrioriteitGroep).Halux()
-	Set Reservatie.IsTransferReservatie = 0
-	
-	Do ReservatieVoorVerwachteUitvoer.Reservatie.KindReservaties.Insert(Reservatie)
+	Do VerwachteUitvoerInfo.Reservatie.KindReservaties.Insert(..MaakUitvoerReservatie("Unittest product 2", 9))
+	Do VerwachteUitvoerInfo.Reservatie.KindReservaties.GetAt(1).KindReservaties.Insert(..MaakUitvoerReservatie("Unittest product 3", 8))
+	Do VerwachteUitvoerInfo.Reservatie.KindReservaties.Insert(..MaakUitvoerReservatie("Unittest product 4", 7))
 
-	#dim VerwachteUitvoer As DOM.ProdRes.VerwachteUitvoer = VerwachteUitvoerAPI.RegistreerReservaties(ReservatieVoorVerwachteUitvoer)
+	#dim VerwachteUitvoer As DOM.ProdRes.VerwachteUitvoer = ..VerwachteUitvoerAPI.RegistreerReservaties(VerwachteUitvoerInfo)
 	
 	// GeefVerwachteUitvoer eventjes testen
-	#dim VerwachteUitvoerOpgehaald As DOM.ProdRes.VerwachteUitvoer = VerwachteUitvoerAPI.GeefVerwachteUitvoer(VerwachteUitvoer.%Id())
+	#dim VerwachteUitvoerOpgehaald As DOM.ProdRes.VerwachteUitvoer = ..VerwachteUitvoerAPI.GeefVerwachteUitvoer(VerwachteUitvoer.%Id())
 	
 	Do $$$AssertEquals(VerwachteUitvoerOpgehaald,VerwachteUitvoer,"Hetzelfde object werd teruggegeven")
 	
 	Do $$$AssertEquals(VerwachteUitvoer.GeefTransactieReferentie(),"Unittest referentie","De referentie")
 	Do $$$AssertEquals(VerwachteUitvoer.GeefTransactieLijnReferentie(),"Unittest lijnreferentie","De lijnreferentie")
-	Do $$$AssertEquals(VerwachteUitvoer.GeefBedrijf(),##class(DOM.common.enu.Bedrijf).VanHoecke(),"Van hoecke")
+	Do $$$AssertEquals(VerwachteUitvoer.GeefBedrijf(), ..Bedrijf.VanHoecke,"Van hoecke")
 	
 	#dim Reservatie1 As DOM.ProdRes.Reservatie = VerwachteUitvoer.GeefReservatie()
 	
@@ -108,18 +77,18 @@
 	Do $$$AssertEquals(Reservatie3.GeefProductID(),"Unittest product 3")
 	Do $$$AssertTrue(Reservatie3.IsLeaf,"De reservatie is een blad")
 	
-	#dim ReservatieVoorVerwachteUitvoer2 As DOM.ProdRes.dto.VerwachteUitvoerInfo = ..MaakReservatieVerwachteUitvoer()
-	#dim VerwachteUitvoer2 As DOM.ProdRes.VerwachteUitvoer = VerwachteUitvoerAPI.RegistreerReservaties(ReservatieVoorVerwachteUitvoer2)
+	#dim ReservatieVoorVerwachteUitvoer2 As DOM.ProdRes.dto.VerwachteUitvoerInfo = ..MaakVerwachteUitvoerInfoMetReservatie("Unittest referentie 2", "Unittest lijnreferentie 2", "Unittest product 3")
+	#dim VerwachteUitvoer2 As DOM.ProdRes.VerwachteUitvoer = ..VerwachteUitvoerAPI.RegistreerReservaties(ReservatieVoorVerwachteUitvoer2)
 	
 	Set VerwachteUitvoerIDs = ##class(%ListOfDataTypes).%New()
 	Do VerwachteUitvoerIDs.Insert(VerwachteUitvoer.%Id())
 	Do VerwachteUitvoerIDs.Insert(VerwachteUitvoer2.%Id())
-	#dim GereserveerdeProducten As DOM.ProdRes.dto.GereserveerdeProducten = VerwachteUitvoerAPI.GeefReservatieSamenvatting(VerwachteUitvoerIDs)
+	#dim GereserveerdeProducten As DOM.ProdRes.dto.GereserveerdeProducten = ..VerwachteUitvoerAPI.GeefReservatieSamenvatting(VerwachteUitvoerIDs)
 	
 	Do $$$AssertEquals(GereserveerdeProducten.Count(),2,"Er zijn 2 producten te verwachten")
-	Do $$$AssertEquals(##class(StringUtils).ToLower(GereserveerdeProducten.GetAt(1).ProductID),"unittest product 3","De tweede echte fysieke reservatie")
+	Do $$$AssertEquals(##class(TECH.StringUtils).ToLower(GereserveerdeProducten.GetAt(1).ProductID),"unittest product 3","De tweede echte fysieke reservatie")
 	Do $$$AssertEquals(GereserveerdeProducten.GetAt(1).Aantal,18,"18 stuks van product 3")
-	Do $$$AssertEquals(##class(StringUtils).ToLower(GereserveerdeProducten.GetAt(2).ProductID),"unittest product 4","De eerste echte fysieke reservatie")
+	Do $$$AssertEquals(##class(TECH.StringUtils).ToLower(GereserveerdeProducten.GetAt(2).ProductID),"unittest product 4","De eerste echte fysieke reservatie")
 	Do $$$AssertEquals(GereserveerdeProducten.GetAt(2).Aantal,7,"7 stuks van product 4")
 	
 	Do VerwachteUitvoer.%DeleteId(VerwachteUitvoer.%Id())
@@ -133,18 +102,15 @@
 
 <Method name="TestGeefViaReferentie">
 <Implementation><![CDATA[
-	#dim VerwachteUitvoerAPI As DOM.ProdRes.VerwachteUitvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteUitvoerAPI()
+	#dim VerwachteUitvoerInfo As DOM.ProdRes.dto.VerwachteUitvoerInfo = ..MaakVerwachteUitvoerInfoMetReservatie("Unittest referentie 2", "Unittest lijnreferentie 2", "Unittest product 3")
+	#dim VerwachteUitvoer As DOM.ProdRes.VerwachteUitvoer = ..VerwachteUitvoerAPI.RegistreerReservaties(VerwachteUitvoerInfo)
 	
-	#dim ReservatieVoorVerwachteUitvoer As DOM.ProdRes.dto.VerwachteUitvoerInfo = ..MaakReservatieVerwachteUitvoer()
+	#dim VerwachteUitvoerenGevonden As DOM.ProdRes.VerwachteUitvoer = ..VerwachteUitvoerAPI.ZoekUitvoerenViaTransactieRef(VerwachteUitvoerInfo.TransactieReferentie, VerwachteUitvoerInfo.Bedrijf)
 	
-	#dim VerwachteUitvoer As DOM.ProdRes.VerwachteUitvoer = VerwachteUitvoerAPI.RegistreerReservaties(ReservatieVoorVerwachteUitvoer)
-	
-	#dim VerwachteUitvoerenGevonden As DOM.ProdRes.VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerenViaTransactieRef(ReservatieVoorVerwachteUitvoer.TransactieReferentie, ReservatieVoorVerwachteUitvoer.Bedrijf)
-	
 	Do $$$AssertEquals(VerwachteUitvoerenGevonden.Count(),1,"Er werd 1 uitvoer gevonden")
 	Do $$$AssertEquals(VerwachteUitvoer, VerwachteUitvoerenGevonden.GetAt(1), "De zoek via transactieref geeft hetzelfde resultaat")
 	
-	#dim VerwachteUitvoerGevonden As DOM.ProdRes.VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(ReservatieVoorVerwachteUitvoer.TransactieReferentie, ReservatieVoorVerwachteUitvoer.TransactieLijnReferentie, ReservatieVoorVerwachteUitvoer.Bedrijf)
+	#dim VerwachteUitvoerGevonden As DOM.ProdRes.VerwachteUitvoer = ..VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(VerwachteUitvoerInfo.TransactieReferentie, VerwachteUitvoerInfo.TransactieLijnReferentie, VerwachteUitvoerInfo.Bedrijf)
 	
 	Do $$$AssertEquals(VerwachteUitvoer, VerwachteUitvoerGevonden, "De zoek via transactielijnref geeft hetzelfde resultaat")
 	
@@ -156,17 +122,12 @@
 
 <Method name="TestAnnuleerVerwachteUitvoer">
 <Implementation><![CDATA[
-	#dim VerwachteUitvoerAPI As DOM.ProdRes.VerwachteUitvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteUitvoerAPI()
-	
-	#dim ReservatieVoorVerwachteUitvoer As DOM.ProdRes.dto.VerwachteUitvoerInfo = ..MaakReservatieVerwachteUitvoer()
-	
-	#dim VerwachteUitvoer As DOM.ProdRes.VerwachteUitvoer = VerwachteUitvoerAPI.RegistreerReservaties(ReservatieVoorVerwachteUitvoer)
-	
+	#dim VerwachteUitvoer As DOM.ProdRes.VerwachteUitvoer = ..VerwachteUitvoerAPI.RegistreerReservaties(..MaakVerwachteUitvoerInfoMetReservatie("Unittest referentie 2", "Unittest lijnreferentie 2", "Unittest product 3"))
 	#dim VerwachteUitvoerID As %String = VerwachteUitvoer.%Id()
 	#dim Reservatie As DOM.ProdRes.UitvoerReservatie = VerwachteUitvoer.GeefReservatie()
 	#dim ReservatieID As %String = Reservatie.%Id()
 	
-	Do VerwachteUitvoerAPI.AnnuleerVerwachteUitvoer(VerwachteUitvoerID)
+	Do ..VerwachteUitvoerAPI.AnnuleerVerwachteUitvoer(VerwachteUitvoerID)
 	
 	Do $$$AssertFalse(VerwachteUitvoer.%ExistsId(VerwachteUitvoerID),"Het uitvoer object werd verwijderd")
 	Do $$$AssertFalse(Reservatie.%ExistsId(ReservatieID),"Het Reservatie object werd verwijderd")
@@ -175,43 +136,18 @@
 
 <Method name="TestWisVerwachteUitvoer">
 <Implementation><![CDATA[
-	#dim VerwachteUitvoerAPI As DOM.ProdRes.VerwachteUitvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteUitvoerAPI()
-	
-	#dim ReservatieVoorVerwachteUitvoer As DOM.ProdRes.dto.VerwachteUitvoerInfo = ..MaakReservatieVerwachteUitvoer()
-	
-	#dim VerwachteUitvoer As DOM.ProdRes.VerwachteUitvoer = VerwachteUitvoerAPI.RegistreerReservaties(ReservatieVoorVerwachteUitvoer)
-	
+	#dim VerwachteUitvoer As DOM.ProdRes.VerwachteUitvoer = ..VerwachteUitvoerAPI.RegistreerReservaties(..MaakVerwachteUitvoerInfoMetReservatie("Unittest referentie 2", "Unittest lijnreferentie 2", "Unittest product 3"))
 	#dim VerwachteUitvoerID As %String = VerwachteUitvoer.%Id()
 	#dim Reservatie As DOM.ProdRes.UitvoerReservatie = VerwachteUitvoer.GeefReservatie()
 	#dim ReservatieID As %String = Reservatie.%Id()
 	
-	Do VerwachteUitvoerAPI.WisAfgewerkteVerwachteUitvoer(VerwachteUitvoerID)
+	Do ..VerwachteUitvoerAPI.WisAfgewerkteVerwachteUitvoer(VerwachteUitvoerID)
 	
 	Do $$$AssertFalse(VerwachteUitvoer.%ExistsId(VerwachteUitvoerID),"Het uitvoer object werd verwijderd")
 	Do $$$AssertFalse(Reservatie.%ExistsId(ReservatieID),"Het Reservatie object werd verwijderd")
 ]]></Implementation>
 </Method>
 
-<Method name="MaakReservatieVerwachteUitvoer">
-<Implementation><![CDATA[
-	Set ReservatieVoorVerwachteUitvoer = ##class(DOM.ProdRes.dto.VerwachteUitvoerInfo).%New()
-	Set ReservatieVoorVerwachteUitvoer.TransactieReferentie = "Unittest referentie 2"
-	Set ReservatieVoorVerwachteUitvoer.TransactieLijnReferentie = "Unittest lijnreferentie 2"
-	Set ReservatieVoorVerwachteUitvoer.Bedrijf = ##class(DOM.common.enu.Bedrijf).VanHoecke()
-	
-	Set Reservatie = ##class(DOM.ProdRes.dto.UitvoerReservatie).%New()
-	Set Reservatie.ProductID = "Unittest product 3"
-	Set Reservatie.DueOut = ##class(TECH.DateTime).CurrentTimeStamp()
-	Set Reservatie.Aantal = 10
-	Set Reservatie.PrioriteitGroep = ##class(DOM.ProdRes.enu.PrioriteitGroep).Halux()
-	Set Reservatie.IsTransferReservatie = 0
-	
-	Set ReservatieVoorVerwachteUitvoer.Reservatie = Reservatie
-	
-	Quit ReservatieVoorVerwachteUitvoer
-]]></Implementation>
-</Method>
-
 <Method name="TestProductReservatieIterator">
 <Implementation><![CDATA[
 	// Reservatiestructuur:
@@ -228,6 +164,7 @@
 	Set Reservatie4 = ##class(DOM.ProdRes.impl.UitvoerReservatieImpl).%New("Product4","","","","","","")
 	Set Reservatie5 = ##class(DOM.ProdRes.impl.UitvoerReservatieImpl).%New("Product3","","","","","","")
 	Set Reservatie6 = ##class(DOM.ProdRes.impl.UitvoerReservatieImpl).%New("Product7","","","","","","")
+	
 	Do Reservatie1.VoegToeReservatie(Reservatie2)
 	Do Reservatie2.VoegToeReservatie(Reservatie3)
 	Do Reservatie1.VoegToeReservatie(Reservatie4)
@@ -243,148 +180,6 @@
 	Do $$$AssertFalse(ProductReservatieIterator.HasNext(),"Er zijn geen reservaties meer voor product 3")
 ]]></Implementation>
 </Method>
-
-<Method name="TestGeefAantalGereserveerd">
-<Implementation><![CDATA[
-	#dim VerwachteUitvoerAPI As DOM.ProdRes.VerwachteUitvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteUitvoerAPI()
-	
-	// ======== EERSTE VERWACHTE UITVOER ========
-	
-	Set ReservatieVoorVerwachteUitvoer = ##class(DOM.ProdRes.dto.VerwachteUitvoerInfo).%New()
-	Set ReservatieVoorVerwachteUitvoer.TransactieReferentie = "Unittest referentie"
-	Set ReservatieVoorVerwachteUitvoer.TransactieLijnReferentie = "Unittest lijnreferentie"
-	Set ReservatieVoorVerwachteUitvoer.Bedrijf = ##class(DOM.common.enu.Bedrijf).VanHoecke()
-	
-	// Reservatiestructuur:
-	// - product 1 								2011-09-29 11:05:40
-	// 		- product 2 						2011-09-29 11:05:40
-	// 				- product 3 				2011-09-29 11:05:40
-	// 		- product 3 						2011-09-29 11:05:40
-	// 		- product 3 						2011-09-30 11:05:40
-	
-	Set Reservatie = ##class(DOM.ProdRes.dto.UitvoerReservatie).%New()
-	Set Reservatie.ProductID = "Unittest product 1"
-	Set Reservatie.DueOut = "2011-09-29 11:05:40"
-	Set Reservatie.Aantal = 10
-	Set Reservatie.PrioriteitGroep = ##class(DOM.ProdRes.enu.PrioriteitGroep).Halux()
-	Set Reservatie.IsTransferReservatie = 0
-	
-	Set ReservatieVoorVerwachteUitvoer.Reservatie = Reservatie
-	
-	Set Reservatie = ##class(DOM.ProdRes.dto.UitvoerReservatie).%New()
-	Set Reservatie.ProductID = "Unittest product 2"
-	Set Reservatie.DueOut = "2011-09-29 11:05:40"
-	Set Reservatie.Aantal = 9
-	Set Reservatie.PrioriteitGroep = ##class(DOM.ProdRes.enu.PrioriteitGroep).Halux()
-	Set Reservatie.IsTransferReservatie = 0
-	
-	Do ReservatieVoorVerwachteUitvoer.Reservatie.KindReservaties.Insert(Reservatie)
-	
-	Set Reservatie = ##class(DOM.ProdRes.dto.UitvoerReservatie).%New()
-	Set Reservatie.ProductID = "Unittest product 3"
-	Set Reservatie.DueOut = "2011-09-29 11:05:40"
-	Set Reservatie.Aantal = 8
-	Set Reservatie.PrioriteitGroep = ##class(DOM.ProdRes.enu.PrioriteitGroep).Halux()
-	Set Reservatie.IsTransferReservatie = 0
-	
-	Do ReservatieVoorVerwachteUitvoer.Reservatie.KindReservaties.GetAt(1).KindReservaties.Insert(Reservatie)
-	
-	Set Reservatie = ##class(DOM.ProdRes.dto.UitvoerReservatie).%New()
-	Set Reservatie.ProductID = "Unittest product 3"
-	Set Reservatie.DueOut = "2011-09-29 11:05:40"
-	Set Reservatie.Aantal = 7
-	Set Reservatie.PrioriteitGroep = ##class(DOM.ProdRes.enu.PrioriteitGroep).Halux()
-	Set Reservatie.IsTransferReservatie = 0
-	
-	Do ReservatieVoorVerwachteUitvoer.Reservatie.KindReservaties.GetAt(1).KindReservaties.Insert(Reservatie)
-	
-	Set Reservatie = ##class(DOM.ProdRes.dto.UitvoerReservatie).%New()
-	Set Reservatie.ProductID = "Unittest product 3"
-	Set Reservatie.DueOut = "2011-09-30 11:05:40"
-	Set Reservatie.Aantal = 6
-	Set Reservatie.PrioriteitGroep = ##class(DOM.ProdRes.enu.PrioriteitGroep).Halux()
-	Set Reservatie.IsTransferReservatie = 0
-	
-	Do ReservatieVoorVerwachteUitvoer.Reservatie.KindReservaties.Insert(Reservatie)
-
-	#dim VerwachteUitvoer1 As DOM.ProdRes.VerwachteUitvoer = VerwachteUitvoerAPI.RegistreerReservaties(ReservatieVoorVerwachteUitvoer)
-	
-	// ======== TWEEDE VERWACHTE UITVOER ========
-	
-	Set ReservatieVoorVerwachteUitvoer = ##class(DOM.ProdRes.dto.VerwachteUitvoerInfo).%New()
-	Set ReservatieVoorVerwachteUitvoer.TransactieReferentie = "Unittest referentie 2"
-	Set ReservatieVoorVerwachteUitvoer.TransactieLijnReferentie = "Unittest lijnreferentie 2"
-	Set ReservatieVoorVerwachteUitvoer.Bedrijf = ##class(DOM.common.enu.Bedrijf).VanHoecke()
-	
-	// Reservatiestructuur:
-	// - product 3								2011-09-29 11:05:40
-
-	Set Reservatie = ##class(DOM.ProdRes.dto.UitvoerReservatie).%New()
-	Set Reservatie.ProductID = "Unittest product 3"
-	Set Reservatie.DueOut = "2011-09-29 11:05:40"
-	Set Reservatie.Aantal = 5
-	Set Reservatie.PrioriteitGroep = ##class(DOM.ProdRes.enu.PrioriteitGroep).Halux()
-	Set Reservatie.IsTransferReservatie = 1
-	
-	Set ReservatieVoorVerwachteUitvoer.Reservatie = Reservatie
-	
-	#dim VerwachteUitvoer2 As DOM.ProdRes.VerwachteUitvoer = VerwachteUitvoerAPI.RegistreerReservaties(ReservatieVoorVerwachteUitvoer)
-	
-	// ======== DERDE VERWACHTE UITVOER ========
-	
-	Set ReservatieVoorVerwachteUitvoer = ##class(DOM.ProdRes.dto.VerwachteUitvoerInfo).%New()
-	Set ReservatieVoorVerwachteUitvoer.TransactieReferentie = "Unittest referentie 2"
-	Set ReservatieVoorVerwachteUitvoer.TransactieLijnReferentie = "Unittest lijnreferentie 2"
-	// Ander bedrijf instellen
-	Set ReservatieVoorVerwachteUitvoer.Bedrijf = ##class(DOM.common.enu.Bedrijf).Halux()
-	
-	// Reservatiestructuur:
-	// - product 3								2011-09-29 11:05:40
-
-	Set Reservatie = ##class(DOM.ProdRes.dto.UitvoerReservatie).%New()
-	Set Reservatie.ProductID = "Unittest product 3"
-	Set Reservatie.DueOut = "2011-09-29 11:05:40"
-	Set Reservatie.Aantal = 4
-	Set Reservatie.PrioriteitGroep = ##class(DOM.ProdRes.enu.PrioriteitGroep).Halux()
-	Set Reservatie.IsTransferReservatie = 0
-	
-	Set ReservatieVoorVerwachteUitvoer.Reservatie = Reservatie
-	
-	#dim VerwachteUitvoer3 As DOM.ProdRes.VerwachteUitvoer = VerwachteUitvoerAPI.RegistreerReservaties(ReservatieVoorVerwachteUitvoer)
-	
-	#dim InclusiefTransferReservaties As %Boolean = 1
-	
-	#dim Aantal As %Float = VerwachteUitvoerAPI.GeefAantalGereserveerd("Unittest product 3",##class(DOM.common.enu.Bedrijf).VanHoecke(),##class(TECH.ListUtils).CreateListOfDataTypes(##class(DOM.ProdRes.enu.ReservatieFase).InOrder()),InclusiefTransferReservaties,"2011-09-29 11:05:41")
-	Do $$$AssertEquals(Aantal,8+7+5,"Er zijn 20 producten gereserveerd die voldoen aan de eisen")
-	
-	Set Aantal = VerwachteUitvoerAPI.GeefAantalGereserveerd("Unittest product 3",##class(DOM.common.enu.Bedrijf).VanHoecke(),##class(TECH.ListUtils).CreateListOfDataTypes(##class(DOM.ProdRes.enu.ReservatieFase).InOrder()),InclusiefTransferReservaties)
-	Do $$$AssertEquals(Aantal,8+7+5+6,"Er zijn 26 producten gereserveerd die voldoen aan de eisen")
-	
-	Set InclusiefTransferReservaties = 0
-	
-	Set Aantal = VerwachteUitvoerAPI.GeefAantalGereserveerd("Unittest product 3",##class(DOM.common.enu.Bedrijf).VanHoecke(),##class(TECH.ListUtils).CreateListOfDataTypes(##class(DOM.ProdRes.enu.ReservatieFase).InOrder()),InclusiefTransferReservaties,"2011-09-29 11:05:41")
-	Do $$$AssertEquals(Aantal,8+7,"Er zijn 15 producten gereserveerd die voldoen aan de eisen")
-	
-	Do VerwachteUitvoer1.Delete()
-	Do VerwachteUitvoer2.Delete()
-	Do VerwachteUitvoer3.Delete()
-]]></Implementation>
-</Method>
-
-<Method name="OnBeforeAllTests">
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	// eventueel resterende data proberen wissen
-	Set ResultSet = ##class(%ResultSet).%New()
-	Do ResultSet.Prepare("SELECT ID FROM DOM_ProdRes_impl.VerwachteUitvoerImpl WHERE TransactieReferentie Like 'Unittest referentie%'")
-	Do ResultSet.Execute()
-	If (ResultSet.Next())
-	{
-		Do ##class(DOM.ProdRes.impl.VerwachteUitvoerImpl).%DeleteId(ResultSet.Data("ID"))
-	}
-	Quit $$$OK
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: vhUnitTest/DOM/ProdRes/VerwachteUitvoerAPI/GeefAantalGereserveerd/Test.cls.xml
===================================================================
diff -u -r33225 -r33256
--- vhUnitTest/DOM/ProdRes/VerwachteUitvoerAPI/GeefAantalGereserveerd/Test.cls.xml	(.../Test.cls.xml)	(revision 33225)
+++ vhUnitTest/DOM/ProdRes/VerwachteUitvoerAPI/GeefAantalGereserveerd/Test.cls.xml	(.../Test.cls.xml)	(revision 33256)
@@ -1,20 +1,13 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.DOM.ProdRes.VerwachteUitvoerAPI.GeefAantalGereserveerd.Test">
-<Super>vhUnitTest.TestCase</Super>
+<Super>vhUnitTest.DOM.ProdRes.VerwachteUitvoerAPI.Base</Super>
 
 <Parameter name="ProductID">
 <Type>%String</Type>
 <Default>UTPNr</Default>
 </Parameter>
 
-<Property name="Bedrijf">
-<Type>DOM.common.enu.Bedrijf</Type>
-<InitialExpression>##class(DOM.common.enu.Bedrijf).VanHoecke()</InitialExpression>
-<Private>1</Private>
-<ReadOnly>1</ReadOnly>
-</Property>
-
 <Property name="MaxDueOut">
 <Type>%TimeStamp</Type>
 <InitialExpression>##class(TECH.DateTime).MaxTimeStamp()</InitialExpression>
@@ -29,6 +22,53 @@
 <ReadOnly>1</ReadOnly>
 </Property>
 
+<Method name="TestGeefAantalGereserveerd">
+<Implementation><![CDATA[
+	#dim TimeStamp As %TimeStamp = "2011-09-29 11:05:40"
+	#dim VerwachteUitvoerAPI As DOM.ProdRes.VerwachteUitvoerAPI = ##class(DOM.ProdRes.impl.VerwachteUitvoerAPIimpl).%New()
+		
+	// ======== EERSTE VERWACHTE UITVOER ========	
+	#dim VerwachteUitvoerInfo1 As DOM.ProdRes.dto.VerwachteUitvoerInfo = ..MaakVerwachteUitvoerInfo("Unittest referentie 1", "Unittest lijnreferentie 1")
+	Set VerwachteUitvoerInfo1.Reservatie = ..MaakUitvoerReservatie("Unittest product 1", 10, TimeStamp)
+	
+	Do VerwachteUitvoerInfo1.Reservatie.KindReservaties.Insert(..MaakUitvoerReservatie("Unittest product 2", 9, TimeStamp))
+	Do VerwachteUitvoerInfo1.Reservatie.KindReservaties.GetAt(1).KindReservaties.Insert(..MaakUitvoerReservatie("Unittest product 3", 8, TimeStamp))
+	Do VerwachteUitvoerInfo1.Reservatie.KindReservaties.Insert(..MaakUitvoerReservatie("Unittest product 3", 7, TimeStamp))
+	Do VerwachteUitvoerInfo1.Reservatie.KindReservaties.Insert(..MaakUitvoerReservatie("Unittest product 3", 6, "2011-09-30 11:05:40"))
+
+	#dim VerwachteUitvoer1 As DOM.ProdRes.VerwachteUitvoer = VerwachteUitvoerAPI.RegistreerReservaties(VerwachteUitvoerInfo1)
+	
+	// ======== TWEEDE VERWACHTE UITVOER ========	
+	#dim VerwachteUitvoerInfo2 As DOM.ProdRes.dto.VerwachteUitvoerInfo = ..MaakVerwachteUitvoerInfo("Unittest referentie 2", "Unittest lijnreferentie 2")
+	Set VerwachteUitvoerInfo2.Reservatie = ..MaakUitvoerReservatie("Unittest product 3", 5, TimeStamp, $$$True)
+	
+	#dim VerwachteUitvoer2 As DOM.ProdRes.VerwachteUitvoer = VerwachteUitvoerAPI.RegistreerReservaties(VerwachteUitvoerInfo2)
+	
+	// ======== DERDE VERWACHTE UITVOER ========	
+	#dim VerwachteUitvoerInfo3 As DOM.ProdRes.dto.VerwachteUitvoerInfo = ..MaakVerwachteUitvoerInfo("Unittest referentie 3", "Unittest lijnreferentie 3", ..Bedrijf.Halux)
+	Set VerwachteUitvoerInfo3.Reservatie = ..MaakUitvoerReservatie("Unittest product 3", 4, TimeStamp)
+	
+	#dim VerwachteUitvoer3 As DOM.ProdRes.VerwachteUitvoer = VerwachteUitvoerAPI.RegistreerReservaties(VerwachteUitvoerInfo3)
+
+	// ASSERT
+	#dim ReservatieFases As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes(##class(DOM.ProdRes.enu.ReservatieFase).InOrder())
+	#dim Aantal As %Float
+	
+	Set Aantal = VerwachteUitvoerAPI.GeefAantalGereserveerd("Unittest product 3", ..Bedrijf.VanHoecke, ReservatieFases, $$$True, "2011-09-29 11:05:41")
+	Do $$$AssertEquals(Aantal, 8 + 7 + 5, "Er zijn 20 producten gereserveerd die voldoen aan de eisen")
+	
+	Set Aantal = VerwachteUitvoerAPI.GeefAantalGereserveerd("Unittest product 3", ..Bedrijf.VanHoecke, ReservatieFases, $$$True)
+	Do $$$AssertEquals(Aantal, 8 + 7 + 5 + 6, "Er zijn 26 producten gereserveerd die voldoen aan de eisen")
+	
+	Set Aantal = VerwachteUitvoerAPI.GeefAantalGereserveerd("Unittest product 3", ..Bedrijf.VanHoecke, ReservatieFases, $$$False, "2011-09-29 11:05:41")
+	Do $$$AssertEquals(Aantal, 8 + 7, "Er zijn 15 producten gereserveerd die voldoen aan de eisen")
+	
+	Do VerwachteUitvoer1.Delete()
+	Do VerwachteUitvoer2.Delete()
+	Do VerwachteUitvoer3.Delete()
+]]></Implementation>
+</Method>
+
 <Method name="Test: Query wordt geprepared">
 <Implementation><![CDATA[
 	#dim QueryAPIFake As vhTest.Fake.TECH.Query.PrepareOnlyQueryAPI = ##class(vhTest.Fake.TECH.Query.PrepareOnlyQueryAPI).%New()
@@ -49,7 +89,7 @@
 	#dim DataTransferObjectMatcher As Tools.Mock.ArgumentMatchers.DataTransferObjectMatcher = ##class(Tools.Mock.ArgumentMatchers.DataTransferObjectMatcher).%New(Query)
 	
 	Do QueryAPIMock.VerwachtMethodCall("GetResultSet", DataTransferObjectMatcher).DanReturn(##class(TECH.ResultSet).%New())
-	Do VerwachteUitvoerAPI.GeefAantalGereserveerd(..#ProductID, ..Bedrijf, ..GeefReservatieFasen(), ..InclusiefTransferReservatie, ..MaxDueOut)
+	Do VerwachteUitvoerAPI.GeefAantalGereserveerd(..#ProductID, ..Bedrijf.VanHoecke, ..GeefReservatieFasen(), ..InclusiefTransferReservatie, ..MaxDueOut)
 	Do QueryAPIMock.Verifieer()
 ]]></Implementation>
 </Method>
@@ -76,14 +116,14 @@
 	
 	Set Statement = Statement _ "SELECT Sum(Reservatie.Aantal) As Aantal FROM DOM_ProdRes_impl.UitvoerReservatieImpl Reservatie "
 	Set Statement = Statement _ "WHERE Reservatie.ProductID = ? "
-	Set Statement = Statement _ "AND Reservatie.ReservatieFase IN ('?') "
+	Set Statement = Statement _ "AND Reservatie.ReservatieFase IN ('" _ ##class(TECH.ListUtils).ListToPieces(..GeefReservatieFasen(), "', '") _ "') "
 	Set Statement = Statement _ "AND (Reservatie.DueOut is null OR Reservatie.DueOut <= ?) "
 	Set Statement = Statement _ "AND Reservatie.Bedrijf = ? "
 	Set Statement = Statement _ "AND (? = 1 OR IsTransferReservatie = 0) "
 	Set Statement = Statement _ "AND Reservatie.Aantal > 0 "
 	
 	Set Query.Statement = Statement
-	Set Query.Parameters = $ListBuild(..#ProductID, ##class(TECH.ListUtils).ListToPieces(..GeefReservatieFasen(), "', '"), ..MaxDueOut, ..Bedrijf, ..InclusiefTransferReservatie)
+	Set Query.Parameters = $ListBuild(..#ProductID, ..MaxDueOut, ..Bedrijf.VanHoecke, ..InclusiefTransferReservatie)
 	
 	Quit Query
 ]]></Implementation>
Index: vhUnitTest/DOM/ProdRes/VerwachteUitvoerAPI/Base.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/ProdRes/VerwachteUitvoerAPI/Base.cls.xml	(revision 0)
+++ vhUnitTest/DOM/ProdRes/VerwachteUitvoerAPI/Base.cls.xml	(revision 33256)
@@ -0,0 +1,76 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.ProdRes.VerwachteUitvoerAPI.Base">
+<Abstract>1</Abstract>
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="Bedrijf">
+<Type>DOM.common.enu.Bedrijf.AutoComplete</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	// eventueel resterende data proberen wissen
+	#dim ResultSet As %ResultSet = ##class(%ResultSet).%New()
+	
+	Do ResultSet.Prepare("SELECT ID FROM DOM_ProdRes_impl.VerwachteUitvoerImpl WHERE TransactieReferentie Like 'Unittest referentie%'")
+	Do ResultSet.Execute()
+	
+	If (ResultSet.Next()) {
+		Do ##class(DOM.ProdRes.impl.VerwachteUitvoerImpl).%DeleteId(ResultSet.Data("ID"))
+	}
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="MaakVerwachteUitvoerInfo">
+<FormalSpec>TransactieReferentie:%String,TransactieLijnReferentie:%String,Bedrijf:DOM.common.enu.Bedrijf=##class(DOM.common.enu.Bedrijf).VanHoecke()</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.ProdRes.dto.VerwachteUitvoerInfo</ReturnType>
+<Implementation><![CDATA[
+	#dim VerwachteUitvoerInfo As DOM.ProdRes.dto.VerwachteUitvoerInfo = ##class(DOM.ProdRes.dto.VerwachteUitvoerInfo).%New()
+	
+	Set VerwachteUitvoerInfo.TransactieReferentie = TransactieReferentie
+	Set VerwachteUitvoerInfo.TransactieLijnReferentie = TransactieLijnReferentie
+	Set VerwachteUitvoerInfo.Bedrijf = Bedrijf
+	
+	Quit VerwachteUitvoerInfo
+]]></Implementation>
+</Method>
+
+<Method name="MaakUitvoerReservatie">
+<FormalSpec>ProductID:%String,Aantal:%Integer,DueOut:%TimeStamp=##class(TECH.DateTime).CurrentTimeStamp(),IsTransferReservatie:%Boolean=$$$False</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.ProdRes.dto.UitvoerReservatie</ReturnType>
+<Implementation><![CDATA[
+	#dim UitvoerReservatie As DOM.ProdRes.dto.UitvoerReservatie = ##class(DOM.ProdRes.dto.UitvoerReservatie).%New()
+	
+	Set UitvoerReservatie.ProductID = ProductID
+	Set UitvoerReservatie.Aantal = Aantal
+	Set UitvoerReservatie.DueOut = DueOut
+	Set UitvoerReservatie.PrioriteitGroep = ##class(DOM.ProdRes.enu.PrioriteitGroep).Halux()
+	Set UitvoerReservatie.IsTransferReservatie = IsTransferReservatie
+	
+	Quit UitvoerReservatie
+]]></Implementation>
+</Method>
+
+<Method name="MaakVerwachteUitvoerInfoMetReservatie">
+<FormalSpec>TransactieReferentie:%String,TransactieLijnReferentie:%String,ProductID:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.ProdRes.dto.VerwachteUitvoerInfo</ReturnType>
+<Implementation><![CDATA[
+	#dim VerwachteUitvoerInfo = ..MaakVerwachteUitvoerInfo(TransactieReferentie, TransactieLijnReferentie)
+
+	Set VerwachteUitvoerInfo.Reservatie = ..MaakUitvoerReservatie(ProductID, 10)
+	
+	Quit VerwachteUitvoerInfo
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/common/enu/Bedrijf.cls.xml
===================================================================
diff -u -r29059 -r33256
--- DOM/common/enu/Bedrijf.cls.xml	(.../Bedrijf.cls.xml)	(revision 29059)
+++ DOM/common/enu/Bedrijf.cls.xml	(.../Bedrijf.cls.xml)	(revision 33256)
@@ -3,7 +3,7 @@
 <Class name="DOM.common.enu.Bedrijf">
 <ClassType>datatype</ClassType>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%String</Super>
+<Super>TECH.Enumeration</Super>
 
 <Parameter name="VALUELIST">
 <Default>;VanHoecke;Halux</Default>
FishEye: Tag 33256 refers to a dead (removed) revision in file `vhUnitTest/DOM/ProdRes/TestVerwachteUitvoerAPI.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?