Index: vhDeploy/Deploy20201216xToevoegenHalffabSpecMVXv001.cls.xml
===================================================================
diff -u -r63066 -r63067
--- vhDeploy/Deploy20201216xToevoegenHalffabSpecMVXv001.cls.xml	(.../Deploy20201216xToevoegenHalffabSpecMVXv001.cls.xml)	(revision 63066)
+++ vhDeploy/Deploy20201216xToevoegenHalffabSpecMVXv001.cls.xml	(.../Deploy20201216xToevoegenHalffabSpecMVXv001.cls.xml)	(revision 63067)
@@ -11,27 +11,44 @@
 <Method name="ExecCode">
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
-	#dim Datum As TECH.DateTime = $$INTDATE^vhLib.DataTypes("01.01.2001")
-	do ..StelInVersie1(Datum)
+	Do ..VoegToeHalffabSpecs()
+	Do ..VoegToeKostSpec()
 ]]></Implementation>
 </Method>
 
-<Method name="StelInVersie1">
+<Method name="VoegToeHalffabSpecs">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>Datum:TECH.DateTime</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
-	#dim KostSpecInfoID As %String = ##class(TECH.ResultSet).GeefIDVanEersteRecord("SELECT ID FROM DOM_PM_Maatwerk_Calc_Kost_impl.KostSpecInfo WHERE KostSpec = ?",$listbuild("DOM.PM.Maatwerk.Calc.Kost.impl.MVX.SpecKostv001"))
-	#dim KostSpecInfo As DOM.PM.Maatwerk.Calc.Kost.impl.KostSpecInfo = ##class(DOM.PM.Maatwerk.Calc.Kost.impl.KostSpecInfo).OpenId(KostSpecInfoID)
-	Do KostSpecInfo.ZetGeldigVan(Datum)
-	Do KostSpecInfo.ZetGeldigTot(##class(TECH.DateTime).MaxDate())
-	Do KostSpecInfo.Save()
-	#dim HalffabSpecInfoID As %String = ##class(TECH.ResultSet).GeefIDVanEersteRecord("SELECT ID FROM DOM_PM_Maatwerk_Calc_HF_impl.HalffabSpecInfo WHERE HalffabSpec = ?",$listbuild("DOM.PM.Maatwerk.Calc.HF.impl.MVX.SpecHFv001"))
-	#dim HalffabSpecInfo As DOM.PM.Maatwerk.Calc.HF.impl.HalffabSpecInfo = ##class(DOM.PM.Maatwerk.Calc.HF.impl.HalffabSpecInfo).OpenId(HalffabSpecInfoID)
-	Do HalffabSpecInfo.ZetGeldigVan(Datum)
-	Do HalffabSpecInfo.ZetGeldigTot(##class(TECH.DateTime).MaxDate())
-	Do HalffabSpecInfo.Save()
+	#dim Familie As DOM.PM.enu.Familie = ##class(DOM.PM.enu.Familie).Lade()
+	#dim Variant As DOM.PM.enu.Variant = ##class(DOM.PM.enu.Variant).Merivobox()
+	#dim Vandaag As TECH.DateTime = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate()
+	#dim HFSpecKlasseNaam As %String = "DOM.PM.Maatwerk.Calc.HF.impl.MVX.SpecHFv001"
+	
+	Set SpecInfoPAS = ##class(DOM.PM.Maatwerk.Calc.HF.impl.HalffabSpecInfo).%New(Familie, Variant, HFSpecKlasseNaam,,Vandaag,##class(TECH.DateTime).MaxDate())
+	Set SpecInfoPAS.BerekeningWijze = ##class(DOM.PM.Maatwerk.Calc.Common.enu.BerekeningWijze).ProductieAansturing()
+	
+	Do SpecInfoPAS.Save()
+	
+	Set SpecInfo = ##class(DOM.PM.Maatwerk.Calc.HF.impl.HalffabSpecInfo).%New(Familie, Variant, HFSpecKlasseNaam,,Vandaag,##class(TECH.DateTime).MaxDate())
+	Set SpecInfo.BerekeningWijze = ##class(DOM.PM.Maatwerk.Calc.Common.enu.BerekeningWijze).PrijsBerekening()
+	
+	Do SpecInfo.Save()
 ]]></Implementation>
 </Method>
+
+<Method name="VoegToeKostSpec">
+<ClassMethod>1</ClassMethod>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Familie As DOM.PM.enu.Familie = ##class(DOM.PM.enu.Familie).Lade()
+	#dim Variant As DOM.PM.enu.Variant = ##class(DOM.PM.enu.Variant).Merivobox()
+	#dim Vandaag As TECH.DateTime = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate()
+	#dim HFSpecKlasseNaam As %String = "DOM.PM.Maatwerk.Calc.Kost.impl.MVX.SpecKostv001"
+	Set KostSpec = ##class(DOM.PM.Maatwerk.Calc.Kost.impl.KostSpecInfo).%New(Familie, Variant, HFSpecKlasseNaam,,Vandaag,##class(TECH.DateTime).MaxDate())
+	Do KostSpec.Save()
+]]></Implementation>
+</Method>
 </Class>