Index: APPS/PM/Maatwerk/MaatwerkService.cls.xml
===================================================================
diff -u -r64428 -r64479
--- APPS/PM/Maatwerk/MaatwerkService.cls.xml	(.../MaatwerkService.cls.xml)	(revision 64428)
+++ APPS/PM/Maatwerk/MaatwerkService.cls.xml	(.../MaatwerkService.cls.xml)	(revision 64479)
@@ -97,20 +97,18 @@
 	#dim KostItem As DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem
 	#dim MaatwerkDetails As APPS.PM.Maatwerk.dto.MaatwerkDetails = ##class(APPS.PM.Maatwerk.dto.MaatwerkDetails).%New()
 	#dim Problemen As list of %String = ##class(%ListOfDataTypes).%New()
-	#dim KostenVisitor As DOM.PM.Maatwerk.Calc.Kost.impl.KostItemNaarDtoVisitor = ##class(DOM.PM.Maatwerk.Calc.Kost.impl.KostItemNaarDtoVisitor).%New()
-	#dim HalffabrikatenVisitor As DOM.PM.Maatwerk.Calc.HF.impl.HalffabItemNaarDtoVisitor = ##class(DOM.PM.Maatwerk.Calc.HF.impl.HalffabItemNaarDtoVisitor).%New()
+	#dim KostItemNaarDtoConverter As DOM.PM.Maatwerk.Calc.Kost.impl.KostItemNaarDtoVisitor = ##class(DOM.PM.Maatwerk.Calc.Kost.impl.KostItemNaarDtoVisitor).%New()
+	#dim HalffabItemNaarDtoConverter As DOM.PM.Maatwerk.Calc.HF.impl.HalffabItemNaarDtoVisitor = ##class(DOM.PM.Maatwerk.Calc.HF.impl.HalffabItemNaarDtoVisitor).%New()
 	
 	#dim IsBerekeningViaDotNetMaatwerkService As %Boolean = OmleidingNaarDotNetBepaler.IsMaatwerkCalculatieInDotNet(IngegevenKenmerkenDomain.GeefVariant(),IngegevenKenmerkenDomain.GeefVersieNr())
 	If IsBerekeningViaDotNetMaatwerkService {
 		#dim DotNetMaatwerkDetails As APPS.PM.Maatwerk.dto.DotNet.MaatwerkDetailsParsedFromJson = DotNetMaatwerkService.GeefMaatwerkDetails(IngegevenKenmerkenDomain, KlantID, Aantal,)
 		
 		Set HalffabItemsBoom = MaatwerkDetailsConvertor.GeefHalffabItemsBoom(DotNetMaatwerkDetails)
-		Do HalffabItemsBoom.Wortel.Accept(HalffabrikatenVisitor)
-		Set MaatwerkDetails.Halffabrikaten = HalffabrikatenVisitor.GeefHalffabItem()
+		Set MaatwerkDetails.Halffabrikaten = HalffabItemNaarDtoConverter.ConverteerNaarHalffabItemDto(HalffabItemsBoom.Wortel)
 		
 		Set KostItem = MaatwerkDetailsConvertor.GeefKostItems(DotNetMaatwerkDetails)
-		Do KostItem.Accept(KostenVisitor)
-		Set MaatwerkDetails.Kosten = KostenVisitor.GeefKostItem()
+		Set MaatwerkDetails.Kosten = KostItemNaarDtoConverter.ConverteerNaarKostItemDto(KostItem)
 		
 		Do Problemen.Insert(..MaakStringVanMaatwerkProblemen(DotNetMaatwerkDetails.ProbleemRapport))
 	} Else {
@@ -157,7 +155,7 @@
 <Implementation><![CDATA[
 	#dim String As %String = ""
 	
-	If $$$HasLength(Problemen) {
+	If (Problemen.Count()) {
 		#dim Iterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Problemen)
 		
 		While (Iterator.HasNext()) {
Index: DOM/PM/Maatwerk/Calc/Kost/impl/KostItemNaarDtoVisitor.cls.xml
===================================================================
diff -u -r33068 -r64479
--- DOM/PM/Maatwerk/Calc/Kost/impl/KostItemNaarDtoVisitor.cls.xml	(.../KostItemNaarDtoVisitor.cls.xml)	(revision 33068)
+++ DOM/PM/Maatwerk/Calc/Kost/impl/KostItemNaarDtoVisitor.cls.xml	(.../KostItemNaarDtoVisitor.cls.xml)	(revision 64479)
@@ -152,6 +152,15 @@
 	Quit $$$OK
 ]]></Implementation>
 </Method>
+
+<Method name="ConverteerNaarKostItemDto">
+<FormalSpec>DomKostItem:DOM.PM.Maatwerk.Calc.Kost.dto.KostItem</FormalSpec>
+<ReturnType>DOM.PM.Maatwerk.Calc.Kost.dto.KostItem</ReturnType>
+<Implementation><![CDATA[
+	Do DomKostItem.Accept(##this)
+	Quit ..KostItem.KostItems.GetAt(1)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: DOM/PM/Maatwerk/Calc/HF/impl/HalffabItemNaarDtoVisitor.cls.xml
===================================================================
diff -u -r57453 -r64479
--- DOM/PM/Maatwerk/Calc/HF/impl/HalffabItemNaarDtoVisitor.cls.xml	(.../HalffabItemNaarDtoVisitor.cls.xml)	(revision 57453)
+++ DOM/PM/Maatwerk/Calc/HF/impl/HalffabItemNaarDtoVisitor.cls.xml	(.../HalffabItemNaarDtoVisitor.cls.xml)	(revision 64479)
@@ -136,6 +136,15 @@
 	Quit $$$OK
 ]]></Implementation>
 </Method>
+
+<Method name="ConverteerNaarHalffabItemDto">
+<FormalSpec>DomHalffabItem:DOM.PM.Maatwerk.Calc.HF.IHalffabItem</FormalSpec>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.dto.HalffabItem</ReturnType>
+<Implementation><![CDATA[
+	Do DomHalffabItem.Accept(##this)
+	Quit ..HalffabItem.HalffabItems.GetAt(1)
+]]></Implementation>
+</Method>
 </Class>