Index: vhDeploy/Deploy20160120xTiponBlumotionSynchronisatieStangxTAORxBEWxLengte.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20160120xTiponBlumotionSynchronisatieStangxTAORxBEWxLengte.cls.xml	(revision 0)
+++ vhDeploy/Deploy20160120xTiponBlumotionSynchronisatieStangxTAORxBEWxLengte.cls.xml	(revision 32348)
@@ -0,0 +1,63 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy20160120xTiponBlumotionSynchronisatieStangxTAORxBEWxLengte">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>BewerkingType invullen voor TAOR_BEW_Lengte</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#dim KenmerkenService As APPS.PM.Kenmerk.impl.KenmerkenService = ##class(APPS.PM.Kenmerk.impl.KenmerkenService).%New()
+	#dim ProductenKenmerken As APPS.PM.dto.Kenm.ProductenKenmerken = ##class(APPS.PM.dto.Kenm.ProductenKenmerken).%New()
+	#dim ProductID As TECH.String = "1297240"
+	
+	Do ProductenKenmerken.Kenmerken.Insert(..VulInVoorProduct(ProductID, "BewerkingType", "ContinuMetMaximum"))
+	
+	#dim BewerkingsCalculatorID As TECH.String = ..GeefBewerkingsCalculatorID(ProductID)
+	#dim BewerkingsCalculator As DOM.PM.Maatwerk.Calc.HF.impl.BewerkingsCalculator = ##class(DOM.PM.Maatwerk.Calc.HF.impl.BewerkingsCalculator).OpenId(BewerkingsCalculatorID)
+	
+	Set BewerkingsCalculator.UitvalPercentage = 25
+	Set BewerkingsCalculator.UitvalVast = 3
+	
+	Do BewerkingsCalculator.Save()
+]]></Implementation>
+</Method>
+
+<Method name="GeefBewerkingsCalculatorID">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ProductID:TECH.String</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim QueryUitvoerder As TECH.Query.QueryUitvoerder = ##class(TECH.Context).Instance().GeefQueryAPI().GeefQueryUitvoerder()
+	#dim Query As TECH.String = "SELECT * FROM DOM_PM_Maatwerk_Calc_HF_impl.BewerkingsInfo WHERE Familie = 'Lade' AND Variant = 'TAOR' AND BewerkingDimensie = 'Lengte' AND ProductID = ?"
+	#dim Params As %List = $ListBuild(ProductID)
+	#dim ResultSet As TECH.ResultSet = QueryUitvoerder.VoerUit(Query, Params)
+	
+	#dim ID As TECH.String = ""
+	
+	Set:(ResultSet.Next()) ID = ResultSet.Data("BewerkingsCalculator")
+
+	Quit ID
+]]></Implementation>
+</Method>
+
+<Method name="VulInVoorProduct">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ProductID:TECH.String,Kenmerk:TECH.String,Waarde:TECH.String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim KenmerkGroep As TECH.String = "TAOR_BEW_Lengte"
+	#dim ProductKenmerkenUtils As vhDeploy.Maatwerk.Kenmerk.ProductKenmerkenUtils = ##class(vhDeploy.Maatwerk.Kenmerk.ProductKenmerkenUtils).%New()
+	
+	Quit ProductKenmerkenUtils.MaakProductKenmerken(KenmerkGroep, ProductID, Kenmerk, $ListBuild(Waarde))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>