Index: DOTNET/PM/Maatwerk/Converter/DomNaarDotnet.cls.xml
===================================================================
diff -u -r68567 -r68728
--- DOTNET/PM/Maatwerk/Converter/DomNaarDotnet.cls.xml	(.../DomNaarDotnet.cls.xml)	(revision 68567)
+++ DOTNET/PM/Maatwerk/Converter/DomNaarDotnet.cls.xml	(.../DomNaarDotnet.cls.xml)	(revision 68728)
@@ -11,6 +11,21 @@
 <Type>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</Type>
 </Property>
 
+<Property name="ProductAPI">
+<Type>DOM.PM.impl.ProductAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>ProductAPI:DOM.PM.impl.ProductAPI=""</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..ProductAPI = $$$Inject(ProductAPI, ##class(DOM.PM.impl.ProductAPI).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="Converteer">
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
 <ReturnType>%String</ReturnType>
@@ -175,34 +190,38 @@
 <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 = ..ConverteerStukLijst(RVGKenmerkenCopy.StukLijst)
+	
+	Set:(RVGKenmerkenCopy.BinnencorpusbreedteInDeToepassing = "") RVGKenmerkenCopy.BinnencorpusbreedteInDeToepassing = 0
+	Set:(RVGKenmerkenCopy.BinnencorpusdiepteInDeToepassing = "") RVGKenmerkenCopy.BinnencorpusdiepteInDeToepassing = 0
+	Set:(RVGKenmerkenCopy.BinnencorpushoogteInDeToepassing = "") RVGKenmerkenCopy.BinnencorpushoogteInDeToepassing = 0
+	Set:(RVGKenmerkenCopy.DikteGeleiderAfdekking = "") RVGKenmerkenCopy.DikteGeleiderAfdekking = 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 ..IngegevenKenmerken = RVGKenmerkenCopy
 ]]></Implementation>
 </Method>
 
@@ -222,6 +241,24 @@
 	Quit MATKenmerken
 ]]></Implementation>
 </Method>
+
+<Method name="ConverteerStukLijst">
+<FormalSpec>StukLijst:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim LijstMetProductIds As %String = ""
+	#dim LijstMetIdentNummers As %ListOfDataTypes = ##class(TECH.ListUtils).PiecesToList(StukLijst, ";")	
+	#dim Index As %Integer
+	
+	for Index=1:2:(LijstMetIdentNummers.Count()-1){
+		#dim ProductId As %String = ..ProductAPI.GeefProductIdVoorIdentNummer(LijstMetIdentNummers.GetAt(Index + 1))
+		Set LijstMetProductIds = LijstMetProductIds _ LijstMetIdentNummers.GetAt(Index) _ ";" _ ProductId _ ";"
+	}
+	
+	Quit LijstMetProductIds
+]]></Implementation>
+</Method>
 </Class>