Index: EXTERN/PM/Maatwerk/MaatwerkService.cls.xml
===================================================================
diff -u -r29059 -r30463
--- EXTERN/PM/Maatwerk/MaatwerkService.cls.xml	(.../MaatwerkService.cls.xml)	(revision 29059)
+++ EXTERN/PM/Maatwerk/MaatwerkService.cls.xml	(.../MaatwerkService.cls.xml)	(revision 30463)
@@ -3,7 +3,7 @@
 <Class name="EXTERN.PM.Maatwerk.MaatwerkService">
 <Description>
 Service voor de multicalc excel.</Description>
-<Super>%RegisteredObject</Super>
+<Super>TECH.RegisteredObject</Super>
 
 <Method name="GeefMaatwerkInfoVoorProduct">
 <Description>
@@ -34,31 +34,34 @@
 <FormalSpec>KlantNummer:%String,IngegevenKenmerkenKlasseNaam:%String,OorspronkelijkeKenmerkNamen:%String,OorspronkelijkeKenmerkWaarden:%String,AfwijkendeKenmerkNamen:%String,AfwijkendeKenmerkWaarden:%String,NietMeeleverenLijst:%String="",OorspronkelijkProductID:%String=""</FormalSpec>
 <ReturnType>EXTERN.PM.Maatwerk.dto.PrijsResultaat</ReturnType>
 <Implementation><![CDATA[
-	Set Result = ##class(EXTERN.PM.Maatwerk.dto.PrijsResultaat).%New()
-	Set Result.IsFout = 1
+	set Result = ##class(EXTERN.PM.Maatwerk.dto.PrijsResultaat).%New()
+	set Result.IsFout = 1
 	
-	Try {
+	try {
 		#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ..MaakIngegevenKenmerkenUitOorspronkelijkeKenmerken(IngegevenKenmerkenKlasseNaam, OorspronkelijkProductID, OorspronkelijkeKenmerkNamen, OorspronkelijkeKenmerkWaarden, AfwijkendeKenmerkNamen, AfwijkendeKenmerkWaarden, NietMeeleverenLijst)
-		
-		Set MaatwerkService = ##class(APPS.PM.Maatwerk.MaatwerkService).%New()
+		#dim MaatwerkService As APPS.PM.Maatwerk.MaatwerkService = ##class(APPS.PM.Maatwerk.MaatwerkService).%New()
 		#dim MaatwerkDetails As APPS.PM.Maatwerk.dto.MaatwerkDetails = MaatwerkService.GeefMaatwerkDetailsVoorDomeinKenmerken(IngegevenKenmerken, "", KlantNummer)
-		Set Result.Mededeling = MaatwerkDetails.ProbleemRapport
-		
 		#dim KostItem As DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem = MaatwerkDetails.Kosten
-		If (KostItem '= "") {
+		
+		set Result.Mededeling = MaatwerkDetails.ProbleemRapport
+		
+		if $$$Not(KostItem = "") {
 			#dim PartijID As DOM.common.PartijID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(KlantNummer)
-			Set BerekeningSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(1, PartijID, ##class(DOM.common.VanHoeckePersonality).Instance())
-			Set Bepaler = ##class(DOM.PM.Maatwerk.GenerischProductBepaler).%New()
-			#dim VerkoopPrijsInfo As DOM.VKP.info.VerkoopPrijsInfo = ##class(DOM.DomeinContext).Instance().GeefVerkoopPrijsAPI().GeefVerkoopPrijsInfo(Bepaler.GeefGenerischProductID(IngegevenKenmerken), KostItem.Kost, BerekeningSpecificatie)
-			Set Result.VerkoopPrijs = $$ROUND^KPRIJS(VerkoopPrijsInfo.GeefVerkoopPrijs())
-			Set Result.IsFout = 0
+			#dim Personality As DOM.common.Personality = ##class(DOM.common.VanHoeckePersonality).Instance()
+			#dim BerekeningSpecificatie As DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(1, 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)
+			
+			set Result.VerkoopPrijs = $$ROUND^KPRIJS(VerkoopPrijsInfo.GeefVerkoopPrijs())
+			set Result.IsFout = 0
 		}
-	}
-	Catch {
+	} catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
-		Set Result.Mededeling = Exception.GeefOmschrijving()
+		set Result.Mededeling = Exception.GeefOmschrijving()
 	}
-	Quit Result
+	
+	quit Result
 ]]></Implementation>
 </Method>