Index: EXTERN/PM/Maatwerk/MaatwerkService.cls.xml
===================================================================
diff -u -r30575 -r30600
--- EXTERN/PM/Maatwerk/MaatwerkService.cls.xml	(.../MaatwerkService.cls.xml)	(revision 30575)
+++ EXTERN/PM/Maatwerk/MaatwerkService.cls.xml	(.../MaatwerkService.cls.xml)	(revision 30600)
@@ -38,21 +38,8 @@
 	set Result.IsFout = 1
 	
 	try {
-		#dim Aantal As TECH.Integer = 1
 		#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ..MaakIngegevenKenmerkenUitOorspronkelijkeKenmerken(IngegevenKenmerkenKlasseNaam, OorspronkelijkProductID, OorspronkelijkeKenmerkNamen, OorspronkelijkeKenmerkWaarden, AfwijkendeKenmerkNamen, AfwijkendeKenmerkWaarden, NietMeeleverenLijst)
-		
-		#dim IsFamilieLade As %Boolean = (IngegevenKenmerken.GeefFamilie() = ##class(DOM.PM.enu.Familie).Lade())
-		#dim IsVariantTAOR As %Boolean = (IngegevenKenmerken.GeefVariant() = ##class(DOM.PM.enu.Variant).Taorbox())	
-	
-		if (IsFamilieLade && IsVariantTAOR) {
-			#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = IngegevenKenmerken
-			#dim VerpakkingType As DOM.PM.enu.TAORVerpakkingType.AutoComplete = ##class(DOM.PM.enu.TAORVerpakkingType.AutoComplete).%New()
-			
-			if ((TAORKenmerken.VerpakkingType = VerpakkingType.LosseComponentenInBulk) || (TAORKenmerken.VerpakkingType = VerpakkingType.BulkPerOnderdeelGegroepeerd)) {
-				set Aantal = 10
-			}
-		}
-		
+		#dim Aantal As TECH.Integer = ..BepaalAantal(IngegevenKenmerken)
 		#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, Aantal)
 		#dim KostItem As DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem = MaatwerkDetails.Kosten
@@ -88,33 +75,72 @@
 <ReturnType>EXTERN.PM.Maatwerk.dto.PrijsResultaat</ReturnType>
 <Implementation><![CDATA[
 	#define Delim	"\"
+	#dim Resultaat As EXTERN.PM.Maatwerk.dto.MaakMaatwerkProductResultaat = ##class(EXTERN.PM.Maatwerk.dto.MaakMaatwerkProductResultaat).%New()
+
+	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)
+		
+		set Resultaat.Korttekst = Product.GeefKorttekst() _ $$$Delim _ Product.GeefIdentNr() _ $$$Delim _ Product.GeefPRNr()
+		set Resultaat.Mededeling = ..MaakMededelingVanProduct(Product)
+		set Resultaat.IsFout = 0
+	} catch {
+		#dim Exceptie As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		
+		set Resultaat.Mededeling = Exceptie.GeefOmschrijving()
+		set Resultaat.IsFout = 1
+	}
 	
-	Set Result = ##class(EXTERN.PM.Maatwerk.dto.MaakMaatwerkProductResultaat).%New()
-	Set Result.IsFout = 1
+	quit Resultaat
+]]></Implementation>
+</Method>
+
+<Method name="BepaalAantal">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim Aantal As TECH.Integer = 1
+	#dim IsFamilieLade As %Boolean = (IngegevenKenmerken.GeefFamilie() = ##class(DOM.PM.enu.Familie).Lade())
+	#dim IsVariantTAOR As %Boolean = (IngegevenKenmerken.GeefVariant() = ##class(DOM.PM.enu.Variant).Taorbox())	
 	
-	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)
-		Set Result.Korttekst = Product.GeefKorttekst()_$$$Delim_Product.GeefIdentNr()_$$$Delim_Product.GeefPRNr()
-		Set Result.Mededeling = Product.GeefLangtekst("N") _ $C(10,13)
-		Set Result.Mededeling = Result.Mededeling _ "---" _ $C(10,13)
-		Set Result.Mededeling = Result.Mededeling _ Product.GeefLangtekst("F") _ $C(10,13)
-		Set Result.Mededeling = Result.Mededeling _ "---" _ $C(10,13)
-		Set Result.Mededeling = Result.Mededeling _ Product.GeefLangtekst("D") _ $C(10,13)
-		Set Result.Mededeling = Result.Mededeling _ "---" _ $C(10,13)
-		Set Result.Mededeling = Result.Mededeling _ Product.GeefLangtekst("E") _ $C(10,13)
-		Set Result.Mededeling = Result.Mededeling _ "---" _ $C(10,13)
-		Set Result.Mededeling = Result.Mededeling _ "Kostprijs: " _ Product.GeefNettoAankoopPrijsInclCif()
-		Set Result.IsFout = 0
+	if (IsFamilieLade && IsVariantTAOR) {
+		#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = IngegevenKenmerken
+		#dim VerpakkingType As DOM.PM.enu.TAORVerpakkingType.AutoComplete = ##class(DOM.PM.enu.TAORVerpakkingType.AutoComplete).%New()
+			
+		if ((TAORKenmerken.VerpakkingType = VerpakkingType.LosseComponentenInBulk) || (TAORKenmerken.VerpakkingType = VerpakkingType.BulkPerOnderdeelGegroepeerd)) {
+			set Aantal = 10
+		}
 	}
-	Catch {
-		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
-		Set Result.Mededeling = Exception.GeefOmschrijving()
-	}
-	Quit Result
+	
+	quit Aantal
 ]]></Implementation>
 </Method>
 
+<Method name="MaakMededelingVanProduct">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Product:DOM.PM.MaatwerkProduct</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim Mededeling As TECH.String = ""
+	#dim Taal As DOM.enu.Taal.AutoComplete = ##class(DOM.enu.Taal.AutoComplete).%New()
+
+	set Mededeling = Mededeling _ Product.GeefLangtekst(Taal.Nederlands) _ $$$CRLF
+	set Mededeling = Mededeling _ "---" _ $$$CRLF
+	set Mededeling = Mededeling _ Product.GeefLangtekst(Taal.Frans) _ $$$CRLF
+	set Mededeling = Mededeling _ "---" _ $$$CRLF
+	set Mededeling = Mededeling _ Product.GeefLangtekst(Taal.Duits) _ $$$CRLF
+	set Mededeling = Mededeling _ "---" _ $$$CRLF
+	set Mededeling = Mededeling _ Product.GeefLangtekst(Taal.Engels) _ $$$CRLF
+	set Mededeling = Mededeling _ "---" _ $$$CRLF
+	set Mededeling = Mededeling _ "Kostprijs: " _ Product.GeefNettoAankoopPrijsInclCif()
+	
+	quit Mededeling
+]]></Implementation>
+</Method>
+
 <Method name="MaakIngegevenKenmerkenUitOorspronkelijkeKenmerken">
 <Description>
 Kan vereenvoudigd worden als we even niet backward compatibel zijn met bestaande excel sheets.
@@ -125,13 +151,14 @@
 <Private>1</Private>
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</ReturnType>
 <Implementation><![CDATA[
-		#dim KenmerkNamen As %ListOfDataTypes = ##class(TECH.ListUtils).PiecesToList(OorspronkelijkeKenmerkNamen, "\")
-		#dim KenmerkWaarden As %ListOfDataTypes = ##class(TECH.ListUtils).PiecesToList(OorspronkelijkeKenmerkWaarden, "\")
-		Do ..PasAfwijkendeKenmerkenToeOpKenmerken(KenmerkNamen, KenmerkWaarden, 
-				##class(TECH.ListUtils).PiecesToList(AfwijkendeKenmerkNamen, "\"),
-				##class(TECH.ListUtils).PiecesToList(AfwijkendeKenmerkWaarden, "\")
-				)
-		Quit ..MaakIngegevenKenmerken(OorspronkelijkProductID, IngegevenKenmerkenKlasseNaam, KenmerkNamen, KenmerkWaarden, NietMeeleverenLijst)
+	#dim OorspronkelijkeKenmerkNamenLijst As %ListOfDataTypes = ##class(TECH.ListUtils).PiecesToList(OorspronkelijkeKenmerkNamen, "\")
+	#dim OorspronkelijkeKenmerkWaardenLijst As %ListOfDataTypes = ##class(TECH.ListUtils).PiecesToList(OorspronkelijkeKenmerkWaarden, "\")
+	#dim AfwijkendeKenmerkNamenLijst As %ListOfDataTypes = ##class(TECH.ListUtils).PiecesToList(AfwijkendeKenmerkNamen, "\")
+	#dim AfwijkendeKenmerkWaardenLijst As %ListOfDataTypes = ##class(TECH.ListUtils).PiecesToList(AfwijkendeKenmerkWaarden, "\")
+	
+	do ..PasAfwijkendeKenmerkenToeOpKenmerken(OorspronkelijkeKenmerkNamenLijst, OorspronkelijkeKenmerkWaardenLijst, AfwijkendeKenmerkNamenLijst, AfwijkendeKenmerkWaardenLijst)
+	
+	quit ..MaakIngegevenKenmerken(OorspronkelijkProductID, IngegevenKenmerkenKlasseNaam, OorspronkelijkeKenmerkNamenLijst, OorspronkelijkeKenmerkWaardenLijst, NietMeeleverenLijst)
 ]]></Implementation>
 </Method>
 
@@ -142,16 +169,19 @@
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</ReturnType>
 <Implementation><![CDATA[
 	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ""
-	If (OorspronkelijkProductID '= "") {
+	
+	if $$$Not(OorspronkelijkProductID = "") {
 		#dim MaatwerkProduct As DOM.PM.MaatwerkProduct = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI().GeefMaatwerkProduct(OorspronkelijkProductID)
-		Set IngegevenKenmerken = MaatwerkProduct.GeefProductSpecificatie().GeefIngegevenKenmerken().%ConstructClone(1)
-	} Else {
-	 Set IngegevenKenmerken = $CLASSMETHOD(KlasseNaam, "%New")
+		set IngegevenKenmerken = MaatwerkProduct.GeefProductSpecificatie().GeefIngegevenKenmerken().%ConstructClone(1)
+	} else {
+	 	set IngegevenKenmerken = $CLASSMETHOD(KlasseNaam, "%New")
 	}
+	
 	#dim i As %Integer
 	For i = 1:1:KenmerkNamen.Count() {
 		Set $PROPERTY(IngegevenKenmerken, KenmerkNamen.GetAt(i)) = KenmerkWaarden.GetAt(i)
 	}
+	
 	#dim Msg As %String = ""
 	#dim Status As %Status = IngegevenKenmerken.%ValidateObject()
 	If $$$ISERR(Status) {
@@ -260,14 +290,13 @@
 <FormalSpec>Familie:DOM.PM.enu.Familie,Variant:DOM.PM.enu.Variant,Result:EXTERN.PM.Maatwerk.dto.MaatwerkInfo,Delimiter:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Try {
+	try {
 		Set MaatwerkService = ##class(APPS.PM.Maatwerk.MaatwerkService).%New()
 		Set MaatwerkType = ##class(APPS.PM.Maatwerk.dto.MaatwerkType).%New()
 		Set MaatwerkType.Familie = Familie
 		Set MaatwerkType.Variant = Variant
 		Set Result.RolNamen = ##class(TECH.ListUtils).ListToPieces(MaatwerkService.GeefRollenVoorMaatwerkType(MaatwerkType), Delimiter)
-	}
-	Catch {
+	} catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 		// Als we de rollen niet kunnen bepalen, laten we ze leeg
 	}