Index: vhDeploy/Maatwerk/LBX/Deploy20190214xLBXxKenmerkLadeKleurBijFrontHouder.cls.xml
===================================================================
diff -u
--- vhDeploy/Maatwerk/LBX/Deploy20190214xLBXxKenmerkLadeKleurBijFrontHouder.cls.xml	(revision 0)
+++ vhDeploy/Maatwerk/LBX/Deploy20190214xLBXxKenmerkLadeKleurBijFrontHouder.cls.xml	(revision 55226)
@@ -0,0 +1,87 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Maatwerk.LBX.Deploy20190214xLBXxKenmerkLadeKleurBijFrontHouder">
+<Super>vhDeploy.Deploy,DOM.PM.Maatwerk.LBX.impl.Base</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>LEGRABOX Toevoeging selectiekenmerk LadeKleur bij FrontHouder Binnenlade</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Do ..VoegToeSelectieKenmerk()
+	Do ..VulInNieuwSelectieKenmerk()
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeSelectieKenmerk">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#dim KenmerkGroep As %String = "LBX_SEL_FrontHouder"
+	#dim KenmerkNaamLadeKleur As %String = "LadeKleur"
+	
+	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).Tekst()
+	Set Kenmerk.Multipliciteit = ##class(APPS.PM.dto.Kenm.Multipliciteit).%New()
+	Set Kenmerk.Multipliciteit.Minimum = 1
+	Set Kenmerk.Multipliciteit.Maximum = 99
+	Set Kenmerk.Naam = KenmerkNaamLadeKleur
+	Set Kenmerk.NieuweWaardeToegelaten = 0
+	Set Kenmerk.SuggereerWaarden = 1
+	Set Kenmerk.VeldBreedteInTekens = 10
+	Set Kenmerk.VolgNr = 7
+	
+	Set Service = ##class(APPS.PM.Kenmerk.impl.KenmerkenService).%New()
+	Set MetaGroep = ##class(Prod.Kenmerk.MetaGroep).%OpenId(KenmerkGroep)
+	Do Service.BewaarKenmerkMetadata(Kenmerk, MetaGroep)
+	
+	Set RepositoryManager = ##class(APPS.PM.Kenmerk.RepositoryManager).%New()
+	If (RepositoryManager.HeeftRepository(KenmerkGroep))
+	{
+		Do RepositoryManager.VerwijderRepository(KenmerkGroep)
+	}
+	Do RepositoryManager.RegistreerRepository(##class(APPS.PM.Kenmerk.impl.DataDefinitieRepository).%New(KenmerkGroep))
+	
+	Set MogelijkeWaardenManager = ##class(APPS.PM.Kenmerk.MogelijkeWaardenManager).%New()
+	If (MogelijkeWaardenManager.HeeftMogelijkeWaardenRepository(KenmerkGroep, KenmerkNaamLadeKleur))
+	{
+		Do MogelijkeWaardenManager.VerwijderMogelijkeWaardenRepository(MogelijkeWaardenManager.GeefMogelijkeWaardenRepository(KenmerkGroep, KenmerkNaamLadeKleur))
+	}
+	Do MogelijkeWaardenManager.RegistreerMogelijkeWaardenRepository(##class(APPS.PM.Kenmerk.impl.EnumWaardenRepository).%New(KenmerkGroep, KenmerkNaamLadeKleur, "DOM.PM.enu.LBXLadeKleur"))
+]]></Implementation>
+</Method>
+
+<Method name="VulInNieuwSelectieKenmerk">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#dim KenmerkGroep As %String = "LBX_SEL_FrontHouder"
+	#dim KenmerkNaamLadeKleur As %String = "LadeKleur"
+	
+	Set KenmerkenService = ##class(APPS.PM.Kenmerk.impl.KenmerkenService).%New()
+	Set ProductKenmerkenUtils = ##class(vhDeploy.Maatwerk.Kenmerk.ProductKenmerkenUtils).%New()
+	Set ProductenKenmerken = ##class(APPS.PM.dto.Kenm.ProductenKenmerken).%New()
+	Set ProductenKenmerken.Kenmerken = ##class(%ListOfObjects).%New()
+	
+	#dim Query As %String = "Select UnID, PRNr from Prod_Kenmerk.DataDefinitie WHERE KenmerkGroep = ?"
+	#Dim QueryAPI As TECH.Query.QueryAPI = ##class(TECH.Query.impl.QueryAPI).%New()
+	#dim ResultSet As TECH.ResultSet = QueryAPI.GetDynamicResultSet(Query,$LB(KenmerkGroep))
+
+	While (ResultSet.Next()) {
+		#dim UnID As %String = ResultSet.GetDataByName("UnID")
+		#dim PRNr As %String = ResultSet.GetDataByName("PRNr")
+
+		#dim ProductKenmerken As APPS.PM.dto.Kenm.ProductKenmerken = ProductKenmerkenUtils.MaakProductKenmerkenViaUnID(KenmerkGroep, PRNr, UnID, KenmerkNaamLadeKleur, $ListBuild("INGL","OG-M","PS-M","TS-M","SW-M"))
+		Do ProductenKenmerken.Kenmerken.Insert(ProductKenmerken)
+	}
+
+	Do KenmerkenService.BewaarProductenKenmerken(ProductenKenmerken)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>