Index: vhDeploy/Deploy20220728xToevoegenSpecsRVGv001.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20220728xToevoegenSpecsRVGv001.cls.xml	(revision 0)
+++ vhDeploy/Deploy20220728xToevoegenSpecsRVGv001.cls.xml	(revision 68571)
@@ -0,0 +1,55 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy20220728xToevoegenSpecsRVGv001">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Toevoegen RVG Spec v001</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Do ..VoegToeHalffabSpecs()
+	Do ..VoegToeKostSpec()
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeHalffabSpecs">
+<ClassMethod>1</ClassMethod>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Familie As DOM.PM.enu.Familie = ##class(DOM.PM.enu.Familie).Meubel()
+	#dim Variant As DOM.PM.enu.Variant = ##class(DOM.PM.enu.Variant).Revego()
+	#dim Vandaag As TECH.DateTime = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate()
+	#dim HFSpecKlasseNaam As %String = "DOM.PM.Maatwerk.Calc.HF.impl.RVG.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).Meubel()
+	#dim Variant As DOM.PM.enu.Variant = ##class(DOM.PM.enu.Variant).Revego()
+	#dim Vandaag As TECH.DateTime = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate()
+	#dim HFSpecKlasseNaam As %String = "DOM.PM.Maatwerk.Calc.Kost.impl.RVG.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>
+
+
+</Export>
Index: DOM/PM/Maatwerk/Calc/HF/impl/RVG/SpecHFv001.cls.xml
===================================================================
diff -u
--- DOM/PM/Maatwerk/Calc/HF/impl/RVG/SpecHFv001.cls.xml	(revision 0)
+++ DOM/PM/Maatwerk/Calc/HF/impl/RVG/SpecHFv001.cls.xml	(revision 68571)
@@ -0,0 +1,34 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.Maatwerk.Calc.HF.impl.RVG.SpecHFv001">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.PM.Maatwerk.Calc.HF.HalffabSpec</Super>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Familie = ##class(DOM.PM.enu.Familie).Meubel()
+	Set ..Variant = ##class(DOM.PM.enu.Variant).Revego()
+	Set ..Builder = ""
+
+	Quit ##super()
+]]></Implementation>
+</Method>
+
+<Method name="GeefVersieNrIngegevenKenmerken">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit 0
+]]></Implementation>
+</Method>
+
+<Method name="GeefHalffabClassNameFactory">
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.HalffabClassNameFactory</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.PM.Maatwerk.Calc.HF.impl.RVG.HalffabClassNameFactory).%New()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/PM/Maatwerk/Calc/HF/impl/RVG/HalffabClassNameFactory.cls.xml
===================================================================
diff -u
--- DOM/PM/Maatwerk/Calc/HF/impl/RVG/HalffabClassNameFactory.cls.xml	(revision 0)
+++ DOM/PM/Maatwerk/Calc/HF/impl/RVG/HalffabClassNameFactory.cls.xml	(revision 68571)
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.Maatwerk.Calc.HF.impl.RVG.HalffabClassNameFactory">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.PM.Maatwerk.Calc.HF.HalffabClassNameFactory</Super>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/PM/Maatwerk/Calc/Kost/impl/RVG/SpecKostv001.cls.xml
===================================================================
diff -u
--- DOM/PM/Maatwerk/Calc/Kost/impl/RVG/SpecKostv001.cls.xml	(revision 0)
+++ DOM/PM/Maatwerk/Calc/Kost/impl/RVG/SpecKostv001.cls.xml	(revision 68571)
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.Maatwerk.Calc.Kost.impl.RVG.SpecKostv001">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.PM.Maatwerk.Calc.Kost.KostSpec</Super>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Familie = ##class(DOM.PM.enu.Familie).Meubel()
+	Set ..Variant = ##class(DOM.PM.enu.Variant).Revego()
+	
+	Quit ##super()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>