Index: EXTERN/PM/Maatwerk/MaatwerkService.cls.xml
===================================================================
diff -u -r30600 -r30601
--- EXTERN/PM/Maatwerk/MaatwerkService.cls.xml	(.../MaatwerkService.cls.xml)	(revision 30600)
+++ EXTERN/PM/Maatwerk/MaatwerkService.cls.xml	(.../MaatwerkService.cls.xml)	(revision 30601)
@@ -79,7 +79,8 @@
 
 	try {
 		#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ..MaakIngegevenKenmerkenUitOorspronkelijkeKenmerken(IngegevenKenmerkenKlasseNaam, OorspronkelijkProductID, OorspronkelijkeKenmerkNamen, OorspronkelijkeKenmerkWaarden, AfwijkendeKenmerkNamen, AfwijkendeKenmerkWaarden, NietMeeleverenLijst)
-		#dim Product As DOM.PM.MaatwerkProduct = ##class(APPS.PM.Maatwerk.impl.BerekeningServiceProduct).MaakProductVanKenmerken(IngegevenKenmerken, KlantNummer, 1)
+		#dim Aantal As TECH.Integer = ..BepaalAantal(IngegevenKenmerken)
+		#dim Product As DOM.PM.MaatwerkProduct = ##class(APPS.PM.Maatwerk.impl.BerekeningServiceProduct).MaakProductVanKenmerken(IngegevenKenmerken, KlantNummer, Aantal)
 		
 		set Resultaat.Korttekst = Product.GeefKorttekst() _ $$$Delim _ Product.GeefIdentNr() _ $$$Delim _ Product.GeefPRNr()
 		set Resultaat.Mededeling = ..MaakMededelingVanProduct(Product)