Index: EXTERN/PM/Maatwerk/MaatwerkService.cls.xml
===================================================================
diff -u -r30601 -r39809
--- EXTERN/PM/Maatwerk/MaatwerkService.cls.xml	(.../MaatwerkService.cls.xml)	(revision 30601)
+++ EXTERN/PM/Maatwerk/MaatwerkService.cls.xml	(.../MaatwerkService.cls.xml)	(revision 39809)
@@ -76,11 +76,13 @@
 <Implementation><![CDATA[
 	#define Delim	"\"
 	#dim Resultaat As EXTERN.PM.Maatwerk.dto.MaakMaatwerkProductResultaat = ##class(EXTERN.PM.Maatwerk.dto.MaakMaatwerkProductResultaat).%New()
+	
+	Set BerekeningService = ##class(APPS.PM.Maatwerk.impl.BerekeningServiceProduct).%New()
 
 	try {
 		#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ..MaakIngegevenKenmerkenUitOorspronkelijkeKenmerken(IngegevenKenmerkenKlasseNaam, OorspronkelijkProductID, OorspronkelijkeKenmerkNamen, OorspronkelijkeKenmerkWaarden, AfwijkendeKenmerkNamen, AfwijkendeKenmerkWaarden, NietMeeleverenLijst)
 		#dim Aantal As TECH.Integer = ..BepaalAantal(IngegevenKenmerken)
-		#dim Product As DOM.PM.MaatwerkProduct = ##class(APPS.PM.Maatwerk.impl.BerekeningServiceProduct).MaakProductVanKenmerken(IngegevenKenmerken, KlantNummer, Aantal)
+		#dim Product As DOM.PM.MaatwerkProduct = BerekeningService.MaakProductVanKenmerken(IngegevenKenmerken, KlantNummer, Aantal)
 		
 		set Resultaat.Korttekst = Product.GeefKorttekst() _ $$$Delim _ Product.GeefIdentNr() _ $$$Delim _ Product.GeefPRNr()
 		set Resultaat.Mededeling = ..MaakMededelingVanProduct(Product)