Index: DOTNET/PM/Maatwerk/dto/TbxKenmerken.cls.xml
===================================================================
diff -u -r64501 -r65077
--- DOTNET/PM/Maatwerk/dto/TbxKenmerken.cls.xml	(.../TbxKenmerken.cls.xml)	(revision 64501)
+++ DOTNET/PM/Maatwerk/dto/TbxKenmerken.cls.xml	(.../TbxKenmerken.cls.xml)	(revision 65077)
@@ -194,6 +194,10 @@
 <Type>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</Type>
 <Collection>array</Collection>
 </Property>
+
+<Property name="VersieNr">
+<Type>%Integer</Type>
+</Property>
 </Class>
 
 
Index: DOTNET/PM/Maatwerk/Converter/DomNaarDotnet.cls.xml
===================================================================
diff -u -r64702 -r65077
--- DOTNET/PM/Maatwerk/Converter/DomNaarDotnet.cls.xml	(.../DomNaarDotnet.cls.xml)	(revision 64702)
+++ DOTNET/PM/Maatwerk/Converter/DomNaarDotnet.cls.xml	(.../DomNaarDotnet.cls.xml)	(revision 65077)
@@ -60,6 +60,12 @@
 
 <Method name="VerwerkTBXKenmerken">
 <FormalSpec>TBXKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken</FormalSpec>
+<ReturnType>DOTNET.PM.Maatwerk.dto.TbxKenmerken</ReturnType>
+<Implementation><![CDATA[
+	Set Convertor = ##class(DOTNET.PM.Maatwerk.Converter.DomNaarDotnet.TbxKenmerken).%New()
+	
+	Quit Convertor.Convert(TBXKenmerken)
+]]></Implementation>
 </Method>
 
 <Method name="VulMatKenmerkenAan">
Index: DOTNET/PM/Maatwerk/Converter/DomNaarDotnet/TbxKenmerken.cls.xml
===================================================================
diff -u -r64501 -r65077
--- DOTNET/PM/Maatwerk/Converter/DomNaarDotnet/TbxKenmerken.cls.xml	(.../TbxKenmerken.cls.xml)	(revision 64501)
+++ DOTNET/PM/Maatwerk/Converter/DomNaarDotnet/TbxKenmerken.cls.xml	(.../TbxKenmerken.cls.xml)	(revision 65077)
@@ -13,20 +13,21 @@
 <Type>DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy</Type>
 </Property>
 
-<UDLText name="T">
-<Content><![CDATA[
-/*
-Property LadeType As %String [ Private ];
+<Property name="Toepassing">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
 
-Property Toepassing As %String [ Private ];
+<Property name="RugHoogte">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
 
-Property ZijkantHoogte As %String [ Private ];
+<Property name="InterneBreedte">
+<Type>%Decimal</Type>
+<Private>1</Private>
+</Property>
 
-Property LadeHoogte As %String [ Private ];
-*/
-]]></Content>
-</UDLText>
-
 <Method name="Convert">
 <FormalSpec>TbxKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken</FormalSpec>
 <ReturnType>DOTNET.PM.Maatwerk.dto.TbxKenmerken</ReturnType>
@@ -39,18 +40,22 @@
 	
 	Set DotNetKenmerken.LadeDesign 				= ..GeefLadeDesign()
 	Set DotNetKenmerken.Toepassing 				= TbxKenmerken.Toepassing
+	Set ..Toepassing 							= TbxKenmerken.Toepassing
 	Set DotNetKenmerken.IsBinnenlade 			= TbxKenmerken.IsBinnenlade
+	
 	Set DotNetKenmerken.ZijkantHoogte 			= TbxKenmerken.ZijkantHoogte	
 	Set DotNetKenmerken.LadeHoogte 				= TbxKenmerken.LadeHoogte
 	Set DotNetKenmerken.RugHoogte 				= TbxKenmerken.RugHoogte
+	Set ..RugHoogte 							= TbxKenmerken.RugHoogte
+
 	Set DotNetKenmerken.FrontBevestiging 		= TbxKenmerken.FrontBevestiging
 	Set DotNetKenmerken.LadeDiepte		 		= TbxKenmerken.LadeDiepte
 	//Set DotNetKenmerken.CorpuswandDikte		 = ..GeefCorpuswandDikte() // Property nog niet in gebruik
 	//Set DotNetKenmerken.CorpusBreedte		 	= ....GeefCorpusBreedte() // Property nog niet in gebruik
-	//Set DotNetKenmerken.MinTolerantieOpIB 	= ..LegacyKenmerken.
+	//Set DotNetKenmerken.HeeftMTIB 	= ..LegacyKenmerken.
 	
 	
-	//Set DotNetKenmerken.UitsparingData 			= ..GeefUitsparingData()	//nog verder uit te werken
+	
 	Set DotNetKenmerken.HeeftOpvullijstLinks 	= TbxKenmerken.HeeftOpvullijstLinks
 	Set DotNetKenmerken.HeeftOpvullijstRechts 	= TbxKenmerken.HeeftOpvullijstRechts
 	Set DotNetKenmerken.Draagkracht 			= TbxKenmerken.Draagkracht
@@ -79,8 +84,11 @@
 	Set DotNetKenmerken.VerpakkingType			= TbxKenmerken.VerpakkingType
 	Set DotNetKenmerken.LadeDesignCode			= ..GeefLadeDesignCode()
 	Set DotNetKenmerken.InterneBreedte			= TbxKenmerken.InterneBreedte
+	Set ..InterneBreedte						= TbxKenmerken.InterneBreedte
 	//Set DotNetKenmerken.NietMeeleveren			= ..
-		
+	
+	Set DotNetKenmerken.UitsparingData 			= ..GeefUitsparingData()	//nog verder uit te werken
+	
 	Quit DotNetKenmerken
 ]]></Implementation>
 </Method>
@@ -135,79 +143,55 @@
 ]]></Content>
 </UDLText>
 
-<UDLText name="T">
-<Content><![CDATA[
-/*
-Method GeefUitsparingData(Product As APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy, ByRef TBXProduct As APPS.EDI.common.dto.v001.LadeTBX) [ Private ]
-{
+<Method name="GeefUitsparingData">
+<FormalSpec><![CDATA[Product:APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy,&TBXProduct:APPS.EDI.common.dto.v001.LadeTBX]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
 	Set UitsparingDataObject = ##class(DOM.PM.Maatwerk.Calc.Common.impl.LadeUitsparingData).%New()
+	Set LadeUitsparingHelper = ##class(ECONimpl.PM.Maatwerk.LadeUitsparingHelper).%New()
 	
 	If $$$Not(..LegacyKenmerken.ItemSPZK = "") {
-		#dim UitsparingData As %List = $ListFromString(Product.ItemSPZK,";")
+		Do ##class(Tools.Wlip).%New(110).String(..LegacyKenmerken.ItemSPZK)
+		#dim UitsparingData As %List = $ListFromString(..LegacyKenmerken.ItemSPZK, ";")
+		
 		Set UitsparingDataObject.AantalUitsparingen = $$$If($ListLength(UitsparingData)=6,2,1)
 		
 		If ..Toepassing = ##class(DOM.PM.enu.TBXToepassing).SifonType3() {
-			If (TBXProduct.UitsparingDataAantalUitsparingen = 1) {
+			If (UitsparingDataObject.AantalUitsparingen = 1) {
 				Set UitsparingDataObject.RugDeelX = $ListGet(UitsparingData,2)
 				Set UitsparingDataObject.RugDeelY = $ListGet(UitsparingData,3)
-				Set UitsparingDataObject.RugDeelZ1 = $ListGet(UitsparingData,4) //Moet Code zijn!
+				Set UitsparingDataObject.UitsparingZ1 = LadeUitsparingHelper.GeefUitsparingCode("TBX", "Recht", ..RugHoogte, "240", $ListGet(UitsparingData,4), "SY3")
 			} Else {
 				Set UitsparingDataObject.RugDeelX = $ListGet(UitsparingData,2)
 				Set UitsparingDataObject.RugDeelY = $ListGet(UitsparingData,3)
 				Set UitsparingDataObject.RugDeelM = $ListGet(UitsparingData,4)
-				Set UitsparingDataObject.RugDeelZ1 = $ListGet(UitsparingData,5) //Moet Code zijn!
-				Set UitsparingDataObject.RugDeelZ2 = $ListGet(UitsparingData,6) //Moet Code zijn!
+				Set UitsparingDataObject.UitsparingZ1 = LadeUitsparingHelper.GeefUitsparingCode("TBX", "Recht", ..RugHoogte, "240", $ListGet(UitsparingData,5), "SY3")
+				Set UitsparingDataObject.UitsparingZ2 = LadeUitsparingHelper.GeefUitsparingCode("TBX", "Recht", ..RugHoogte, "240", $ListGet(UitsparingData,6), "SY3")
 			}
-		} ElseIf ..Toepassing = ##class(DOM.PM.enu.TBXToepassing).SifonType2() {
-			If (TBXProduct.UitsparingDataAantalUitsparingen = 1) {
+		} ElseIf ..Toepassing = ##class(DOM.PM.enu.TBXToepassing).Spoelbak() {
+			//Set TBXProduct.RugwandMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Hout()
+			
+			If $Piece(..LegacyKenmerken.ItemSPZK,";",1)="S2" { 											//Smal
+				Set UitsparingDataObject.RugDeelX = 147
+				Set UitsparingDataObject.RugDeelY = 147
+				Set UitsparingDataObject.UitsparingZ1 = LadeUitsparingHelper.GeefUitsparingCode("TBX", "Recht", ..RugHoogte, "150", ..InterneBreedte - 147 - 147, "SP2")
+				//Set TBXProduct.RugwandMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Staal()
+			} ElseIf $Piece(..LegacyKenmerken.ItemSPZK,";",1)="B2" {									//Breed
+				Set UitsparingDataObject.RugDeelX = 197
+				Set UitsparingDataObject.RugDeelY = 197
+				Set UitsparingDataObject.UitsparingZ1 = LadeUitsparingHelper.GeefUitsparingCode("TBX", "Recht", ..RugHoogte, "150", ..InterneBreedte - 197 - 197, "SP2")
+				//Set TBXProduct.RugwandMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Staal()
+			} Else {																					//OpMaat
 				Set UitsparingDataObject.RugDeelX = $ListGet(UitsparingData,2)
 				Set UitsparingDataObject.RugDeelY = $ListGet(UitsparingData,3)
-				Set UitsparingDataObject.RugDeelZ1 = $ListGet(UitsparingData,4) //Moet Code zijn!
-				If ##class(TECH.StringUtils).Equals(TBXProduct.UitsparingDataBreedteZ1,"150","250") && $$$Not($$$StartsWith($ListGet(UitsparingData,1),"M")){
-					Set TBXProduct.TussenrugMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Staal()
-				}
-				Set TBXProduct.RugwandMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Hout()
-			} Else {
-				Set UitsparingDataObject.RugDeelX = $ListGet(UitsparingData,2)
-				Set UitsparingDataObject.RugDeelY = $ListGet(UitsparingData,3)
-				Set UitsparingDataObject.RugDeelM = $ListGet(UitsparingData,4)
-				Set UitsparingDataObject.RugDeelZ1 = $ListGet(UitsparingData,5) //Moet Code zijn!
-				Set UitsparingDataObject.RugDeelZ2 = $ListGet(UitsparingData,6) //Moet Code zijn!
-				If (##class(TECH.StringUtils).Equals(TBXProduct.UitsparingDataBreedteZ1,"150","250") && ##class(TECH.StringUtils).Equals(TBXProduct.UitsparingDataBreedteZ2,"150","250")) && $$$Not($$$StartsWith($ListGet(UitsparingData,1),"M")){
-					Set TBXProduct.TussenrugMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Staal()
-				}
-				Set TBXProduct.RugwandMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Hout()
+				Set UitsparingDataObject.UitsparingZ1 = LadeUitsparingHelper.GeefUitsparingCode("TBX", "Recht", ..RugHoogte, "150", ..InterneBreedte - $ListGet(UitsparingData,2) - $ListGet(UitsparingData,3), "SP2")
 			}
-		} ElseIf ..Toepassing = ##class(DOM.PM.enu.TBXToepassing).Spoelbak() {
-			Set TBXProduct.RugwandMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Hout()
-			If $Piece(..LegacyKenmerken.ItemSPZK,";",1)="SA" {
-				Set TBXProduct.UitsparingDataBreedteX = 143
-				Set TBXProduct.UitsparingDataBreedteY = 143
-				Set TBXProduct.UitsparingDataBreedteZ1 = ..GeefInterneBreedte(Product) - 143 - 143
-				Set TBXProduct.RugwandMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Staal()
-			} ElseIf $Piece(..LegacyKenmerken.ItemSPZK,";",1)="S2" {
-				Set TBXProduct.UitsparingDataBreedteX = 147
-				Set TBXProduct.UitsparingDataBreedteY = 147
-				Set TBXProduct.UitsparingDataBreedteZ1 = ..GeefInterneBreedte(Product) - 147 - 147
-				Set TBXProduct.RugwandMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Staal()
-			} ElseIf $Piece(..LegacyKenmerken.ItemSPZK,";",1)="B2" {
-				Set TBXProduct.UitsparingDataBreedteX = 197
-				Set TBXProduct.UitsparingDataBreedteY = 197
-				Set TBXProduct.UitsparingDataBreedteZ1 = ..GeefInterneBreedte(Product) - 197 - 197
-				Set TBXProduct.RugwandMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Staal()
-			} Else {
-				Set TBXProduct.UitsparingDataBreedteX = $ListGet(UitsparingData,2)
-				Set TBXProduct.UitsparingDataBreedteY = $ListGet(UitsparingData,3)
-				Set TBXProduct.UitsparingDataBreedteZ1 = ..GeefInterneBreedte(Product) - $ListGet(UitsparingData,2) - $ListGet(UitsparingData,3)
-			}
 		}
 	}
 	
 	Quit UitsparingDataObject
-}
-*/
-]]></Content>
-</UDLText>
+]]></Implementation>
+</Method>
 
 <Method name="GeefLadeDesignCode">
 <Private>1</Private>