Index: APPS/PM/Maatwerk/impl/VhConfig/Converter/LbxKenmerken.cls.xml
===================================================================
diff -u -r72848 -r72849
--- APPS/PM/Maatwerk/impl/VhConfig/Converter/LbxKenmerken.cls.xml	(.../LbxKenmerken.cls.xml)	(revision 72848)
+++ APPS/PM/Maatwerk/impl/VhConfig/Converter/LbxKenmerken.cls.xml	(.../LbxKenmerken.cls.xml)	(revision 72849)
@@ -16,6 +16,26 @@
 <Implementation><![CDATA[
 	Set LbxKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerkenv01).%New()
 	
+	Do ..ConverteerStandaardProperties(.LbxKenmerken, VhConfig)
+	Do ..BepaalVoorwandTypeKenmerken(.LbxKenmerken, VhConfig.Kenmerken.GetAt("VoorwandType"))
+	Set LbxKenmerken.ProductieWijze = ..GeefProductieWijze(VhConfig.Kenmerken.GetAt("ProductieWijze"))
+	Set LbxKenmerken.GUIKenmerken = ..GeefGUIKenmerken(VhConfig)	
+	Set LbxKenmerken.NietMeeleveren = ..GeefNietMeeleveren(VhConfig)
+	
+	//Set LbxKenmerken = VhConfig.Kenmerken.GetAt("HeeftMat")
+	
+	//Mat
+	//SST
+	//Uitsparingdata
+	
+	Quit LbxKenmerken
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerStandaardProperties">
+<FormalSpec><![CDATA[&LbxKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken,VhConfig:APPS.PM.Maatwerk.dto.VhConfig]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
 	Set LbxKenmerken.AantalDwarsverdelingen = VhConfig.Kenmerken.GetAt("DwarsverdelingAantal")
 	Set LbxKenmerken.Draagkracht = VhConfig.Kenmerken.GetAt("Draagkracht")
 	Set LbxKenmerken.DwarsverdelingType = VhConfig.Kenmerken.GetAt("DwarsverdelingType")
@@ -36,36 +56,6 @@
 	Set LbxKenmerken.RugWandMateriaal = VhConfig.Kenmerken.GetAt("RugwandMateriaal")
 	Set LbxKenmerken.Klasse = VhConfig.Kenmerken.GetAt("Toepassing")
 	Set LbxKenmerken.VerpakkingType = VhConfig.Kenmerken.GetAt("VerpakkingType")
-	Set LbxKenmerken.ProductieWijze = ..GeefProductieWijze(VhConfig.Kenmerken.GetAt("ProductieWijze"))
-	
-	Do ..BepaalVoorwandTypeKenmerken(.LbxKenmerken, VhConfig.Kenmerken.GetAt("VoorwandType"))
-	
-	Set GUIKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.LBXGUIKenmerken).%New()
-	Set GUIKenmerken.WandDikte = VhConfig.Kenmerken.GetAt("CorpusWanddikte")
-	Set GUIKenmerken.IsBinnenbreedte = $Select(VhConfig.Kenmerken.GetAt("IsBinnenbreedte") = "true": $$$True, 1: $$$False)
-	Set LbxKenmerken.GUIKenmerken = GUIKenmerken
-	
-	Set LbxKenmerken.NietMeeleveren = ##class(%ListOfDataTypes).%New()
-	If (VhConfig.Kenmerken.GetAt("NietMeeleveren.AfdekkapBinnen") = "true") { Do LbxKenmerken.NietMeeleveren.Insert(..Enum.NietMeeleveren.AfdekkapBinnen)}
-	If (VhConfig.Kenmerken.GetAt("NietMeeleveren.AfdekkapBuiten") = "true") { Do LbxKenmerken.NietMeeleveren.Insert(..Enum.NietMeeleveren.AfdekkapBuiten)}
-	If (VhConfig.Kenmerken.GetAt("NietMeeleveren.AfdekkapRugwandHouder") = "true") { Do LbxKenmerken.NietMeeleveren.Insert(..Enum.NietMeeleveren.AfdekkapRugWandHouder)}
-	If (VhConfig.Kenmerken.GetAt("NietMeeleveren.BevestigingBodemFront") = "true") { Do LbxKenmerken.NietMeeleveren.Insert(..Enum.NietMeeleveren.BevestigingBodemFront)}
-	If (VhConfig.Kenmerken.GetAt("NietMeeleveren.FrontBevestiging") = "true") { Do LbxKenmerken.NietMeeleveren.Insert(..Enum.NietMeeleveren.FrontBevestiging)}
-	If (VhConfig.Kenmerken.GetAt("NietMeeleveren.Geleider") = "true") { Do LbxKenmerken.NietMeeleveren.Insert(..Enum.NietMeeleveren.Geleider)}
-	If (VhConfig.Kenmerken.GetAt("NietMeeleveren.InschuifElementVoor") = "true") { Do LbxKenmerken.NietMeeleveren.Insert(..Enum.NietMeeleveren.InschuifElementVoor)}
-	If (VhConfig.Kenmerken.GetAt("NietMeeleveren.InschuifElementZijkant") = "true") { Do LbxKenmerken.NietMeeleveren.Insert(..Enum.NietMeeleveren.InschuifElementZijkant)}
-	If (VhConfig.Kenmerken.GetAt("NietMeeleveren.Opvullijst") = "true") { Do LbxKenmerken.NietMeeleveren.Insert(..Enum.NietMeeleveren.Opvullijst)}
-	If (VhConfig.Kenmerken.GetAt("NietMeeleveren.TiponBlumotionSetEenhedenEnMeenemers") = "true") { Do LbxKenmerken.NietMeeleveren.Insert(..Enum.NietMeeleveren.TiponBlumotionSetEenhedenEnMeenemers)}
-	If (VhConfig.Kenmerken.GetAt("NietMeeleveren.TiponBlumotionSynchronisatieStang") = "true") { Do LbxKenmerken.NietMeeleveren.Insert(..Enum.NietMeeleveren.TiponBlumotionSynchronisatieStang)}
-	If (VhConfig.Kenmerken.GetAt("NietMeeleveren.Zijstabilisering") = "true") { Do LbxKenmerken.NietMeeleveren.Insert(..Enum.NietMeeleveren.Zijstabilisering)}
-	
-	//Set LbxKenmerken = VhConfig.Kenmerken.GetAt("HeeftMat")
-	
-	//Mat
-	//SST
-	//Uitsparingdata
-	
-	Quit LbxKenmerken
 ]]></Implementation>
 </Method>
 
@@ -114,6 +104,41 @@
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="GeefGUIKenmerken">
+<FormalSpec>VhConfig:APPS.PM.Maatwerk.dto.VhConfig</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.LBXGUIKenmerken</ReturnType>
+<Implementation><![CDATA[
+	Set GUIKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.LBXGUIKenmerken).%New()
+	Set GUIKenmerken.WandDikte = VhConfig.Kenmerken.GetAt("CorpusWanddikte")
+	Set GUIKenmerken.IsBinnenbreedte = $Select(VhConfig.Kenmerken.GetAt("IsBinnenbreedte") = "true": $$$True, 1: $$$False)
+	
+	Quit GUIKenmerken
+]]></Implementation>
+</Method>
+
+<Method name="GeefNietMeeleveren">
+<FormalSpec>VhConfig:APPS.PM.Maatwerk.dto.VhConfig</FormalSpec>
+<Implementation><![CDATA[
+	Set NietMeeleveren = ##class(%ListOfDataTypes).%New()
+	
+	If (VhConfig.Kenmerken.GetAt("NietMeeleveren.AfdekkapBinnen") = "true") { Do NietMeeleveren.Insert(..Enum.NietMeeleveren.AfdekkapBinnen)}
+	If (VhConfig.Kenmerken.GetAt("NietMeeleveren.AfdekkapBuiten") = "true") { Do NietMeeleveren.Insert(..Enum.NietMeeleveren.AfdekkapBuiten)}
+	If (VhConfig.Kenmerken.GetAt("NietMeeleveren.AfdekkapRugwandHouder") = "true") { Do NietMeeleveren.Insert(..Enum.NietMeeleveren.AfdekkapRugWandHouder)}
+	If (VhConfig.Kenmerken.GetAt("NietMeeleveren.BevestigingBodemFront") = "true") { Do NietMeeleveren.Insert(..Enum.NietMeeleveren.BevestigingBodemFront)}
+	If (VhConfig.Kenmerken.GetAt("NietMeeleveren.FrontBevestiging") = "true") { Do NietMeeleveren.Insert(..Enum.NietMeeleveren.FrontBevestiging)}
+	If (VhConfig.Kenmerken.GetAt("NietMeeleveren.Geleider") = "true") { Do NietMeeleveren.Insert(..Enum.NietMeeleveren.Geleider)}
+	If (VhConfig.Kenmerken.GetAt("NietMeeleveren.InschuifElementVoor") = "true") { Do NietMeeleveren.Insert(..Enum.NietMeeleveren.InschuifElementVoor)}
+	If (VhConfig.Kenmerken.GetAt("NietMeeleveren.InschuifElementZijkant") = "true") { Do NietMeeleveren.Insert(..Enum.NietMeeleveren.InschuifElementZijkant)}
+	If (VhConfig.Kenmerken.GetAt("NietMeeleveren.Opvullijst") = "true") { Do NietMeeleveren.Insert(..Enum.NietMeeleveren.Opvullijst)}
+	If (VhConfig.Kenmerken.GetAt("NietMeeleveren.TiponBlumotionSetEenhedenEnMeenemers") = "true") { Do NietMeeleveren.Insert(..Enum.NietMeeleveren.TiponBlumotionSetEenhedenEnMeenemers)}
+	If (VhConfig.Kenmerken.GetAt("NietMeeleveren.TiponBlumotionSynchronisatieStang") = "true") { Do NietMeeleveren.Insert(..Enum.NietMeeleveren.TiponBlumotionSynchronisatieStang)}
+	If (VhConfig.Kenmerken.GetAt("NietMeeleveren.Zijstabilisering") = "true") { Do NietMeeleveren.Insert(..Enum.NietMeeleveren.Zijstabilisering)}
+
+	Quit NietMeeleveren
+]]></Implementation>
+</Method>
 </Class>