Index: APPS/PM/Maatwerk/MaatwerkService.cls.xml
===================================================================
diff -u -r64479 -r64480
--- APPS/PM/Maatwerk/MaatwerkService.cls.xml	(.../MaatwerkService.cls.xml)	(revision 64479)
+++ APPS/PM/Maatwerk/MaatwerkService.cls.xml	(.../MaatwerkService.cls.xml)	(revision 64480)
@@ -110,7 +110,7 @@
 		Set KostItem = MaatwerkDetailsConvertor.GeefKostItems(DotNetMaatwerkDetails)
 		Set MaatwerkDetails.Kosten = KostItemNaarDtoConverter.ConverteerNaarKostItemDto(KostItem)
 		
-		Do Problemen.Insert(..MaakStringVanMaatwerkProblemen(DotNetMaatwerkDetails.ProbleemRapport))
+		Do Problemen.Insert(DotNetMaatwerkDetails.ProbleemRapport)
 	} Else {
 		
 		#dim PartijID As DOM.common.PartijID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(KlantID)
@@ -128,14 +128,12 @@
 			Do Problemen.Insert(..MaakStringVanMaatwerkProblemen(HalffabContext.GeefBerekeningProblemen()))
 			
 			Set HalffabItemsBoom = HalffabContext.HalffabItemsBoom
-			Do HalffabItemsBoom.Wortel.Accept(HalffabrikatenVisitor)
-			Set MaatwerkDetails.Halffabrikaten = HalffabrikatenVisitor.GeefHalffabItem()
+			Set MaatwerkDetails.Halffabrikaten = HalffabItemNaarDtoConverter.ConverteerNaarHalffabItemDto(HalffabItemsBoom.Wortel)
 			
 			#dim KostContext As DOM.PM.Maatwerk.Calc.Kost.KostContext = ##class(DOM.PM.Maatwerk.Calc.Kost.KostContext).%New(IngegevenKenmerkenDomain.GeefFamilie(), IngegevenKenmerkenDomain.GeefVariant(), BerekeningSpecificatie)
 			Set KostItem  = KostContext.GeefKostSpec().BerekenKostDetails(KostContext,HalffabItemsBoom,IngegevenKenmerkenDomain, MaatwerkAanpassing)			
 			
-			Do KostItem.Accept(KostenVisitor)
-			Set MaatwerkDetails.Kosten = KostenVisitor.GeefKostItem()
+			Set MaatwerkDetails.Kosten = KostItemNaarDtoConverter.ConverteerNaarKostItemDto(KostItem)
 		} Catch	{
 			Do ##class(TECH.ExceptionHandler).Catch("DOM.PM.Maatwerk.Calc.HF.impl.HFItemBerekenException")
 			Do Problemen.Insert(..MaakStringVanMaatwerkProblemen(HalffabContext.GeefBerekeningProblemen()))
@@ -155,7 +153,7 @@
 <Implementation><![CDATA[
 	#dim String As %String = ""
 	
-	If (Problemen.Count()) {
+	If (Problemen.Count() > 0) {
 		#dim Iterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Problemen)
 		
 		While (Iterator.HasNext()) {