Index: APPS/PM/Maatwerk/MaatwerkModel/impl/BuilderMaker.cls.xml
===================================================================
diff -u -r31842 -r62419
--- APPS/PM/Maatwerk/MaatwerkModel/impl/BuilderMaker.cls.xml	(.../BuilderMaker.cls.xml)	(revision 31842)
+++ APPS/PM/Maatwerk/MaatwerkModel/impl/BuilderMaker.cls.xml	(.../BuilderMaker.cls.xml)	(revision 62419)
@@ -1,25 +1,25 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.PM.Maatwerk.MaatwerkModel.impl.BuilderMaker">
-<Super>%RegisteredObject</Super>
+<Super>TECH.RegisteredObject</Super>
 
 <Property name="Model">
 <Type>APPS.PM.Maatwerk.MaatwerkModel.dto.MaatwerkModel</Type>
 </Property>
 
-<Property name="svnHook">
+<Property name="SvnHook">
 <Type>svn.StudioHook</Type>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>Model:APPS.PM.Maatwerk.MaatwerkModel.dto.MaatwerkModel,svnHook:svn.StudioHook</FormalSpec>
+<FormalSpec>Model:APPS.PM.Maatwerk.MaatwerkModel.dto.MaatwerkModel,SvnHook:svn.StudioHook</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..Model = Model
-	Set ..svnHook = svnHook
+	Set ..SvnHook = SvnHook
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -87,7 +87,7 @@
 <FormalSpec>RolNaam:%String</FormalSpec>
 <Implementation><![CDATA[
 	#dim Rol As APPS.PM.Maatwerk.MaatwerkModel.dto.Rol = ..Model.GeefRol(RolNaam)
-	#dim Visitor As APPS.PM.Maatwerk.MaatwerkModel.impl.MaakBuilderVisitor= ##class(APPS.PM.Maatwerk.MaatwerkModel.impl.MaakBuilderVisitor).%New(..Model, ..svnHook, Rol)
+	#dim Visitor As APPS.PM.Maatwerk.MaatwerkModel.impl.MaakBuilderVisitor= ##class(APPS.PM.Maatwerk.MaatwerkModel.impl.MaakBuilderVisitor).%New(..Model, ..SvnHook, Rol)
 	
 	Do Rol.BuilderType.Accept(Visitor)
 ]]></Implementation>
@@ -108,7 +108,7 @@
 			#dim Rol As APPS.PM.Maatwerk.MaatwerkModel.dto.Rol = RolIterator.Next()
 			
 			Try {
-				#dim Visitor As APPS.PM.Maatwerk.MaatwerkModel.impl.MaakBuilderVisitor = ##class(APPS.PM.Maatwerk.MaatwerkModel.impl.MaakBuilderVisitor).%New(..Model, ..svnHook, Rol)
+				#dim Visitor As APPS.PM.Maatwerk.MaatwerkModel.impl.MaakBuilderVisitor = ##class(APPS.PM.Maatwerk.MaatwerkModel.impl.MaakBuilderVisitor).%New(..Model, ..SvnHook, Rol)
 				Do Rol.BuilderType.Accept(Visitor)
 				If (Visitor.KlasseNaam '= "") {
 					Do GegenereerdeBuilders.SetAt(Visitor.KlasseNaam, Rol.Naam)
@@ -136,11 +136,16 @@
 	
 	#dim HFSpecBestaat As %Boolean = ResultSet.Next()
 	
-	If ('HFSpecBestaat) {
+	If $$$Not(HFSpecBestaat) {
 		Write "Halffab spec registreren",!
 		
-		#dim SpecInfo As DOM.PM.Maatwerk.Calc.HF.impl.HalffabSpecInfo = ##class(DOM.PM.Maatwerk.Calc.HF.impl.HalffabSpecInfo).%New(..Model.Familie,..Model.Variant, HFSpecKlasseNaam,,Vandaag,##class(TECH.DateTime).MaxDate())
-		Do SpecInfo.Save()
+		Set SpecInfoProductieAansturing = ##class(DOM.PM.Maatwerk.Calc.HF.impl.HalffabSpecInfo).%New(..Model.Familie,..Model.Variant, HFSpecKlasseNaam,,Vandaag,##class(TECH.DateTime).MaxDate())
+		Set SpecInfoProductieAansturing.BerekeningWijze = ##class(DOM.PM.Maatwerk.Calc.Common.enu.BerekeningWijze).ProductieAansturing()
+		Do SpecInfoProductieAansturing.Save()
+		
+		Set SpecInfoPrijsBerekening = ##class(DOM.PM.Maatwerk.Calc.HF.impl.HalffabSpecInfo).%New(..Model.Familie,..Model.Variant, HFSpecKlasseNaam,,Vandaag,##class(TECH.DateTime).MaxDate())
+		Set SpecInfoPrijsBerekening.BerekeningWijze = ##class(DOM.PM.Maatwerk.Calc.Common.enu.BerekeningWijze).PrijsBerekening()
+		Do SpecInfoPrijsBerekening.Save()
 	}
 ]]></Implementation>
 </Method>
@@ -157,7 +162,7 @@
  	
 	#dim KostSpecBestaat As %Boolean = ResultSet.Next()
 	
-	If ('KostSpecBestaat) {
+	If $$$Not(KostSpecBestaat) {
 		Write "Kost spec registreren",!
 		
 		#dim SpecInfo As DOM.PM.Maatwerk.Calc.Kost.impl.KostSpecInfo = ##class(DOM.PM.Maatwerk.Calc.Kost.impl.KostSpecInfo).%New(..Model.Familie, ..Model.Variant, KostSpecKlasseNaam,, Vandaag, ##class(TECH.DateTime).MaxDate())
@@ -209,7 +214,7 @@
 	
 		Write "  Klasse: ", KlasseNaam, !
 		
-		Do ##class(APPS.PM.Maatwerk.MaatwerkModel.impl.ModelUtils).GenereerCacheKlasse(Stream, ..svnHook, KlasseNaam)
+		Do ##class(APPS.PM.Maatwerk.MaatwerkModel.impl.ModelUtils).GenereerCacheKlasse(Stream, ..SvnHook, KlasseNaam)
 	}
 ]]></Implementation>
 </Method>
@@ -288,7 +293,7 @@
 	
 		Write "  Klasse: ", KlasseNaam, !
 		
-		Do ##class(APPS.PM.Maatwerk.MaatwerkModel.impl.ModelUtils).GenereerCacheKlasse(Stream, ..svnHook, KlasseNaam)
+		Do ##class(APPS.PM.Maatwerk.MaatwerkModel.impl.ModelUtils).GenereerCacheKlasse(Stream, ..SvnHook, KlasseNaam)
 	}
 ]]></Implementation>
 </Method>
@@ -317,7 +322,7 @@
 	
 		Write "  Klasse: ", KlasseNaam, !
 		
-		Do ##class(APPS.PM.Maatwerk.MaatwerkModel.impl.ModelUtils).GenereerCacheKlasse(Stream, ..svnHook, KlasseNaam)
+		Do ##class(APPS.PM.Maatwerk.MaatwerkModel.impl.ModelUtils).GenereerCacheKlasse(Stream, ..SvnHook, KlasseNaam)
 	}
 ]]></Implementation>
 </Method>
Index: APPS/PM/Maatwerk/MaatwerkModel/impl/MaakBuilderVisitor.cls.xml
===================================================================
diff -u -r31842 -r62419
--- APPS/PM/Maatwerk/MaatwerkModel/impl/MaakBuilderVisitor.cls.xml	(.../MaakBuilderVisitor.cls.xml)	(revision 31842)
+++ APPS/PM/Maatwerk/MaatwerkModel/impl/MaakBuilderVisitor.cls.xml	(.../MaakBuilderVisitor.cls.xml)	(revision 62419)
@@ -1,13 +1,13 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.PM.Maatwerk.MaatwerkModel.impl.MaakBuilderVisitor">
-<Super>APPS.PM.Maatwerk.MaatwerkModel.BuilderTypeVisitor,%RegisteredObject</Super>
+<Super>APPS.PM.Maatwerk.MaatwerkModel.BuilderTypeVisitor,TECH.RegisteredObject</Super>
 
 <Property name="Model">
 <Type>APPS.PM.Maatwerk.MaatwerkModel.dto.MaatwerkModel</Type>
 </Property>
 
-<Property name="svnHook">
+<Property name="SvnHook">
 <Type>svn.StudioHook</Type>
 </Property>
 
@@ -22,15 +22,15 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>Model:APPS.PM.Maatwerk.MaatwerkModel.dto.MaatwerkModel,svnHook:svn.StudioHook,Rol:APPS.PM.Maatwerk.MaatwerkModel.dto.Rol</FormalSpec>
+<FormalSpec>Model:APPS.PM.Maatwerk.MaatwerkModel.dto.MaatwerkModel,SvnHook:svn.StudioHook,Rol:APPS.PM.Maatwerk.MaatwerkModel.dto.Rol</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..Model = Model
 	Set ..Rol = Rol
-	Set ..svnHook = svnHook
+	Set ..SvnHook = SvnHook
 	Set ..KlasseNaam = ""
 	
 	Quit $$$OK
@@ -77,7 +77,7 @@
 	Do ##class(APPS.PM.Maatwerk.MaatwerkModel.impl.ModelUtils).GenereerKlasseEinde(Stream)
 	
 	Write "  Klasse: ", ..KlasseNaam, !
-	Do ##class(APPS.PM.Maatwerk.MaatwerkModel.impl.ModelUtils).GenereerCacheKlasse(Stream, ..svnHook, ..KlasseNaam)
+	Do ##class(APPS.PM.Maatwerk.MaatwerkModel.impl.ModelUtils).GenereerCacheKlasse(Stream, ..SvnHook, ..KlasseNaam)
 
 	Quit $$$OK
 ]]></Implementation>
@@ -103,7 +103,7 @@
 	Do ##class(APPS.PM.Maatwerk.MaatwerkModel.impl.ModelUtils).GenereerKlasseEinde(Stream)
 	
 	Write "  Klasse: ", ..KlasseNaam, !
-	Do ##class(APPS.PM.Maatwerk.MaatwerkModel.impl.ModelUtils).GenereerCacheKlasse(Stream, ..svnHook, ..KlasseNaam)
+	Do ##class(APPS.PM.Maatwerk.MaatwerkModel.impl.ModelUtils).GenereerCacheKlasse(Stream, ..SvnHook, ..KlasseNaam)
 
 	Quit $$$OK
 ]]></Implementation>
@@ -161,7 +161,7 @@
 	Do ##class(APPS.PM.Maatwerk.MaatwerkModel.impl.ModelUtils).GenereerKlasseEinde(Stream)
 	
 	Write "  Klasse: ", ..KlasseNaam, !
-	Do ##class(APPS.PM.Maatwerk.MaatwerkModel.impl.ModelUtils).GenereerCacheKlasse(Stream, ..svnHook, ..KlasseNaam)
+	Do ##class(APPS.PM.Maatwerk.MaatwerkModel.impl.ModelUtils).GenereerCacheKlasse(Stream, ..SvnHook, ..KlasseNaam)
 
 	Quit $$$OK
 ]]></Implementation>
@@ -222,7 +222,11 @@
 <Implementation><![CDATA[
 	#dim BaseKlassePackagePrefix As TECH.String = "DOM.PM.Maatwerk"
 	#dim BaseKlassePackageSuffix As TECH.String = "impl.Base"
-	#dim MaatwerkTypeCode As TECH.String = $Select(..Model.MaatwerkTypeCode = "LBX": "LBX", ..Model.MaatwerkTypeCode = "TAOR": "TAX", ..Model.MaatwerkTypeCode = "MAT": "MAT")
+	#dim MaatwerkTypeCode As TECH.String = ..Model.MaatwerkTypeCode
+	
+	If (MaatwerkTypeCode = "TAOR") {
+		Set MaatwerkTypeCode = "TAX"
+	}
 
 	Quit BaseKlassePackagePrefix _ "." _ MaatwerkTypeCode _ "." _ BaseKlassePackageSuffix
 ]]></Implementation>