Index: APPS/PM/Maatwerk/MaatwerkService.cls.xml
===================================================================
diff -u -r64341 -r64366
--- APPS/PM/Maatwerk/MaatwerkService.cls.xml	(.../MaatwerkService.cls.xml)	(revision 64341)
+++ APPS/PM/Maatwerk/MaatwerkService.cls.xml	(.../MaatwerkService.cls.xml)	(revision 64366)
@@ -95,16 +95,17 @@
 	Set MaatwerkDetailsConvertor = ##class(WSimpl.PM.Maatwerk.MaatwerkService.DotNet.MaatwerkDetailsFromJsonNaarDomConverter).%New()
 	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom
 	#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 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)
-		Set KostItem = MaatwerkDetailsConvertor.GeefKostItems(DotNetMaatwerkDetails)
+		Set MaatwerkDetails.Halffabrikaten = MaatwerkDetailsConvertor.GeefHalffabItemsBoom(DotNetMaatwerkDetails)
+		Set MaatwerkDetails.Kosten = MaatwerkDetailsConvertor.GeefKostItems(DotNetMaatwerkDetails)
 		Do Problemen.Insert(..MaakStringVanMaatwerkProblemen(DotNetMaatwerkDetails.ProbleemRapport))
 	} Else {
-		#dim MaatwerkDetails As APPS.PM.Maatwerk.dto.MaatwerkDetails = ##class(APPS.PM.Maatwerk.dto.MaatwerkDetails).%New()
+		
 		#dim PartijID As DOM.common.PartijID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(KlantID)
 		#dim BerekeningSpecificatie As DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie = ..GeefBerekeningSpecificatie(PartijID, Aantal , Datum)
 		#dim HalffabContext As DOM.PM.Maatwerk.Calc.HF.HalffabContext = ..GeefHalffabContextVoorIngegevenKenmerken(IngegevenKenmerkenDomain, BerekeningSpecificatie)
@@ -136,12 +137,11 @@
 			Do ##class(TECH.ExceptionHandler).Catch("DOM.PM.Maatwerk.Calc.HF.impl.HFItemBerekenException")
 			Do Problemen.Insert(..MaakStringVanMaatwerkProblemen(HalffabContext.GeefBerekeningProblemen()))
 			Kill %GlobaleVariabeleBerekeningsSpecificatie
-		}
-		
-		Set MaatwerkDetails.ProbleemRapport = ##class(TECH.ListUtils).ListToPieces(Problemen, $C(13,10))
-		
-		Quit MaatwerkDetails
+		}	
 	}
+	Set MaatwerkDetails.ProbleemRapport = ##class(TECH.ListUtils).ListToPieces(Problemen, $C(13,10))
+		
+	Quit MaatwerkDetails
 ]]></Implementation>
 </Method>
 
@@ -151,13 +151,15 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim String As %String = ""
-	#dim Iterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Problemen)
 	
-	While (Iterator.HasNext()) {
-		Set String = String_Iterator.Next().ToString()
-		If (Iterator.HasNext()) Set String = String_$C(13,10)
+	If $$$HasLength(Problemen) {
+		#dim Iterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Problemen)
+		
+		While (Iterator.HasNext()) {
+			Set String = String_Iterator.Next().ToString()
+			If (Iterator.HasNext()) Set String = String_$C(13,10)
+		}
 	}
-	
 	Quit String
 ]]></Implementation>
 </Method>
Index: EXTERN/PM/Maatwerk/MaatwerkService.cls.xml
===================================================================
diff -u -r59400 -r64366
--- EXTERN/PM/Maatwerk/MaatwerkService.cls.xml	(.../MaatwerkService.cls.xml)	(revision 59400)
+++ EXTERN/PM/Maatwerk/MaatwerkService.cls.xml	(.../MaatwerkService.cls.xml)	(revision 64366)
@@ -56,7 +56,7 @@
 			#dim BerekeningSpecificatie As DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(Aantal, PartijID, Personality)
 			#dim Bepaler As DOM.PM.Maatwerk.GenerischProductBepaler = ##class(DOM.PM.Maatwerk.GenerischProductBepaler).%New()
 			#dim VerkoopPrijsAPI As DOM.VKP.VerkoopPrijsAPI = ##class(DOM.DomeinContext).Instance().GeefVerkoopPrijsAPI()
-			#dim VerkoopPrijsInfo As DOM.VKP.info.VerkoopPrijsInfo = VerkoopPrijsAPI.GeefVerkoopPrijsInfo(Bepaler.GeefGenerischProductID(IngegevenKenmerken), KostItem.Kost, BerekeningSpecificatie)
+			#dim VerkoopPrijsInfo As DOM.VKP.info.VerkoopPrijsInfo = VerkoopPrijsAPI.GeefVerkoopPrijsInfo(Bepaler.GeefGenerischProductID(IngegevenKenmerken), KostItem.GeefKost(), BerekeningSpecificatie)
 			
 			set Result.VerkoopPrijs = $$ROUND^KPRIJS(VerkoopPrijsInfo.GeefVerkoopPrijs())
 			set Result.IsFout = 0