Index: vhDeploy/Maatwerk/LBX/Deploy20180315xSifonkapNew.cls.xml
===================================================================
diff -u
--- vhDeploy/Maatwerk/LBX/Deploy20180315xSifonkapNew.cls.xml	(revision 0)
+++ vhDeploy/Maatwerk/LBX/Deploy20180315xSifonkapNew.cls.xml	(revision 50453)
@@ -0,0 +1,141 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Maatwerk.LBX.Deploy20180315xSifonkapNew">
+<Super>vhDeploy.Deploy,DOM.PM.Maatwerk.LBX.impl.Base</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>LEGRABOX sifonkap selectiekenmerken</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set Deploy = ..%New()
+	Do Deploy.VerwijderKenmerkGroep("LBX_SEL_Sifonkap")
+	Do Deploy.MaakKenmerkenData()   ; Bestaande kenmerk updaten, SelectieKenmerk "Kleur" is toegevoegd 
+	Do Deploy.VulInProductKenmerken()
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderKenmerkGroep">
+<FormalSpec>KenmerkGroep:TECH.String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#Dim QueryAPI As TECH.Query.QueryAPI = ##class(TECH.Context).Instance().GeefQueryAPI()
+	#dim Params As %List = $ListBuild(KenmerkGroep)
+	Do QueryAPI.ExecuteDynamicQuery("DELETE FROM Prod_Kenmerk.DataDefinitie WHERE KenmerkGroep=?", Params, ##class(TECH.enu.ResultSetRuntimeMode).ODBC())
+	Do QueryAPI.ExecuteDynamicQuery("DELETE FROM APPS_PM_Kenmerk_impl.WaardenRepository WHERE KenmerkGroep=?", Params, ##class(TECH.enu.ResultSetRuntimeMode).ODBC())
+	Do QueryAPI.ExecuteDynamicQuery("DELETE FROM APPS_PM_Kenmerk_impl.EnumWaardenRepository WHERE KenmerkGroep=?", Params, ##class(TECH.enu.ResultSetRuntimeMode).ODBC())
+]]></Implementation>
+</Method>
+
+<Method name="MaakKenmerkenData">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Rol As %String = ##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).Sifonkap()
+    Do ##class(APPS.PM.Maatwerk.MaatwerkModel.Modellen.LegraboxInitializer).%New().KenmerkGroepVoorRol(Rol,$$$True)
+]]></Implementation>
+</Method>
+
+<Method name="VulInProductKenmerken">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set KenmerkenService = ##class(APPS.PM.Kenmerk.impl.KenmerkenService).%New()
+	#dim ProductenKenmerken As APPS.PM.dto.Kenm.ProductenKenmerken = ##class(APPS.PM.dto.Kenm.ProductenKenmerken).%New()
+	Set ProductenKenmerken.Kenmerken = ##class(%ListOfObjects).%New()	
+	
+	Do ..VulInNieuweSifonkapKenmerken(ProductenKenmerken)
+	Do ..VulInOudeSifonkapKenmerken(ProductenKenmerken)
+	
+	Do KenmerkenService.BewaarProductenKenmerken(ProductenKenmerken)
+]]></Implementation>
+</Method>
+
+<Method name="VulInNieuweSifonkapKenmerken">
+<FormalSpec>ProductenKenmerken:APPS.PM.dto.Kenm.ProductenKenmerken</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim ProductID As TECH.String
+
+	Set ProductID = 1814014
+	Do ..VulInUitsparingCode(ProductenKenmerken , ProductID, ##class(DOM.PM.enu.UitsparingCode).Smal160())
+	Do ..VulInKleuren( ProductenKenmerken       , ProductID, $LB(..Enum.LadeKleur.PolarZilver) )
+	Do ..VulInAantalSchroeven(ProductenKenmerken, ProductID, 4)
+	
+	Set ProductID = 1814055
+	Do ..VulInUitsparingCode(ProductenKenmerken , ProductID, ##class(DOM.PM.enu.UitsparingCode).Smal160())
+	Do ..VulInKleuren( ProductenKenmerken       , ProductID, $LB(..Enum.LadeKleur.Oriongrijs) )
+	Do ..VulInAantalSchroeven(ProductenKenmerken, ProductID, 4)
+	
+	Set ProductID = 1814067
+	Do ..VulInUitsparingCode(ProductenKenmerken , ProductID, ##class(DOM.PM.enu.UitsparingCode).Smal160())
+	Do ..VulInKleuren( ProductenKenmerken       , ProductID, $LB(..Enum.LadeKleur.Zijdewit) )
+	Do ..VulInAantalSchroeven(ProductenKenmerken, ProductID, 4)
+	
+	Set ProductID = 1814068
+	Do ..VulInUitsparingCode(ProductenKenmerken , ProductID, ##class(DOM.PM.enu.UitsparingCode).Smal160())
+	Do ..VulInKleuren( ProductenKenmerken       , ProductID, $LB(..Enum.LadeKleur.Terrazwart, ..Enum.LadeKleur.Inox) )
+	Do ..VulInAantalSchroeven(ProductenKenmerken, ProductID, 4)
+]]></Implementation>
+</Method>
+
+<Method name="VulInOudeSifonkapKenmerken">
+<FormalSpec>ProductenKenmerken:APPS.PM.dto.Kenm.ProductenKenmerken</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	// Deze ProductKenmerken moeten geüpdated worden, want selectiekenmerk "LadeKleur" is toegevoegd 
+	
+	#dim ProductID As TECH.String
+	#dim lbAlleLadeKleuren As %List = $LB(..Enum.LadeKleur.PolarZilver, ..Enum.LadeKleur.Oriongrijs, ..Enum.LadeKleur.Zijdewit, ..Enum.LadeKleur.Terrazwart, ..Enum.LadeKleur.Inox)
+	
+	Set ProductID = 1088489
+	Do ..VulInUitsparingCode(ProductenKenmerken , ProductID, ##class(DOM.PM.enu.UitsparingCode).Smal())
+	Do ..VulInKleuren( ProductenKenmerken       , ProductID, lbAlleLadeKleuren )
+	Do ..VulInAantalSchroeven(ProductenKenmerken, ProductID, 13)	
+	
+	Set ProductID = 1088498
+	Do ..VulInUitsparingCode(ProductenKenmerken , ProductID, ##class(DOM.PM.enu.UitsparingCode).Breed())
+	Do ..VulInKleuren( ProductenKenmerken       , ProductID, lbAlleLadeKleuren )
+	Do ..VulInAantalSchroeven(ProductenKenmerken, ProductID, 13)
+]]></Implementation>
+</Method>
+
+<Method name="VulInUitsparingCode">
+<FormalSpec>ProductenKenmerken:APPS.PM.dto.Kenm.ProductenKenmerken,ProductID:TECH.String,UitsparingCode:DOM.PM.enu.UitsparingCode</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim ProductKenmerken As APPS.PM.dto.Kenm.ProductKenmerken = ..MaakProductKenmerken("LBX_SEL_Sifonkap", ProductID, "UitsparingCode", $LB(UitsparingCode))
+	Do ProductenKenmerken.Kenmerken.Insert(ProductKenmerken)
+]]></Implementation>
+</Method>
+
+<Method name="VulInKleuren">
+<FormalSpec>ProductenKenmerken:APPS.PM.dto.Kenm.ProductenKenmerken,ProductID:TECH.String,lbKleuren:%List</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim ProductKenmerken As APPS.PM.dto.Kenm.ProductKenmerken = ..MaakProductKenmerken("LBX_SEL_Sifonkap", ProductID, "LadeKleur", lbKleuren )
+	Do ProductenKenmerken.Kenmerken.Insert(ProductKenmerken)
+]]></Implementation>
+</Method>
+
+<Method name="VulInAantalSchroeven">
+<FormalSpec>ProductenKenmerken:APPS.PM.dto.Kenm.ProductenKenmerken,ProductID:TECH.String,AantalSchroeven:%Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim ProductKenmerken As APPS.PM.dto.Kenm.ProductKenmerken = ..MaakProductKenmerken("LBX_SEL_Sifonkap", ProductID, "AantalSchroeven", $LB(AantalSchroeven))
+	Do ProductenKenmerken.Kenmerken.Insert(ProductKenmerken)
+]]></Implementation>
+</Method>
+
+<Method name="MaakProductKenmerken">
+<FormalSpec>KenmerkenGroepNaam:%String,ProductID:%String,KenmerkNaam:%String,KenmerkWaarden:%List</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.PM.dto.Kenm.ProductKenmerken</ReturnType>
+<Implementation><![CDATA[	Quit ##class(vhDeploy.Maatwerk.Kenmerk.ProductKenmerkenUtils).%New().MaakProductKenmerken(KenmerkenGroepNaam,ProductID,KenmerkNaam,KenmerkWaarden)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>