Index: DOTNET/PM/Maatwerk/Converter/DomNaarDotnet/TbxKenmerken.cls.xml
===================================================================
diff -u -r67072 -r67258
--- DOTNET/PM/Maatwerk/Converter/DomNaarDotnet/TbxKenmerken.cls.xml	(.../TbxKenmerken.cls.xml)	(revision 67072)
+++ DOTNET/PM/Maatwerk/Converter/DomNaarDotnet/TbxKenmerken.cls.xml	(.../TbxKenmerken.cls.xml)	(revision 67258)
@@ -32,7 +32,7 @@
 	Set DotNetKenmerken.FrontBevestiging 		= TbxKenmerken.FrontBevestiging
 	Set DotNetKenmerken.FrontOndersteuningAantal= $Select(TbxKenmerken.FrontOndersteuningAantal = "":0, 1:TbxKenmerken.FrontOndersteuningAantal)
 	Set DotNetKenmerken.FrontOndersteuningType	= TbxKenmerken.FrontOndersteuningType
-	Set DotNetKenmerken.GeleiderTechnologie		= TbxKenmerken.GeleiderTechnologie
+	Set DotNetKenmerken.GeleiderTechnologie		= ..GeefGeleiderTechnologie()
 	Set DotNetKenmerken.GreepEnMeenemer			= ..GeefGreepEnMeenemer()
 	Set DotNetKenmerken.HeeftOpvullijstLinks 	= TbxKenmerken.HeeftOpvullijstLinks
 	Set DotNetKenmerken.HeeftOpvullijstRechts 	= TbxKenmerken.HeeftOpvullijstRechts
@@ -67,6 +67,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefGeleiderTechnologie">
+<Private>1</Private>
+<ReturnType>DOM.PM.enu.TBXGeleiderTechnologie</ReturnType>
+<Implementation><![CDATA[
+	#dim GeleiderTechnologie As DOM.PM.enu.TBXGeleiderTechnologie = ..TbxKenmerken.GeleiderTechnologie
+	
+	If (GeleiderTechnologie = "") && ($IsObject(..TbxKenmerken.LegacyKenmerken)) {
+		Set GeleiderTechnologie = ..TbxKenmerken.LegacyKenmerken.ItemBM
+	}
+	
+	If (GeleiderTechnologie = "") {
+		Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Fout in TbxKenmerken.GeleiderTechnologie : dit kenmerk mag niet leeg zijn.")
+	}
+	
+	Quit GeleiderTechnologie
+]]></Implementation>
+</Method>
+
 <Method name="GeefVoorwandVerhogingType">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
@@ -77,7 +95,11 @@
 		If (##class(TECH.StringUtils).Equals(..TbxKenmerken.ZijwandVerhogingType, ##class(DOM.PM.enu.TBXZijwandVerhogingType).Zonder(), ##class(DOM.PM.enu.TBXZijwandVerhogingType).Laag(), "")) {
 			Set VoorwandVerhogingType = ##class(DOM.PM.enu.TBXVoorwandVerhogingType).Vulling()	
 		} Else {
-			Set VoorwandVerhogingType = ##class(DOM.PM.enu.TBXVoorwandVerhogingType).Reling()	
+			If $$$Not(..TbxKenmerken.LadeHoogte = "B") {
+				Set VoorwandVerhogingType = ##class(DOM.PM.enu.TBXVoorwandVerhogingType).Reling()
+			} Else {
+				Set VoorwandVerhogingType = ##class(DOM.PM.enu.TBXVoorwandVerhogingType).Vulling()
+			}	
 		}
 	} Else {
 		Set VoorwandVerhogingType = ##class(DOM.PM.enu.TBXVoorwandVerhogingType).Geen()	
@@ -234,18 +256,19 @@
 				} ElseIf (UitsparingDataObject.RugDeelX = 197) {
 					Set UitsparingDataObject.UitsparingZ1 = LadeUitsparingHelper.GeefUitsparingCode("TBX", "Recht", ..TbxKenmerken.RugHoogte, "150", ..TbxKenmerken.InterneBreedte - 197 - 197, "SP2")
 				} Else {
-					Set UitsparingDataObject.UitsparingZ1 = LadeUitsparingHelper.GeefUitsparingCode("TBX", "Recht", ..TbxKenmerken.RugHoogte, "150", ..TbxKenmerken.InterneBreedte - $ListGet(UitsparingData,2) - $ListGet(UitsparingData,3), "SP2")
+					Set UitsparingDataObject.UitsparingZ1 = LadeUitsparingHelper.GeefUitsparingCode("TBX", "Recht", ..TbxKenmerken.RugHoogte, "150", 9999999, "SP2")
 				}
 				
 			}
 			
 			If (..TbxKenmerken.Toepassing = ##class(DOM.PM.enu.TBXToepassing).SifonType3()) {
 				Set UitsparingDataObject.AantalUitsparingen = ##class(DOM.PM.enu.AantalUitsparingen).Enkel()
+				Set UitsparingDataObject.UitsparingZ1 = LadeUitsparingHelper.GeefUitsparingCode("TBX", "Recht", ..TbxKenmerken.RugHoogte, "240", ..TbxKenmerken.UitsparingBreedte1, "SY3")
 				
 				If (..HeeftDubbeleUitsparing()) {
 					Set UitsparingDataObject.AantalUitsparingen = ##class(DOM.PM.enu.AantalUitsparingen).Dubbel()
 					Set UitsparingDataObject.RugDeelM = ..GeefRugM()
-					Set UitsparingDataObject.UitsparingZ2 = LadeUitsparingHelper.GeefUitsparingCode("TBX", "Recht", ..TbxKenmerken.RugHoogte, "240", $ListGet(UitsparingData,6), "SY3")
+					Set UitsparingDataObject.UitsparingZ2 = LadeUitsparingHelper.GeefUitsparingCode("TBX", "Recht", ..TbxKenmerken.RugHoogte, "240", ..TbxKenmerken.UitsparingBreedte2, "SY3")
 				}
 			}
 		}
@@ -260,7 +283,7 @@
 <Implementation><![CDATA[
 	#dim RugY As %Decimal
 	
-	If ..HeeftDubbeleUitsparing(..TbxKenmerken) {
+	If ..HeeftDubbeleUitsparing() {
 		Set RugY = ..TbxKenmerken.InterneBreedte - ..TbxKenmerken.UitsparingPositie2 - ..TbxKenmerken.UitsparingBreedte2
 	}
 	Else {
@@ -281,15 +304,13 @@
 <ReturnType>%Decimal</ReturnType>
 <Implementation><![CDATA[
 	Quit:($$$Not(..HeeftDubbeleUitsparing())) 0
-	Quit (..GeefRugY() + ..TbxKenmerken.UitsparingBreedte2)
+	Quit ..TbxKenmerken.UitsparingBreedte2
 ]]></Implementation>
 </Method>
 
 <Method name="GeefZ1">
 <ReturnType>%Decimal</ReturnType>
-<Implementation><![CDATA[
-	Quit:($$$Not(..HeeftDubbeleUitsparing())) (..TbxKenmerken.InterneBreedte - ..GeefRugY() - ..GeefRugX())
-	Quit ..GeefZ2() + (..TbxKenmerken.UitsparingPositie2 - ..TbxKenmerken.UitsparingPositie1 - ..TbxKenmerken.UitsparingBreedte1)
+<Implementation><![CDATA[	Quit ..TbxKenmerken.UitsparingBreedte1
 ]]></Implementation>
 </Method>
 
@@ -299,9 +320,9 @@
 	#dim RugX As %Decimal 
 	
 	If $$$Not(..HeeftDubbeleUitsparing())  {
-		Set RugX = ..GeefRugY() + ..TbxKenmerken.UitsparingBreedte1
+		Set RugX = ..TbxKenmerken.InterneBreedte - ..GeefRugY() - ..TbxKenmerken.UitsparingBreedte1
 	} Else {
-		Set RugX =  ..GeefZ1() + ..TbxKenmerken.UitsparingBreedte1
+		Set RugX =  ..TbxKenmerken.UitsparingPositie1
 	}
 	
 	Quit RugX
@@ -399,6 +420,11 @@
 			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New("ZijwandInschuifElementKleur '" _ ..LegacyKenmerken.ItemKV _ "' is niet gekend in de DomNaarDotNetConvertor voor TBX."))
 		}
 	}
+	
+	If ((ZijwandVerhogingInschuifElementKleur = "") && ((..TbxKenmerken.ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).InschuifElement()))) {
+		Set ZijwandVerhogingInschuifElementKleur = ..TbxKenmerken.ZijwandVerhogingKleur
+	}
+	
 	Quit ZijwandVerhogingInschuifElementKleur
 ]]></Implementation>
 </Method>
@@ -414,6 +440,18 @@
 		Do NietMeeleveren.Insert(Iterator.Next())
 	}
 	
+	// Tijdelijke aanpassing om de juiste rollen in .NET te kunnen uitschakelen:
+	If ##class(TECH.ListUtils).Contains(NietMeeleveren, ##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).CorpusProfiel()) {
+		Do NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXNietMeeleveren).Geleider())
+	}
+	If ##class(TECH.ListUtils).Contains(NietMeeleveren, ##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).ZijReling()) {
+		Do NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXNietMeeleveren).Reling())
+	}
+	
+	If ##class(TECH.ListUtils).Contains(NietMeeleveren, ##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).Boxside()) {
+		Do NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXNietMeeleveren).InschuifElement())
+	}
+	
 	Quit NietMeeleveren
 ]]></Implementation>
 </Method>