Index: DOTNET/PM/Maatwerk/Converter/DomNaarDotnet/TbxKenmerken.cls.xml
===================================================================
diff -u -r67775 -r67872
--- DOTNET/PM/Maatwerk/Converter/DomNaarDotnet/TbxKenmerken.cls.xml	(.../TbxKenmerken.cls.xml)	(revision 67775)
+++ DOTNET/PM/Maatwerk/Converter/DomNaarDotnet/TbxKenmerken.cls.xml	(.../TbxKenmerken.cls.xml)	(revision 67872)
@@ -52,7 +52,7 @@
 	Set DotNetKenmerken.OpvullijstKleur		 	= TbxKenmerken.OpvullijstKleur
 	Set DotNetKenmerken.Plaatmateriaal			= $Select(TbxKenmerken.PlaatMateriaal = "":"HS", 1:TbxKenmerken.PlaatMateriaal) //TbxKenmerken.PlaatMateriaal // Deze komt nog niet correct door in de kenmerken wanneer PlaatMateriaal <> 'HS'
 	Set DotNetKenmerken.ProductieWijze			= $Select(TbxKenmerken.ProductieWijze = "":"V",1:TbxKenmerken.ProductieWijze)
-	Set DotNetKenmerken.RugHoogte 				= TbxKenmerken.RugHoogte
+	Set DotNetKenmerken.RugHoogte 				= ..GeefGeldigeRugHoogte(TbxKenmerken.RugHoogte) //TbxKenmerken.RugHoogte
 	Set DotNetKenmerken.RugwandMateriaal		= $Select(TbxKenmerken.RugwandMateriaal = "":"Hout",1:TbxKenmerken.RugwandMateriaal) //TbxKenmerken.RugwandMateriaal
 	Set DotNetKenmerken.SpoelbakBinnenzijwandHoogte = ..GeefSpoelbakBinnenzijwandHoogte()
 	Set DotNetKenmerken.Toepassing 				= TbxKenmerken.Toepassing
@@ -67,10 +67,31 @@
 	Set DotNetKenmerken.UitsparingData 			= ..GeefUitsparingData()	
 	Set DotNetKenmerken.NietMeeleveren			= ..GeefNietMeeleveren()
 	
+	If (##class(TECH.ListUtils).Contains(DotNetKenmerken.NietMeeleveren, "Opvullijst")) && (DotNetKenmerken.HeeftOpvullijstLinks || DotNetKenmerken.HeeftOpvullijstRechts) {
+		If (DotNetKenmerken.OpvullijstKleur = "") {
+			Set DotNetKenmerken.OpvullijstKleur = "OG"	// Als opvullijstkleur niet gekend is, toch opvullen met een geldig kleur zodat de berekening niet faalt. Dit is een fix voor sommige oude configuraties
+		}
+	}
+	
 	Quit DotNetKenmerken
 ]]></Implementation>
 </Method>
 
+<Method name="GeefGeldigeRugHoogte">
+<FormalSpec>RugHoogte:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim GeldigeRugHoogte As %String = RugHoogte
+	
+	If (##class(TECH.StringUtils).Equals(RugHoogte,"X35", "X40")) {
+		Set GeldigeRugHoogte = "X38"
+	}
+	
+	Quit GeldigeRugHoogte
+]]></Implementation>
+</Method>
+
 <Method name="GeefGeleiderTechnologie">
 <Private>1</Private>
 <ReturnType>DOM.PM.enu.TBXGeleiderTechnologie</ReturnType>