Index: vhDeploy/Deploy20160316xLBXxPPSxTiponBlumotionSet1.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20160316xLBXxPPSxTiponBlumotionSet1.cls.xml	(revision 0)
+++ vhDeploy/Deploy20160316xLBXxPPSxTiponBlumotionSet1.cls.xml	(revision 33166)
@@ -0,0 +1,85 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy20160316xLBXxPPSxTiponBlumotionSet1">
+<Super>vhDeploy.Deploy</Super>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#dim KenmerkGroepCode As TECH.String = "LBX_PPS_TiponBlumotionSetEenhedenEnMeenemers"
+	#dim KenmerkGroepNaam As TECH.String = "LBX eigenschappen Tip-on Blumotion set"
+	#dim KenmerkNaam As TECH.String = "Identificatie"
+	
+	#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 KenmerkGroep As APPS.PM.dto.Kenm.KenmerkGroepMetadata = ..GeefKenmerkGroep(KenmerkGroepCode, KenmerkGroepNaam)
+	#dim Kenmerk As APPS.PM.dto.Kenm.KenmerkMetadata = ..GeefKenmerk(KenmerkNaam)
+	
+	Do KenmerkGroep.Kenmerken.Insert(Kenmerk)
+	Do Lijst.KenmerkGroepen.Insert(KenmerkGroep)
+	Do Service.BewaarKenmerkGroepMetadataLijst(Lijst)
+	
+	Do ..RegistreerRepository(KenmerkGroepCode)
+]]></Implementation>
+</Method>
+
+<Method name="GeefKenmerkGroep">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Code:TECH.String,Naam:TECH.String</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.PM.dto.Kenm.KenmerkGroepMetadata</ReturnType>
+<Implementation><![CDATA[
+	#dim KenmerkGroep As APPS.PM.dto.Kenm.KenmerkGroepMetadata = ##class(APPS.PM.dto.Kenm.KenmerkGroepMetadata).%New()
+
+	Set KenmerkGroep.GeneratieTypeIsRelevant = $$$False
+	Set KenmerkGroep.MultipleKenmerkenSetsToegelaten = $$$False
+	Set KenmerkGroep.Code = Code
+	Set KenmerkGroep.Naam = Naam
+	Set KenmerkGroep.IsAanwezigInViewerEditor = $$$True
+	
+	Quit KenmerkGroep
+]]></Implementation>
+</Method>
+
+<Method name="GeefKenmerk">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Naam:TECH.String</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.PM.dto.Kenm.KenmerkMetadata</ReturnType>
+<Implementation><![CDATA[
+	#dim Kenmerk As APPS.PM.dto.Kenm.KenmerkMetadata = ##class(APPS.PM.dto.Kenm.KenmerkMetadata).%New()
+	
+	Set Kenmerk.Naam = Naam
+	Set Kenmerk.IsReadOnly = $$$False
+	Set Kenmerk.IsWijzigbaar = $$$True
+	Set Kenmerk.DataType = ##class(APPS.PM.enu.DataType).Tekst()
+	Set Kenmerk.Multipliciteit = ##class(APPS.PM.dto.Kenm.Multipliciteit).%New()
+	Set Kenmerk.Multipliciteit.Minimum = $$$False
+	Set Kenmerk.Multipliciteit.Maximum = $$$True
+	Set Kenmerk.NieuweWaardeToegelaten = $$$True
+	Set Kenmerk.SuggereerWaarden = $$$True
+	Set Kenmerk.VeldBreedteInTekens = 10
+	Set Kenmerk.VolgNr = 1
+	
+	Quit Kenmerk
+]]></Implementation>
+</Method>
+
+<Method name="RegistreerRepository">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>KenmerkGroepCode:TECH.String,KenmerkNaam:TECH.String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim RepositoryManager As APPS.PM.Kenmerk.RepositoryManager = ##class(APPS.PM.Kenmerk.RepositoryManager).%New()
+	
+	If (RepositoryManager.HeeftRepository(KenmerkGroepCode)) {
+		Do RepositoryManager.VerwijderRepository(KenmerkGroepCode)
+	}
+	
+	Do RepositoryManager.RegistreerRepository(##class(APPS.PM.Kenmerk.impl.DataDefinitieRepository).%New(KenmerkGroepCode))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>