Index: APPS/PM/Maatwerk/MaatwerkModel/Modellen/TaorboxModel/Rollen/ZijkantPlaat.cls.xml
===================================================================
diff -u -r29059 -r30431
--- APPS/PM/Maatwerk/MaatwerkModel/Modellen/TaorboxModel/Rollen/ZijkantPlaat.cls.xml	(.../ZijkantPlaat.cls.xml)	(revision 29059)
+++ APPS/PM/Maatwerk/MaatwerkModel/Modellen/TaorboxModel/Rollen/ZijkantPlaat.cls.xml	(.../ZijkantPlaat.cls.xml)	(revision 30431)
@@ -1,28 +1,41 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.PM.Maatwerk.MaatwerkModel.Modellen.TaorboxModel.Rollen.ZijkantPlaat">
-<Super>APPS.PM.Maatwerk.MaatwerkModel.Modellen.TaorboxModel.Rol</Super>
+<Super>APPS.PM.Maatwerk.MaatwerkModel.Modellen.TaorboxModel.Rol,DOM.PM.Maatwerk.TAX.impl.Base</Super>
 
 <Method name="GeefRol">
 <ReturnType>APPS.PM.Maatwerk.MaatwerkModel.dto.Rol</ReturnType>
 <Implementation><![CDATA[
-	Set Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("ZijkantPlaat","Zijkantplaat")
-	Set BuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.BewerktBuilderType).%New()
-	Set BewerkingInfo = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.BewerkingInfo).%New()
-	Set BewerkingInfo.Aftrek = 13   ; voor Baliko 
-	Set BewerkingInfo.IngegevenKenmerk = ..TaorboxModel.GeefIngegevenKenmerkViaNaam("LadeDiepte")
-	Do BuilderType.BewerkingDimensies.SetAt(BewerkingInfo, ##class(DOM.PM.enu.BewerkingDimensie).Lengte())
-	Set BewerkingInfo = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.BewerkingInfo).%New()
-	Set BewerkingInfo.Aftrek = 0
-	Set BewerkingInfo.IngegevenKenmerk = ..TaorboxModel.GeefIngegevenKenmerkViaNaam("LadeHoogte")
-	Do BuilderType.BewerkingDimensies.SetAt(BewerkingInfo, ##class(DOM.PM.enu.BewerkingDimensie).Breedte())
-	Set Rol.BuilderType = BuilderType
-	Set Rol.ItemProcessorType = ##class(APPS.PM.Maatwerk.MaatwerkModel.enu.ItemProcessorType).ExactEen()
-	Do Rol.SelectieKenmerken.Insert(..TaorboxModel.GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam("LadeKleur"))
-	Set Rol.ProductieDocTemplate = "{Rol}, {EXPR:##class(DOM.PM.enu.TAORPlaatAfwerking).LogicalToDisplay(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.PlaatAfwerkingBepaler).%New().GeefPlaatAfwerking(..LadeKleur))}, {LadeKleur}"
-	Quit Rol
+	#dim Rol As APPS.PM.Maatwerk.MaatwerkModel.dto.Rol = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.Rol).%New("ZijkantPlaat","Zijkantplaat")
+	#dim BuilderType As APPS.PM.Maatwerk.MaatwerkModel.dto.BewerktBuilderType = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.BewerktBuilderType).%New()
+
+	do BuilderType.BewerkingDimensies.SetAt(..GeefBewerkingInfo(..Enum.KenmerkNaam.LadeDiepte, 13), ##class(DOM.PM.enu.BewerkingDimensie).Lengte()) // 13 -> voor Baliko
+	do BuilderType.BewerkingDimensies.SetAt(..GeefBewerkingInfo(..Enum.KenmerkNaam.LadeHoogte, 0), ##class(DOM.PM.enu.BewerkingDimensie).Breedte())
+	
+	set Rol.BuilderType = BuilderType
+	set Rol.ItemProcessorType = ##class(APPS.PM.Maatwerk.MaatwerkModel.enu.ItemProcessorType).ExactEen()
+	
+	do Rol.SelectieKenmerken.Insert(..TaorboxModel.GeefSelectieKenmerkVoorIngegevenKenmerkViaNaam(..Enum.KenmerkNaam.LadeKleur))
+	
+	set Rol.ProductieDocTemplate = "{Rol}, {EXPR:##class(DOM.PM.enu.TAORPlaatAfwerking).LogicalToDisplay(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.PlaatAfwerkingBepaler).%New().GeefPlaatAfwerking(..LadeKleur))}, {LadeKleur}"
+	
+	quit Rol
 ]]></Implementation>
 </Method>
+
+<Method name="GeefBewerkingInfo">
+<FormalSpec>KenmerkNaam:TECH.String,Aftrek:%Decimal</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.PM.Maatwerk.MaatwerkModel.dto.BewerkingInfo</ReturnType>
+<Implementation><![CDATA[
+	#dim BewerkingInfo As APPS.PM.Maatwerk.MaatwerkModel.dto.BewerkingInfo = ##class(APPS.PM.Maatwerk.MaatwerkModel.dto.BewerkingInfo).%New()
+	
+	set BewerkingInfo.Aftrek = Aftrek
+	set BewerkingInfo.IngegevenKenmerk = ..TaorboxModel.GeefIngegevenKenmerkViaNaam(KenmerkNaam)
+	
+	quit BewerkingInfo
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: DOM/PM/Maatwerk/Calc/HF/IHalffabItemBuilder.cls.xml
===================================================================
diff -u -r29059 -r30431
--- DOM/PM/Maatwerk/Calc/HF/IHalffabItemBuilder.cls.xml	(.../IHalffabItemBuilder.cls.xml)	(revision 29059)
+++ DOM/PM/Maatwerk/Calc/HF/IHalffabItemBuilder.cls.xml	(.../IHalffabItemBuilder.cls.xml)	(revision 30431)
@@ -146,34 +146,34 @@
 	Set ..NietAangepasteIngegevenKenmerken = IngegevenKenmerken
 	Set IngegevenKenmerken = ..GeefAangepasteIngegevenKenmerken(IngegevenKenmerken)
 	#dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = ""
-	If (..BuilderMoetWerken(IngegevenKenmerken, Context))
-	{
-		Try
-		{
+	
+	If (..BuilderMoetWerken(IngegevenKenmerken, Context)) {
+		Try {
 			#dim HalffabList As %ListOfObjects = ..BerekenHalffabLijst(IngegevenKenmerken, Context)
+			
 			Do ..FilterHalffabList(.HalffabList, IngegevenKenmerken, Context)
 			Do ..ValideerHalffabList(.HalffabList, IngegevenKenmerken, Context)
+			
 			Set HalffabItem = ..GenereerHalffabItem(.HalffabList, IngegevenKenmerken, Context)
+			
 			Do ..PostProcessHalffabItem(.HalffabItem, IngegevenKenmerken, Context, .HalffabList)
-		}
-		Catch e
-		{
+		} Catch {
 			#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch("DOM.PM.Maatwerk.Calc.HF.impl.HFItemBuilderException","DOM.PM.Maatwerk.Calc.HF.impl.Processor.ValidatieException","DOM.PM.Maatwerk.Calc.HF.impl.CalculatorException")
 			
 			Set HFItemBerekenException = ##class(DOM.PM.Maatwerk.Calc.HF.impl.HFItemBerekenException).%New(##this,HalffabList,Exception,IngegevenKenmerken,Context.GeefBerekenDatum())
 			Do Context.LogExceptie(HFItemBerekenException)
 
-			If (Exception.%Extends("DOM.PM.Maatwerk.Calc.HF.impl.Processor.ValidatieException") || Exception.%Extends("DOM.PM.Maatwerk.Calc.HF.impl.CalculatorException") || Exception.%Extends("DOM.PM.Maatwerk.Calc.HF.impl.HFItemBerekenException"))
-			{
-				#dim IngegevenKenmekenAPI As DOM.PM.IngegevenKenmerkenAPI = ##class(DOM.DomeinContext).Instance().GeefIngegevenKenmerkenAPI()
+			If (Exception.%Extends("DOM.PM.Maatwerk.Calc.HF.impl.Processor.ValidatieException") || Exception.%Extends("DOM.PM.Maatwerk.Calc.HF.impl.CalculatorException") || Exception.%Extends("DOM.PM.Maatwerk.Calc.HF.impl.HFItemBerekenException")) {
 				Set Probleem = ##class(DOM.PM.Maatwerk.Calc.Common.Probleem.HalffabrikaatNietBerekenbaar).%New(..GeefRol(),Exception.GeefOmschrijving())
 				Do Probleem.ZetGeprobeerdeSelectieKenmerken(Context.GeefGeprobeerdeSelectieKenmerken(..GeefRol()))
 				Do Probleem.ZetDetail(HFItemBerekenException.GeefDetailOmschrijving())
 				Do Context.RegistreerBerekeningProbleem(Probleem)
-			}			
+			}	
+					
 			Do ##class(TECH.ExceptionHandler).Throw(HFItemBerekenException)
 		}
 	}
+	
 	Quit HalffabItem
 ]]></Implementation>
 </Method>
@@ -187,20 +187,19 @@
 <ReturnTypeParams>ELEMENTTYPE="DOM.PM.Maatwerk.Calc.HF.Halffab"</ReturnTypeParams>
 <Implementation><![CDATA[
 	Set Lijst = ##class(%ListOfObjects).%New()
-	Try
-	{
+	
+	Try {
 		#dim SelectieKenmerken As %ArrayOfDataTypes = ..GenereerKenmerken(IngegevenKenmerken)
 		If (SelectieKenmerken) {
 			Set Lijst = Context.SelecteerHalffabrikaten(##this,SelectieKenmerken,"Eenvoudige selectie")
 		}
-	}
-	Catch e
-	{
-		Set Exception = ##class(TECH.ExceptionHandler).Catch("DOM.PM.Maatwerk.Calc.HF.impl.HFItemBuilderException")
-		Set HFItemBerekenException = ##class(DOM.PM.Maatwerk.Calc.HF.impl.HFBerekenHalffabLijstException).%New(##this,SelectieKenmerken,Exception)
+	} Catch {
+		#dim Exception As TECH.IException = ##class(TECH.ExceptionHandler).Catch("DOM.PM.Maatwerk.Calc.HF.impl.HFItemBuilderException")
+		Set HFItemBerekenException = ##class(DOM.PM.Maatwerk.Calc.HF.impl.HFBerekenHalffabLijstException).%New(##this, SelectieKenmerken, Exception)
 		Do Context.LogExceptie(HFItemBerekenException)
 		Do ##class(TECH.ExceptionHandler).Throw(HFItemBerekenException)
 	}
+	
 	Quit Lijst
 ]]></Implementation>
 </Method>
@@ -220,20 +219,18 @@
 <Implementation><![CDATA[
 	Set IngegevenKenmerken = ..GeefAangepasteIngegevenKenmerken(IngegevenKenmerken)
 	Set Lijst = ##class(%ListOfObjects).%New()
-	Try
-	{
+	Try {
 		#dim SelectieKenmerken As %ArrayOfDataTypes = ..GenereerKenmerken(IngegevenKenmerken)
 		If (SelectieKenmerken) {
 			Set Lijst = Context.SelecteerKenmerkParenVoorMogelijkeWaardenBepaling(##this, PropertyNaam1, PropertyNaam2, SelectieKenmerken, "Kenmerkparen ("_PropertyNaam1_","_PropertyNaam2_")")
 		}
-	}
-	Catch e
-	{
-		Set Exception = ##class(TECH.ExceptionHandler).Catch("DOM.PM.Maatwerk.Calc.HF.impl.HFItemBuilderException")
+	} Catch {
+		#dim Exception As TECH.IException = ##class(TECH.ExceptionHandler).Catch("DOM.PM.Maatwerk.Calc.HF.impl.HFItemBuilderException")
 		Set HFItemBerekenException = ##class(DOM.PM.Maatwerk.Calc.HF.impl.HFBerekenHalffabLijstException).%New(##this,SelectieKenmerken,Exception)
 		Do Context.LogExceptie(HFItemBerekenException)
 		Do ##class(TECH.ExceptionHandler).Throw(HFItemBerekenException)
 	}
+	
 	Quit Lijst
 ]]></Implementation>
 </Method>
@@ -277,7 +274,8 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	// Specifieke filtering van de overgebleven items in de HalffabList 
-	Set Filters=..GeefHalffabListFilters()
+	#dim Filters As %ListOfObjects = ..GeefHalffabListFilters()
+	
 	If $IsObject(Filters) {
 		Set Iterator=##class(TECH.ListIterator).%New(Filters)
 		While (Iterator.HasNext()) {
@@ -295,6 +293,7 @@
 	If '$IsObject(r%HalffabListToItemProcessor) {
 		Set r%HalffabListToItemProcessor=..GeefHalffabListToItemProcessor()
 	}
+	
 	Quit r%HalffabListToItemProcessor
 ]]></Implementation>
 </Method>