Index: vhDeploy/Deploy20160426xTAXxSelectieKenmerkenxRugWandHouder.cls.xml
===================================================================
diff -u -r34056 -r34065
--- vhDeploy/Deploy20160426xTAXxSelectieKenmerkenxRugWandHouder.cls.xml	(.../Deploy20160426xTAXxSelectieKenmerkenxRugWandHouder.cls.xml)	(revision 34056)
+++ vhDeploy/Deploy20160426xTAXxSelectieKenmerkenxRugWandHouder.cls.xml	(.../Deploy20160426xTAXxSelectieKenmerkenxRugWandHouder.cls.xml)	(revision 34065)
@@ -10,7 +10,15 @@
 
 <Method name="ExecCode">
 <ClassMethod>1</ClassMethod>
-<Implementation><![CDATA[	Do ##class(vhDeploy.Deploy.RugHoogte.Halffab.RugWandHouder).ExecCode()
+<Implementation><![CDATA[
+	Do ##class(vhDeploy.Deploy.RugHoogte.Halffab.RugWandHouder).ExecCode()
+	
+	Do ##class(APPS.PM.Maatwerk.MaatwerkModel.Modellen.TaorboxInitializer).%New().KenmerkGroepVoorRol(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).RugWandHouder())
+ 	
+ 	Do ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabRugWandHouder).%PurgeIndices()
+	Do ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabRugWandHouder).%BuildIndices()
+	
+	Do ##class(vhDeploy.Maatwerk.TAOR.TAORxSELxRugWandHouder).ExecCode()
 ]]></Implementation>
 </Method>
 </Class>
Index: vhDeploy/Maatwerk/TAOR/TAORxSELxRugWandHouder.cls.xml
===================================================================
diff -u -r29059 -r34065
--- vhDeploy/Maatwerk/TAOR/TAORxSELxRugWandHouder.cls.xml	(.../TAORxSELxRugWandHouder.cls.xml)	(revision 29059)
+++ vhDeploy/Maatwerk/TAOR/TAORxSELxRugWandHouder.cls.xml	(.../TAORxSELxRugWandHouder.cls.xml)	(revision 34065)
@@ -1,134 +1,164 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhDeploy.Maatwerk.TAOR.TAORxSELxRugWandHouder">
-<Super>%RegisteredObject</Super>
+<Super>vhDeploy.Maatwerk.SelectieKenmerk.Base</Super>
 
+<Parameter name="SelectieKenmerk">
+<Type>%String</Type>
+<Default>TAOR_SEL_RugWandHouder</Default>
+</Parameter>
+
 <Method name="ExecCode">
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
-	Do ##class(Prod.Kenmerk.MetaGroep).%DeleteId("TAOR_SEL_RugWandHouder")
+	Do ##class(Prod.Kenmerk.MetaGroep).%DeleteId(..#SelectieKenmerk)
+		
+	#dim Service As APPS.PM.Kenmerk.KenmerkenService = ##class(APPS.PM.Kenmerk.impl.KenmerkenService).%New()
+	#dim MogelijkeWaardenManager As APPS.PM.Kenmerk.MogelijkeWaardenManager = ##class(APPS.PM.Kenmerk.MogelijkeWaardenManager).%New()
+	#dim Lijst As APPS.PM.dto.Kenm.KenmerkMetadataList = ##class(APPS.PM.dto.Kenm.KenmerkMetadataList).%New()
+	#dim KenmerkGroep As APPS.PM.dto.Kenm.KenmerkGroepMetadata = ..GeefKenmerkGroep("TAOR selectie rugwandhouder")
+
+	Do KenmerkGroep.Kenmerken.Insert(..GeefKenmerkGeldigVan())
+	Do KenmerkGroep.Kenmerken.Insert(..GeefKenmerkGeldigTot())
+	Do KenmerkGroep.Kenmerken.Insert(..GeefKenmerkKlantBeperking())
+	Do KenmerkGroep.Kenmerken.Insert(..GeefKenmerkRugHoogte())
+	Do KenmerkGroep.Kenmerken.Insert(..GeefKenmerkAantalPerKant())
+	Do KenmerkGroep.Kenmerken.Insert(..GeefKenmerkLiRe())
 	
-	Set Lijst = ##class(APPS.PM.dto.Kenm.KenmerkMetadataList).%New()
-	
-	Set KenmerkGroep = ##class(APPS.PM.dto.Kenm.KenmerkGroepMetadata).%New()
-	Set KenmerkGroep.GeneratieTypeIsRelevant = 0
-	Set KenmerkGroep.MultipleKenmerkenSetsToegelaten = 1
-	Set KenmerkGroep.Code = "TAOR_SEL_RugWandHouder"
-	Set KenmerkGroep.Naam = "TAOR selectie rugwandhouder"
-	Set KenmerkGroep.IsAanwezigInViewerEditor = 1
 	Do Lijst.KenmerkGroepen.Insert(KenmerkGroep)
+	Do Service.BewaarKenmerkGroepMetadataLijst(Lijst)
 	
-	Set Kenmerk = ##class(APPS.PM.dto.Kenm.KenmerkMetadata).%New()
-	Set Kenmerk.IsReadOnly = 0
-	Set Kenmerk.IsWijzigbaar = 0
-	Set Kenmerk.DataType = "Datum"
-	Set Kenmerk.Multipliciteit = ##class(APPS.PM.dto.Kenm.Multipliciteit).%New()
-	Set Kenmerk.Multipliciteit.Minimum = 1
-	Set Kenmerk.Multipliciteit.Maximum = 1
+	Do ..MaakRepository()
+	
+	Do ..RegistreerMogelijkeWaardenRepository(MogelijkeWaardenManager, "RugHoogte", "DOM.PM.enu.TAORRugHoogte")
+	Do ..RegistreerMogelijkeWaardenRepository(MogelijkeWaardenManager, "LiRe", "DOM.PM.enu.LiRe")
+	
+	Do ..VerwijderDataDefinitie()
+]]></Implementation>
+</Method>
+
+<Method name="GeefKenmerkGeldigVan">
+<ClassMethod>1</ClassMethod>
+<Private>1</Private>
+<ReturnType>APPS.PM.dto.Kenm.KenmerkMetadata</ReturnType>
+<Implementation><![CDATA[
+	#dim Kenmerk As APPS.PM.dto.Kenm.KenmerkMetadata = ..GeefKenmerkDatum()
+
 	Set Kenmerk.Naam = "GeldigVan"
-	Set Kenmerk.NieuweWaardeToegelaten = 1
-	Set Kenmerk.SuggereerWaarden = 0
-	Set Kenmerk.VeldBreedteInTekens = 15
 	Set Kenmerk.VolgNr = 1
-	Do KenmerkGroep.Kenmerken.Insert(Kenmerk)
 	
-	Set Kenmerk = ##class(APPS.PM.dto.Kenm.KenmerkMetadata).%New()
-	Set Kenmerk.IsReadOnly = 0
-	Set Kenmerk.IsWijzigbaar = 0
-	Set Kenmerk.DataType = "Datum"
-	Set Kenmerk.Multipliciteit = ##class(APPS.PM.dto.Kenm.Multipliciteit).%New()
-	Set Kenmerk.Multipliciteit.Minimum = 1
-	Set Kenmerk.Multipliciteit.Maximum = 1
+	Quit Kenmerk
+]]></Implementation>
+</Method>
+
+<Method name="GeefKenmerkGeldigTot">
+<ClassMethod>1</ClassMethod>
+<Private>1</Private>
+<ReturnType>APPS.PM.dto.Kenm.KenmerkMetadata</ReturnType>
+<Implementation><![CDATA[
+	#dim Kenmerk As APPS.PM.dto.Kenm.KenmerkMetadata = ..GeefKenmerkDatum()
+
 	Set Kenmerk.Naam = "GeldigTot"
-	Set Kenmerk.NieuweWaardeToegelaten = 1
-	Set Kenmerk.SuggereerWaarden = 0
-	Set Kenmerk.VeldBreedteInTekens = 15
 	Set Kenmerk.VolgNr = 2
-	Do KenmerkGroep.Kenmerken.Insert(Kenmerk)
 	
-	Set Kenmerk = ##class(APPS.PM.dto.Kenm.KenmerkMetadata).%New()
-	Set Kenmerk.IsReadOnly = 0
-	Set Kenmerk.IsWijzigbaar = 0
-	Set Kenmerk.DataType = "Tekst"
-	Set Kenmerk.Multipliciteit = ##class(APPS.PM.dto.Kenm.Multipliciteit).%New()
-	Set Kenmerk.Multipliciteit.Minimum = 1
-	Set Kenmerk.Multipliciteit.Maximum = 99
+	Quit Kenmerk
+]]></Implementation>
+</Method>
+
+<Method name="GeefKenmerkKlantBeperking">
+<ClassMethod>1</ClassMethod>
+<Private>1</Private>
+<ReturnType>APPS.PM.dto.Kenm.KenmerkMetadata</ReturnType>
+<Implementation><![CDATA[
+	#dim Kenmerk As APPS.PM.dto.Kenm.KenmerkMetadata = ..GeefKenmerk()
+
 	Set Kenmerk.Naam = "Klantbeperking"
-	Set Kenmerk.NieuweWaardeToegelaten = 1
-	Set Kenmerk.SuggereerWaarden = 0
+	Set Kenmerk.DataType = ##class(APPS.PM.enu.DataType).Tekst()
+	Set Kenmerk.Multipliciteit.Minimum = 1
+	Set Kenmerk.Multipliciteit.Maximum = 99	
+	Set Kenmerk.NieuweWaardeToegelaten = $$$True
+	Set Kenmerk.SuggereerWaarden = $$$False
 	Set Kenmerk.VeldBreedteInTekens = 15
 	Set Kenmerk.VolgNr = 3
-	Do KenmerkGroep.Kenmerken.Insert(Kenmerk)
 	
-	Set Kenmerk = ##class(APPS.PM.dto.Kenm.KenmerkMetadata).%New()
-	Set Kenmerk.IsReadOnly = 0
-	Set Kenmerk.IsWijzigbaar = 0
-	Set Kenmerk.DataType = "Tekst"
-	Set Kenmerk.Multipliciteit = ##class(APPS.PM.dto.Kenm.Multipliciteit).%New()
+	Quit Kenmerk
+]]></Implementation>
+</Method>
+
+<Method name="GeefKenmerkRugHoogte">
+<ClassMethod>1</ClassMethod>
+<Private>1</Private>
+<ReturnType>APPS.PM.dto.Kenm.KenmerkMetadata</ReturnType>
+<Implementation><![CDATA[
+	#dim Kenmerk As APPS.PM.dto.Kenm.KenmerkMetadata = ..GeefKenmerk()
+	
+	Set Kenmerk.Naam = "RugHoogte"
+	Set Kenmerk.DataType = ##class(APPS.PM.enu.DataType).Tekst()
 	Set Kenmerk.Multipliciteit.Minimum = 1
 	Set Kenmerk.Multipliciteit.Maximum = 99
-	Do Kenmerk.Mogelijkheden.Insert("Niet geconfigureerd")
-	Set Kenmerk.Naam = "LadeHoogte"
-	Set Kenmerk.NieuweWaardeToegelaten = 0
-	Set Kenmerk.SuggereerWaarden = 1
+	Set Kenmerk.NieuweWaardeToegelaten = $$$False
+	Set Kenmerk.SuggereerWaarden = $$$True
 	Set Kenmerk.VeldBreedteInTekens = 10
 	Set Kenmerk.VolgNr = 4
-	Do KenmerkGroep.Kenmerken.Insert(Kenmerk)
 	
-	Set Kenmerk = ##class(APPS.PM.dto.Kenm.KenmerkMetadata).%New()
-	Set Kenmerk.IsReadOnly = 0
-	Set Kenmerk.IsWijzigbaar = 0
-	Set Kenmerk.DataType = ##class(APPS.PM.enu.DataType).Getal()
-	Set Kenmerk.Multipliciteit = ##class(APPS.PM.dto.Kenm.Multipliciteit).%New()
+	Do Kenmerk.Mogelijkheden.Insert("Niet geconfigureerd")
+
+	Quit Kenmerk
+]]></Implementation>
+</Method>
+
+<Method name="GeefKenmerkAantalPerKant">
+<ClassMethod>1</ClassMethod>
+<Private>1</Private>
+<ReturnType>APPS.PM.dto.Kenm.KenmerkMetadata</ReturnType>
+<Implementation><![CDATA[
+	#dim Kenmerk As APPS.PM.dto.Kenm.KenmerkMetadata = ..GeefKenmerk()
+	
+	Set Kenmerk.Naam = "AantalPerKant"
+	Set Kenmerk.DataType = ##class(APPS.PM.enu.DataType).Tekst()
 	Set Kenmerk.Multipliciteit.Minimum = 1
 	Set Kenmerk.Multipliciteit.Maximum = 1
-	Set Kenmerk.Naam = "AantalPerKant"
-	Set Kenmerk.NieuweWaardeToegelaten = 1
-	Set Kenmerk.SuggereerWaarden = 0
+	Set Kenmerk.NieuweWaardeToegelaten = $$$True
+	Set Kenmerk.SuggereerWaarden = $$$False
 	Set Kenmerk.VeldBreedteInTekens = 10
 	Set Kenmerk.VolgNr = 5
-	Do KenmerkGroep.Kenmerken.Insert(Kenmerk)
 
-	Set Kenmerk = ##class(APPS.PM.dto.Kenm.KenmerkMetadata).%New()
-	Set Kenmerk.IsReadOnly = 0
-	Set Kenmerk.IsWijzigbaar = 0
-	Set Kenmerk.DataType = "Tekst"
-	Set Kenmerk.Multipliciteit = ##class(APPS.PM.dto.Kenm.Multipliciteit).%New()
+	Quit Kenmerk
+]]></Implementation>
+</Method>
+
+<Method name="GeefKenmerkLiRe">
+<ClassMethod>1</ClassMethod>
+<Private>1</Private>
+<ReturnType>APPS.PM.dto.Kenm.KenmerkMetadata</ReturnType>
+<Implementation><![CDATA[
+	#dim Kenmerk As APPS.PM.dto.Kenm.KenmerkMetadata = ..GeefKenmerk()
+	
+	Set Kenmerk.Naam = "LiRe"
+	Set Kenmerk.DataType = ##class(APPS.PM.enu.DataType).Tekst()
 	Set Kenmerk.Multipliciteit.Minimum = 1
 	Set Kenmerk.Multipliciteit.Maximum = 1
-	Do Kenmerk.Mogelijkheden.Insert("Niet geconfigureerd")
-	Set Kenmerk.Naam = "LiRe"
-	Set Kenmerk.NieuweWaardeToegelaten = 0
-	Set Kenmerk.SuggereerWaarden = 1
+	Set Kenmerk.NieuweWaardeToegelaten = $$$False
+	Set Kenmerk.SuggereerWaarden = $$$True
 	Set Kenmerk.VeldBreedteInTekens = 10
 	Set Kenmerk.VolgNr = 6
-	Do KenmerkGroep.Kenmerken.Insert(Kenmerk)
-
-	Set Service = ##class(APPS.PM.Kenmerk.impl.KenmerkenService).%New()
-	Do Service.BewaarKenmerkGroepMetadataLijst(Lijst)
 	
-	Set RepositoryManager = ##class(APPS.PM.Kenmerk.RepositoryManager).%New()
-	If (RepositoryManager.HeeftRepository("TAOR_SEL_RugWandHouder"))
-	{
-		Do RepositoryManager.VerwijderRepository("TAOR_SEL_RugWandHouder")
-	}
-	Do RepositoryManager.RegistreerRepository(##class(APPS.PM.Kenmerk.impl.DataDefinitieRepository).%New("TAOR_SEL_RugWandHouder"))
-	
-	Set MogelijkeWaardenManager = ##class(APPS.PM.Kenmerk.MogelijkeWaardenManager).%New()
-	If (MogelijkeWaardenManager.HeeftMogelijkeWaardenRepository("TAOR_SEL_RugWandHouder","LadeHoogte"))
-	{
-		Do MogelijkeWaardenManager.VerwijderMogelijkeWaardenRepository(MogelijkeWaardenManager.GeefMogelijkeWaardenRepository("TAOR_SEL_RugWandHouder","LadeHoogte"))
-	}
-	Do MogelijkeWaardenManager.RegistreerMogelijkeWaardenRepository(##class(APPS.PM.Kenmerk.impl.EnumWaardenRepository).%New("TAOR_SEL_RugWandHouder","LadeHoogte","DOM.PM.enu.TAORLadeHoogte"))
+	Do Kenmerk.Mogelijkheden.Insert("Niet geconfigureerd")
 
-	Set MogelijkeWaardenManager = ##class(APPS.PM.Kenmerk.MogelijkeWaardenManager).%New()
-	If (MogelijkeWaardenManager.HeeftMogelijkeWaardenRepository("TAOR_SEL_RugWandHouder","LiRe"))
-	{
-		Do MogelijkeWaardenManager.VerwijderMogelijkeWaardenRepository(MogelijkeWaardenManager.GeefMogelijkeWaardenRepository("TAOR_SEL_RugWandHouder","LiRe"))
-	}
-	Do MogelijkeWaardenManager.RegistreerMogelijkeWaardenRepository(##class(APPS.PM.Kenmerk.impl.EnumWaardenRepository).%New("TAOR_SEL_RugWandHouder","LiRe","DOM.PM.enu.LiRe"))
+	Quit Kenmerk
 ]]></Implementation>
 </Method>
+
+<Method name="VerwijderDataDefinitie">
+<ClassMethod>1</ClassMethod>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim QueryUitvoerder As TECH.Query.QueryUitvoerder = ##class(TECH.Context).Instance().GeefQueryAPI().GeefQueryUitvoerder()
+	#dim Query As TECH.String = "DELETE FROM Prod_Kenmerk.DataDefinitie WHERE Kenmerk = '" _ ..#SelectieKenmerk _ "||IsBinnenlade'"
+	
+	do QueryUitvoerder.VoerUit(Query)
+]]></Implementation>
+</Method>
 </Class>