Index: vhDeploy/Maatwerk/LBX/PPS/LBXxPPSxLadeZijkant.cls.xml
===================================================================
diff -u -r29059 -r54727
--- vhDeploy/Maatwerk/LBX/PPS/LBXxPPSxLadeZijkant.cls.xml	(.../LBXxPPSxLadeZijkant.cls.xml)	(revision 29059)
+++ vhDeploy/Maatwerk/LBX/PPS/LBXxPPSxLadeZijkant.cls.xml	(.../LBXxPPSxLadeZijkant.cls.xml)	(revision 54727)
@@ -1,74 +1,77 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhDeploy.Maatwerk.LBX.PPS.LBXxPPSxLadeZijkant">
-<Super>vhDeploy.Deploy</Super>
+<Description>
+Deze klasse is incrementeel</Description>
+<Super>vhDeploy.Maatwerk.LBX.PPS.LBXxPPSxBase</Super>
 
 <Method name="ExecCode">
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
-	Do ##class(Prod.Kenmerk.MetaGroep).%DeleteId("LBX_PPS_LadeZijkant")
+	#dim Service As APPS.PM.Kenmerk.KenmerkenService = ##class(APPS.PM.Kenmerk.impl.KenmerkenService).%New()
+	#dim Lijst As APPS.PM.dto.Kenm.KenmerkMetadataList = ##class(APPS.PM.dto.Kenm.KenmerkMetadataList).%New()
+	#dim KenmerkGroepCode As TECH.String = "LBX_PPS_LadeZijkant"
+	#dim KenmerkGroepNaam As TECH.String = "LBX eigenschappen LadeZijkant"
 	
-	Set Lijst = ##class(APPS.PM.dto.Kenm.KenmerkMetadataList).%New()
+	Do ##class(Prod.Kenmerk.MetaGroep).%DeleteId(KenmerkGroepCode)
 	
-	Set KenmerkGroep = ##class(APPS.PM.dto.Kenm.KenmerkGroepMetadata).%New()
-	Set KenmerkGroep.GeneratieTypeIsRelevant = 0
-	Set KenmerkGroep.MultipleKenmerkenSetsToegelaten = 0
-	Set KenmerkGroep.Code = "LBX_PPS_LadeZijkant"
-	Set KenmerkGroep.Naam = "LBX eigenschappen ladezijkant"
-	Set KenmerkGroep.IsAanwezigInViewerEditor = 1
+	#dim KenmerkGroep As APPS.PM.dto.Kenm.KenmerkGroepMetadata = ..GeefKenmerkGroep(KenmerkGroepCode, KenmerkGroepNaam)
+	
+	#dim KenmerkIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(..GeefLijstVanKenmerkMetadata())
+	While KenmerkIterator.HasNext() {
+		#dim Kenmerk As APPS.PM.dto.Kenm.KenmerkMetadata = KenmerkIterator.Next()
+		Do KenmerkGroep.Kenmerken.Insert(Kenmerk)
+	}
+	
 	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 = "Tekst"
-	Set Kenmerk.Multipliciteit = ##class(APPS.PM.dto.Kenm.Multipliciteit).%New()
-	Set Kenmerk.Multipliciteit.Minimum = 1
-	Set Kenmerk.Multipliciteit.Maximum = 1
-	Do Kenmerk.Mogelijkheden.Insert("Niet geconfigureerd")
-	Set Kenmerk.Naam = "Kleur"
-	Set Kenmerk.NieuweWaardeToegelaten = 0
-	Set Kenmerk.SuggereerWaarden = 1
-	Set Kenmerk.VeldBreedteInTekens = 10
-	Set Kenmerk.VolgNr = 1
-	Do KenmerkGroep.Kenmerken.Insert(Kenmerk)
+	Do ..RegistreerRepository(KenmerkGroepCode)
+
+	Do ..RegistreerMogelijkeWaardenRepository(KenmerkGroepCode, "Kleur", "DOM.PM.enu.LBXLadeKleur")
+	Do ..RegistreerMogelijkeWaardenRepository(KenmerkGroepCode, "Hoogte", "DOM.PM.enu.LBXLadeHoogte")
+]]></Implementation>
+</Method>
+
+<Method name="GeefLijstVanKenmerkMetadata">
+<ClassMethod>1</ClassMethod>
+<Private>1</Private>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	#dim LijstVanKenmerkMetadata As %ListOfObjects = ##class(%ListOfObjects).%New()
+	#dim Kenmerk As APPS.PM.dto.Kenm.KenmerkMetadata
+	#dim VolgNr As %Integer = 0
 	
+	Set Kenmerk = ..GeefKenmerkMetadata("Kleur", ##class(APPS.PM.enu.DataType).Tekst(), 1, $$$False, $Increment(VolgNr))
+	Do LijstVanKenmerkMetadata.Insert(Kenmerk)
+	Set Kenmerk = ..GeefKenmerkMetadata("Hoogte", ##class(APPS.PM.enu.DataType).Tekst(), 1, $$$False, $Increment(VolgNr))
+	Do LijstVanKenmerkMetadata.Insert(Kenmerk)
+		
+	Quit LijstVanKenmerkMetadata
+]]></Implementation>
+</Method>
+
+<Method name="GeefKenmerkMetadata">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Naam:TECH.String,DataType:APPS.PM.enu.DataType,MultipliciteitMinimum:%Integer,NieuweWaardeToegelaten:%Boolean,VolgNr:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.PM.dto.Kenm.KenmerkMetadata</ReturnType>
+<Implementation><![CDATA[
 	Set Kenmerk = ##class(APPS.PM.dto.Kenm.KenmerkMetadata).%New()
-	Set Kenmerk.IsReadOnly = 0
-	Set Kenmerk.IsWijzigbaar = 0
-	Set Kenmerk.DataType = "Tekst"
+
+	Set Kenmerk.Naam = Naam
+	Set Kenmerk.IsReadOnly = $$$False
+	Set Kenmerk.IsWijzigbaar = $$$False
+	Set Kenmerk.DataType = DataType
 	Set Kenmerk.Multipliciteit = ##class(APPS.PM.dto.Kenm.Multipliciteit).%New()
-	Set Kenmerk.Multipliciteit.Minimum = 1
+	Set Kenmerk.Multipliciteit.Minimum = MultipliciteitMinimum
 	Set Kenmerk.Multipliciteit.Maximum = 1
-	Do Kenmerk.Mogelijkheden.Insert("Niet geconfigureerd")
-	Set Kenmerk.Naam = "Hoogte"
-	Set Kenmerk.NieuweWaardeToegelaten = 0
-	Set Kenmerk.SuggereerWaarden = 1
+	Set Kenmerk.NieuweWaardeToegelaten = NieuweWaardeToegelaten
+	Set Kenmerk.SuggereerWaarden = $$$True
 	Set Kenmerk.VeldBreedteInTekens = 10
-	Set Kenmerk.VolgNr = 2
-	Do KenmerkGroep.Kenmerken.Insert(Kenmerk)
+	Set Kenmerk.VolgNr = VolgNr
 	
-	Set Service = ##class(APPS.PM.Kenmerk.impl.KenmerkenService).%New()
-	Do Service.BewaarKenmerkGroepMetadataLijst(Lijst)
-	
-	Set RepositoryManager = ##class(APPS.PM.Kenmerk.RepositoryManager).%New()
-	If (RepositoryManager.HeeftRepository("LBX_PPS_LadeZijkant"))
-	{
-		Do RepositoryManager.VerwijderRepository("LBX_PPS_LadeZijkant")
-	}
-	Do RepositoryManager.RegistreerRepository(##class(APPS.PM.Kenmerk.impl.DataDefinitieRepository).%New("LBX_PPS_LadeZijkant"))
-	
-	Set MogelijkeWaardenManager = ##class(APPS.PM.Kenmerk.MogelijkeWaardenManager).%New()
-	If (MogelijkeWaardenManager.HeeftMogelijkeWaardenRepository("LBX_PPS_LadeZijkant","Kleur"))
-	{
-		Do MogelijkeWaardenManager.VerwijderMogelijkeWaardenRepository(MogelijkeWaardenManager.GeefMogelijkeWaardenRepository("LBX_PPS_LadeZijkant","Kleur"))
-	}
-	Do MogelijkeWaardenManager.RegistreerMogelijkeWaardenRepository(##class(APPS.PM.Kenmerk.impl.EnumWaardenRepository).%New("LBX_PPS_LadeZijkant","Kleur","DOM.PM.enu.LBXLadeKleur"))
-	If (MogelijkeWaardenManager.HeeftMogelijkeWaardenRepository("LBX_PPS_LadeZijkant","Hoogte"))
-	{
-		Do MogelijkeWaardenManager.VerwijderMogelijkeWaardenRepository(MogelijkeWaardenManager.GeefMogelijkeWaardenRepository("LBX_PPS_LadeZijkant","Hoogte"))
-	}
-	Do MogelijkeWaardenManager.RegistreerMogelijkeWaardenRepository(##class(APPS.PM.Kenmerk.impl.EnumWaardenRepository).%New("LBX_PPS_LadeZijkant","Hoogte","DOM.PM.enu.LBXLadeHoogte"))
+	Quit Kenmerk
 ]]></Implementation>
 </Method>
 </Class>