Index: DOTNET/PM/Maatwerk/Converter/DomNaarDotnet.cls.xml
===================================================================
diff -u -r68567 -r72149
--- DOTNET/PM/Maatwerk/Converter/DomNaarDotnet.cls.xml	(.../DomNaarDotnet.cls.xml)	(revision 68567)
+++ DOTNET/PM/Maatwerk/Converter/DomNaarDotnet.cls.xml	(.../DomNaarDotnet.cls.xml)	(revision 72149)
@@ -11,6 +11,21 @@
 <Type>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</Type>
 </Property>
 
+<Property name="RvgKenmerkenConverter">
+<Type>DOTNET.PM.Maatwerk.Converter.DomNaarDotnet.RvgKenmerken</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>RvgKenmerkenConverter:DOTNET.PM.Maatwerk.Converter.DomNaarDotnet.RvgKenmerken=""</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..RvgKenmerkenConverter = $$$Inject(RvgKenmerkenConverter, ##class(DOTNET.PM.Maatwerk.Converter.DomNaarDotnet.RvgKenmerken).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="Converteer">
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
 <ReturnType>%String</ReturnType>
@@ -34,6 +49,7 @@
 	
 	Set:(LBXKenmerkenCopy.ProductieWijze = ##class(DOM.PM.enu.LBXProductieWijze).Volledig()) LBXKenmerkenCopy.ProductieWijze = "V"
 	Set:(LBXKenmerkenCopy.AantalDwarsverdelingen = "") LBXKenmerkenCopy.AantalDwarsverdelingen = 0
+	Set:(LBXKenmerkenCopy.InterneBreedte = "") LBXKenmerkenCopy.InterneBreedte = 0
 	Set:(LBXKenmerkenCopy.UitsparingData.AantalUitsparingen = "") LBXKenmerkenCopy.UitsparingData.AantalUitsparingen = 0
 	Set:(LBXKenmerkenCopy.UitsparingData.RugDeelM = "") LBXKenmerkenCopy.UitsparingData.RugDeelM = 0
 	Set:(LBXKenmerkenCopy.UitsparingData.RugDeelX = "") LBXKenmerkenCopy.UitsparingData.RugDeelX = 0
@@ -92,12 +108,30 @@
 <Method name="VerwerkTAORKenmerken">
 <FormalSpec>TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
 <Implementation><![CDATA[
+	Set Convertor = ##class(DOTNET.PM.Maatwerk.Converter.DomNaarDotnet.TAORKenmerken).%New()
+		
+	#dim TAORKenmerkenCopy As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = TAORKenmerken.%ConstructClone(1)
+	Set:(TAORKenmerkenCopy.AantalDwarsverdelingen = "") TAORKenmerkenCopy.AantalDwarsverdelingen = 0
+	Set:(TAORKenmerkenCopy.InterneBreedte = "") TAORKenmerkenCopy.InterneBreedte = 0
+	Set:(TAORKenmerkenCopy.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).Volledig()) TAORKenmerkenCopy.ProductieWijze = "V"	
+	Set:(TAORKenmerkenCopy.UitsparingData.AantalUitsparingen = "") TAORKenmerkenCopy.UitsparingData.AantalUitsparingen = 0
+	Set:(TAORKenmerkenCopy.UitsparingData.RugDeelM = "") TAORKenmerkenCopy.UitsparingData.RugDeelM = 0
+	Set:(TAORKenmerkenCopy.UitsparingData.RugDeelX = "") TAORKenmerkenCopy.UitsparingData.RugDeelX = 0
+	Set:(TAORKenmerkenCopy.UitsparingData.RugDeelY = "") TAORKenmerkenCopy.UitsparingData.RugDeelY = 0
+	Set:(TAORKenmerkenCopy.UitsparingData.UitsparingZ1 = "") TAORKenmerkenCopy.UitsparingData.UitsparingZ1 = 0
+	Set:(TAORKenmerkenCopy.UitsparingData.UitsparingZ2 = "") TAORKenmerkenCopy.UitsparingData.UitsparingZ2 = 0
+	
+	If (##class(TECH.ListUtils).Contains(TAORKenmerkenCopy.NietMeeleveren, "Glijder")) {
+		Do ##class(TECH.ListUtils).RemoveItemFromList("Glijder", TAORKenmerkenCopy.NietMeeleveren)
+		Do ##class(TECH.ListUtils).Append(TAORKenmerkenCopy.NietMeeleveren, "Geleider")
+	}
+	
 	If ..IngegevenKenmerkenAPI.HeeftGekoppeldeMat(TAORKenmerken){
-		#dim MatKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken = ..IngegevenKenmerkenAPI.GeefGekoppeldeKenmerken(TAORKenmerken,##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatX())
+		#dim MatKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken = ..IngegevenKenmerkenAPI.GeefGekoppeldeKenmerken(TAORKenmerkenCopy,##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatX())
 		Set MatKenmerken = ..VulAanMatKenmerken(MatKenmerken)
 	}
 	
-	Set ..IngegevenKenmerken = TAORKenmerken
+	Set ..IngegevenKenmerken = Convertor.Convert(TAORKenmerkenCopy)
 ]]></Implementation>
 </Method>
 
@@ -175,34 +209,51 @@
 <Method name="VerwerkRVGKenmerken">
 <FormalSpec>RVGKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.RVGKenmerken</FormalSpec>
 <Implementation><![CDATA[
-	Set:(RVGKenmerken.BinnencorpusbreedteInDeToepassing = "") RVGKenmerken.BinnencorpusbreedteInDeToepassing = 0
-	Set:(RVGKenmerken.BinnencorpusdiepteInDeToepassing = "") RVGKenmerken.BinnencorpusdiepteInDeToepassing = 0
-	Set:(RVGKenmerken.BinnencorpushoogteInDeToepassing = "") RVGKenmerken.BinnencorpushoogteInDeToepassing = 0
-	Set:(RVGKenmerken.DikteGeleiderAfdekking = "") RVGKenmerken.DikteGeleiderAfdekking = 0
-	Set:(RVGKenmerken.DikteTussenplank = "") RVGKenmerken.DikteTussenplank = 0
-	Set:(RVGKenmerken.FrontBreedte = "") RVGKenmerken.FrontBreedte = 0
-	Set:(RVGKenmerken.FrontBreedteLinks = "") RVGKenmerken.FrontBreedteLinks = 0
-	Set:(RVGKenmerken.FrontBreedteRechts = "") RVGKenmerken.FrontBreedteRechts = 0
-	Set:(RVGKenmerken.FrontDikte = "") RVGKenmerken.FrontDikte = 0
-	Set:(RVGKenmerken.FrontHoogte = "") RVGKenmerken.FrontHoogte = 0
-	Set:(RVGKenmerken.FrontOverstand = "") RVGKenmerken.FrontOverstand = 0
-	Set:(RVGKenmerken.FrontOverstandLinks = "") RVGKenmerken.FrontOverstandLinks = 0
-	Set:(RVGKenmerken.FrontOverstandRechts = "") RVGKenmerken.FrontOverstandRechts = 0
-	Set:(RVGKenmerken.InbouwBreedte = "") RVGKenmerken.InbouwBreedte = 0
-	Set:(RVGKenmerken.InbouwDiepte = "") RVGKenmerken.InbouwDiepte = 0
-	Set:(RVGKenmerken.InbouwHoogte = "") RVGKenmerken.InbouwHoogte = 0
-	Set:(RVGKenmerken.NominaleLengte = "") RVGKenmerken.NominaleLengte = 0
-	Set:(RVGKenmerken.NominaleLengteLinks = "") RVGKenmerken.NominaleLengteLinks = 0
-	Set:(RVGKenmerken.NominaleLengteRechts = "") RVGKenmerken.NominaleLengteRechts = 0
-	Set:(RVGKenmerken.PocketAchterwandDikte = "") RVGKenmerken.PocketAchterwandDikte = 0
-	Set:(RVGKenmerken.PocketDiepte = "") RVGKenmerken.PocketDiepte = 0
-	Set:(RVGKenmerken.PocketHoogte = "") RVGKenmerken.PocketHoogte = 0
-	Set:(RVGKenmerken.PocketZijkantDikte = "") RVGKenmerken.PocketZijkantDikte = 0
-	Set:(RVGKenmerken.VoegBoven = "") RVGKenmerken.VoegBoven = 0
-	Set:(RVGKenmerken.VoegOnder = "") RVGKenmerken.VoegOnder = 0
-	Set:(RVGKenmerken.VoegZijkant = "") RVGKenmerken.VoegZijkant = 0
+	#dim RVGKenmerkenCopy As DOM.PM.Maatwerk.Calc.Common.impl.RVGKenmerken = RVGKenmerken.%ConstructClone()
 	
-	Set ..IngegevenKenmerken = RVGKenmerken
+	Set RVGKenmerkenCopy.StukLijst = ..RvgKenmerkenConverter.ConverteerStuklijst(RVGKenmerkenCopy.StukLijst)
+	
+	Set:(RVGKenmerkenCopy.BinnencorpusbreedteInDeToepassing = "") RVGKenmerkenCopy.BinnencorpusbreedteInDeToepassing = 0
+	Set:(RVGKenmerkenCopy.BinnencorpusdiepteInDeToepassing = "") RVGKenmerkenCopy.BinnencorpusdiepteInDeToepassing = 0
+	Set:(RVGKenmerkenCopy.BinnencorpushoogteInDeToepassing = "") RVGKenmerkenCopy.BinnencorpushoogteInDeToepassing = 0
+	Set:(RVGKenmerkenCopy.DeurStabiliseerder = "") RVGKenmerkenCopy.DeurStabiliseerder = 0
+	Set:(RVGKenmerkenCopy.DeurStabiliseerderLinks = "") RVGKenmerkenCopy.DeurStabiliseerderLinks = 0
+	Set:(RVGKenmerkenCopy.DeurStabiliseerderRechts = "") RVGKenmerkenCopy.DeurStabiliseerderRechts = 0
+	Set:(RVGKenmerkenCopy.DikteGeleiderAfdekking = "") RVGKenmerkenCopy.DikteGeleiderAfdekking = 0
+	Set:(RVGKenmerkenCopy.DikteScheidingswand = "") RVGKenmerkenCopy.DikteScheidingswand = 0
+	Set:(RVGKenmerkenCopy.DikteTussenplank = "") RVGKenmerkenCopy.DikteTussenplank = 0
+	Set:(RVGKenmerkenCopy.FrontBreedte = "") RVGKenmerkenCopy.FrontBreedte = 0
+	Set:(RVGKenmerkenCopy.FrontBreedteLinks = "") RVGKenmerkenCopy.FrontBreedteLinks = 0
+	Set:(RVGKenmerkenCopy.FrontBreedteRechts = "") RVGKenmerkenCopy.FrontBreedteRechts = 0
+	Set:(RVGKenmerkenCopy.FrontDikte = "") RVGKenmerkenCopy.FrontDikte = 0
+	Set:(RVGKenmerkenCopy.FrontHoogte = "") RVGKenmerkenCopy.FrontHoogte = 0
+	Set:(RVGKenmerkenCopy.FrontOverstand = "") RVGKenmerkenCopy.FrontOverstand = 0
+	Set:(RVGKenmerkenCopy.FrontOverstandLinks = "") RVGKenmerkenCopy.FrontOverstandLinks = 0
+	Set:(RVGKenmerkenCopy.FrontOverstandRechts = "") RVGKenmerkenCopy.FrontOverstandRechts = 0
+	Set:(RVGKenmerkenCopy.InbouwBreedte = "") RVGKenmerkenCopy.InbouwBreedte = 0
+	Set:(RVGKenmerkenCopy.InbouwDiepte = "") RVGKenmerkenCopy.InbouwDiepte = 0
+	Set:(RVGKenmerkenCopy.InbouwHoogte = "") RVGKenmerkenCopy.InbouwHoogte = 0
+	Set:(RVGKenmerkenCopy.NominaleLengte = "") RVGKenmerkenCopy.NominaleLengte = 0
+	Set:(RVGKenmerkenCopy.NominaleLengteLinks = "") RVGKenmerkenCopy.NominaleLengteLinks = 0
+	Set:(RVGKenmerkenCopy.NominaleLengteRechts = "") RVGKenmerkenCopy.NominaleLengteRechts = 0
+	Set:(RVGKenmerkenCopy.PocketAchterwandDikte = "") RVGKenmerkenCopy.PocketAchterwandDikte = 0
+	Set:(RVGKenmerkenCopy.PocketDiepte = "") RVGKenmerkenCopy.PocketDiepte = 0
+	Set:(RVGKenmerkenCopy.PocketHoogte = "") RVGKenmerkenCopy.PocketHoogte = 0
+	Set:(RVGKenmerkenCopy.PocketZijkantDikte = "") RVGKenmerkenCopy.PocketZijkantDikte = 0
+	Set:(RVGKenmerkenCopy.VoegBoven = "") RVGKenmerkenCopy.VoegBoven = 0
+	Set:(RVGKenmerkenCopy.VoegOnder = "") RVGKenmerkenCopy.VoegOnder = 0
+	Set:(RVGKenmerkenCopy.VoegZijkant = "") RVGKenmerkenCopy.VoegZijkant = 0
+	Set:(RVGKenmerkenCopy.VoegLinks = "") RVGKenmerkenCopy.VoegLinks = 0
+	Set:(RVGKenmerkenCopy.VoegRechts = "") RVGKenmerkenCopy.VoegRechts = 0
+	Set:(RVGKenmerkenCopy.VoegMidden = "") RVGKenmerkenCopy.VoegMidden = 0
+	Set:(RVGKenmerkenCopy.NominaleLengteExact = "") RVGKenmerkenCopy.NominaleLengteExact = 0
+	Set:(RVGKenmerkenCopy.NominaleLengteGetrimd = "") RVGKenmerkenCopy.NominaleLengteGetrimd = 0
+	Set:(RVGKenmerkenCopy.NominaleLengteGetrimdLinks = "") RVGKenmerkenCopy.NominaleLengteGetrimdLinks = 0
+	Set:(RVGKenmerkenCopy.NominaleLengteGetrimdRechts = "") RVGKenmerkenCopy.NominaleLengteGetrimdRechts = 0
+	Set:(RVGKenmerkenCopy.NominaleLengteLinksExact = "") RVGKenmerkenCopy.NominaleLengteLinksExact = 0
+	Set:(RVGKenmerkenCopy.NominaleLengteRechtsExact = "") RVGKenmerkenCopy.NominaleLengteRechtsExact = 0
+	
+	Set ..IngegevenKenmerken = RVGKenmerkenCopy
 ]]></Implementation>
 </Method>