Index: vhDeploy/FMA/Deploy20110829x1332.cls.xml
===================================================================
diff -u
--- vhDeploy/FMA/Deploy20110829x1332.cls.xml	(revision 0)
+++ vhDeploy/FMA/Deploy20110829x1332.cls.xml	(revision 1956)
@@ -0,0 +1,239 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhDeploy.FMA.Deploy20110829x1332">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>svn.Deploy</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="ExecCode">
+<Description>
+Do ##class(vhDeploy.FMA.Deploy20110829x1332).ExecCode()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	// Support voor Chocolate Oak (enkel 250 diep, N-hoogte)
+	
+	/*/
+	/ /   Configuratie bodem
+	/*/
+	
+	Set KenmerkenModifiedEventData = ##class(TECH.Events.KenmerkenModifiedEventData).%New()
+	Set Waarden = ##class(%ListOfDataTypes).%New()
+	Do Waarden.Insert("250")
+	Set KenmerkModifiedEventData = ##class(TECH.Events.KenmerkModifiedEventData).%New(683460,"TAOOBodem","LadeDiepte",Waarden)
+	Do KenmerkenModifiedEventData.Wijzigingen.Insert(KenmerkModifiedEventData)
+	
+	Set Waarden = ##class(%ListOfDataTypes).%New()
+	Do Waarden.Insert("2420")
+	Set KenmerkModifiedEventData = ##class(TECH.Events.KenmerkModifiedEventData).%New(683460,"TAOOBodem","BodemLengte",Waarden)
+	Do KenmerkenModifiedEventData.Wijzigingen.Insert(KenmerkModifiedEventData)
+	
+	Set Waarden = ##class(%ListOfDataTypes).%New()
+	Do Waarden.Insert("CO")
+	Set KenmerkModifiedEventData = ##class(TECH.Events.KenmerkModifiedEventData).%New(683460,"TAOOBodem","BodemKleur",Waarden)
+	Do KenmerkenModifiedEventData.Wijzigingen.Insert(KenmerkModifiedEventData)
+	
+	Set Waarden = ##class(%ListOfDataTypes).%New()
+	Do Waarden.Insert("1")
+	Set KenmerkModifiedEventData = ##class(TECH.Events.KenmerkModifiedEventData).%New(683460,"TAOOBodem","IsSelecteerbaar",Waarden)
+	Do KenmerkenModifiedEventData.Wijzigingen.Insert(KenmerkModifiedEventData)
+	
+	Set Waarden = ##class(%ListOfDataTypes).%New()
+	Do Waarden.Insert(##class(TECH.DateTime).CurrentDate())
+	Set KenmerkModifiedEventData = ##class(TECH.Events.KenmerkModifiedEventData).%New(683460,"TAOOBodem","GeldigVan",Waarden)
+	Do KenmerkenModifiedEventData.Wijzigingen.Insert(KenmerkModifiedEventData)
+	
+	Set Waarden = ##class(%ListOfDataTypes).%New()
+	Do Waarden.Insert(##class(TECH.DateTime).MaxDate())
+	Set KenmerkModifiedEventData = ##class(TECH.Events.KenmerkModifiedEventData).%New(683460,"TAOOBodem","GeldigTot",Waarden)
+	Do KenmerkenModifiedEventData.Wijzigingen.Insert(KenmerkModifiedEventData)
+	
+	Set Waarden = ##class(%ListOfDataTypes).%New()
+	Do Waarden.Insert(##class(DOM.PM.enu.Familie).Lade())
+	Set KenmerkModifiedEventData = ##class(TECH.Events.KenmerkModifiedEventData).%New(683460,"TAOOBodem","Familie",Waarden)
+	Do KenmerkenModifiedEventData.Wijzigingen.Insert(KenmerkModifiedEventData)
+	
+	Set Waarden = ##class(%ListOfDataTypes).%New()
+	Do Waarden.Insert(##class(DOM.PM.enu.TAOOBodemBewerkbaar).Lengte())
+	Set KenmerkModifiedEventData = ##class(TECH.Events.KenmerkModifiedEventData).%New(683460,"TAOOBodem","BewerkbaarOp",Waarden)
+	Do KenmerkenModifiedEventData.Wijzigingen.Insert(KenmerkModifiedEventData)
+	
+	Do ##class(APPS.PM.KenmMWFPlugin).%New(KenmerkenModifiedEventData)
+	
+	
+	/*/
+	/ /   Configuratie rug
+	/*/
+	
+	Set KenmerkenModifiedEventData = ##class(TECH.Events.KenmerkenModifiedEventData).%New()
+	Set Waarden = ##class(%ListOfDataTypes).%New()
+	Do Waarden.Insert("N")
+	Set KenmerkModifiedEventData = ##class(TECH.Events.KenmerkModifiedEventData).%New(683523,"TAOORug","RugHoogte",Waarden)
+	Do KenmerkenModifiedEventData.Wijzigingen.Insert(KenmerkModifiedEventData)
+	
+	Set Waarden = ##class(%ListOfDataTypes).%New()
+	Do Waarden.Insert("2420")
+	Set KenmerkModifiedEventData = ##class(TECH.Events.KenmerkModifiedEventData).%New(683523,"TAOORug","RugLengte",Waarden)
+	Do KenmerkenModifiedEventData.Wijzigingen.Insert(KenmerkModifiedEventData)
+	
+	Set Waarden = ##class(%ListOfDataTypes).%New()
+	Do Waarden.Insert("CO")
+	Set KenmerkModifiedEventData = ##class(TECH.Events.KenmerkModifiedEventData).%New(683523,"TAOORug","RugKleur",Waarden)
+	Do KenmerkenModifiedEventData.Wijzigingen.Insert(KenmerkModifiedEventData)
+	
+	Set Waarden = ##class(%ListOfDataTypes).%New()
+	Do Waarden.Insert("1")
+	Set KenmerkModifiedEventData = ##class(TECH.Events.KenmerkModifiedEventData).%New(683523,"TAOORug","IsSelecteerbaar",Waarden)
+	Do KenmerkenModifiedEventData.Wijzigingen.Insert(KenmerkModifiedEventData)
+	
+	Set Waarden = ##class(%ListOfDataTypes).%New()
+	Do Waarden.Insert(##class(TECH.DateTime).CurrentDate())
+	Set KenmerkModifiedEventData = ##class(TECH.Events.KenmerkModifiedEventData).%New(683523,"TAOORug","GeldigVan",Waarden)
+	Do KenmerkenModifiedEventData.Wijzigingen.Insert(KenmerkModifiedEventData)
+	
+	Set Waarden = ##class(%ListOfDataTypes).%New()
+	Do Waarden.Insert(##class(TECH.DateTime).MaxDate())
+	Set KenmerkModifiedEventData = ##class(TECH.Events.KenmerkModifiedEventData).%New(683523,"TAOORug","GeldigTot",Waarden)
+	Do KenmerkenModifiedEventData.Wijzigingen.Insert(KenmerkModifiedEventData)
+	
+	Set Waarden = ##class(%ListOfDataTypes).%New()
+	Do Waarden.Insert(##class(DOM.PM.enu.Familie).Lade())
+	Set KenmerkModifiedEventData = ##class(TECH.Events.KenmerkModifiedEventData).%New(683523,"TAOORug","Familie",Waarden)
+	Do KenmerkenModifiedEventData.Wijzigingen.Insert(KenmerkModifiedEventData)
+	
+	Set Waarden = ##class(%ListOfDataTypes).%New()
+	Do Waarden.Insert(##class(DOM.PM.enu.TAOORugBewerkbaar).Lengte())
+	Set KenmerkModifiedEventData = ##class(TECH.Events.KenmerkModifiedEventData).%New(683523,"TAOORug","BewerkbaarOp",Waarden)
+	Do KenmerkenModifiedEventData.Wijzigingen.Insert(KenmerkModifiedEventData)
+	
+	Do ##class(APPS.PM.KenmMWFPlugin).%New(KenmerkenModifiedEventData)
+	
+	
+	/*/
+	/ /   Configuratie front
+	/*/
+	
+	Set KenmerkenModifiedEventData = ##class(TECH.Events.KenmerkenModifiedEventData).%New()
+	Set Waarden = ##class(%ListOfDataTypes).%New()
+	Do Waarden.Insert("N")
+	Set KenmerkModifiedEventData = ##class(TECH.Events.KenmerkModifiedEventData).%New(683508,"TAOOFront","FrontHoogte",Waarden)
+	Do KenmerkenModifiedEventData.Wijzigingen.Insert(KenmerkModifiedEventData)
+	
+	Set Waarden = ##class(%ListOfDataTypes).%New()
+	Do Waarden.Insert("2420")
+	Set KenmerkModifiedEventData = ##class(TECH.Events.KenmerkModifiedEventData).%New(683508,"TAOOFront","FrontLengte",Waarden)
+	Do KenmerkenModifiedEventData.Wijzigingen.Insert(KenmerkModifiedEventData)
+	
+	Set Waarden = ##class(%ListOfDataTypes).%New()
+	Do Waarden.Insert("CO")
+	Set KenmerkModifiedEventData = ##class(TECH.Events.KenmerkModifiedEventData).%New(683508,"TAOOFront","FrontKleur",Waarden)
+	Do KenmerkenModifiedEventData.Wijzigingen.Insert(KenmerkModifiedEventData)
+	
+	Set Waarden = ##class(%ListOfDataTypes).%New()
+	Do Waarden.Insert("1")
+	Set KenmerkModifiedEventData = ##class(TECH.Events.KenmerkModifiedEventData).%New(683508,"TAOOFront","IsSelecteerbaar",Waarden)
+	Do KenmerkenModifiedEventData.Wijzigingen.Insert(KenmerkModifiedEventData)
+	
+	Set Waarden = ##class(%ListOfDataTypes).%New()
+	Do Waarden.Insert(##class(TECH.DateTime).CurrentDate())
+	Set KenmerkModifiedEventData = ##class(TECH.Events.KenmerkModifiedEventData).%New(683508,"TAOOFront","GeldigVan",Waarden)
+	Do KenmerkenModifiedEventData.Wijzigingen.Insert(KenmerkModifiedEventData)
+	
+	Set Waarden = ##class(%ListOfDataTypes).%New()
+	Do Waarden.Insert(##class(TECH.DateTime).MaxDate())
+	Set KenmerkModifiedEventData = ##class(TECH.Events.KenmerkModifiedEventData).%New(683508,"TAOOFront","GeldigTot",Waarden)
+	Do KenmerkenModifiedEventData.Wijzigingen.Insert(KenmerkModifiedEventData)
+	
+	Set Waarden = ##class(%ListOfDataTypes).%New()
+	Do Waarden.Insert(##class(DOM.PM.enu.Familie).Lade())
+	Set KenmerkModifiedEventData = ##class(TECH.Events.KenmerkModifiedEventData).%New(683508,"TAOOFront","Familie",Waarden)
+	Do KenmerkenModifiedEventData.Wijzigingen.Insert(KenmerkModifiedEventData)
+	
+	Set Waarden = ##class(%ListOfDataTypes).%New()
+	Do Waarden.Insert(##class(DOM.PM.enu.TAOOFrontBewerkbaar).Lengte())
+	Set KenmerkModifiedEventData = ##class(TECH.Events.KenmerkModifiedEventData).%New(683508,"TAOOFront","BewerkbaarOp",Waarden)
+	Do KenmerkenModifiedEventData.Wijzigingen.Insert(KenmerkModifiedEventData)
+
+	/*/
+	/ /   Configuratie ladezijkant
+	/*/
+	
+	Set KenmerkenModifiedEventData = ##class(TECH.Events.KenmerkenModifiedEventData).%New()
+	Set Waarden = ##class(%ListOfDataTypes).%New()
+	Do Waarden.Insert("250")
+	Set KenmerkModifiedEventData = ##class(TECH.Events.KenmerkModifiedEventData).%New(689903,"TAOOLadeZijkant","LadeDiepte",Waarden)
+	Do KenmerkenModifiedEventData.Wijzigingen.Insert(KenmerkModifiedEventData)
+	
+	Set Waarden = ##class(%ListOfDataTypes).%New()
+	Do Waarden.Insert("N")
+	Set KenmerkModifiedEventData = ##class(TECH.Events.KenmerkModifiedEventData).%New(689903,"TAOOLadeZijkant","ZijkantHoogte",Waarden)
+	Do KenmerkenModifiedEventData.Wijzigingen.Insert(KenmerkModifiedEventData)
+	
+	Set Waarden = ##class(%ListOfDataTypes).%New()
+	Do Waarden.Insert("CO")
+	Set KenmerkModifiedEventData = ##class(TECH.Events.KenmerkModifiedEventData).%New(689903,"TAOOLadeZijkant","ZijkantKleur",Waarden)
+	Do KenmerkenModifiedEventData.Wijzigingen.Insert(KenmerkModifiedEventData)
+	
+	Set Waarden = ##class(%ListOfDataTypes).%New()
+	Do Waarden.Insert("1")
+	Set KenmerkModifiedEventData = ##class(TECH.Events.KenmerkModifiedEventData).%New(689903,"TAOOLadeZijkant","IsSelecteerbaar",Waarden)
+	Do KenmerkenModifiedEventData.Wijzigingen.Insert(KenmerkModifiedEventData)
+	
+	Set Waarden = ##class(%ListOfDataTypes).%New()
+	Do Waarden.Insert(##class(TECH.DateTime).CurrentDate())
+	Set KenmerkModifiedEventData = ##class(TECH.Events.KenmerkModifiedEventData).%New(689903,"TAOOLadeZijkant","GeldigVan",Waarden)
+	Do KenmerkenModifiedEventData.Wijzigingen.Insert(KenmerkModifiedEventData)
+	
+	Set Waarden = ##class(%ListOfDataTypes).%New()
+	Do Waarden.Insert(##class(TECH.DateTime).MaxDate())
+	Set KenmerkModifiedEventData = ##class(TECH.Events.KenmerkModifiedEventData).%New(689903,"TAOOLadeZijkant","GeldigTot",Waarden)
+	Do KenmerkenModifiedEventData.Wijzigingen.Insert(KenmerkModifiedEventData)
+	
+	Set Waarden = ##class(%ListOfDataTypes).%New()
+	Do Waarden.Insert(##class(DOM.PM.enu.Familie).Lade())
+	Set KenmerkModifiedEventData = ##class(TECH.Events.KenmerkModifiedEventData).%New(689903,"TAOOLadeZijkant","Familie",Waarden)
+	Do KenmerkenModifiedEventData.Wijzigingen.Insert(KenmerkModifiedEventData)
+	
+	Do ##class(APPS.PM.KenmMWFPlugin).%New(KenmerkenModifiedEventData)
+	
+	// Bewerkingsinfo bodem
+	Set BrutoPercentage = 0
+	Set BrutoVast = 0
+	Set UitvalPercentage = 0.15
+	Set UitvalVast = 0
+	Set Calculator = ##class(DOM.PM.Maatwerk.Calc.HF.impl.StandaardContinuFlowCalculator).%New(BrutoPercentage,BrutoVast,UitvalPercentage,UitvalVast)
+	
+	Set UnID = 683460
+	
+	Set BewerkingsInfo = ##class(DOM.PM.Maatwerk.Calc.HF.impl.BewerkingsInfo).%New(##class(DOM.PM.enu.Familie).Lade(),##class(DOM.PM.enu.LadeVariant).TAOO(),UnID,Calculator,,##class(TECH.DateTime).CurrentDate(),##class(TECH.DateTime).MaxDate())
+	Set Status = BewerkingsInfo.%Save()
+	If $$$ISERR(Status) Do DecomposeStatus^%apiOBJ(Status,.err,"-d") For i=1:1:err Write err(i),!
+
+	// Bewerkingsinfo rug
+	Set BrutoPercentage = 0
+	Set BrutoVast = 0
+	Set UitvalPercentage = 0.15
+	Set UitvalVast = 0
+	Set Calculator = ##class(DOM.PM.Maatwerk.Calc.HF.impl.StandaardContinuFlowCalculator).%New(BrutoPercentage,BrutoVast,UitvalPercentage,UitvalVast)
+	
+	Set UnID = 683523
+	
+	Set BewerkingsInfo = ##class(DOM.PM.Maatwerk.Calc.HF.impl.BewerkingsInfo).%New(##class(DOM.PM.enu.Familie).Lade(),##class(DOM.PM.enu.LadeVariant).TAOO(),UnID,Calculator,,##class(TECH.DateTime).CurrentDate(),##class(TECH.DateTime).MaxDate())
+	Set Status = BewerkingsInfo.%Save()
+	If $$$ISERR(Status) Do DecomposeStatus^%apiOBJ(Status,.err,"-d") For i=1:1:err Write err(i),!
+
+	// Bewerkingsinfo front
+	Set BrutoPercentage = 0
+	Set BrutoVast = 0
+	Set UitvalPercentage = 0.15
+	Set UitvalVast = 0
+	Set Calculator = ##class(DOM.PM.Maatwerk.Calc.HF.impl.StandaardContinuFlowCalculator).%New(BrutoPercentage,BrutoVast,UitvalPercentage,UitvalVast)
+	
+	Set UnID = 683508
+	
+	Set BewerkingsInfo = ##class(DOM.PM.Maatwerk.Calc.HF.impl.BewerkingsInfo).%New(##class(DOM.PM.enu.Familie).Lade(),##class(DOM.PM.enu.LadeVariant).TAOO(),UnID,Calculator,,##class(TECH.DateTime).CurrentDate(),##class(TECH.DateTime).MaxDate())
+	Set Status = BewerkingsInfo.%Save()
+	If $$$ISERR(Status) Do DecomposeStatus^%apiOBJ(Status,.err,"-d") For i=1:1:err Write err(i),!
+]]></Implementation>
+</Method>
+</Class>
+</Export>